win32-fixup.pl 1.06 KB
Newer Older
1 2 3 4 5 6 7 8
#!/usr/bin/perl

$major = 1;
$minor = 3;
$micro = 7;
$binary_age = 0;
$interface_age = 0;
$gettext_package = "glib20";
9
$current_minus_age = 0;
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

sub process_file
{
        my $outfilename = shift;
	my $infilename = $outfilename . ".in";
	
	open (INPUT, "< $infilename") || exit 1;
	open (OUTPUT, "> $outfilename") || exit 1;
	
	while (<INPUT>) {
	    s/\@GLIB_MAJOR_VERSION\@/$major/g;
	    s/\@GLIB_MINOR_VERSION\@/$minor/g;
	    s/\@GLIB_MICRO_VERSION\@/$micro/g;
	    s/\@GLIB_INTERFACE_AGE\@/$interface_age/g;
	    s/\@GLIB_BINARY_AGE\@/$binary_age/g;
	    s/\@GETTEXT_PACKAGE\@/$gettext_package/g;
26
	    s/\@LT_CURRENT_MINUS_AGE@/$current_minus_age/g;
27 28 29 30 31 32 33
	    print OUTPUT;
	}
}

process_file ("config.h.win32");
process_file ("glibconfig.h.win32");
process_file ("glib/makefile.msc");
34
process_file ("glib/glib.rc");
35
process_file ("gmodule/makefile.msc");
36
process_file ("gmodule/gmodule.rc");
37
process_file ("gobject/makefile.msc");
38
process_file ("gobject/gobject.rc");
39
process_file ("gthread/makefile.msc");
40
process_file ("gthread/gthread.rc");
41
process_file ("tests/makefile.msc");