--- a/gdk/makegdkalias.pl 2023-05-08 22:35:35.514840319 -0400 +++ b/gdk/makegdkalias.pl 2023-05-08 22:36:07.102441834 -0400 @@ -88,14 +88,39 @@ while (<>) { print $_; next; } - if ($_ =~ /^\#if.*(IN_FILE|IN_HEADER)/) + if ($_ =~ /^\#if.*(IN_FILE)/) { - print $_; - + if ($do_def) + { + $_ =~ s/IN_FILE(.*)/1/; + print $_; + } + else + { + $_ =~ s/IN_FILE/defined/, "\n"; + print $_; + } + + next; + } + + if ($_ =~ /^\#if.*(IN_HEADER)/) + { + if ($do_def) + { + $_ =~ s/IN_HEADER/defined/; + print $_; + } + else + { + $_ =~ s/IN_HEADER(.*)/1/; + print $_; + } + next; } chop; my $str = $_; --- a/gtk/makegtkalias.pl 2023-05-08 22:03:49.694877762 -0400 +++ b/gtk/makegtkalias.pl 2023-05-08 22:36:16.029329216 -0400 @@ -16,28 +16,10 @@ print <) { @@ -95,14 +77,39 @@ while (<>) { print $_; next; } - if ($_ =~ /^\#if.*(IN_FILE|IN_HEADER)/) + if ($_ =~ /^\#if.*(IN_FILE)/) { - print $_; - + if ($do_def) + { + $_ =~ s/IN_FILE/defined/g; + print $_; + } + else + { + $_ =~ s/IN_FILE(.*)/1/g; + print $_; + } + + next; + } + + if ($_ =~ /^\#if.*(IN_HEADER)/) + { + if ($do_def) + { + $_ =~ s/IN_HEADER(.*)/1/g; + print $_; + } + else + { + $_ =~ s/IN_HEADER/defined/g; + print $_; + } + next; } chop; my $str = $_;