… | |
… | |
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/^cl//; |
103 | $cbase =~ s/^cl//; |
103 | $cbase =~ s/Info$//; |
104 | $cbase =~ s/Info$//; |
104 | $cbase = "MemObject" if $cbase eq "Mem"; |
105 | $cbase = "MemObject" if $cbase eq "Mem"; |
105 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
106 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
106 | |
107 | |