From: short <>
Date: Sun, 3 Aug 2003 07:20:10 +0000 (+0000)
Subject: +Strip 'captive_reactos_' prefix of W32-exported symbols.
X-Git-Tag: bp_captive~105
X-Git-Url: http://git.jankratochvil.net/?a=commitdiff_plain;h=c2f7acf73504e85b5608155a1a74afe29b72cdb4;p=captive.git

+Strip 'captive_reactos_' prefix of W32-exported symbols.
---

diff --git a/src/libcaptive/ke/captivesym.pl b/src/libcaptive/ke/captivesym.pl
index c68fc3f..5811ba4 100755
--- a/src/libcaptive/ke/captivesym.pl
+++ b/src/libcaptive/ke/captivesym.pl
@@ -231,7 +231,8 @@ HERE
 				."(\"$module\",\n";
 		for my $symbol (sort keys(%$moduleref)) {
 			next if $functype eq "patches" && !$def{$symbol};
-			print "\t\t\t\"$symbol\",",(($functype eq "patches" && "data" eq $def{$symbol}{"type"}
+			(my $symbol_outer=$symbol)=~s/^captive_reactos_//;
+			print "\t\t\t\"$symbol_outer\",",(($functype eq "patches" && "data" eq $def{$symbol}{"type"}
 									&& ($def{$symbol}{"pass"} || $def{$symbol}{"wrap"})) ? ("NULL")
 							: ("&${symbol}_",($def{$symbol}{"type"} || "undef"))),
 					(($functype ne "patches") ? () : (",".("data" eq $def{$symbol}{"type"} ? "NULL" : "&${symbol}_patchpoint"))),