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

2002-06-25 Mike Kestner <mkestner@speakeasy.net>

Browse source 
* parser/gapi2xml.pl : some GtkHTML related parsing tweaks.

svn path=/trunk/gtk-sharp/; revision=5458
This commit is contained in:
Mike Kestner 2002-06-25 23:19:36 +00:00
parent 2e475b0cce
commit 56ef697e12
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
2002-06-25 Mike Kestner <mkestner@speakeasy.net>
* parser/gapi2xml.pl : some GtkHTML related parsing tweaks.
2002-06-25 Rachel Hestilow <hestilow@ximian.com> 2002-06-25 Rachel Hestilow <hestilow@ximian.com>
* makefile: back out a premature add of gnome * makefile: back out a premature add of gnome

11
parser/gapi2xml.pl
View file

@ -91,7 +91,7 @@ while ($line = <STDIN>) {
$pedef .= $line; $pedef .= $line;
last if ($line =~ /^}/); last if ($line =~ /^}/);
} }
$pedefs{$class} = $pedef; $pedefs{lc($class)} = $pedef;
} elsif ($line =~ /^(\w+)_get_type\b/) { } elsif ($line =~ /^(\w+)_get_type\b/) {
$class = StudlyCaps($1); $class = StudlyCaps($1);
$pedef = $line; $pedef = $line;
@ -110,7 +110,7 @@ while ($line = <STDIN>) {
} }
last if ($line =~ /^}/); last if ($line =~ /^}/);
} }
$typefuncs{$class} = $pedef; $typefuncs{lc($class)} = $pedef;
} elsif ($line =~ /^(const|G_CONST_RETURN)?\s*\w+\s*\**\s*(\w+)\s*\(/) { } elsif ($line =~ /^(const|G_CONST_RETURN)?\s*\w+\s*\**\s*(\w+)\s*\(/) {
$fname = $2; $fname = $2;
$fdef = ""; $fdef = "";
@ -221,7 +221,7 @@ foreach $type (sort(keys(%ifaces))) {
$iface = $ifaces{$type}; $iface = $ifaces{$type};
($inst, $dontcare) = split(/:/, delete $objects{$type}); ($inst, $dontcare) = split(/:/, delete $objects{$type});
$initfunc = $pedefs{$inst}; $initfunc = $pedefs{lc($inst)};
$ifacetype = delete $types{$iface}; $ifacetype = delete $types{$iface};
delete $types{$inst}; delete $types{$inst};
@ -247,8 +247,8 @@ foreach $type (sort(keys(%objects))) {
($inst, $class) = split(/:/, $objects{$type}); ($inst, $class) = split(/:/, $objects{$type});
$class = $inst . "Class" if (!$class); $class = $inst . "Class" if (!$class);
$initfunc = $pedefs{$inst}; $initfunc = $pedefs{lc($inst)};
$typefunc = $typefuncs{$inst}; $typefunc = $typefuncs{lc($inst)};
$insttype = delete $types{$inst}; $insttype = delete $types{$inst};
$classtype = delete $types{$class}; $classtype = delete $types{$class};
@ -556,6 +556,7 @@ sub addSignalElem
my ($spec, $class, $node) = @_; my ($spec, $class, $node) = @_;
$spec =~ s/\n\s*//g; $class =~ s/\n\s*//g; $spec =~ s/\n\s*//g; $class =~ s/\n\s*//g;
$sig_elem = $doc->createElement('signal'); $sig_elem = $doc->createElement('signal');
$node->appendChild($sig_elem); $node->appendChild($sig_elem);