mirror of
https://github.com/Ryujinx/GtkSharp.git
synced 2024-12-25 15:15:39 +00:00
c0b574a686
* mapdllnames.pl : a little whitespace action * api/*-api.xml : move to win32 dllnames * */makefile.win32 : remove the mapdllnames step * */*.cs : move to win32 dllnames * */*.custom : move to win32 dllnames * sources/gtk-sharp.sources : move to win32 dllnames svn path=/trunk/gtk-sharp/; revision=11823
38 lines
946 B
Perl
Executable file
38 lines
946 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# mapdllnames.pl : remaps the DllImport libnames for a specified source dir.
|
|
#
|
|
# Author: Mike Kestner <mkestner@speakeasy.net>
|
|
#
|
|
# <c> 2002 Mike Kestner
|
|
#############################################################################
|
|
|
|
%map = (
|
|
'glib-2.0', "libglib-2.0-0.dll",
|
|
'gobject-2.0', "libgobject-2.0-0.dll",
|
|
'pango-1.0', "libpango-1.0-0.dll",
|
|
'atk-1.0', "libatk-1.0-0.dll",
|
|
'gdk-x11-2.0', "libgdk-win32-2.0-0.dll",
|
|
'gdk-pixbuf-2.0', "libgdk_pixbuf-2.0-0.dll",
|
|
'gtk-x11-2.0', "libgtk-win32-2.0-0.dll"
|
|
);
|
|
|
|
foreach $filename (@ARGV) {
|
|
|
|
chomp($filename);
|
|
open(INFILE, $filename) || die "Couldn't open $filename\n";
|
|
open(OUTFILE, ">$filename.tmp") || die "Couldn't open $filename.tmp\n";
|
|
|
|
while ($line = <INFILE>) {
|
|
if ($line =~ /DllImport\s*\(\"(.*)\"/ && exists($map{$1})) {
|
|
$line =~ s/\"(.*)\"/\"$map{$1}\"/;
|
|
}
|
|
|
|
print OUTFILE $line;
|
|
}
|
|
close(INFILE);
|
|
close(OUTFILE);
|
|
`mv $filename.tmp $filename`;
|
|
}
|
|
|