File gapi-cdecl-insert-mono-patch.patch of Package mingw32-gtk-sharp2

Overview Repositories Revisions Requests Users Attributes Meta

File gapi-cdecl-insert-mono-patch.patch of Package mingw32-gtk-sharp2 (Revision 04d6bee58c41d741b391135be78125fa)

Currently displaying revision 04d6bee58c41d741b391135be78125fa , Show latest

diff --git a/gapi-cdecl-insert b/gapi-cdecl-insert
index dad2a78..71ab515 100755
--- a/gapi-cdecl-insert
+++ b/gapi-cdecl-insert
@@ -21,6 +21,7 @@
 # Boston, MA 02111-1307, USA.
 
 die "Usage: gapi-cdecl-insert [--keyfile=<file>] <assembly_path>\n" if ($ARGV > 2);
+
 foreach $arg (@ARGV) {
 	if ($arg =~ /--keyfile=(.*)/) {
 		$key = $1;
@@ -37,9 +38,14 @@ if (`which ildasm 2> /dev/null`) {
 	$dasm = "monodis --output=";
 }
 
+$dir=`pwd`;
+chomp($dir);
+$mono_path = "\$MONO_PATH:$dir/../atk/:$dir/../cairo/:$dir/../gdk/:$dir/../glib/:$dir/../gtk/:$dir/../pango/";
+
 if ($assembly =~ /(.*)\.dll/) {
 	$basename = $1;
-	`$dasm$basename.raw $assembly`;
+
+	`MONO_PATH="$mono_path" $dasm$basename.raw $assembly`;
 	open(INFILE, $basename . ".raw") || die "Couldn't open $basename.raw\n";
 	open(OUTFILE, "> $basename.il") || die "Couldn't open $basename.il\n";
 	while ($line = <INFILE>) {
@@ -52,7 +58,7 @@ if ($assembly =~ /(.*)\.dll/) {
 		}
 		print OUTFILE $line;
 	}
-	`ilasm /DLL /QUIET $basename.il`;
+	`MONO_PATH="$mono_path" ilasm /DLL /QUIET $basename.il`;
 	`sn -R $assembly gtk-sharp.snk` if ($key);
 	unlink "$basename.raw";
 	unlink "$basename.il";

Places

File gapi-cdecl-insert-mono-patch.patch of Package mingw32-gtk-sharp2 (Revision 04d6bee58c41d741b391135be78125fa)

Places