From a1f9eef0b8c8c13a6ce7d656dfa1fdcc5b83d70e Mon Sep 17 00:00:00 2001
From: Mike Kestner <mkestner@gmail.com>
Date: Sun, 30 Jan 2011 17:06:58 -0600
Subject: [PATCH] Fix for some whitespace parsing in Funcs.

* parser/gapi2xml.pl: regex updates to support a bit more whitespace.
---
 parser/gapi2xml.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parser/gapi2xml.pl b/parser/gapi2xml.pl
index ae6d8cd96..5f8677abb 100755
--- a/parser/gapi2xml.pl
+++ b/parser/gapi2xml.pl
@@ -110,8 +110,8 @@ while ($line = <STDIN>) {
 			next;
 		}
 		$edefs{$ename} = $edef;
-	} elsif ($line =~ /typedef\s+\w+\s*\**\s*\(\*\s*(\w+)\)\s*\(/) {
-		$fname = $1;
+	} elsif ($line =~ /typedef\s+(const\s+)?\w+\s*\**\s*\(\s*\*\s*(\w+)\s*\)\s*\(/) {
+		$fname = $2;
 		$fdef = "";
 		while ($line !~ /;/) {
 			$fdef .= $line;