ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/OpenCL/OpenCL.pm
(Generate patch)

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.13 by root, Thu Nov 17 03:01:35 2011 UTC vs.
Revision 1.32 by root, Thu Apr 19 12:12:03 2012 UTC

27OpenCL::Program objects, which store source code and, after building for a 27OpenCL::Program objects, which store source code and, after building for a
28specific device ("compiling and linking"), also binary programs. For each 28specific device ("compiling and linking"), also binary programs. For each
29kernel function in a program you can then create an OpenCL::Kernel object 29kernel function in a program you can then create an OpenCL::Kernel object
30which represents basically a function call with argument values. 30which represents basically a function call with argument values.
31 31
32OpenCL::Memory objects of various flavours: OpenCL::Buffers objects (flat 32OpenCL::Memory objects of various flavours: OpenCL::Buffer objects (flat
33memory areas, think array) and OpenCL::Image objects (think 2d or 3d 33memory areas, think arrays or structs) and OpenCL::Image objects (think 2d
34array) for bulk data and input and output for kernels. 34or 3d array) for bulk data and input and output for kernels.
35 35
36OpenCL::Sampler objects, which are kind of like texture filter modes in 36OpenCL::Sampler objects, which are kind of like texture filter modes in
37OpenGL. 37OpenGL.
38 38
39OpenCL::Queue objects - command queues, which allow you to submit memory 39OpenCL::Queue objects - command queues, which allow you to submit memory
52 52
53OpenCL manpages: 53OpenCL manpages:
54 54
55 http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/ 55 http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/
56 56
57If you are into UML class diagrams, the following diagram might help - if
58not, it will be mildly cobfusing:
59
60 http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/classDiagram.html
61
62Here's a tutorial from AMD (very AMD-centric, too), not sure how useful it
63is, but at least it's free of charge:
64
65 http://developer.amd.com/zones/OpenCLZone/courses/Documents/Introduction_to_OpenCL_Programming%20Training_Guide%20%28201005%29.pdf
66
67And here's NVIDIA's OpenCL Best Practises Guide:
68
69 http://developer.download.nvidia.com/compute/cuda/3_2/toolkit/docs/OpenCL_Best_Practices_Guide.pdf
70
57=head1 BASIC WORKFLOW 71=head1 BASIC WORKFLOW
58 72
59To get something done, you basically have to do this once (refer to the 73To get something done, you basically have to do this once (refer to the
60examples below for actual code, this is just a high-level description): 74examples below for actual code, this is just a high-level description):
61 75
87 101
88Best run this once to get a feel for the platforms and devices in your 102Best run this once to get a feel for the platforms and devices in your
89system. 103system.
90 104
91 for my $platform (OpenCL::platforms) { 105 for my $platform (OpenCL::platforms) {
92 printf "platform: %s\n", $platform->info (OpenCL::PLATFORM_NAME); 106 printf "platform: %s\n", $platform->name;
93 printf "extensions: %s\n", $platform->info (OpenCL::PLATFORM_EXTENSIONS); 107 printf "extensions: %s\n", $platform->extensions;
94 for my $device ($platform->devices) { 108 for my $device ($platform->devices) {
95 printf "+ device: %s\n", $device->info (OpenCL::DEVICE_NAME); 109 printf "+ device: %s\n", $device->name;
96 my $ctx = $device->context; 110 my $ctx = $platform->context (undef, [$device]);
97 # do stuff 111 # do stuff
98 } 112 }
99 } 113 }
100 114
101=head2 Get a useful context and a command queue. 115=head2 Get a useful context and a command queue.
135 149
136=head2 Create and build a program, then create a kernel out of one of its 150=head2 Create and build a program, then create a kernel out of one of its
137functions. 151functions.
138 152
139 my $src = ' 153 my $src = '
140 __kernel void 154 kernel void
141 squareit (__global float *input, __global float *output) 155 squareit (global float *input, global float *output)
142 { 156 {
143 size_t id = get_global_id (0); 157 $id = get_global_id (0);
144 output [id] = input [id] * input [id]; 158 output [id] = input [id] * input [id];
145 } 159 }
146 '; 160 ';
147 161
148 my $prog = $ctx->program_with_source ($src); 162 my $prog = $ctx->program_with_source ($src);
149 163
150 # build croaks on compile errors, so catch it and print the compile errors 164 # build croaks on compile errors, so catch it and print the compile errors
151 eval { $prog->build ($dev); 1 } 165 eval { $prog->build ($dev); 1 }
152 or die $prog->build_info ($dev, OpenCL::PROGRAM_BUILD_LOG); 166 or die $prog->build_log;
153 167
154 my $kernel = $prog->kernel ("squareit"); 168 my $kernel = $prog->kernel ("squareit");
155 169
156=head2 Create some input and output float buffers, then call the 170=head2 Create some input and output float buffers, then call the
157'squareit' kernel on them. 171'squareit' kernel on them.
201 215
202=head1 DOCUMENTATION 216=head1 DOCUMENTATION
203 217
204=head2 BASIC CONVENTIONS 218=head2 BASIC CONVENTIONS
205 219
206This is not a 1:1 C-style translation of OpenCL to Perl - instead I 220This is not a one-to-one C-style translation of OpenCL to Perl - instead
207attempted to make the interface as type-safe as possible and introducing 221I attempted to make the interface as type-safe as possible by introducing
208object syntax where it makes sense. There are a number of important 222object syntax where it makes sense. There are a number of important
209differences between the OpenCL C API and this module: 223differences between the OpenCL C API and this module:
210 224
211=over 4 225=over 4
212 226
213=item * Object lifetime managament is automatic - there is no need 227=item * Object lifetime managament is automatic - there is no need
214to free objects explicitly (C<clReleaseXXX>), the release function 228to free objects explicitly (C<clReleaseXXX>), the release function
215is called automatically once all Perl references to it go away. 229is called automatically once all Perl references to it go away.
216 230
217=item * OpenCL uses CamelCase for function names (C<clGetPlatformInfo>), 231=item * OpenCL uses CamelCase for function names
232(e.g. C<clGetPlatformIDs>, C<clGetPlatformInfo>), while this module
218while this module uses underscores as word separator and often leaves out 233uses underscores as word separator and often leaves out prefixes
219prefixes (C<< $platform->info >>). 234(C<OpenCL::platforms>, C<< $platform->info >>).
220 235
221=item * OpenCL often specifies fixed vector function arguments as short 236=item * OpenCL often specifies fixed vector function arguments as short
222arrays (C<size_t origin[3]>), while this module explicitly expects the 237arrays (C<size_t origin[3]>), while this module explicitly expects the
223components as separate arguments- 238components as separate arguments (C<$orig_x, $orig_y, $orig_z>) in
239function calls.
224 240
225=item * Structures are often specified with their components, and returned 241=item * Structures are often specified by flattening out their components
226as arrayrefs. 242as with short vectors, and returned as arrayrefs.
227
228=item * Where possible, one of the pitch values is calculated from the
229perl scalar length and need not be specified.
230 243
231=item * When enqueuing commands, the wait list is specified by adding 244=item * When enqueuing commands, the wait list is specified by adding
232extra arguments to the function - anywhere a C<$wait_events...> argument 245extra arguments to the function - anywhere a C<$wait_events...> argument
233is documented this can be any number of event objects. 246is documented this can be any number of event objects.
234 247
258 ulong IV - Q 271 ulong IV - Q
259 float NV float f 272 float NV float f
260 half IV ushort S 273 half IV ushort S
261 double NV double d 274 double NV double d
262 275
276=head2 OpenGL sharing
277
278This module can be optionally compiled with support for
279OpenGL sharing. The sharing functions are only available when
280C<OpenCL::HAVE_OPENGL> returns true, otherwise they are absent and cannot
281be called.
282
263=head2 THE OpenCL PACKAGE 283=head2 THE OpenCL PACKAGE
264 284
265=over 4 285=over 4
266 286
267=item $int = OpenCL::errno 287=item $int = OpenCL::errno
273 293
274Comverts an error value into a human readable string. 294Comverts an error value into a human readable string.
275 295
276=item $str = OpenCL::enum2str $enum 296=item $str = OpenCL::enum2str $enum
277 297
278Converts most enum values (inof parameter names, image format constants, 298Converts most enum values (of parameter names, image format constants,
279object types, addressing and filter modes, command types etc.) into a 299object types, addressing and filter modes, command types etc.) into a
280human readbale string. When confronted with some random integer it can be 300human readable string. When confronted with some random integer it can be
281very helpful to pass it through this function to maybe get some readable 301very helpful to pass it through this function to maybe get some readable
282string out of it. 302string out of it.
283 303
284=item @platforms = OpenCL::platforms 304=item @platforms = OpenCL::platforms
285 305
303 323
304=head2 THE OpenCL::Platform CLASS 324=head2 THE OpenCL::Platform CLASS
305 325
306=over 4 326=over 4
307 327
308=item $packed_value = $platform->info ($name)
309
310Calls C<clGetPlatformInfo> and returns the packed, raw value - for
311strings, this will be the string, for other values you probably need to
312use the correct C<unpack>. This might get improved in the future. Hopefully.
313
314L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformInfo.html>
315
316=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL) 328=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL)
317 329
318Returns a list of matching OpenCL::Device objects. 330Returns a list of matching OpenCL::Device objects.
319 331
320=item $ctx = $platform->context_from_type ($properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef) 332=item $ctx = $platform->context_from_type ($properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef)
321 333
322Tries to create a context. Never worked for me, and you need devices explitly anyway. 334Tries to create a context. Never worked for me, and you need devices explicitly anyway.
323 335
324L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html> 336L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html>
325 337
326=item $ctx = $device->context ($properties = undef, @$devices, $notify = undef) 338=item $ctx = $platform->context ($properties = undef, @$devices, $notify = undef)
327 339
328Create a new OpenCL::Context object using the given device object(s)- a 340Create a new OpenCL::Context object using the given device object(s)- a
329CL_CONTEXT_PLATFORM property is supplied automatically. 341CL_CONTEXT_PLATFORM property is supplied automatically.
330 342
331L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html> 343L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html>
332 344
345=item $packed_value = $platform->info ($name)
346
347Calls C<clGetPlatformInfo> and returns the packed, raw value - for
348strings, this will be the string (possibly including terminating \0), for
349other values you probably need to use the correct C<unpack>.
350
351It's best to avoid this method and use one of the following convenience
352wrappers.
353
354L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformInfo.html>
355
356=for gengetinfo begin platform
357
358=item $string = $platform->profile
359
360Calls C<clGetPlatformInfo> with C<CL_PLATFORM_PROFILE> and returns the result.
361
362=item $string = $platform->version
363
364Calls C<clGetPlatformInfo> with C<CL_PLATFORM_VERSION> and returns the result.
365
366=item $string = $platform->name
367
368Calls C<clGetPlatformInfo> with C<CL_PLATFORM_NAME> and returns the result.
369
370=item $string = $platform->vendor
371
372Calls C<clGetPlatformInfo> with C<CL_PLATFORM_VENDOR> and returns the result.
373
374=item $string = $platform->extensions
375
376Calls C<clGetPlatformInfo> with C<CL_PLATFORM_EXTENSIONS> and returns the result.
377
378=for gengetinfo end platform
379
333=back 380=back
334 381
335=head2 THE OpenCL::Device CLASS 382=head2 THE OpenCL::Device CLASS
336 383
337=over 4 384=over 4
340 387
341See C<< $platform->info >> for details. 388See C<< $platform->info >> for details.
342 389
343L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetDeviceInfo.html> 390L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetDeviceInfo.html>
344 391
392=for gengetinfo begin device
393
394=item $device_type = $device->type
395
396Calls C<clGetDeviceInfo> with C<CL_DEVICE_TYPE> and returns the result.
397
398=item $uint = $device->vendor_id
399
400Calls C<clGetDeviceInfo> with C<CL_DEVICE_VENDOR_ID> and returns the result.
401
402=item $uint = $device->max_compute_units
403
404Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_COMPUTE_UNITS> and returns the result.
405
406=item $uint = $device->max_work_item_dimensions
407
408Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS> and returns the result.
409
410=item $int = $device->max_work_group_size
411
412Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_GROUP_SIZE> and returns the result.
413
414=item @ints = $device->max_work_item_sizes
415
416Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_ITEM_SIZES> and returns the result.
417
418=item $uint = $device->preferred_vector_width_char
419
420Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_CHAR> and returns the result.
421
422=item $uint = $device->preferred_vector_width_short
423
424Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_SHORT> and returns the result.
425
426=item $uint = $device->preferred_vector_width_int
427
428Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_INT> and returns the result.
429
430=item $uint = $device->preferred_vector_width_long
431
432Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_LONG> and returns the result.
433
434=item $uint = $device->preferred_vector_width_float
435
436Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT> and returns the result.
437
438=item $uint = $device->preferred_vector_width_double
439
440Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE> and returns the result.
441
442=item $uint = $device->max_clock_frequency
443
444Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CLOCK_FREQUENCY> and returns the result.
445
446=item $bitfield = $device->address_bits
447
448Calls C<clGetDeviceInfo> with C<CL_DEVICE_ADDRESS_BITS> and returns the result.
449
450=item $uint = $device->max_read_image_args
451
452Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_READ_IMAGE_ARGS> and returns the result.
453
454=item $uint = $device->max_write_image_args
455
456Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WRITE_IMAGE_ARGS> and returns the result.
457
458=item $ulong = $device->max_mem_alloc_size
459
460Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_MEM_ALLOC_SIZE> and returns the result.
461
462=item $int = $device->image2d_max_width
463
464Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE2D_MAX_WIDTH> and returns the result.
465
466=item $int = $device->image2d_max_height
467
468Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE2D_MAX_HEIGHT> and returns the result.
469
470=item $int = $device->image3d_max_width
471
472Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_WIDTH> and returns the result.
473
474=item $int = $device->image3d_max_height
475
476Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_HEIGHT> and returns the result.
477
478=item $int = $device->image3d_max_depth
479
480Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_DEPTH> and returns the result.
481
482=item $uint = $device->image_support
483
484Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE_SUPPORT> and returns the result.
485
486=item $int = $device->max_parameter_size
487
488Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_PARAMETER_SIZE> and returns the result.
489
490=item $uint = $device->max_samplers
491
492Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_SAMPLERS> and returns the result.
493
494=item $uint = $device->mem_base_addr_align
495
496Calls C<clGetDeviceInfo> with C<CL_DEVICE_MEM_BASE_ADDR_ALIGN> and returns the result.
497
498=item $uint = $device->min_data_type_align_size
499
500Calls C<clGetDeviceInfo> with C<CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE> and returns the result.
501
502=item $device_fp_config = $device->single_fp_config
503
504Calls C<clGetDeviceInfo> with C<CL_DEVICE_SINGLE_FP_CONFIG> and returns the result.
505
506=item $device_mem_cache_type = $device->global_mem_cache_type
507
508Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHE_TYPE> and returns the result.
509
510=item $uint = $device->global_mem_cacheline_size
511
512Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE> and returns the result.
513
514=item $ulong = $device->global_mem_cache_size
515
516Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHE_SIZE> and returns the result.
517
518=item $ulong = $device->global_mem_size
519
520Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_SIZE> and returns the result.
521
522=item $ulong = $device->max_constant_buffer_size
523
524Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE> and returns the result.
525
526=item $uint = $device->max_constant_args
527
528Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CONSTANT_ARGS> and returns the result.
529
530=item $device_local_mem_type = $device->local_mem_type
531
532Calls C<clGetDeviceInfo> with C<CL_DEVICE_LOCAL_MEM_TYPE> and returns the result.
533
534=item $ulong = $device->local_mem_size
535
536Calls C<clGetDeviceInfo> with C<CL_DEVICE_LOCAL_MEM_SIZE> and returns the result.
537
538=item $boolean = $device->error_correction_support
539
540Calls C<clGetDeviceInfo> with C<CL_DEVICE_ERROR_CORRECTION_SUPPORT> and returns the result.
541
542=item $int = $device->profiling_timer_resolution
543
544Calls C<clGetDeviceInfo> with C<CL_DEVICE_PROFILING_TIMER_RESOLUTION> and returns the result.
545
546=item $boolean = $device->endian_little
547
548Calls C<clGetDeviceInfo> with C<CL_DEVICE_ENDIAN_LITTLE> and returns the result.
549
550=item $boolean = $device->available
551
552Calls C<clGetDeviceInfo> with C<CL_DEVICE_AVAILABLE> and returns the result.
553
554=item $boolean = $device->compiler_available
555
556Calls C<clGetDeviceInfo> with C<CL_DEVICE_COMPILER_AVAILABLE> and returns the result.
557
558=item $device_exec_capabilities = $device->execution_capabilities
559
560Calls C<clGetDeviceInfo> with C<CL_DEVICE_EXECUTION_CAPABILITIES> and returns the result.
561
562=item $command_queue_properties = $device->properties
563
564Calls C<clGetDeviceInfo> with C<CL_DEVICE_QUEUE_PROPERTIES> and returns the result.
565
566=item $ = $device->platform
567
568Calls C<clGetDeviceInfo> with C<CL_DEVICE_PLATFORM> and returns the result.
569
570=item $string = $device->name
571
572Calls C<clGetDeviceInfo> with C<CL_DEVICE_NAME> and returns the result.
573
574=item $string = $device->vendor
575
576Calls C<clGetDeviceInfo> with C<CL_DEVICE_VENDOR> and returns the result.
577
578=item $string = $device->driver_version
579
580Calls C<clGetDeviceInfo> with C<CL_DRIVER_VERSION> and returns the result.
581
582=item $string = $device->profile
583
584Calls C<clGetDeviceInfo> with C<CL_DEVICE_PROFILE> and returns the result.
585
586=item $string = $device->version
587
588Calls C<clGetDeviceInfo> with C<CL_DEVICE_VERSION> and returns the result.
589
590=item $string = $device->extensions
591
592Calls C<clGetDeviceInfo> with C<CL_DEVICE_EXTENSIONS> and returns the result.
593
594=item $uint = $device->preferred_vector_width_half
595
596Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_HALF> and returns the result.
597
598=item $uint = $device->native_vector_width_char
599
600Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_CHAR> and returns the result.
601
602=item $uint = $device->native_vector_width_short
603
604Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_SHORT> and returns the result.
605
606=item $uint = $device->native_vector_width_int
607
608Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_INT> and returns the result.
609
610=item $uint = $device->native_vector_width_long
611
612Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_LONG> and returns the result.
613
614=item $uint = $device->native_vector_width_float
615
616Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_FLOAT> and returns the result.
617
618=item $uint = $device->native_vector_width_double
619
620Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_DOUBLE> and returns the result.
621
622=item $uint = $device->native_vector_width_half
623
624Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_HALF> and returns the result.
625
626=item $device_fp_config = $device->double_fp_config
627
628Calls C<clGetDeviceInfo> with C<CL_DEVICE_DOUBLE_FP_CONFIG> and returns the result.
629
630=item $device_fp_config = $device->half_fp_config
631
632Calls C<clGetDeviceInfo> with C<CL_DEVICE_HALF_FP_CONFIG> and returns the result.
633
634=item $boolean = $device->host_unified_memory
635
636Calls C<clGetDeviceInfo> with C<CL_DEVICE_HOST_UNIFIED_MEMORY> and returns the result.
637
638=item $device = $device->parent_device_ext
639
640Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARENT_DEVICE_EXT> and returns the result.
641
642=item @device_partition_property_exts = $device->partition_types_ext
643
644Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARTITION_TYPES_EXT> and returns the result.
645
646=item @device_partition_property_exts = $device->affinity_domains_ext
647
648Calls C<clGetDeviceInfo> with C<CL_DEVICE_AFFINITY_DOMAINS_EXT> and returns the result.
649
650=item $uint = $device->reference_count_ext
651
652Calls C<clGetDeviceInfo> with C<CL_DEVICE_REFERENCE_COUNT_EXT > and returns the result.
653
654=item @device_partition_property_exts = $device->partition_style_ext
655
656Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARTITION_STYLE_EXT> and returns the result.
657
658=for gengetinfo end device
659
345=back 660=back
346 661
347=head2 THE OpenCL::Context CLASS 662=head2 THE OpenCL::Context CLASS
348 663
349=over 4 664=over 4
350 665
351=item $packed_value = $ctx->info ($name)
352
353See C<< $platform->info >> for details.
354
355L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetContextInfo.html>
356
357=item $queue = $ctx->queue ($device, $properties) 666=item $queue = $ctx->queue ($device, $properties)
358 667
359Create a new OpenCL::Queue object from the context and the given device. 668Create a new OpenCL::Queue object from the context and the given device.
360 669
361L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateCommandQueue.html> 670L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateCommandQueue.html>
366 675
367L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html> 676L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html>
368 677
369=item $buf = $ctx->buffer ($flags, $len) 678=item $buf = $ctx->buffer ($flags, $len)
370 679
371Creates a new OpenCL::Buffer object with the given flags and octet-size. 680Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object with the
681given flags and octet-size.
372 682
373L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html> 683L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html>
374 684
375=item $buf = $ctx->buffer_sv ($flags, $data) 685=item $buf = $ctx->buffer_sv ($flags, $data)
376 686
377Creates a new OpenCL::Buffer object and initialise it with the given data values. 687Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object and
688initialise it with the given data values.
378 689
379=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $data) 690=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef)
380 691
381Creates a new OpenCL::Image2D object and optionally initialises it with the given data values. 692Creates a new OpenCL::Image2D object and optionally initialises it with
693the given data values.
382 694
383L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html> 695L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html>
384 696
385=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $slice_pitch, $data) 697=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef)
386 698
387Creates a new OpenCL::Image3D object and optionally initialises it with the given data values. 699Creates a new OpenCL::Image3D object and optionally initialises it with
700the given data values.
388 701
389L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html> 702L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html>
390 703
391=item @formats = $ctx->supported_image_formats ($flags, $image_type) 704=item @formats = $ctx->supported_image_formats ($flags, $image_type)
392 705
404=item $program = $ctx->program_with_source ($string) 717=item $program = $ctx->program_with_source ($string)
405 718
406Creates a new OpenCL::Program object from the given source code. 719Creates a new OpenCL::Program object from the given source code.
407 720
408L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateProgramWithSource.html> 721L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateProgramWithSource.html>
722
723=item $packed_value = $ctx->info ($name)
724
725See C<< $platform->info >> for details.
726
727L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetContextInfo.html>
728
729=for gengetinfo begin context
730
731=item $uint = $context->reference_count
732
733Calls C<clGetContextInfo> with C<CL_CONTEXT_REFERENCE_COUNT> and returns the result.
734
735=item @devices = $context->devices
736
737Calls C<clGetContextInfo> with C<CL_CONTEXT_DEVICES> and returns the result.
738
739=item @property_ints = $context->properties
740
741Calls C<clGetContextInfo> with C<CL_CONTEXT_PROPERTIES> and returns the result.
742
743=item $uint = $context->num_devices
744
745Calls C<clGetContextInfo> with C<CL_CONTEXT_NUM_DEVICES> and returns the result.
746
747=for gengetinfo end context
409 748
410=back 749=back
411 750
412=head2 THE OpenCL::Queue CLASS 751=head2 THE OpenCL::Queue CLASS
413 752
427cases (i.e. you use only one queue) it's not necessary to wait for or 766cases (i.e. you use only one queue) it's not necessary to wait for or
428create event objects. 767create event objects.
429 768
430=over 4 769=over 4
431 770
432=item $packed_value = $ctx->info ($name)
433
434See C<< $platform->info >> for details.
435
436L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetCommandQueueInfo.html>
437
438=item $ev = $queue->enqueue_read_buffer ($buffer, $blocking, $offset, $len, $data, $wait_events...) 771=item $ev = $queue->enqueue_read_buffer ($buffer, $blocking, $offset, $len, $data, $wait_events...)
439 772
440Reads data from buffer into the given string. 773Reads data from buffer into the given string.
441 774
442L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBuffer.html> 775L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBuffer.html>
449 782
450=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...) 783=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...)
451 784
452L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html> 785L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html>
453 786
787=item $ev = $queue->enqueue_read_buffer_rect (OpenCL::Memory buf, cl_bool blocking, $buf_x, $buf_y, $buf_z, $host_x, $host_y, $host_z, $width, $height, $depth, $buf_row_pitch, $buf_slice_pitch, $host_row_pitch, $host_slice_pitch, $data, $wait_events...)
788
789http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBufferRect.html
790
791=item $ev = $queue->enqueue_write_buffer_rect (OpenCL::Memory buf, cl_bool blocking, $buf_x, $buf_y, $buf_z, $host_x, $host_y, $host_z, $width, $height, $depth, $buf_row_pitch, $buf_slice_pitch, $host_row_pitch, $host_slice_pitch, $data, $wait_events...)
792
793http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteBufferRect.html
794
454=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...) 795=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
455 796
797L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
798
799=item $ev = $queue->enqueue_copy_buffer_to_image ($src_buffer, $dst_image, $src_offset, $dst_x, $dst_y, $dst_z, $width, $height, $depth, $wait_events...)
800
456L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html> 801L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html>
457 802
458=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $data, $wait_events...) 803=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
459 804
460L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html> 805L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html>
461 806
807=item $ev = $queue->enqueue_copy_image ($src_image, $dst_image, $src_x, $src_y, $src_z, $dst_x, $dst_y, $dst_z, $width, $height, $depth, $wait_events...)
808
809L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
810
811=item $ev = $queue->enqueue_copy_image_to_buffer ($src_image, $dst_image, $src_x, $src_y, $src_z, $width, $height, $depth, $dst_offset, $wait_events...)
812
813L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
814
462=item $ev = $queue->enqueue_copy_buffer_rect ($src, $dst, $src_x, $src_y, $src_z, $dst_x, $dst_y, $dst_z, $width, $height, $depth, $src_row_pitch, $src_slice_pitch, 4dst_row_pitch, $dst_slice_pitch, $ait_event...) 815=item $ev = $queue->enqueue_copy_buffer_rect ($src, $dst, $src_x, $src_y, $src_z, $dst_x, $dst_y, $dst_z, $width, $height, $depth, $src_row_pitch, $src_slice_pitch, $dst_row_pitch, $dst_slice_pitch, $wait_event...)
463 816
464Yeah. 817Yeah.
465 818
466L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
467
468=item $ev = $queue->enqueue_copy_buffer_to_image (OpenCL::Buffer src, OpenCL::Image dst, size_t src_offset, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
469
470L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>. 819L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>.
471
472=item $ev = $queue->enqueue_copy_image (OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t dst_x, size_t dst_y, size_t dst_z, size_t width, size_t height, size_t depth, ...)
473
474L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
475
476=item $ev = $queue->enqueue_copy_image_to_buffer (OpenCL::Image src, OpenCL::Buffer dst, size_t src_x, size_t src_y, size_t src_z, size_t width, size_t height, size_t depth, size_t dst_offset, ...)
477
478L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
479 820
480=item $ev = $queue->enqueue_task ($kernel, $wait_events...) 821=item $ev = $queue->enqueue_task ($kernel, $wait_events...)
481 822
482L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html> 823L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html>
483 824
517 858
518=item $queue->finish 859=item $queue->finish
519 860
520L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clFinish.html> 861L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clFinish.html>
521 862
863=item $packed_value = $queue->info ($name)
864
865See C<< $platform->info >> for details.
866
867L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetCommandQueueInfo.html>
868
869=for gengetinfo begin command_queue
870
871=item $ctx = $command_queue->context
872
873Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_CONTEXT> and returns the result.
874
875=item $device = $command_queue->device
876
877Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_DEVICE> and returns the result.
878
879=item $uint = $command_queue->reference_count
880
881Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_REFERENCE_COUNT> and returns the result.
882
883=item $command_queue_properties = $command_queue->properties
884
885Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_PROPERTIES> and returns the result.
886
887=for gengetinfo end command_queue
888
522=back 889=back
523 890
524=head2 THE OpenCL::Memory CLASS 891=head2 THE OpenCL::Memory CLASS
525 892
526This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image, 893This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image,
527OpenCL::Image2D and OpenCL::Image3D. The subclasses of this class 894OpenCL::Image2D and OpenCL::Image3D.
528currently only exist to allow type-checking.
529 895
530=over 4 896=over 4
531 897
532=item $packed_value = $memory->info ($name) 898=item $packed_value = $memory->info ($name)
533 899
534See C<< $platform->info >> for details. 900See C<< $platform->info >> for details.
535 901
536L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetMemObjectInfo.html> 902L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetMemObjectInfo.html>
537 903
904=for gengetinfo begin mem
905
906=item $mem_object_type = $mem->type
907
908Calls C<clGetMemObjectInfo> with C<CL_MEM_TYPE> and returns the result.
909
910=item $mem_flags = $mem->flags
911
912Calls C<clGetMemObjectInfo> with C<CL_MEM_FLAGS> and returns the result.
913
914=item $int = $mem->size
915
916Calls C<clGetMemObjectInfo> with C<CL_MEM_SIZE> and returns the result.
917
918=item $ptr_value = $mem->host_ptr
919
920Calls C<clGetMemObjectInfo> with C<CL_MEM_HOST_PTR> and returns the result.
921
922=item $uint = $mem->map_count
923
924Calls C<clGetMemObjectInfo> with C<CL_MEM_MAP_COUNT> and returns the result.
925
926=item $uint = $mem->reference_count
927
928Calls C<clGetMemObjectInfo> with C<CL_MEM_REFERENCE_COUNT> and returns the result.
929
930=item $ctx = $mem->context
931
932Calls C<clGetMemObjectInfo> with C<CL_MEM_CONTEXT> and returns the result.
933
934=item $mem = $mem->associated_memobject
935
936Calls C<clGetMemObjectInfo> with C<CL_MEM_ASSOCIATED_MEMOBJECT> and returns the result.
937
938=item $int = $mem->offset
939
940Calls C<clGetMemObjectInfo> with C<CL_MEM_OFFSET> and returns the result.
941
942=for gengetinfo end mem
943
538=back 944=back
539 945
946=head2 THE OpenCL::Buffer CLASS
947
948This is a subclass of OpenCL::Memory, and the superclass of
949OpenCL::BufferObj. Its purpose is simply to distinguish between buffers
950and sub-buffers.
951
952=head2 THE OpenCL::BufferObj CLASS
953
954This is a subclass of OpenCL::Buffer and thus OpenCL::Memory. It exists
955because one cna create sub buffers of OpenLC::BufferObj objects, but not
956sub buffers from these sub buffers.
957
958=over 4
959
960=item $subbuf = $buf_obj->sub_buffer_region ($flags, $origin, $size)
961
962Creates an OpenCL::Buffer objects from this buffer and returns it. The
963C<buffer_create_type> is assumed to be C<CL_BUFFER_CREATE_TYPE_REGION>.
964
965L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateSubBuffer.html>
966
967=back
968
969=head2 THE OpenCL::Image CLASS
970
971This is the superclass of all image objects - OpenCL::Image2D and OpenCL::Image3D.
972
973=over 4
974
975=item $packed_value = $ev->image_info ($name)
976
977See C<< $platform->info >> for details.
978
979The reason this method is not called C<info> is that there already is an
980C<< ->info >> method inherited from C<OpenCL::Memory>.
981
982L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetImageInfo.html>
983
984=for gengetinfo begin image
985
986=item $int = $image->element_size
987
988Calls C<clGetImageInfo> with C<CL_IMAGE_ELEMENT_SIZE> and returns the result.
989
990=item $int = $image->row_pitch
991
992Calls C<clGetImageInfo> with C<CL_IMAGE_ROW_PITCH> and returns the result.
993
994=item $int = $image->slice_pitch
995
996Calls C<clGetImageInfo> with C<CL_IMAGE_SLICE_PITCH> and returns the result.
997
998=item $int = $image->width
999
1000Calls C<clGetImageInfo> with C<CL_IMAGE_WIDTH> and returns the result.
1001
1002=item $int = $image->height
1003
1004Calls C<clGetImageInfo> with C<CL_IMAGE_HEIGHT> and returns the result.
1005
1006=item $int = $image->depth
1007
1008Calls C<clGetImageInfo> with C<CL_IMAGE_DEPTH> and returns the result.
1009
1010=for gengetinfo end image
1011
1012=back
1013
540=head2 THE OpenCL::Sampler CLASS 1014=head2 THE OpenCL::Sampler CLASS
541 1015
542=over 4 1016=over 4
543 1017
544=item $packed_value = $sampler->info ($name) 1018=item $packed_value = $sampler->info ($name)
545 1019
546See C<< $platform->info >> for details. 1020See C<< $platform->info >> for details.
547 1021
548L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetSamplerInfo.html> 1022L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetSamplerInfo.html>
549 1023
1024=for gengetinfo begin sampler
1025
1026=item $uint = $sampler->reference_count
1027
1028Calls C<clGetSamplerInfo> with C<CL_SAMPLER_REFERENCE_COUNT> and returns the result.
1029
1030=item $ctx = $sampler->context
1031
1032Calls C<clGetSamplerInfo> with C<CL_SAMPLER_CONTEXT> and returns the result.
1033
1034=item $addressing_mode = $sampler->normalized_coords
1035
1036Calls C<clGetSamplerInfo> with C<CL_SAMPLER_NORMALIZED_COORDS> and returns the result.
1037
1038=item $filter_mode = $sampler->addressing_mode
1039
1040Calls C<clGetSamplerInfo> with C<CL_SAMPLER_ADDRESSING_MODE> and returns the result.
1041
1042=item $boolean = $sampler->filter_mode
1043
1044Calls C<clGetSamplerInfo> with C<CL_SAMPLER_FILTER_MODE> and returns the result.
1045
1046=for gengetinfo end sampler
1047
550=back 1048=back
551 1049
552=head2 THE OpenCL::Program CLASS 1050=head2 THE OpenCL::Program CLASS
553 1051
554=over 4 1052=over 4
555
556=item $packed_value = $program->info ($name)
557
558See C<< $platform->info >> for details.
559
560L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
561 1053
562=item $program->build ($device, $options = "") 1054=item $program->build ($device, $options = "")
563 1055
564Tries to build the program with the givne options. 1056Tries to build the program with the givne options.
565 1057
577Creates an OpenCL::Kernel object out of the named C<__kernel> function in 1069Creates an OpenCL::Kernel object out of the named C<__kernel> function in
578the program. 1070the program.
579 1071
580L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateKernel.html> 1072L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateKernel.html>
581 1073
1074=for gengetinfo begin program_build
1075
1076=item $build_status = $program->build_status ($device)
1077
1078Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_STATUS> and returns the result.
1079
1080=item $string = $program->build_options ($device)
1081
1082Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_OPTIONS> and returns the result.
1083
1084=item $string = $program->build_log ($device)
1085
1086Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_LOG> and returns the result.
1087
1088=for gengetinfo end program_build
1089
1090=item $packed_value = $program->info ($name)
1091
1092See C<< $platform->info >> for details.
1093
1094L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
1095
1096=for gengetinfo begin program
1097
1098=item $uint = $program->reference_count
1099
1100Calls C<clGetProgramInfo> with C<CL_PROGRAM_REFERENCE_COUNT> and returns the result.
1101
1102=item $ctx = $program->context
1103
1104Calls C<clGetProgramInfo> with C<CL_PROGRAM_CONTEXT> and returns the result.
1105
1106=item $uint = $program->num_devices
1107
1108Calls C<clGetProgramInfo> with C<CL_PROGRAM_NUM_DEVICES> and returns the result.
1109
1110=item @devices = $program->devices
1111
1112Calls C<clGetProgramInfo> with C<CL_PROGRAM_DEVICES> and returns the result.
1113
1114=item $string = $program->source
1115
1116Calls C<clGetProgramInfo> with C<CL_PROGRAM_SOURCE> and returns the result.
1117
1118=item @ints = $program->binary_sizes
1119
1120Calls C<clGetProgramInfo> with C<CL_PROGRAM_BINARY_SIZES> and returns the result.
1121
1122=for gengetinfo end program
1123
1124=item @blobs = $program->binaries
1125
1126Returns a string for the compiled binary for every device associated with
1127the program, empty strings indicate missing programs, and an empty result
1128means no program binaries are available.
1129
1130These "binaries" are often, in fact, informative low-level assembly
1131sources.
1132
1133L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
1134
582=back 1135=back
583 1136
584=head2 THE OpenCL::Kernel CLASS 1137=head2 THE OpenCL::Kernel CLASS
585 1138
586=over 4 1139=over 4
588=item $packed_value = $kernel->info ($name) 1141=item $packed_value = $kernel->info ($name)
589 1142
590See C<< $platform->info >> for details. 1143See C<< $platform->info >> for details.
591 1144
592L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelInfo.html> 1145L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelInfo.html>
1146
1147=for gengetinfo begin kernel
1148
1149=item $string = $kernel->function_name
1150
1151Calls C<clGetKernelInfo> with C<CL_KERNEL_FUNCTION_NAME> and returns the result.
1152
1153=item $uint = $kernel->num_args
1154
1155Calls C<clGetKernelInfo> with C<CL_KERNEL_NUM_ARGS> and returns the result.
1156
1157=item $uint = $kernel->reference_count
1158
1159Calls C<clGetKernelInfo> with C<CL_KERNEL_REFERENCE_COUNT> and returns the result.
1160
1161=item $ctx = $kernel->context
1162
1163Calls C<clGetKernelInfo> with C<CL_KERNEL_CONTEXT> and returns the result.
1164
1165=item $program = $kernel->program
1166
1167Calls C<clGetKernelInfo> with C<CL_KERNEL_PROGRAM> and returns the result.
1168
1169=for gengetinfo end kernel
1170
1171=item $packed_value = $kernel->work_group_info ($device, $name)
1172
1173See C<< $platform->info >> for details.
1174
1175The reason this method is not called C<info> is that there already is an
1176C<< ->info >> method.
1177
1178L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelWorkGroupInfo.html>
1179
1180=for gengetinfo begin kernel_work_group
1181
1182=item $int = $kernel->work_group_size ($device)
1183
1184Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_WORK_GROUP_SIZE> and returns the result.
1185
1186=item @ints = $kernel->compile_work_group_size ($device)
1187
1188Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_COMPILE_WORK_GROUP_SIZE> and returns the result.
1189
1190=item $ulong = $kernel->local_mem_size ($device)
1191
1192Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_LOCAL_MEM_SIZE> and returns the result.
1193
1194=item $int = $kernel->preferred_work_group_size_multiple ($device)
1195
1196Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_PREFERRED_WORK_GROUP_SIZE_MULTIPLE> and returns the result.
1197
1198=item $ulong = $kernel->private_mem_size ($device)
1199
1200Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_PRIVATE_MEM_SIZE> and returns the result.
1201
1202=for gengetinfo end kernel_work_group
593 1203
594=item $kernel->set_TYPE ($index, $value) 1204=item $kernel->set_TYPE ($index, $value)
595 1205
596This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>. 1206This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>.
597 1207
613This is the superclass for all event objects (including OpenCL::UserEvent 1223This is the superclass for all event objects (including OpenCL::UserEvent
614objects). 1224objects).
615 1225
616=over 4 1226=over 4
617 1227
1228=item $ev->wait
1229
1230Waits for the event to complete.
1231
1232L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clWaitForEvents.html>
1233
618=item $packed_value = $ev->info ($name) 1234=item $packed_value = $ev->info ($name)
619 1235
620See C<< $platform->info >> for details. 1236See C<< $platform->info >> for details.
621 1237
622L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetEventInfo.html> 1238L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetEventInfo.html>
623 1239
624=item $ev->wait 1240=for gengetinfo begin event
625 1241
626Waits for the event to complete. 1242=item $queue = $event->command_queue
627 1243
1244Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_QUEUE> and returns the result.
1245
1246=item $command_type = $event->command_type
1247
1248Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_TYPE> and returns the result.
1249
1250=item $uint = $event->reference_count
1251
1252Calls C<clGetEventInfo> with C<CL_EVENT_REFERENCE_COUNT> and returns the result.
1253
1254=item $uint = $event->command_execution_status
1255
1256Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_EXECUTION_STATUS> and returns the result.
1257
1258=item $ctx = $event->context
1259
1260Calls C<clGetEventInfo> with C<CL_EVENT_CONTEXT> and returns the result.
1261
1262=for gengetinfo end event
1263
1264=item $packed_value = $ev->profiling_info ($name)
1265
1266See C<< $platform->info >> for details.
1267
1268The reason this method is not called C<info> is that there already is an
1269C<< ->info >> method.
1270
628L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clWaitForEvents.html> 1271L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProfilingInfo.html>
1272
1273=for gengetinfo begin profiling
1274
1275=item $ulong = $event->profiling_command_queued
1276
1277Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_QUEUED> and returns the result.
1278
1279=item $ulong = $event->profiling_command_submit
1280
1281Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_SUBMIT> and returns the result.
1282
1283=item $ulong = $event->profiling_command_start
1284
1285Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_START> and returns the result.
1286
1287=item $ulong = $event->profiling_command_end
1288
1289Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_END> and returns the result.
1290
1291=for gengetinfo end profiling
629 1292
630=back 1293=back
631 1294
632=head2 THE OpenCL::UserEvent CLASS 1295=head2 THE OpenCL::UserEvent CLASS
633 1296
646package OpenCL; 1309package OpenCL;
647 1310
648use common::sense; 1311use common::sense;
649 1312
650BEGIN { 1313BEGIN {
651 our $VERSION = '0.14'; 1314 our $VERSION = '0.92';
652 1315
653 require XSLoader; 1316 require XSLoader;
654 XSLoader::load (__PACKAGE__, $VERSION); 1317 XSLoader::load (__PACKAGE__, $VERSION);
655 1318
656 @OpenCL::Buffer::ISA = 1319 @OpenCL::Buffer::ISA =
657 @OpenCL::Image::ISA = OpenCL::Memory::; 1320 @OpenCL::Image::ISA = OpenCL::Memory::;
658 1321
1322 @OpenCL::BufferObj::ISA = OpenCL::Buffer::;
1323
659 @OpenCL::Image2D::ISA = 1324 @OpenCL::Image2D::ISA =
660 @OpenCL::Image3D::ISA = OpenCL::Image::; 1325 @OpenCL::Image3D::ISA = OpenCL::Image::;
661 1326
662 @OpenCL::UserEvent::ISA = OpenCL::Event::; 1327 @OpenCL::UserEvent::ISA = OpenCL::Event::;
663} 1328}
664 1329
6651; 13301;
666 1331
667=head1 AUTHOR 1332=head1 AUTHOR

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines