The-Homebrew-Cloud/Ryujinx-GtkSharp
2
0
Fork 0
mirror of https://github.com/Ryujinx/GtkSharp.git synced 2024-09-30 09:38:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

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