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

2001-11-08 Mike Kestner <mkestner@speakeasy.net>

Browse Source 
* codegen/defs-parse.pl : Build a structs hash and gen the structs
	after the first pass of the defs.  For structs and functions, mangle
	the 100s of params/fields named object to objekt. Insert using stmnts
	for structs too.
	* codegen/hardcoded.defs : Add GtkAccelEntry struct.

svn path=/trunk/gtk-sharp/; revision=1286
This commit is contained in:
Mike Kestner 2001-11-08 01:35:11 +00:00
parent 807b6ea645
commit 1351a509e6
3 changed files with 54 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ChangeLog
View File

@ -1,3 +1,11 @@
2001-11-08 Mike Kestner <mkestner@speakeasy.net>
* codegen/defs-parse.pl : Build a structs hash and gen the structs
after the first pass of the defs. For structs and functions, mangle
the 100s of params/fields named object to objekt. Insert using stmnts
for structs too.
* codegen/hardcoded.defs : Add GtkAccelEntry struct.
2001-11-07 Mike Kestner <mkestner@speakeasy.net> 2001-11-07 Mike Kestner <mkestner@speakeasy.net>
* codegen/defs-parse.pl (gen_object): Insert using statements. Insert * codegen/defs-parse.pl (gen_object): Insert using statements. Insert

51
codegen/defs-parse.pl
View File

@ -30,8 +30,12 @@ while ($def = get_def()) {
gen_enum (split (/\n/, $def)); gen_enum (split (/\n/, $def));
} elsif ($def =~ /^\(define-struct (\w+)/) { } elsif ($def =~ /^\(define-struct (\w+)/) {
$name = $1; $name = $1;
$def =~ /c-name "(\w+)"/;
$cname=$1;
$def =~ s/\n\s*//g; $def =~ s/\n\s*//g;
gen_struct ($name, $def); $structs{$name} = $def;
$maptypes{$cname} = $name;
$marshaltypes{$cname} = $name;
} elsif ($def =~ /^\(define-object (\w+)/) { } elsif ($def =~ /^\(define-object (\w+)/) {
$name = $1; $name = $1;
$def =~ /c-name "(\w+)"/; $def =~ /c-name "(\w+)"/;
@ -61,8 +65,12 @@ while ($def = get_def()) {
} }
foreach $key (sort (keys (%objects))) { foreach $key (keys (%structs)) {
next if ($key ne "GtkWindow"); gen_struct ($key, $structs{$key});
}
foreach $key (keys (%objects)) {
next if ($key !~ /GtkWindow\b|GtkAccelGroup|GtkBin\b/);
gen_object (split (/\n/, $objects{$key})); gen_object (split (/\n/, $objects{$key}));
} }
@ -178,7 +186,10 @@ sub gen_struct
print OUTFILE "// Generated file: Do not modify\n\n"; print OUTFILE "// Generated file: Do not modify\n\n";
print OUTFILE "namespace $namespace {\n\n"; print OUTFILE "namespace $namespace {\n\n";
print OUTFILE "\t/// <summary> $name Structure </summary>\n"; foreach $ns (split (/,/, $usings{$namespace})) {
print OUTFILE "\tusing $ns;\n";
}
print OUTFILE "\n\t/// <summary> $name Structure </summary>\n";
print OUTFILE "\t/// <remarks>\n\t///\tFIXME: Add docs.\n"; print OUTFILE "\t/// <remarks>\n\t///\tFIXME: Add docs.\n";
print OUTFILE "\t/// </remarks>\n\n"; print OUTFILE "\t/// </remarks>\n\n";
@ -188,7 +199,10 @@ sub gen_struct
foreach $parm (split(/\)'\(/, $1)) { foreach $parm (split(/\)'\(/, $1)) {
$parm =~ s/\*//g; $parm =~ s/\*//g;
$parm =~ /"(\S*)" "(\S*)"/; $parm =~ /"(\S*)" "(\S*)"/;
print OUTFILE "\t\tpublic $maptypes{$1} $2;\n"; $ptype = $1;
$pname = $2;
$pname =~ s/object/objekt/;
print OUTFILE "\t\tpublic $maptypes{$ptype} $pname;\n";
} }
} }
@ -412,30 +426,33 @@ sub gen_method
sub gen_param_strings sub gen_param_strings
{ {
my ($def) = @_; my ($def) = @_;
my ($call, $parm, $pinv, $sig); my ($call, $parm, $pinv, $pname, $ptype, $sig);
$call = $pinv = $sig = ""; $call = $pinv = $sig = "";
if ($def =~ /parameters'\((.*)\)\)\)/) { if ($def =~ /parameters'\((.*)\)\)\)/) {
foreach $parm (split(/\)'\(/, $1)) { foreach $parm (split(/\)'\(/, $1)) {
$parm =~ s/\*//g; $parm =~ s/\*//g;
$parm =~ /"(\S*)" "(\S*)"/; $parm =~ /"(\S*)" "(\S*)"/;
$ptype = $1;
$pname = $2;
$pname =~ s/object/objekt/;
if ($sig) { if ($sig) {
$sig .= ', '; $sig .= ', ';
$call .= ', '; $call .= ', ';
$pinv .= ', '; $pinv .= ', ';
} }
$pinv .= "$marshaltypes{$1} $2"; $pinv .= "$marshaltypes{$ptype} $pname";
$sig .= "$maptypes{$1} $2"; $sig .= "$maptypes{$ptype} $pname";
if ($maptypes{$1} eq $marshaltypes{$1}) { if ($maptypes{$ptype} eq $marshaltypes{$ptype}) {
$call .= "$2"; $call .= "$pname";
} elsif (exists ($objects{$1})) { } elsif (exists ($objects{$ptype})) {
$call .= "$2.Handle"; $call .= "$pname.Handle";
} elsif ($1 =~ /gchar/) { } elsif ($ptype =~ /gchar/) {
$call .= "Marshal.StringToHGlobalAnsi($2)"; $call .= "Marshal.StringToHGlobalAnsi($pname)";
} elsif ($marshaltypes{$1} = "int") { } elsif ($marshaltypes{$ptype} = "int") {
$call .= "(int) $2"; $call .= "(int) $pname";
} else { } else {
die "Unexpected type encountered $1\n"; die "Unexpected type encountered $ptype\n";
} }
} }
} }

12
codegen/hardcoded.defs
View File

@ -16,3 +16,15 @@
) )
) )
(define-struct AccelEntry
(in-module "Gtk")
(c-name "GtkAccelEntry")
(fields
'("GtkAccelGroup*" "accel_group")
'("guint" "accelerator_key")
'("GdkModifierType" "accelerator_mods")
'("GtkAccelFlags" "accel_flags")
'("GObject*" "object")
'("guint" "signal_id")
)
)