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

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.18 by root, Thu Nov 17 06:22:29 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 arrays or structs) and OpenCL::Image objects (think 2d 33memory areas, think arrays or structs) and OpenCL::Image objects (think 2d
34or 3d array) 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.
101 101
102Best 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
103system. 103system.
104 104
105 for my $platform (OpenCL::platforms) { 105 for my $platform (OpenCL::platforms) {
106 printf "platform: %s\n", $platform->info (OpenCL::PLATFORM_NAME); 106 printf "platform: %s\n", $platform->name;
107 printf "extensions: %s\n", $platform->info (OpenCL::PLATFORM_EXTENSIONS); 107 printf "extensions: %s\n", $platform->extensions;
108 for my $device ($platform->devices) { 108 for my $device ($platform->devices) {
109 printf "+ device: %s\n", $device->info (OpenCL::DEVICE_NAME); 109 printf "+ device: %s\n", $device->name;
110 my $ctx = $device->context; 110 my $ctx = $platform->context (undef, [$device]);
111 # do stuff 111 # do stuff
112 } 112 }
113 } 113 }
114 114
115=head2 Get a useful context and a command queue. 115=head2 Get a useful context and a command queue.
149 149
150=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
151functions. 151functions.
152 152
153 my $src = ' 153 my $src = '
154 __kernel void 154 kernel void
155 squareit (__global float *input, __global float *output) 155 squareit (global float *input, global float *output)
156 { 156 {
157 $id = get_global_id (0); 157 $id = get_global_id (0);
158 output [id] = input [id] * input [id]; 158 output [id] = input [id] * input [id];
159 } 159 }
160 '; 160 ';
161 161
162 my $prog = $ctx->program_with_source ($src); 162 my $prog = $ctx->program_with_source ($src);
163 163
164 # 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
165 eval { $prog->build ($dev); 1 } 165 eval { $prog->build ($dev); 1 }
166 or die $prog->build_info ($dev, OpenCL::PROGRAM_BUILD_LOG); 166 or die $prog->build_log;
167 167
168 my $kernel = $prog->kernel ("squareit"); 168 my $kernel = $prog->kernel ("squareit");
169 169
170=head2 Create some input and output float buffers, then call the 170=head2 Create some input and output float buffers, then call the
171'squareit' kernel on them. 171'squareit' kernel on them.
226 226
227=item * Object lifetime managament is automatic - there is no need 227=item * Object lifetime managament is automatic - there is no need
228to free objects explicitly (C<clReleaseXXX>), the release function 228to free objects explicitly (C<clReleaseXXX>), the release function
229is called automatically once all Perl references to it go away. 229is called automatically once all Perl references to it go away.
230 230
231=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
232while this module uses underscores as word separator and often leaves out 233uses underscores as word separator and often leaves out prefixes
233prefixes (C<< $platform->info >>). 234(C<OpenCL::platforms>, C<< $platform->info >>).
234 235
235=item * OpenCL often specifies fixed vector function arguments as short 236=item * OpenCL often specifies fixed vector function arguments as short
236arrays (C<$origin[3]>), while this module explicitly expects the 237arrays (C<size_t origin[3]>), while this module explicitly expects the
237components as separate arguments- 238components as separate arguments (C<$orig_x, $orig_y, $orig_z>) in
239function calls.
238 240
239=item * Structures are often specified with their components, and returned 241=item * Structures are often specified by flattening out their components
240as arrayrefs. 242as with short vectors, and returned as arrayrefs.
241
242=item * Where possible, one of the pitch values is calculated from the
243perl scalar length and need not be specified.
244 243
245=item * When enqueuing commands, the wait list is specified by adding 244=item * When enqueuing commands, the wait list is specified by adding
246extra arguments to the function - anywhere a C<$wait_events...> argument 245extra arguments to the function - anywhere a C<$wait_events...> argument
247is documented this can be any number of event objects. 246is documented this can be any number of event objects.
248 247
272 ulong IV - Q 271 ulong IV - Q
273 float NV float f 272 float NV float f
274 half IV ushort S 273 half IV ushort S
275 double NV double d 274 double NV double d
276 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
277=head2 THE OpenCL PACKAGE 283=head2 THE OpenCL PACKAGE
278 284
279=over 4 285=over 4
280 286
281=item $int = OpenCL::errno 287=item $int = OpenCL::errno
287 293
288Comverts an error value into a human readable string. 294Comverts an error value into a human readable string.
289 295
290=item $str = OpenCL::enum2str $enum 296=item $str = OpenCL::enum2str $enum
291 297
292Converts most enum values (inof parameter names, image format constants, 298Converts most enum values (of parameter names, image format constants,
293object types, addressing and filter modes, command types etc.) into a 299object types, addressing and filter modes, command types etc.) into a
294human readbale string. When confronted with some random integer it can be 300human readable string. When confronted with some random integer it can be
295very 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
296string out of it. 302string out of it.
297 303
298=item @platforms = OpenCL::platforms 304=item @platforms = OpenCL::platforms
299 305
317 323
318=head2 THE OpenCL::Platform CLASS 324=head2 THE OpenCL::Platform CLASS
319 325
320=over 4 326=over 4
321 327
322=item $packed_value = $platform->info ($name)
323
324Calls C<clGetPlatformInfo> and returns the packed, raw value - for
325strings, this will be the string, for other values you probably need to
326use the correct C<unpack>. This might get improved in the future. Hopefully.
327
328L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformInfo.html>
329
330=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL) 328=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL)
331 329
332Returns a list of matching OpenCL::Device objects. 330Returns a list of matching OpenCL::Device objects.
333 331
334=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)
335 333
336Tries 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.
337 335
338L<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>
339 337
340=item $ctx = $device->context ($properties = undef, @$devices, $notify = undef) 338=item $ctx = $platform->context ($properties = undef, @$devices, $notify = undef)
341 339
342Create 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
343CL_CONTEXT_PLATFORM property is supplied automatically. 341CL_CONTEXT_PLATFORM property is supplied automatically.
344 342
345L<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>
346 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
347=back 380=back
348 381
349=head2 THE OpenCL::Device CLASS 382=head2 THE OpenCL::Device CLASS
350 383
351=over 4 384=over 4
354 387
355See C<< $platform->info >> for details. 388See C<< $platform->info >> for details.
356 389
357L<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>
358 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
359=back 660=back
360 661
361=head2 THE OpenCL::Context CLASS 662=head2 THE OpenCL::Context CLASS
362 663
363=over 4 664=over 4
364 665
365=item $packed_value = $ctx->info ($name)
366
367See C<< $platform->info >> for details.
368
369L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetContextInfo.html>
370
371=item $queue = $ctx->queue ($device, $properties) 666=item $queue = $ctx->queue ($device, $properties)
372 667
373Create 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.
374 669
375L<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>
380 675
381L<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>
382 677
383=item $buf = $ctx->buffer ($flags, $len) 678=item $buf = $ctx->buffer ($flags, $len)
384 679
385Creates 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.
386 682
387L<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>
388 684
389=item $buf = $ctx->buffer_sv ($flags, $data) 685=item $buf = $ctx->buffer_sv ($flags, $data)
390 686
391Creates 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.
392 689
393=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef) 690=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef)
394 691
395Creates 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.
396 694
397L<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>
398 696
399=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef) 697=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef)
400 698
401Creates 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.
402 701
403L<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>
404 703
405=item @formats = $ctx->supported_image_formats ($flags, $image_type) 704=item @formats = $ctx->supported_image_formats ($flags, $image_type)
406 705
418=item $program = $ctx->program_with_source ($string) 717=item $program = $ctx->program_with_source ($string)
419 718
420Creates a new OpenCL::Program object from the given source code. 719Creates a new OpenCL::Program object from the given source code.
421 720
422L<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
423 748
424=back 749=back
425 750
426=head2 THE OpenCL::Queue CLASS 751=head2 THE OpenCL::Queue CLASS
427 752
441cases (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
442create event objects. 767create event objects.
443 768
444=over 4 769=over 4
445 770
446=item $packed_value = $ctx->info ($name)
447
448See C<< $platform->info >> for details.
449
450L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetCommandQueueInfo.html>
451
452=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...)
453 772
454Reads data from buffer into the given string. 773Reads data from buffer into the given string.
455 774
456L<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>
463 782
464=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...)
465 784
466L<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>
467 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
468=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...)
469 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
470L<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>
471 802
472=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_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...)
473 804
474L<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>
475 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
476=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...) 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...)
477 816
478Yeah. 817Yeah.
479 818
480L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
481
482=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...)
483
484L<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>.
485
486=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...)
487
488L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
489
490=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...)
491
492L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
493 820
494=item $ev = $queue->enqueue_task ($kernel, $wait_events...) 821=item $ev = $queue->enqueue_task ($kernel, $wait_events...)
495 822
496L<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>
497 824
531 858
532=item $queue->finish 859=item $queue->finish
533 860
534L<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>
535 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
536=back 889=back
537 890
538=head2 THE OpenCL::Memory CLASS 891=head2 THE OpenCL::Memory CLASS
539 892
540This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image, 893This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image,
541OpenCL::Image2D and OpenCL::Image3D. The subclasses of this class 894OpenCL::Image2D and OpenCL::Image3D.
542currently only exist to allow type-checking.
543 895
544=over 4 896=over 4
545 897
546=item $packed_value = $memory->info ($name) 898=item $packed_value = $memory->info ($name)
547 899
548See C<< $platform->info >> for details. 900See C<< $platform->info >> for details.
549 901
550L<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>
551 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
552=back 944=back
553 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
554=head2 THE OpenCL::Sampler CLASS 1014=head2 THE OpenCL::Sampler CLASS
555 1015
556=over 4 1016=over 4
557 1017
558=item $packed_value = $sampler->info ($name) 1018=item $packed_value = $sampler->info ($name)
559 1019
560See C<< $platform->info >> for details. 1020See C<< $platform->info >> for details.
561 1021
562L<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>
563 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
564=back 1048=back
565 1049
566=head2 THE OpenCL::Program CLASS 1050=head2 THE OpenCL::Program CLASS
567 1051
568=over 4 1052=over 4
569
570=item $packed_value = $program->info ($name)
571
572See C<< $platform->info >> for details.
573
574L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
575 1053
576=item $program->build ($device, $options = "") 1054=item $program->build ($device, $options = "")
577 1055
578Tries to build the program with the givne options. 1056Tries to build the program with the givne options.
579 1057
591Creates 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
592the program. 1070the program.
593 1071
594L<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>
595 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
596=back 1135=back
597 1136
598=head2 THE OpenCL::Kernel CLASS 1137=head2 THE OpenCL::Kernel CLASS
599 1138
600=over 4 1139=over 4
602=item $packed_value = $kernel->info ($name) 1141=item $packed_value = $kernel->info ($name)
603 1142
604See C<< $platform->info >> for details. 1143See C<< $platform->info >> for details.
605 1144
606L<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
607 1203
608=item $kernel->set_TYPE ($index, $value) 1204=item $kernel->set_TYPE ($index, $value)
609 1205
610This 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>.
611 1207
627This is the superclass for all event objects (including OpenCL::UserEvent 1223This is the superclass for all event objects (including OpenCL::UserEvent
628objects). 1224objects).
629 1225
630=over 4 1226=over 4
631 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
632=item $packed_value = $ev->info ($name) 1234=item $packed_value = $ev->info ($name)
633 1235
634See C<< $platform->info >> for details. 1236See C<< $platform->info >> for details.
635 1237
636L<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>
637 1239
638=item $ev->wait 1240=for gengetinfo begin event
639 1241
640Waits for the event to complete. 1242=item $queue = $event->command_queue
641 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
642L<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
643 1292
644=back 1293=back
645 1294
646=head2 THE OpenCL::UserEvent CLASS 1295=head2 THE OpenCL::UserEvent CLASS
647 1296
660package OpenCL; 1309package OpenCL;
661 1310
662use common::sense; 1311use common::sense;
663 1312
664BEGIN { 1313BEGIN {
665 our $VERSION = '0.15'; 1314 our $VERSION = '0.92';
666 1315
667 require XSLoader; 1316 require XSLoader;
668 XSLoader::load (__PACKAGE__, $VERSION); 1317 XSLoader::load (__PACKAGE__, $VERSION);
669 1318
670 @OpenCL::Buffer::ISA = 1319 @OpenCL::Buffer::ISA =
671 @OpenCL::Image::ISA = OpenCL::Memory::; 1320 @OpenCL::Image::ISA = OpenCL::Memory::;
672 1321
1322 @OpenCL::BufferObj::ISA = OpenCL::Buffer::;
1323
673 @OpenCL::Image2D::ISA = 1324 @OpenCL::Image2D::ISA =
674 @OpenCL::Image3D::ISA = OpenCL::Image::; 1325 @OpenCL::Image3D::ISA = OpenCL::Image::;
675 1326
676 @OpenCL::UserEvent::ISA = OpenCL::Event::; 1327 @OpenCL::UserEvent::ISA = OpenCL::Event::;
677} 1328}
678 1329
6791; 13301;
680 1331
681=head1 AUTHOR 1332=head1 AUTHOR

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines