| … | |
… | |
| 154 | $perltype = "\@${perltype}s"; |
154 | $perltype = "\@${perltype}s"; |
| 155 | } else { |
155 | } else { |
| 156 | $perltype = "\$$perltype"; |
156 | $perltype = "\$$perltype"; |
| 157 | } |
157 | } |
| 158 | |
158 | |
|
|
159 | (my $perlenum = $name) =~ s/^CL_/OpenCL::/ or die; |
|
|
160 | |
| 159 | $POD .= "=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$name> and returns the result.\n\n"; |
161 | $POD .= "=item $perltype = \$$real_class->$perl_name$extra_perl_args\n\nCalls C<clGet${cbase}Info> with C<$perlenum> and returns the result.\n\n"; |
| 160 | |
162 | |
| 161 | # XS1 contains the function before ALIAS, XS2 the function afterwards (the body) |
163 | # XS1 contains the function before ALIAS, XS2 the function afterwards (the body) |
| 162 | # after we generate the bdoy we look for an identical body generated earlier |
164 | # after we generate the bdoy we look for an identical body generated earlier |
| 163 | # and simply alias us to the earlier xs function, to save text size. |
165 | # and simply alias us to the earlier xs function, to save text size. |
| 164 | my ($XS1, $XS2); |
166 | my ($XS1, $XS2); |
