diff options
| author | Mathias Agopian <mathias@google.com> | 2009-05-27 20:38:06 -0700 |
|---|---|---|
| committer | Mathias Agopian <mathias@google.com> | 2009-05-27 20:38:06 -0700 |
| commit | b1a39d67be99fe6c4545b25e10ac82a5dd1df634 (patch) | |
| tree | 9c5107e1af357dc5e734287df0661a36642a4761 /opengl/libs/tools/glentrygen | |
| parent | a3d66a834f7e6796003684652d8aef13fa6345cd (diff) | |
| download | frameworks_native-b1a39d67be99fe6c4545b25e10ac82a5dd1df634.zip frameworks_native-b1a39d67be99fe6c4545b25e10ac82a5dd1df634.tar.gz frameworks_native-b1a39d67be99fe6c4545b25e10ac82a5dd1df634.tar.bz2 | |
Added most of the support needed for GLES 2.x
Diffstat (limited to 'opengl/libs/tools/glentrygen')
| -rwxr-xr-x | opengl/libs/tools/glentrygen | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/opengl/libs/tools/glentrygen b/opengl/libs/tools/glentrygen index 5e0f7b6..170f041 100755 --- a/opengl/libs/tools/glentrygen +++ b/opengl/libs/tools/glentrygen @@ -16,16 +16,23 @@ use strict; +sub rtrim($) +{ + my $string = shift; + $string =~ s/\s+$//; + return $string; +} + while (my $line = <>) { next if $line =~ /^\//; next if $line =~ /^#/; next if $line =~ /^\s*$/; - if ($line !~ /^GL_API\s+(.+)\s+GL_APIENTRY\s+([\w]+)\s*\(([^\)]+)\);/) { + if ($line !~ /^GL_API(CALL)?\s+(.+)\s+GL_APIENTRY\s+([\w]+)\s*\(([^\)]+)\);/) { next; } - my $type = $1; - my $name = $2; - my $args = $3; + my $type = rtrim($2); + my $name = $3; + my $args = $4; printf("GL_ENTRY(%s, %s, %s)\n", $type, $name, $args); } |