| … | |
… | |
| 87 | my @funcs; |
87 | my @funcs; |
| 88 | my %alias; |
88 | my %alias; |
| 89 | |
89 | |
| 90 | while (<$fh>) { |
90 | while (<$fh>) { |
| 91 | chomp; |
91 | chomp; |
| 92 | my ($class, $name, $ctype) = split /,\s*/, $_, 3; |
92 | my ($class, $name, $ctype) = split /\s*,\s*/, $_, 3; |
| 93 | next unless $class eq "cl_$CLASS\_info"; |
93 | next unless $class eq "cl_$CLASS\_info"; |
| 94 | next if $name eq "CL_IMAGE_FORMAT"; # struct |
94 | next if $name eq "CL_IMAGE_FORMAT"; # struct |
| 95 | next if $name eq "CL_PROGRAM_BINARIES"; # needs multiple calls |
95 | next if $name eq "CL_PROGRAM_BINARIES"; # needs multiple calls |
| 96 | |
96 | |
| 97 | $ctype =~ s/cl:://g; |
97 | $ctype =~ s/cl:://g; |
| 98 | $ctype =~ s/::size_t/size_t/g; |
98 | $ctype =~ s/::size_t/size_t/g; |
| 99 | |
99 | |
| 100 | my $cbase = $class; |
100 | my $cbase = $class; |
| 101 | $cbase =~ s/_(.)/\U$1/g; |
101 | $cbase =~ s/_(.)/\U$1/g; |
| 102 | $cbase =~ s/_Gl_/_GL/g; |
102 | $cbase =~ s/Gl(?=[A-Z])/GL/g; |
| 103 | $cbase =~ s/^cl//; |
103 | $cbase =~ s/^cl//; |
| 104 | $cbase =~ s/Info$//; |
104 | $cbase =~ s/Info$//; |
| 105 | $cbase = "MemObject" if $cbase eq "Mem"; |
105 | $cbase = "MemObject" if $cbase eq "Mem"; |
| 106 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
106 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
| 107 | |
107 | |
