| … | |
… | |
| 78 | } |
78 | } |
| 79 | |
79 | |
| 80 | rename "$file~", $file; |
80 | rename "$file~", $file; |
| 81 | } |
81 | } |
| 82 | |
82 | |
| 83 | for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling gl_texture)) { |
83 | for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group kernel_arg event profiling gl_texture)) { |
| 84 | open my $fh, "<getinfo.txt" |
84 | open my $fh, "<getinfo.txt" |
| 85 | or die "getinfo.txt: $!"; |
85 | or die "getinfo.txt: $!"; |
| 86 | |
86 | |
| 87 | my $POD; |
87 | my $POD; |
| 88 | my @funcs; |
88 | my @funcs; |
| … | |
… | |
| 107 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
107 | $cbase = "EventProfiling" if $cbase eq "Profiling"; |
| 108 | |
108 | |
| 109 | my $real_class = $CLASS; |
109 | my $real_class = $CLASS; |
| 110 | $real_class = "program" if $real_class eq "program_build"; |
110 | $real_class = "program" if $real_class eq "program_build"; |
| 111 | $real_class = "kernel" if $real_class eq "kernel_work_group"; |
111 | $real_class = "kernel" if $real_class eq "kernel_work_group"; |
|
|
112 | $real_class = "kernel" if $real_class eq "kernel_arg"; |
| 112 | $real_class = "event" if $real_class eq "profiling"; |
113 | $real_class = "event" if $real_class eq "profiling"; |
| 113 | |
114 | |
| 114 | my $perl_name = lc $name; |
115 | my $perl_name = lc $name; |
| 115 | $perl_name =~ s/^cl_//; |
116 | $perl_name =~ s/^cl_//; |
| 116 | $perl_name =~ s/^$real_class\_//; |
117 | $perl_name =~ s/^$real_class\_//; |
