| … | |
… | |
| 12 | context Context |
12 | context Context |
| 13 | event Event |
13 | event Event |
| 14 | profiling Event |
14 | profiling Event |
| 15 | mem Memory |
15 | mem Memory |
| 16 | image Image |
16 | image Image |
|
|
17 | gl_texture Image |
| 17 | sampler Sampler |
18 | sampler Sampler |
| 18 | program Program |
19 | program Program |
| 19 | program_build Program |
20 | program_build Program |
| 20 | kernel Kernel |
21 | kernel Kernel |
| 21 | kernel_work_group Kernel |
22 | kernel_work_group Kernel |
| … | |
… | |
| 76 | } |
77 | } |
| 77 | |
78 | |
| 78 | rename "$file~", $file; |
79 | rename "$file~", $file; |
| 79 | } |
80 | } |
| 80 | |
81 | |
| 81 | for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling)) { |
82 | for my $CLASS (qw(platform device context command_queue mem image sampler program program_build kernel kernel_work_group event profiling gl_texture)) { |
| 82 | open my $fh, "<getinfo.txt" |
83 | open my $fh, "<getinfo.txt" |
| 83 | or die "getinfo.txt: $!"; |
84 | or die "getinfo.txt: $!"; |
| 84 | |
85 | |
| 85 | my $POD; |
86 | my $POD; |
| 86 | my @funcs; |
87 | my @funcs; |
| … | |
… | |
| 220 | $_->[1] = " ALIAS:\n" . join "", map " $_->[0] = $_->[1]\n", @{ $_->[1] }; |
221 | $_->[1] = " ALIAS:\n" . join "", map " $_->[0] = $_->[1]\n", @{ $_->[1] }; |
| 221 | } |
222 | } |
| 222 | $XS .= join "", @$_; |
223 | $XS .= join "", @$_; |
| 223 | } |
224 | } |
| 224 | |
225 | |
|
|
226 | warn "patching class $CLASS\n"; |
|
|
227 | |
| 225 | patch "OpenCL.xs", "#BEGIN:$CLASS" , "#END:$CLASS" , $XS; |
228 | patch "OpenCL.xs", "#BEGIN:$CLASS" , "#END:$CLASS" , $XS; |
| 226 | patch "OpenCL.pm", "=for gengetinfo begin $CLASS", "=for gengetinfo end $CLASS", $POD; |
229 | patch "OpenCL.pm", "=for gengetinfo begin $CLASS", "=for gengetinfo end $CLASS", $POD; |
| 227 | } |
230 | } |
| 228 | |
231 | |
