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

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.19 by root, Sat Nov 19 19:54:04 2011 UTC vs.
Revision 1.35 by root, Thu Apr 19 13:18:31 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 (e.g. C<clGetPlatformIDs>, 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<OpenCL::platforms>, 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<size_t origin[3]>), while this module explicitly expects the 237arrays (C<size_t origin[3]>), while this module explicitly expects the
237components as separate arguments (C<$orig_x, $orig_y, $orig_z>) in 238components as separate arguments (C<$orig_x, $orig_y, $orig_z>) in
238function calls. 239function calls.
285 286
286Comverts an error value into a human readable string. 287Comverts an error value into a human readable string.
287 288
288=item $str = OpenCL::enum2str $enum 289=item $str = OpenCL::enum2str $enum
289 290
290Converts most enum values (inof parameter names, image format constants, 291Converts most enum values (of parameter names, image format constants,
291object types, addressing and filter modes, command types etc.) into a 292object types, addressing and filter modes, command types etc.) into a
292human readbale string. When confronted with some random integer it can be 293human readable string. When confronted with some random integer it can be
293very helpful to pass it through this function to maybe get some readable 294very helpful to pass it through this function to maybe get some readable
294string out of it. 295string out of it.
295 296
296=item @platforms = OpenCL::platforms 297=item @platforms = OpenCL::platforms
297 298
315 316
316=head2 THE OpenCL::Platform CLASS 317=head2 THE OpenCL::Platform CLASS
317 318
318=over 4 319=over 4
319 320
320=item $packed_value = $platform->info ($name)
321
322Calls C<clGetPlatformInfo> and returns the packed, raw value - for
323strings, this will be the string, for other values you probably need to
324use the correct C<unpack>. This might get improved in the future. Hopefully.
325
326L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformInfo.html>
327
328=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL) 321=item @devices = $platform->devices ($type = OpenCL::DEVICE_TYPE_ALL)
329 322
330Returns a list of matching OpenCL::Device objects. 323Returns a list of matching OpenCL::Device objects.
331 324
332=item $ctx = $platform->context_from_type ($properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef) 325=item $ctx = $platform->context_from_type ($properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef)
333 326
334Tries to create a context. Never worked for me, and you need devices explitly anyway. 327Tries to create a context. Never worked for me, and you need devices explicitly anyway.
335 328
336L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html> 329L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html>
337 330
338=item $ctx = $device->context ($properties = undef, @$devices, $notify = undef) 331=item $ctx = $platform->context ($properties = undef, @$devices, $notify = undef)
339 332
340Create a new OpenCL::Context object using the given device object(s)- a 333Create a new OpenCL::Context object using the given device object(s)- a
341CL_CONTEXT_PLATFORM property is supplied automatically. 334CL_CONTEXT_PLATFORM property is supplied automatically.
342 335
343L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html> 336L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html>
344 337
338=item $packed_value = $platform->info ($name)
339
340Calls C<clGetPlatformInfo> and returns the packed, raw value - for
341strings, this will be the string (possibly including terminating \0), for
342other values you probably need to use the correct C<unpack>.
343
344It's best to avoid this method and use one of the following convenience
345wrappers.
346
347L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformInfo.html>
348
349=for gengetinfo begin platform
350
351=item $string = $platform->profile
352
353Calls C<clGetPlatformInfo> with C<CL_PLATFORM_PROFILE> and returns the result.
354
355=item $string = $platform->version
356
357Calls C<clGetPlatformInfo> with C<CL_PLATFORM_VERSION> and returns the result.
358
359=item $string = $platform->name
360
361Calls C<clGetPlatformInfo> with C<CL_PLATFORM_NAME> and returns the result.
362
363=item $string = $platform->vendor
364
365Calls C<clGetPlatformInfo> with C<CL_PLATFORM_VENDOR> and returns the result.
366
367=item $string = $platform->extensions
368
369Calls C<clGetPlatformInfo> with C<CL_PLATFORM_EXTENSIONS> and returns the result.
370
371=for gengetinfo end platform
372
345=back 373=back
346 374
347=head2 THE OpenCL::Device CLASS 375=head2 THE OpenCL::Device CLASS
348 376
349=over 4 377=over 4
352 380
353See C<< $platform->info >> for details. 381See C<< $platform->info >> for details.
354 382
355L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetDeviceInfo.html> 383L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetDeviceInfo.html>
356 384
385=for gengetinfo begin device
386
387=item $device_type = $device->type
388
389Calls C<clGetDeviceInfo> with C<CL_DEVICE_TYPE> and returns the result.
390
391=item $uint = $device->vendor_id
392
393Calls C<clGetDeviceInfo> with C<CL_DEVICE_VENDOR_ID> and returns the result.
394
395=item $uint = $device->max_compute_units
396
397Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_COMPUTE_UNITS> and returns the result.
398
399=item $uint = $device->max_work_item_dimensions
400
401Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS> and returns the result.
402
403=item $int = $device->max_work_group_size
404
405Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_GROUP_SIZE> and returns the result.
406
407=item @ints = $device->max_work_item_sizes
408
409Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WORK_ITEM_SIZES> and returns the result.
410
411=item $uint = $device->preferred_vector_width_char
412
413Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_CHAR> and returns the result.
414
415=item $uint = $device->preferred_vector_width_short
416
417Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_SHORT> and returns the result.
418
419=item $uint = $device->preferred_vector_width_int
420
421Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_INT> and returns the result.
422
423=item $uint = $device->preferred_vector_width_long
424
425Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_LONG> and returns the result.
426
427=item $uint = $device->preferred_vector_width_float
428
429Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT> and returns the result.
430
431=item $uint = $device->preferred_vector_width_double
432
433Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE> and returns the result.
434
435=item $uint = $device->max_clock_frequency
436
437Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CLOCK_FREQUENCY> and returns the result.
438
439=item $bitfield = $device->address_bits
440
441Calls C<clGetDeviceInfo> with C<CL_DEVICE_ADDRESS_BITS> and returns the result.
442
443=item $uint = $device->max_read_image_args
444
445Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_READ_IMAGE_ARGS> and returns the result.
446
447=item $uint = $device->max_write_image_args
448
449Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_WRITE_IMAGE_ARGS> and returns the result.
450
451=item $ulong = $device->max_mem_alloc_size
452
453Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_MEM_ALLOC_SIZE> and returns the result.
454
455=item $int = $device->image2d_max_width
456
457Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE2D_MAX_WIDTH> and returns the result.
458
459=item $int = $device->image2d_max_height
460
461Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE2D_MAX_HEIGHT> and returns the result.
462
463=item $int = $device->image3d_max_width
464
465Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_WIDTH> and returns the result.
466
467=item $int = $device->image3d_max_height
468
469Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_HEIGHT> and returns the result.
470
471=item $int = $device->image3d_max_depth
472
473Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE3D_MAX_DEPTH> and returns the result.
474
475=item $uint = $device->image_support
476
477Calls C<clGetDeviceInfo> with C<CL_DEVICE_IMAGE_SUPPORT> and returns the result.
478
479=item $int = $device->max_parameter_size
480
481Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_PARAMETER_SIZE> and returns the result.
482
483=item $uint = $device->max_samplers
484
485Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_SAMPLERS> and returns the result.
486
487=item $uint = $device->mem_base_addr_align
488
489Calls C<clGetDeviceInfo> with C<CL_DEVICE_MEM_BASE_ADDR_ALIGN> and returns the result.
490
491=item $uint = $device->min_data_type_align_size
492
493Calls C<clGetDeviceInfo> with C<CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE> and returns the result.
494
495=item $device_fp_config = $device->single_fp_config
496
497Calls C<clGetDeviceInfo> with C<CL_DEVICE_SINGLE_FP_CONFIG> and returns the result.
498
499=item $device_mem_cache_type = $device->global_mem_cache_type
500
501Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHE_TYPE> and returns the result.
502
503=item $uint = $device->global_mem_cacheline_size
504
505Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE> and returns the result.
506
507=item $ulong = $device->global_mem_cache_size
508
509Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_CACHE_SIZE> and returns the result.
510
511=item $ulong = $device->global_mem_size
512
513Calls C<clGetDeviceInfo> with C<CL_DEVICE_GLOBAL_MEM_SIZE> and returns the result.
514
515=item $ulong = $device->max_constant_buffer_size
516
517Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE> and returns the result.
518
519=item $uint = $device->max_constant_args
520
521Calls C<clGetDeviceInfo> with C<CL_DEVICE_MAX_CONSTANT_ARGS> and returns the result.
522
523=item $device_local_mem_type = $device->local_mem_type
524
525Calls C<clGetDeviceInfo> with C<CL_DEVICE_LOCAL_MEM_TYPE> and returns the result.
526
527=item $ulong = $device->local_mem_size
528
529Calls C<clGetDeviceInfo> with C<CL_DEVICE_LOCAL_MEM_SIZE> and returns the result.
530
531=item $boolean = $device->error_correction_support
532
533Calls C<clGetDeviceInfo> with C<CL_DEVICE_ERROR_CORRECTION_SUPPORT> and returns the result.
534
535=item $int = $device->profiling_timer_resolution
536
537Calls C<clGetDeviceInfo> with C<CL_DEVICE_PROFILING_TIMER_RESOLUTION> and returns the result.
538
539=item $boolean = $device->endian_little
540
541Calls C<clGetDeviceInfo> with C<CL_DEVICE_ENDIAN_LITTLE> and returns the result.
542
543=item $boolean = $device->available
544
545Calls C<clGetDeviceInfo> with C<CL_DEVICE_AVAILABLE> and returns the result.
546
547=item $boolean = $device->compiler_available
548
549Calls C<clGetDeviceInfo> with C<CL_DEVICE_COMPILER_AVAILABLE> and returns the result.
550
551=item $device_exec_capabilities = $device->execution_capabilities
552
553Calls C<clGetDeviceInfo> with C<CL_DEVICE_EXECUTION_CAPABILITIES> and returns the result.
554
555=item $command_queue_properties = $device->properties
556
557Calls C<clGetDeviceInfo> with C<CL_DEVICE_QUEUE_PROPERTIES> and returns the result.
558
559=item $ = $device->platform
560
561Calls C<clGetDeviceInfo> with C<CL_DEVICE_PLATFORM> and returns the result.
562
563=item $string = $device->name
564
565Calls C<clGetDeviceInfo> with C<CL_DEVICE_NAME> and returns the result.
566
567=item $string = $device->vendor
568
569Calls C<clGetDeviceInfo> with C<CL_DEVICE_VENDOR> and returns the result.
570
571=item $string = $device->driver_version
572
573Calls C<clGetDeviceInfo> with C<CL_DRIVER_VERSION> and returns the result.
574
575=item $string = $device->profile
576
577Calls C<clGetDeviceInfo> with C<CL_DEVICE_PROFILE> and returns the result.
578
579=item $string = $device->version
580
581Calls C<clGetDeviceInfo> with C<CL_DEVICE_VERSION> and returns the result.
582
583=item $string = $device->extensions
584
585Calls C<clGetDeviceInfo> with C<CL_DEVICE_EXTENSIONS> and returns the result.
586
587=item $uint = $device->preferred_vector_width_half
588
589Calls C<clGetDeviceInfo> with C<CL_DEVICE_PREFERRED_VECTOR_WIDTH_HALF> and returns the result.
590
591=item $uint = $device->native_vector_width_char
592
593Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_CHAR> and returns the result.
594
595=item $uint = $device->native_vector_width_short
596
597Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_SHORT> and returns the result.
598
599=item $uint = $device->native_vector_width_int
600
601Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_INT> and returns the result.
602
603=item $uint = $device->native_vector_width_long
604
605Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_LONG> and returns the result.
606
607=item $uint = $device->native_vector_width_float
608
609Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_FLOAT> and returns the result.
610
611=item $uint = $device->native_vector_width_double
612
613Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_DOUBLE> and returns the result.
614
615=item $uint = $device->native_vector_width_half
616
617Calls C<clGetDeviceInfo> with C<CL_DEVICE_NATIVE_VECTOR_WIDTH_HALF> and returns the result.
618
619=item $device_fp_config = $device->double_fp_config
620
621Calls C<clGetDeviceInfo> with C<CL_DEVICE_DOUBLE_FP_CONFIG> and returns the result.
622
623=item $device_fp_config = $device->half_fp_config
624
625Calls C<clGetDeviceInfo> with C<CL_DEVICE_HALF_FP_CONFIG> and returns the result.
626
627=item $boolean = $device->host_unified_memory
628
629Calls C<clGetDeviceInfo> with C<CL_DEVICE_HOST_UNIFIED_MEMORY> and returns the result.
630
631=item $device = $device->parent_device_ext
632
633Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARENT_DEVICE_EXT> and returns the result.
634
635=item @device_partition_property_exts = $device->partition_types_ext
636
637Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARTITION_TYPES_EXT> and returns the result.
638
639=item @device_partition_property_exts = $device->affinity_domains_ext
640
641Calls C<clGetDeviceInfo> with C<CL_DEVICE_AFFINITY_DOMAINS_EXT> and returns the result.
642
643=item $uint = $device->reference_count_ext
644
645Calls C<clGetDeviceInfo> with C<CL_DEVICE_REFERENCE_COUNT_EXT > and returns the result.
646
647=item @device_partition_property_exts = $device->partition_style_ext
648
649Calls C<clGetDeviceInfo> with C<CL_DEVICE_PARTITION_STYLE_EXT> and returns the result.
650
651=for gengetinfo end device
652
357=back 653=back
358 654
359=head2 THE OpenCL::Context CLASS 655=head2 THE OpenCL::Context CLASS
360 656
361=over 4 657=over 4
362 658
363=item $packed_value = $ctx->info ($name)
364
365See C<< $platform->info >> for details.
366
367L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetContextInfo.html>
368
369=item $queue = $ctx->queue ($device, $properties) 659=item $queue = $ctx->queue ($device, $properties)
370 660
371Create a new OpenCL::Queue object from the context and the given device. 661Create a new OpenCL::Queue object from the context and the given device.
372 662
373L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateCommandQueue.html> 663L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateCommandQueue.html>
378 668
379L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html> 669L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html>
380 670
381=item $buf = $ctx->buffer ($flags, $len) 671=item $buf = $ctx->buffer ($flags, $len)
382 672
383Creates a new OpenCL::Buffer object with the given flags and octet-size. 673Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object with the
674given flags and octet-size.
384 675
385L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html> 676L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html>
386 677
387=item $buf = $ctx->buffer_sv ($flags, $data) 678=item $buf = $ctx->buffer_sv ($flags, $data)
388 679
389Creates a new OpenCL::Buffer object and initialise it with the given data values. 680Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object and
681initialise it with the given data values.
390 682
391=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef) 683=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef)
392 684
393Creates a new OpenCL::Image2D object and optionally initialises it with the given data values. 685Creates a new OpenCL::Image2D object and optionally initialises it with
686the given data values.
394 687
395L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html> 688L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html>
396 689
397=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef) 690=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef)
398 691
399Creates a new OpenCL::Image3D object and optionally initialises it with the given data values. 692Creates a new OpenCL::Image3D object and optionally initialises it with
693the given data values.
400 694
401L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html> 695L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html>
696
697=item $buffer = $ctx->gl_buffer ($flags, $bufobj)
698
699Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object that refers to the given
700OpenGL buffer object.
701
702http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLBuffer.html
703
704=item $ctx->gl_texture2d ($flags, $target, $miplevel, $texture)
705
706Creates a new OpenCL::Image2D object that refers to the given OpenGL
7072D texture object.
708
709http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLTexture2D.html
710
711=item $ctx->gl_texture3d ($flags, $target, $miplevel, $texture)
712
713Creates a new OpenCL::Image3D object that refers to the given OpenGL
7143D texture object.
715
716http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLTexture3D.html
717
718=item $ctx->gl_renderbuffer ($flags, $renderbuffer)
719
720Creates a new OpenCL::Image2D object that refers to the given OpenGL
721render buffer.
722
723http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLRenderbuffer.html
402 724
403=item @formats = $ctx->supported_image_formats ($flags, $image_type) 725=item @formats = $ctx->supported_image_formats ($flags, $image_type)
404 726
405Returns a list of matching image formats - each format is an arrayref with 727Returns a list of matching image formats - each format is an arrayref with
406two values, $channel_order and $channel_type, in it. 728two values, $channel_order and $channel_type, in it.
416=item $program = $ctx->program_with_source ($string) 738=item $program = $ctx->program_with_source ($string)
417 739
418Creates a new OpenCL::Program object from the given source code. 740Creates a new OpenCL::Program object from the given source code.
419 741
420L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateProgramWithSource.html> 742L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateProgramWithSource.html>
743
744=item $packed_value = $ctx->info ($name)
745
746See C<< $platform->info >> for details.
747
748L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetContextInfo.html>
749
750=for gengetinfo begin context
751
752=item $uint = $context->reference_count
753
754Calls C<clGetContextInfo> with C<CL_CONTEXT_REFERENCE_COUNT> and returns the result.
755
756=item @devices = $context->devices
757
758Calls C<clGetContextInfo> with C<CL_CONTEXT_DEVICES> and returns the result.
759
760=item @property_ints = $context->properties
761
762Calls C<clGetContextInfo> with C<CL_CONTEXT_PROPERTIES> and returns the result.
763
764=item $uint = $context->num_devices
765
766Calls C<clGetContextInfo> with C<CL_CONTEXT_NUM_DEVICES> and returns the result.
767
768=for gengetinfo end context
421 769
422=back 770=back
423 771
424=head2 THE OpenCL::Queue CLASS 772=head2 THE OpenCL::Queue CLASS
425 773
439cases (i.e. you use only one queue) it's not necessary to wait for or 787cases (i.e. you use only one queue) it's not necessary to wait for or
440create event objects. 788create event objects.
441 789
442=over 4 790=over 4
443 791
444=item $packed_value = $ctx->info ($name)
445
446See C<< $platform->info >> for details.
447
448L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetCommandQueueInfo.html>
449
450=item $ev = $queue->enqueue_read_buffer ($buffer, $blocking, $offset, $len, $data, $wait_events...) 792=item $ev = $queue->enqueue_read_buffer ($buffer, $blocking, $offset, $len, $data, $wait_events...)
451 793
452Reads data from buffer into the given string. 794Reads data from buffer into the given string.
453 795
454L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBuffer.html> 796L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBuffer.html>
461 803
462=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...) 804=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...)
463 805
464L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html> 806L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html>
465 807
808=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...)
809
810http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBufferRect.html
811
812=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...)
813
814http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteBufferRect.html
815
466=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...) 816=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
467 817
818L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
819
820=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...)
821
468L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html> 822L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html>
469 823
470=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...) 824=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
471 825
472L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html> 826L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html>
473 827
828=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...)
829
830L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
831
832=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...)
833
834L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
835
474=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...) 836=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...)
475 837
476Yeah. 838Yeah.
477 839
478L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
479
480=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...)
481
482L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>. 840L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>.
483
484=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...)
485
486L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
487
488=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...)
489
490L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
491 841
492=item $ev = $queue->enqueue_task ($kernel, $wait_events...) 842=item $ev = $queue->enqueue_task ($kernel, $wait_events...)
493 843
494L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html> 844L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html>
495 845
509reference to an array of local work sizes, with the same number of 859reference to an array of local work sizes, with the same number of
510elements as @$global_work_size. 860elements as @$global_work_size.
511 861
512L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueNDRangeKernel.html> 862L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueNDRangeKernel.html>
513 863
514=item $ev = $queue->enqueue_marker 864=item $ev = $queue->enqueue_marker ($wait_events...)
515 865
516L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueMarker.html> 866L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueMarker.html>
517 867
868=item $ev = $queue->enqueue_acquire_gl_objects ([object, ...], $wait_events...)
869
870Enqueues a list (an array-ref of OpenCL::Memory objects) to be acquired
871for subsequent OpenCL usage.
872
873L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueAcquireGLObjects.html>
874
875=item $ev = $queue->enqueue_release_gl_objects ([object, ...], $wait_events...)
876
877Enqueues a list (an array-ref of OpenCL::Memory objects) to be released
878for subsequent OpenGL usage.
879
880L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReleaseGLObjects.html>
881
518=item $ev = $queue->enqueue_wait_for_events ($wait_events...) 882=item $ev = $queue->enqueue_wait_for_events ($wait_events...)
519 883
520L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWaitForEvents.html> 884L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWaitForEvents.html>
521 885
522=item $queue->enqueue_barrier 886=item $queue->enqueue_barrier
529 893
530=item $queue->finish 894=item $queue->finish
531 895
532L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clFinish.html> 896L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clFinish.html>
533 897
898=item $packed_value = $queue->info ($name)
899
900See C<< $platform->info >> for details.
901
902L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetCommandQueueInfo.html>
903
904=for gengetinfo begin command_queue
905
906=item $ctx = $command_queue->context
907
908Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_CONTEXT> and returns the result.
909
910=item $device = $command_queue->device
911
912Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_DEVICE> and returns the result.
913
914=item $uint = $command_queue->reference_count
915
916Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_REFERENCE_COUNT> and returns the result.
917
918=item $command_queue_properties = $command_queue->properties
919
920Calls C<clGetCommandQueueInfo> with C<CL_QUEUE_PROPERTIES> and returns the result.
921
922=for gengetinfo end command_queue
923
534=back 924=back
535 925
536=head2 THE OpenCL::Memory CLASS 926=head2 THE OpenCL::Memory CLASS
537 927
538This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image, 928This the superclass of all memory objects - OpenCL::Buffer, OpenCL::Image,
539OpenCL::Image2D and OpenCL::Image3D. The subclasses of this class 929OpenCL::Image2D and OpenCL::Image3D.
540currently only exist to allow type-checking.
541 930
542=over 4 931=over 4
543 932
544=item $packed_value = $memory->info ($name) 933=item $packed_value = $memory->info ($name)
545 934
546See C<< $platform->info >> for details. 935See C<< $platform->info >> for details.
547 936
548L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetMemObjectInfo.html> 937L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetMemObjectInfo.html>
549 938
939=for gengetinfo begin mem
940
941=item $mem_object_type = $mem->type
942
943Calls C<clGetMemObjectInfo> with C<CL_MEM_TYPE> and returns the result.
944
945=item $mem_flags = $mem->flags
946
947Calls C<clGetMemObjectInfo> with C<CL_MEM_FLAGS> and returns the result.
948
949=item $int = $mem->size
950
951Calls C<clGetMemObjectInfo> with C<CL_MEM_SIZE> and returns the result.
952
953=item $ptr_value = $mem->host_ptr
954
955Calls C<clGetMemObjectInfo> with C<CL_MEM_HOST_PTR> and returns the result.
956
957=item $uint = $mem->map_count
958
959Calls C<clGetMemObjectInfo> with C<CL_MEM_MAP_COUNT> and returns the result.
960
961=item $uint = $mem->reference_count
962
963Calls C<clGetMemObjectInfo> with C<CL_MEM_REFERENCE_COUNT> and returns the result.
964
965=item $ctx = $mem->context
966
967Calls C<clGetMemObjectInfo> with C<CL_MEM_CONTEXT> and returns the result.
968
969=item $mem = $mem->associated_memobject
970
971Calls C<clGetMemObjectInfo> with C<CL_MEM_ASSOCIATED_MEMOBJECT> and returns the result.
972
973=item $int = $mem->offset
974
975Calls C<clGetMemObjectInfo> with C<CL_MEM_OFFSET> and returns the result.
976
977=for gengetinfo end mem
978
979=item ($type, $name) = $mem->gl_object_info
980
981Returns the OpenGL object type (e.g. OpenCL::GL_OBJECT_TEXTURE2D) and the
982object "name" (e.g. the texture name) used to create this memory object.
983
984L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetGLObjectInfo.html>
985
550=back 986=back
551 987
988=head2 THE OpenCL::Buffer CLASS
989
990This is a subclass of OpenCL::Memory, and the superclass of
991OpenCL::BufferObj. Its purpose is simply to distinguish between buffers
992and sub-buffers.
993
994=head2 THE OpenCL::BufferObj CLASS
995
996This is a subclass of OpenCL::Buffer and thus OpenCL::Memory. It exists
997because one cna create sub buffers of OpenLC::BufferObj objects, but not
998sub buffers from these sub buffers.
999
1000=over 4
1001
1002=item $subbuf = $buf_obj->sub_buffer_region ($flags, $origin, $size)
1003
1004Creates an OpenCL::Buffer objects from this buffer and returns it. The
1005C<buffer_create_type> is assumed to be C<CL_BUFFER_CREATE_TYPE_REGION>.
1006
1007L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateSubBuffer.html>
1008
1009=back
1010
1011=head2 THE OpenCL::Image CLASS
1012
1013This is the superclass of all image objects - OpenCL::Image2D and OpenCL::Image3D.
1014
1015=over 4
1016
1017=item $packed_value = $ev->image_info ($name)
1018
1019See C<< $platform->info >> for details.
1020
1021The reason this method is not called C<info> is that there already is an
1022C<< ->info >> method inherited from C<OpenCL::Memory>.
1023
1024L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetImageInfo.html>
1025
1026=for gengetinfo begin image
1027
1028=item $int = $image->element_size
1029
1030Calls C<clGetImageInfo> with C<CL_IMAGE_ELEMENT_SIZE> and returns the result.
1031
1032=item $int = $image->row_pitch
1033
1034Calls C<clGetImageInfo> with C<CL_IMAGE_ROW_PITCH> and returns the result.
1035
1036=item $int = $image->slice_pitch
1037
1038Calls C<clGetImageInfo> with C<CL_IMAGE_SLICE_PITCH> and returns the result.
1039
1040=item $int = $image->width
1041
1042Calls C<clGetImageInfo> with C<CL_IMAGE_WIDTH> and returns the result.
1043
1044=item $int = $image->height
1045
1046Calls C<clGetImageInfo> with C<CL_IMAGE_HEIGHT> and returns the result.
1047
1048=item $int = $image->depth
1049
1050Calls C<clGetImageInfo> with C<CL_IMAGE_DEPTH> and returns the result.
1051
1052=for gengetinfo end image
1053
1054=for gengetinfo begin gl_texture
1055
1056=item $GLenum = $gl_texture->target
1057
1058Calls C<clGetGlTextureInfo> with C<CL_GL_TEXTURE_TARGET> and returns the result.
1059
1060=item $GLint = $gl_texture->gl_mipmap_level
1061
1062Calls C<clGetGlTextureInfo> with C<CL_GL_MIPMAP_LEVEL> and returns the result.
1063
1064=for gengetinfo end gl_texture
1065
1066=back
1067
552=head2 THE OpenCL::Sampler CLASS 1068=head2 THE OpenCL::Sampler CLASS
553 1069
554=over 4 1070=over 4
555 1071
556=item $packed_value = $sampler->info ($name) 1072=item $packed_value = $sampler->info ($name)
557 1073
558See C<< $platform->info >> for details. 1074See C<< $platform->info >> for details.
559 1075
560L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetSamplerInfo.html> 1076L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetSamplerInfo.html>
561 1077
1078=for gengetinfo begin sampler
1079
1080=item $uint = $sampler->reference_count
1081
1082Calls C<clGetSamplerInfo> with C<CL_SAMPLER_REFERENCE_COUNT> and returns the result.
1083
1084=item $ctx = $sampler->context
1085
1086Calls C<clGetSamplerInfo> with C<CL_SAMPLER_CONTEXT> and returns the result.
1087
1088=item $addressing_mode = $sampler->normalized_coords
1089
1090Calls C<clGetSamplerInfo> with C<CL_SAMPLER_NORMALIZED_COORDS> and returns the result.
1091
1092=item $filter_mode = $sampler->addressing_mode
1093
1094Calls C<clGetSamplerInfo> with C<CL_SAMPLER_ADDRESSING_MODE> and returns the result.
1095
1096=item $boolean = $sampler->filter_mode
1097
1098Calls C<clGetSamplerInfo> with C<CL_SAMPLER_FILTER_MODE> and returns the result.
1099
1100=for gengetinfo end sampler
1101
562=back 1102=back
563 1103
564=head2 THE OpenCL::Program CLASS 1104=head2 THE OpenCL::Program CLASS
565 1105
566=over 4 1106=over 4
567
568=item $packed_value = $program->info ($name)
569
570See C<< $platform->info >> for details.
571
572L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
573 1107
574=item $program->build ($device, $options = "") 1108=item $program->build ($device, $options = "")
575 1109
576Tries to build the program with the givne options. 1110Tries to build the program with the givne options.
577 1111
589Creates an OpenCL::Kernel object out of the named C<__kernel> function in 1123Creates an OpenCL::Kernel object out of the named C<__kernel> function in
590the program. 1124the program.
591 1125
592L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateKernel.html> 1126L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateKernel.html>
593 1127
1128=for gengetinfo begin program_build
1129
1130=item $build_status = $program->build_status ($device)
1131
1132Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_STATUS> and returns the result.
1133
1134=item $string = $program->build_options ($device)
1135
1136Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_OPTIONS> and returns the result.
1137
1138=item $string = $program->build_log ($device)
1139
1140Calls C<clGetProgramBuildInfo> with C<CL_PROGRAM_BUILD_LOG> and returns the result.
1141
1142=for gengetinfo end program_build
1143
1144=item $packed_value = $program->info ($name)
1145
1146See C<< $platform->info >> for details.
1147
1148L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
1149
1150=for gengetinfo begin program
1151
1152=item $uint = $program->reference_count
1153
1154Calls C<clGetProgramInfo> with C<CL_PROGRAM_REFERENCE_COUNT> and returns the result.
1155
1156=item $ctx = $program->context
1157
1158Calls C<clGetProgramInfo> with C<CL_PROGRAM_CONTEXT> and returns the result.
1159
1160=item $uint = $program->num_devices
1161
1162Calls C<clGetProgramInfo> with C<CL_PROGRAM_NUM_DEVICES> and returns the result.
1163
1164=item @devices = $program->devices
1165
1166Calls C<clGetProgramInfo> with C<CL_PROGRAM_DEVICES> and returns the result.
1167
1168=item $string = $program->source
1169
1170Calls C<clGetProgramInfo> with C<CL_PROGRAM_SOURCE> and returns the result.
1171
1172=item @ints = $program->binary_sizes
1173
1174Calls C<clGetProgramInfo> with C<CL_PROGRAM_BINARY_SIZES> and returns the result.
1175
1176=for gengetinfo end program
1177
1178=item @blobs = $program->binaries
1179
1180Returns a string for the compiled binary for every device associated with
1181the program, empty strings indicate missing programs, and an empty result
1182means no program binaries are available.
1183
1184These "binaries" are often, in fact, informative low-level assembly
1185sources.
1186
1187L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProgramInfo.html>
1188
594=back 1189=back
595 1190
596=head2 THE OpenCL::Kernel CLASS 1191=head2 THE OpenCL::Kernel CLASS
597 1192
598=over 4 1193=over 4
600=item $packed_value = $kernel->info ($name) 1195=item $packed_value = $kernel->info ($name)
601 1196
602See C<< $platform->info >> for details. 1197See C<< $platform->info >> for details.
603 1198
604L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelInfo.html> 1199L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelInfo.html>
1200
1201=for gengetinfo begin kernel
1202
1203=item $string = $kernel->function_name
1204
1205Calls C<clGetKernelInfo> with C<CL_KERNEL_FUNCTION_NAME> and returns the result.
1206
1207=item $uint = $kernel->num_args
1208
1209Calls C<clGetKernelInfo> with C<CL_KERNEL_NUM_ARGS> and returns the result.
1210
1211=item $uint = $kernel->reference_count
1212
1213Calls C<clGetKernelInfo> with C<CL_KERNEL_REFERENCE_COUNT> and returns the result.
1214
1215=item $ctx = $kernel->context
1216
1217Calls C<clGetKernelInfo> with C<CL_KERNEL_CONTEXT> and returns the result.
1218
1219=item $program = $kernel->program
1220
1221Calls C<clGetKernelInfo> with C<CL_KERNEL_PROGRAM> and returns the result.
1222
1223=for gengetinfo end kernel
1224
1225=item $packed_value = $kernel->work_group_info ($device, $name)
1226
1227See C<< $platform->info >> for details.
1228
1229The reason this method is not called C<info> is that there already is an
1230C<< ->info >> method.
1231
1232L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetKernelWorkGroupInfo.html>
1233
1234=for gengetinfo begin kernel_work_group
1235
1236=item $int = $kernel->work_group_size ($device)
1237
1238Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_WORK_GROUP_SIZE> and returns the result.
1239
1240=item @ints = $kernel->compile_work_group_size ($device)
1241
1242Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_COMPILE_WORK_GROUP_SIZE> and returns the result.
1243
1244=item $ulong = $kernel->local_mem_size ($device)
1245
1246Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_LOCAL_MEM_SIZE> and returns the result.
1247
1248=item $int = $kernel->preferred_work_group_size_multiple ($device)
1249
1250Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_PREFERRED_WORK_GROUP_SIZE_MULTIPLE> and returns the result.
1251
1252=item $ulong = $kernel->private_mem_size ($device)
1253
1254Calls C<clGetKernelWorkGroupInfo> with C<CL_KERNEL_PRIVATE_MEM_SIZE> and returns the result.
1255
1256=for gengetinfo end kernel_work_group
605 1257
606=item $kernel->set_TYPE ($index, $value) 1258=item $kernel->set_TYPE ($index, $value)
607 1259
608This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>. 1260This is a family of methods to set the kernel argument with the number C<$index> to the give C<$value>.
609 1261
625This is the superclass for all event objects (including OpenCL::UserEvent 1277This is the superclass for all event objects (including OpenCL::UserEvent
626objects). 1278objects).
627 1279
628=over 4 1280=over 4
629 1281
1282=item $ev->wait
1283
1284Waits for the event to complete.
1285
1286L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clWaitForEvents.html>
1287
630=item $packed_value = $ev->info ($name) 1288=item $packed_value = $ev->info ($name)
631 1289
632See C<< $platform->info >> for details. 1290See C<< $platform->info >> for details.
633 1291
634L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetEventInfo.html> 1292L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetEventInfo.html>
635 1293
636=item $ev->wait 1294=for gengetinfo begin event
637 1295
638Waits for the event to complete. 1296=item $queue = $event->command_queue
639 1297
1298Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_QUEUE> and returns the result.
1299
1300=item $command_type = $event->command_type
1301
1302Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_TYPE> and returns the result.
1303
1304=item $uint = $event->reference_count
1305
1306Calls C<clGetEventInfo> with C<CL_EVENT_REFERENCE_COUNT> and returns the result.
1307
1308=item $uint = $event->command_execution_status
1309
1310Calls C<clGetEventInfo> with C<CL_EVENT_COMMAND_EXECUTION_STATUS> and returns the result.
1311
1312=item $ctx = $event->context
1313
1314Calls C<clGetEventInfo> with C<CL_EVENT_CONTEXT> and returns the result.
1315
1316=for gengetinfo end event
1317
1318=item $packed_value = $ev->profiling_info ($name)
1319
1320See C<< $platform->info >> for details.
1321
1322The reason this method is not called C<info> is that there already is an
1323C<< ->info >> method.
1324
640L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clWaitForEvents.html> 1325L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetProfilingInfo.html>
1326
1327=for gengetinfo begin profiling
1328
1329=item $ulong = $event->profiling_command_queued
1330
1331Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_QUEUED> and returns the result.
1332
1333=item $ulong = $event->profiling_command_submit
1334
1335Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_SUBMIT> and returns the result.
1336
1337=item $ulong = $event->profiling_command_start
1338
1339Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_START> and returns the result.
1340
1341=item $ulong = $event->profiling_command_end
1342
1343Calls C<clGetEventProfilingInfo> with C<CL_PROFILING_COMMAND_END> and returns the result.
1344
1345=for gengetinfo end profiling
641 1346
642=back 1347=back
643 1348
644=head2 THE OpenCL::UserEvent CLASS 1349=head2 THE OpenCL::UserEvent CLASS
645 1350
658package OpenCL; 1363package OpenCL;
659 1364
660use common::sense; 1365use common::sense;
661 1366
662BEGIN { 1367BEGIN {
663 our $VERSION = '0.15'; 1368 our $VERSION = '0.92';
664 1369
665 require XSLoader; 1370 require XSLoader;
666 XSLoader::load (__PACKAGE__, $VERSION); 1371 XSLoader::load (__PACKAGE__, $VERSION);
667 1372
668 @OpenCL::Buffer::ISA = 1373 @OpenCL::Buffer::ISA =
669 @OpenCL::Image::ISA = OpenCL::Memory::; 1374 @OpenCL::Image::ISA = OpenCL::Memory::;
670 1375
1376 @OpenCL::BufferObj::ISA = OpenCL::Buffer::;
1377
671 @OpenCL::Image2D::ISA = 1378 @OpenCL::Image2D::ISA =
672 @OpenCL::Image3D::ISA = OpenCL::Image::; 1379 @OpenCL::Image3D::ISA = OpenCL::Image::;
673 1380
674 @OpenCL::UserEvent::ISA = OpenCL::Event::; 1381 @OpenCL::UserEvent::ISA = OpenCL::Event::;
675} 1382}
676 1383
6771; 13841;
678 1385
679=head1 AUTHOR 1386=head1 AUTHOR

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines