ryujinx-archive/GtkSharp
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2001-12-31 Mike Kestner <mkestner@speakeasy.net>

Browse source 
* codegen/defs-parse.pl : Fix EOL handling for DOS \r\n patterns as
	reported by David Dawkins.

svn path=/trunk/gtk-sharp/; revision=1763
This commit is contained in:
Mike Kestner 2001-12-31 10:40:48 +00:00
parent 7052eadbaf
commit e1c553c646
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
2001-12-31 Mike Kestner <mkestner@speakeasy.net>
* codegen/defs-parse.pl : Fix EOL handling for DOS \r\n patterns as
reported by David Dawkins.
2001-12-11 Mike Kestner <mkestner@speakeasy.net> 2001-12-11 Mike Kestner <mkestner@speakeasy.net>
* codegen/get-structs-from-source.pl : New define-struct extractor. * codegen/get-structs-from-source.pl : New define-struct extractor.

8
codegen/defs-parse.pl
View file

@ -35,7 +35,7 @@ while ($def = get_def()) {
$name = $1; $name = $1;
$def =~ /c-name "(\w+)"/; $def =~ /c-name "(\w+)"/;
$cname=$1; $cname=$1;
$def =~ s/\n\s*//g; $def =~ s/\r?\n\s*//g;
$structs{$cname} = $def; $structs{$cname} = $def;
$maptypes{$cname} = $name; $maptypes{$cname} = $name;
$marshaltypes{$cname} = $name; $marshaltypes{$cname} = $name;
@ -43,19 +43,19 @@ while ($def = get_def()) {
$name = $1; $name = $1;
$def =~ /c-name "(\w+)"/; $def =~ /c-name "(\w+)"/;
$cname=$1; $cname=$1;
$def =~ s/\n\s*//g; $def =~ s/\r?\n\s*//g;
$objects{$cname} = $def; $objects{$cname} = $def;
$maptypes{$cname} = $name; $maptypes{$cname} = $name;
$marshaltypes{$cname} = "IntPtr"; $marshaltypes{$cname} = "IntPtr";
} elsif ($def =~ /^\(define-(prop|signal|method)/) { } elsif ($def =~ /^\(define-(prop|signal|method)/) {
$def =~ /of-object "(\w+)"/; $def =~ /of-object "(\w+)"/;
$cname=$1; $cname=$1;
$def =~ s/\n\s*//g; $def =~ s/\r?\n\s*//g;
$objects{$cname} .= "\n$def"; $objects{$cname} .= "\n$def";
} elsif ($def =~ /^\(define-function/) { } elsif ($def =~ /^\(define-function/) {
if ($def =~ /is-constructor-of (\w+)\)/) { if ($def =~ /is-constructor-of (\w+)\)/) {
$cname=$1; $cname=$1;
$def =~ s/\n\s*//g; $def =~ s/\r?\n\s*//g;
$objects{$cname} .= "\n$def"; $objects{$cname} .= "\n$def";
} }
} elsif ($def =~ /^\(define-(interface)/) { } elsif ($def =~ /^\(define-(interface)/) {