From 56ef697e12006f1ccb42e842c34bf30054c847c8 Mon Sep 17 00:00:00 2001
From: Mike Kestner <mkestner@gmail.com>
Date: Tue, 25 Jun 2002 23:19:36 +0000
Subject: [PATCH] 2002-06-25  Mike Kestner <mkestner@speakeasy.net>

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

svn path=/trunk/gtk-sharp/; revision=5458
---
 ChangeLog          |  4 ++++
 parser/gapi2xml.pl | 11 ++++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 45059c2c6..f1e554963 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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>
 
 	* makefile: back out a premature add of gnome
diff --git a/parser/gapi2xml.pl b/parser/gapi2xml.pl
index 50645dd3a..fa939ec76 100755
--- a/parser/gapi2xml.pl
+++ b/parser/gapi2xml.pl
@@ -91,7 +91,7 @@ while ($line = <STDIN>) {
 			$pedef .= $line;
 			last if ($line =~ /^}/);
 		}
-		$pedefs{$class} = $pedef;
+		$pedefs{lc($class)} = $pedef;
 	} elsif ($line =~ /^(\w+)_get_type\b/) {
 		$class = StudlyCaps($1);
 		$pedef = $line;
@@ -110,7 +110,7 @@ while ($line = <STDIN>) {
 			}
 			last if ($line =~ /^}/);
 		}
-		$typefuncs{$class} = $pedef;
+		$typefuncs{lc($class)} = $pedef;
 	} elsif ($line =~ /^(const|G_CONST_RETURN)?\s*\w+\s*\**\s*(\w+)\s*\(/) {
 		$fname = $2;
 		$fdef = "";
@@ -221,7 +221,7 @@ foreach $type (sort(keys(%ifaces))) {
 
 	$iface = $ifaces{$type};
 	($inst, $dontcare) = split(/:/, delete $objects{$type});
-	$initfunc = $pedefs{$inst};
+	$initfunc = $pedefs{lc($inst)};
 	$ifacetype = delete $types{$iface};
 	delete $types{$inst};
 	
@@ -247,8 +247,8 @@ foreach $type (sort(keys(%objects))) {
 	
 	($inst, $class) = split(/:/, $objects{$type});
 	$class = $inst . "Class" if (!$class);
-	$initfunc = $pedefs{$inst};
-	$typefunc = $typefuncs{$inst};
+	$initfunc = $pedefs{lc($inst)};
+	$typefunc = $typefuncs{lc($inst)};
 	$insttype = delete $types{$inst};
 	$classtype = delete $types{$class};
 
@@ -556,6 +556,7 @@ sub addSignalElem
 	my ($spec, $class, $node) = @_;
 	$spec =~ s/\n\s*//g; $class =~ s/\n\s*//g;
 
+
 	$sig_elem = $doc->createElement('signal');
 	$node->appendChild($sig_elem);