From 757dafa1569ac2152d1337e21ea18c679b6c9d49 Mon Sep 17 00:00:00 2001
From: Age Bosma <agebosma@gmail.com>
Date: Mon, 26 Sep 2011 13:52:12 +0200
Subject: [PATCH] Add support for class const fields

---
 parser/gapi2xml.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/parser/gapi2xml.pl b/parser/gapi2xml.pl
index 53210c921..e41a00621 100755
--- a/parser/gapi2xml.pl
+++ b/parser/gapi2xml.pl
@@ -574,8 +574,11 @@ sub addClassElem
 						$vm_elem->setAttribute('padding', 'true');
 					}
 				}
-			} elsif ($field =~ /(unsigned\s+)?(\S+)\s+(.+)/) {
-				my $type = $1 . $2; $symb = $3;
+			} elsif ($field =~ /(unsigned\s+)?(const\s+)?(\S+)\s+(.+)/) {
+				my $unsigned = $1; $const = $2; $name = $3; $symb = $4;
+				$const =~ s/const\s+/const\-/g;
+				my $type = $unsigned . $const . $name;
+				
 				foreach $tok (split (/,\s*/, $symb)) { # multiple field defs may occur in one line; like int xrange, yrange;
 					$tok =~ /(\*)?(\w+)\s*(.*)/;
 					my $field_type = $type . $1; my $cname = $2; my $modifiers = $3;