--- OpenCL/OpenCL.pm	2011/11/17 01:36:52	1.9
+++ OpenCL/OpenCL.pm	2011/11/17 02:10:39	1.10
@@ -82,11 +82,11 @@
 =head2 Enumerate all devices and get contexts for them.
 
    for my $platform (OpenCL::platforms) {
-      warn $platform->info (OpenCL::PLATFORM_NAME);
-      warn $platform->info (OpenCL::PLATFORM_EXTENSIONS);
+      printf "platform: %s\n", $platform->info (OpenCL::PLATFORM_NAME);
+      printf "extensions: %s\n", $platform->info (OpenCL::PLATFORM_EXTENSIONS);
       for my $device ($platform->devices) {
-         warn $device->info (OpenCL::DEVICE_NAME);
-         my $ctx = $device->context_simple;
+         printf "+ device: %s\n", $device->info (OpenCL::DEVICE_NAME);
+         my $ctx = $device->context;
          # do stuff
       }
    }
@@ -94,13 +94,13 @@
 =head2 Get a useful context and a command queue.
 
    my $dev = ((OpenCL::platforms)[0]->devices)[0];
-   my $ctx = $dev->context_simple;
+   my $ctx = $dev->context;
    my $queue = $ctx->queue ($dev);
 
 =head2 Print all supported image formats of a context.
 
    for my $type (OpenCL::MEM_OBJECT_IMAGE2D, OpenCL::MEM_OBJECT_IMAGE3D) {
-      say "supported image formats for ", OpenCL::enum2str $type;
+      print "supported image formats for ", OpenCL::enum2str $type, "\n";
       
       for my $f ($ctx->supported_image_formats (0, $type)) {
          printf "  %-10s %-20s\n", OpenCL::enum2str $f->[0], OpenCL::enum2str $f->[1];
@@ -113,11 +113,11 @@
    my $buf = $ctx->buffer_sv (OpenCL::MEM_COPY_HOST_PTR, "helmut");
 
    $queue->enqueue_read_buffer ($buf, 1, 1, 3, my $data);
-   warn $data;
+   print "$data\n";
 
    my $ev = $queue->enqueue_read_buffer ($buf, 0, 1, 3, my $data);
    $ev->wait;
-   warn $data;
+   print "$data\n"; # prints "elm"
 
 =head2 Create and build a program, then create a kernel out of one of its
 functions.
@@ -154,7 +154,7 @@
    $queue->enqueue_read_buffer ($output, 1, 0, OpenCL::SIZEOF_FLOAT * 4, my $data);
 
    # print the results:
-   say join ", ", unpack "f*", $data;
+   printf "%s\n", join ", ", unpack "f*", $data;
 
 =head2 The same enqueue operations as before, but assuming an out-of-order queue,
 showing off barriers.
@@ -267,7 +267,7 @@
 
 L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetPlatformIDs.html>
 
-=item $ctx = OpenCL::context_from_type_simple $type = OpenCL::DEVICE_TYPE_DEFAULT
+=item $ctx = OpenCL::context_from_type $properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef
 
 Tries to create a context from a default device and platform - never worked for me.
 
@@ -297,7 +297,7 @@
 
 Returns a list of matching OpenCL::Device objects.
 
-=item $ctx = $platform->context_from_type_simple ($type = OpenCL::DEVICE_TYPE_DEFAULT)
+=item $ctx = $platform->context_from_type ($properties, $type = OpenCL::DEVICE_TYPE_DEFAULT, $notify = undef)
 
 Tries to create a context. Never worked for me.
 
@@ -315,9 +315,9 @@
 
 L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetDeviceInfo.html>
 
-=item $ctx = $device->context_simple
+=item $ctx = $device->context ($properties = undef, $notify = undef)
 
-Convenience function to create a new OpenCL::Context object.
+Create a new OpenCL::Context object.
 
 L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html>