1 #! /usr/bin/perl 2 # 3 # Copyright (C) 2010 Google Inc. 4 # 5 # Licensed under the Apache License, Version 2.0 (the "License"); 6 # you may not use this file except in compliance with the License. 7 # You may obtain a copy of the License at 8 # 9 # http://www.apache.org/licenses/LICENSE-2.0 10 # 11 # Unless required by applicable law or agreed to in writing, software 12 # distributed under the License is distributed on an "AS IS" BASIS, 13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 14 # See the License for the specific language governing permissions and 15 # limitations under the License. 16 17 use strict; 18 19 my %enumHash = (); 20 21 while (my $line = <STDIN>) { 22 next if $line =~ /^\//; 23 # Skip bitfield definitions. 24 next if $line =~ /_BIT(\d+_|\s+)/; 25 if ($line !~ /^#define\s+(\S+)\s+(0x\S+)/) { 26 next; 27 } 28 my $enumName = $1; 29 my $enumValue = $2; 30 next if exists($enumHash { $enumValue }); 31 $enumHash { $enumValue } = $enumName; 32 printf("GL_ENUM(%s,%s)\n", $enumValue, $enumName); 33 } 34 35 36 37 38 39
