| … | |
… | |
| 672 | XPUSH_NEW_OBJ ("OpenCL::Image3D", mem); |
672 | XPUSH_NEW_OBJ ("OpenCL::Image3D", mem); |
| 673 | |
673 | |
| 674 | void |
674 | void |
| 675 | gl_renderbuffer (OpenCL::Context self, cl_mem_flags flags, cl_GLuint renderbuffer) |
675 | gl_renderbuffer (OpenCL::Context self, cl_mem_flags flags, cl_GLuint renderbuffer) |
| 676 | PPCODE: |
676 | PPCODE: |
| 677 | NEED_SUCCESS_ARG (cl_mem mem, CreateFromGLRenderBuffer, (self, flags, renderbuffer, &res)); |
677 | NEED_SUCCESS_ARG (cl_mem mem, CreateFromGLRenderbuffer, (self, flags, renderbuffer, &res)); |
| 678 | XPUSH_NEW_OBJ ("OpenCL::Image2D", mem); |
678 | XPUSH_NEW_OBJ ("OpenCL::Image2D", mem); |
| 679 | |
679 | |
| 680 | #endif |
680 | #endif |
| 681 | |
681 | |
| 682 | void |
682 | void |
| … | |
… | |
| 1234 | PUSHs (NEW_MORTAL_OBJ ("OpenCL::Memory", value [i])); |
1234 | PUSHs (NEW_MORTAL_OBJ ("OpenCL::Memory", value [i])); |
| 1235 | } |
1235 | } |
| 1236 | |
1236 | |
| 1237 | #END:mem |
1237 | #END:mem |
| 1238 | |
1238 | |
|
|
1239 | #if cl_apple_gl_sharing || cl_khr_gl_sharing |
|
|
1240 | |
|
|
1241 | void |
|
|
1242 | gl_object_info (OpenCL::Memory self) |
|
|
1243 | PPCODE: |
|
|
1244 | cl_gl_object_type type; |
|
|
1245 | cl_GLuint name; |
|
|
1246 | NEED_SUCCESS (clGetGLObjectInfo, (self, &type, &name)); |
|
|
1247 | EXTEND (SP, 2); |
|
|
1248 | PUSHs (sv_2mortal (newSVuv (type))); |
|
|
1249 | PUSHs (sv_2mortal (newSVuv (name))); |
|
|
1250 | |
|
|
1251 | #endif |
|
|
1252 | |
| 1239 | MODULE = OpenCL PACKAGE = OpenCL::BufferObj |
1253 | MODULE = OpenCL PACKAGE = OpenCL::BufferObj |
| 1240 | |
1254 | |
| 1241 | void |
1255 | void |
| 1242 | sub_buffer_region (OpenCL::BufferObj self, cl_mem_flags flags, size_t origin, size_t size) |
1256 | sub_buffer_region (OpenCL::BufferObj self, cl_mem_flags flags, size_t origin, size_t size) |
| 1243 | PPCODE: |
1257 | PPCODE: |
| … | |
… | |
| 1273 | EXTEND (SP, 1); |
1287 | EXTEND (SP, 1); |
| 1274 | const int i = 0; |
1288 | const int i = 0; |
| 1275 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
1289 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
| 1276 | |
1290 | |
| 1277 | #END:image |
1291 | #END:image |
|
|
1292 | |
|
|
1293 | #if cl_apple_gl_sharing || cl_khr_gl_sharing |
|
|
1294 | |
|
|
1295 | #BEGIN:gl_texture |
|
|
1296 | |
|
|
1297 | void |
|
|
1298 | target (OpenCL::Image self) |
|
|
1299 | PPCODE: |
|
|
1300 | cl_GLenum value [1]; |
|
|
1301 | NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_TEXTURE_TARGET, sizeof (value), value, 0)); |
|
|
1302 | EXTEND (SP, 1); |
|
|
1303 | const int i = 0; |
|
|
1304 | PUSHs (sv_2mortal (newSVuv (value [i]))); |
|
|
1305 | |
|
|
1306 | void |
|
|
1307 | gl_mipmap_level (OpenCL::Image self) |
|
|
1308 | PPCODE: |
|
|
1309 | cl_GLint value [1]; |
|
|
1310 | NEED_SUCCESS (GetGlTextureInfo, (self, CL_GL_MIPMAP_LEVEL, sizeof (value), value, 0)); |
|
|
1311 | EXTEND (SP, 1); |
|
|
1312 | const int i = 0; |
|
|
1313 | PUSHs (sv_2mortal (newSViv (value [i]))); |
|
|
1314 | |
|
|
1315 | #END:gl_texture |
|
|
1316 | |
|
|
1317 | #endif |
| 1278 | |
1318 | |
| 1279 | MODULE = OpenCL PACKAGE = OpenCL::Sampler |
1319 | MODULE = OpenCL PACKAGE = OpenCL::Sampler |
| 1280 | |
1320 | |
| 1281 | void |
1321 | void |
| 1282 | DESTROY (OpenCL::Sampler self) |
1322 | DESTROY (OpenCL::Sampler self) |
