[ViewVC] Diff of: cvs/OpenCL/OpenCL.pm

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.24 by root, Sun Nov 20 22:31:48 2011 UTC vs.
Revision 1.38 by root, Thu Apr 19 19:36:24 2012 UTC

…		…
105	for my $platform (OpenCL::platforms) {	105	for my $platform (OpenCL::platforms) {
106	printf "platform: %s\n", $platform->name;	106	printf "platform: %s\n", $platform->name;
107	printf "extensions: %s\n", $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->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
151	functions.	151	functions.
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	';
…		…
210	# enqueue an async read	210	# enqueue an async read
211	$ev = $queue->enqueue_read_buffer ($output, 0, 0, OpenCL::SIZEOF_FLOAT * 4, my $data, $ev);	211	$ev = $queue->enqueue_read_buffer ($output, 0, 0, OpenCL::SIZEOF_FLOAT * 4, my $data, $ev);
212		212
213	# wait for the last event to complete	213	# wait for the last event to complete
214	$ev->wait;	214	$ev->wait;
		215
		216	=head2 Use the OpenGL module to share a texture between OpenCL and OpenGL and draw some julia
		217	set tunnel effect.
		218
		219	This is quite a long example to get you going.
		220
		221	use OpenGL ":all";
		222	use OpenCL;
		223
		224	# open a window and create a gl texture
		225	OpenGL::glpOpenWindow width => 256, height => 256;
		226	my $texid = glGenTextures_p 1;
		227	glBindTexture GL_TEXTURE_2D, $texid;
		228	glTexImage2D_c GL_TEXTURE_2D, 0, GL_RGBA8, 256, 256, 0, GL_RGBA, GL_UNSIGNED_BYTE, 0;
		229
		230	# find and use the first opencl device that let's us get a shared opengl context
		231	my $platform;
		232	my $dev;
		233	my $ctx;
		234
		235	for (OpenCL::platforms) {
		236	$platform = $_;
		237	for ($platform->devices) {
		238	$dev = $_;
		239	$ctx = $platform->context ([OpenCL::GLX_DISPLAY_KHR, undef, OpenCL::GL_CONTEXT_KHR, undef], [$dev])
		240	and last;
		241	}
		242	}
		243
		244	$ctx
		245	or die "cannot find suitable OpenCL device\n";
		246
		247	my $queue = $ctx->queue ($dev);
		248
		249	# now attach an opencl image2d object to the opengl texture
		250	my $tex = $ctx->gl_texture2d (OpenCL::MEM_WRITE_ONLY, GL_TEXTURE_2D, 0, $texid);
		251
		252	# now the boring opencl code
		253	my $src = <<EOF;
		254	kernel void
		255	juliatunnel (write_only image2d_t img, float time)
		256	{
		257	float2 p = (float2)(get_global_id (0), get_global_id (1)) / 256.f * 2.f - 1.f;
		258
		259	float2 m = (float2)(1.f, p.y) / fabs (p.x);
		260	m.x = fabs (fmod (m.x + time * 0.05f, 4.f)) - 2.f;
		261
		262	float2 z = m;
		263	float2 c = (float2)(sin (time * 0.05005), cos (time * 0.06001));
		264
		265	for (int i = 0; i < 100 && dot (z, z) < 4.f; ++i)
		266	z = (float2)(z.x * z.x - z.y * z.y, 2.f * z.x * z.y) + c;
		267
		268	float3 colour = (float3)(z.x, z.y, z.x * z.y);
		269	write_imagef (img, (int2)(get_global_id (0), get_global_id (1)), (float4)(colour * p.x * p.x, 1.));
		270	}
		271	EOF
		272	my $prog = $ctx->program_with_source ($src);
		273	eval { $prog->build ($dev); 1 }
		274	or die $prog->build_log ($dev);
		275
		276	my $kernel = $prog->kernel ("juliatunnel");
		277
		278	# program compiled, kernel ready, now draw and loop
		279
		280	for (my $time; ; ++$time) {
		281	# acquire objects from opengl
		282	$queue->enqueue_acquire_gl_objects ([$tex]);
		283
		284	# configure and run our kernel
		285	$kernel->set_image2d (0, $tex);
		286	$kernel->set_float (1, $time);
		287	$queue->enqueue_nd_range_kernel ($kernel, undef, [256, 256], undef);
		288
		289	# release objects to opengl again
		290	$queue->enqueue_release_gl_objects ([$tex]);
		291
		292	# wait
		293	$queue->flush;
		294
		295	# now draw the texture, the defaults should be all right
		296	glTexParameterf GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST;
		297
		298	glEnable GL_TEXTURE_2D;
		299	glBegin GL_QUADS;
		300	glTexCoord2f 0, 1; glVertex3i -1, -1, -1;
		301	glTexCoord2f 0, 0; glVertex3i 1, -1, -1;
		302	glTexCoord2f 1, 0; glVertex3i 1, 1, -1;
		303	glTexCoord2f 1, 1; glVertex3i -1, 1, -1;
		304	glEnd;
		305
		306	glXSwapBuffers;
		307
		308	select undef, undef, undef, 1/60;
		309	}
215		310
216	=head1 DOCUMENTATION	311	=head1 DOCUMENTATION
217		312
218	=head2 BASIC CONVENTIONS	313	=head2 BASIC CONVENTIONS
219		314
…		…
271	ulong IV - Q	366	ulong IV - Q
272	float NV float f	367	float NV float f
273	half IV ushort S	368	half IV ushort S
274	double NV double d	369	double NV double d
275		370
		371	=head2 GLX SUPPORT
		372
		373	Due to the sad state that OpenGL support is in in Perl (mostly the OpenGL
		374	module, which has little to no documentation and has little to no support
		375	for glX), this module, as a special extension, treats context creation
		376	properties C<OpenCL::GLX_DISPLAY_KHR> and C<OpenCL::GL_CONTEXT_KHR>
		377	specially: If either or both of these are C<undef>, then the OpenCL
		378	module tries to dynamically resolve C<glXGetCurrentDisplay> and
		379	C<glXGetCurrentContext>, call these functions and use their return values
		380	instead.
		381
		382	For this to work, the OpenGL library must be loaded, a GLX context must
		383	have been created and be made current, and C<dlsym> must be available and
		384	capable of finding the function via C<RTLD_DEFAULT>.
		385
276	=head2 THE OpenCL PACKAGE	386	=head2 THE OpenCL PACKAGE
277		387
278	=over 4	388	=over 4
279		389
280	=item $int = OpenCL::errno	390	=item $int = OpenCL::errno
…		…
286		396
287	Comverts an error value into a human readable string.	397	Comverts an error value into a human readable string.
288		398
289	=item $str = OpenCL::enum2str $enum	399	=item $str = OpenCL::enum2str $enum
290		400
291	Converts most enum values (inof parameter names, image format constants,	401	Converts most enum values (of parameter names, image format constants,
292	object types, addressing and filter modes, command types etc.) into a	402	object types, addressing and filter modes, command types etc.) into a
293	human readbale string. When confronted with some random integer it can be	403	human readable string. When confronted with some random integer it can be
294	very helpful to pass it through this function to maybe get some readable	404	very helpful to pass it through this function to maybe get some readable
295	string out of it.	405	string out of it.
296		406
297	=item @platforms = OpenCL::platforms	407	=item @platforms = OpenCL::platforms
298		408
…		…
326		436
327	Tries to create a context. Never worked for me, and you need devices explicitly anyway.	437	Tries to create a context. Never worked for me, and you need devices explicitly anyway.
328		438
329	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html>	439	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContextFromType.html>
330		440
331	=item $ctx = $device->context ($properties = undef, @$devices, $notify = undef)	441	=item $ctx = $platform->context ($properties = undef, @$devices, $notify = undef)
332		442
333	Create a new OpenCL::Context object using the given device object(s)- a	443	Create a new OpenCL::Context object using the given device object(s)- a
334	CL_CONTEXT_PLATFORM property is supplied automatically.	444	CL_CONTEXT_PLATFORM property is supplied automatically.
335		445
336	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html>	446	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateContext.html>
…		…
668		778
669	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html>	779	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateUserEvent.html>
670		780
671	=item $buf = $ctx->buffer ($flags, $len)	781	=item $buf = $ctx->buffer ($flags, $len)
672		782
673	Creates a new OpenCL::Buffer object with the given flags and octet-size.	783	Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object with the
		784	given flags and octet-size.
674		785
675	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html>	786	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateBuffer.html>
676		787
677	=item $buf = $ctx->buffer_sv ($flags, $data)	788	=item $buf = $ctx->buffer_sv ($flags, $data)
678		789
679	Creates a new OpenCL::Buffer object and initialise it with the given data values.	790	Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object and
		791	initialise it with the given data values.
680		792
681	=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef)	793	=item $img = $ctx->image2d ($flags, $channel_order, $channel_type, $width, $height, $row_pitch = 0, $data = undef)
682		794
683	Creates a new OpenCL::Image2D object and optionally initialises it with the given data values.	795	Creates a new OpenCL::Image2D object and optionally initialises it with
		796	the given data values.
684		797
685	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html>	798	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage2D.html>
686		799
687	=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef)	800	=item $img = $ctx->image3d ($flags, $channel_order, $channel_type, $width, $height, $depth, $row_pitch = 0, $slice_pitch = 0, $data = undef)
688		801
689	Creates a new OpenCL::Image3D object and optionally initialises it with the given data values.	802	Creates a new OpenCL::Image3D object and optionally initialises it with
		803	the given data values.
690		804
691	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html>	805	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateImage3D.html>
		806
		807	=item $buffer = $ctx->gl_buffer ($flags, $bufobj)
		808
		809	Creates a new OpenCL::Buffer (actually OpenCL::BufferObj) object that refers to the given
		810	OpenGL buffer object.
		811
		812	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLBuffer.html
		813
		814	=item $ctx->gl_texture2d ($flags, $target, $miplevel, $texture)
		815
		816	Creates a new OpenCL::Image2D object that refers to the given OpenGL
		817	2D texture object.
		818
		819	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLTexture2D.html
		820
		821	=item $ctx->gl_texture3d ($flags, $target, $miplevel, $texture)
		822
		823	Creates a new OpenCL::Image3D object that refers to the given OpenGL
		824	3D texture object.
		825
		826	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLTexture3D.html
		827
		828	=item $ctx->gl_renderbuffer ($flags, $renderbuffer)
		829
		830	Creates a new OpenCL::Image2D object that refers to the given OpenGL
		831	render buffer.
		832
		833	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateFromGLRenderbuffer.html
692		834
693	=item @formats = $ctx->supported_image_formats ($flags, $image_type)	835	=item @formats = $ctx->supported_image_formats ($flags, $image_type)
694		836
695	Returns a list of matching image formats - each format is an arrayref with	837	Returns a list of matching image formats - each format is an arrayref with
696	two values, $channel_order and $channel_type, in it.	838	two values, $channel_order and $channel_type, in it.
…		…
771		913
772	=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...)	914	=item $ev = $queue->enqueue_copy_buffer ($src, $dst, $src_offset, $dst_offset, $len, $wait_events...)
773		915
774	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html>	916	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBuffer.html>
775		917
		918	=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...)
		919
		920	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadBufferRect.html
		921
		922	=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...)
		923
		924	http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteBufferRect.html
		925
776	=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)	926	=item $ev = $queue->enqueue_read_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
777		927
		928	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
		929
		930	=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...)
		931
778	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html>	932	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReadImage.html>
779		933
780	=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)	934	=item $ev = $queue->enqueue_write_image ($src, $blocking, $x, $y, $z, $width, $height, $depth, $row_pitch, $slice_pitch, $data, $wait_events...)
781		935
782	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html>	936	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWriteImage.html>
783		937
		938	=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...)
		939
		940	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
		941
		942	=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...)
		943
		944	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
		945
784	=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...)	946	=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...)
785		947
786	Yeah.	948	Yeah.
787		949
788	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferRect.html>
789
790	=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...)
791
792	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>.	950	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyBufferToImage.html>.
793
794	=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...)
795
796	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImage.html>
797
798	=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...)
799
800	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueCopyImageToBuffer.html>
801		951
802	=item $ev = $queue->enqueue_task ($kernel, $wait_events...)	952	=item $ev = $queue->enqueue_task ($kernel, $wait_events...)
803		953
804	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html>	954	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueTask.html>
805		955
…		…
819	reference to an array of local work sizes, with the same number of	969	reference to an array of local work sizes, with the same number of
820	elements as @$global_work_size.	970	elements as @$global_work_size.
821		971
822	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueNDRangeKernel.html>	972	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueNDRangeKernel.html>
823		973
824	=item $ev = $queue->enqueue_marker	974	=item $ev = $queue->enqueue_marker ($wait_events...)
825		975
826	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueMarker.html>	976	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueMarker.html>
		977
		978	=item $ev = $queue->enqueue_acquire_gl_objects ([object, ...], $wait_events...)
		979
		980	Enqueues a list (an array-ref of OpenCL::Memory objects) to be acquired
		981	for subsequent OpenCL usage.
		982
		983	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueAcquireGLObjects.html>
		984
		985	=item $ev = $queue->enqueue_release_gl_objects ([object, ...], $wait_events...)
		986
		987	Enqueues a list (an array-ref of OpenCL::Memory objects) to be released
		988	for subsequent OpenGL usage.
		989
		990	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueReleaseGLObjects.html>
827		991
828	=item $ev = $queue->enqueue_wait_for_events ($wait_events...)	992	=item $ev = $queue->enqueue_wait_for_events ($wait_events...)
829		993
830	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWaitForEvents.html>	994	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clEnqueueWaitForEvents.html>
831		995
…		…
920		1084
921	Calls C<clGetMemObjectInfo> with C<CL_MEM_OFFSET> and returns the result.	1085	Calls C<clGetMemObjectInfo> with C<CL_MEM_OFFSET> and returns the result.
922		1086
923	=for gengetinfo end mem	1087	=for gengetinfo end mem
924		1088
		1089	=item ($type, $name) = $mem->gl_object_info
		1090
		1091	Returns the OpenGL object type (e.g. OpenCL::GL_OBJECT_TEXTURE2D) and the
		1092	object "name" (e.g. the texture name) used to create this memory object.
		1093
		1094	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clGetGLObjectInfo.html>
		1095
		1096	=back
		1097
		1098	=head2 THE OpenCL::Buffer CLASS
		1099
		1100	This is a subclass of OpenCL::Memory, and the superclass of
		1101	OpenCL::BufferObj. Its purpose is simply to distinguish between buffers
		1102	and sub-buffers.
		1103
		1104	=head2 THE OpenCL::BufferObj CLASS
		1105
		1106	This is a subclass of OpenCL::Buffer and thus OpenCL::Memory. It exists
		1107	because one cna create sub buffers of OpenLC::BufferObj objects, but not
		1108	sub buffers from these sub buffers.
		1109
		1110	=over 4
		1111
		1112	=item $subbuf = $buf_obj->sub_buffer_region ($flags, $origin, $size)
		1113
		1114	Creates an OpenCL::Buffer objects from this buffer and returns it. The
		1115	C<buffer_create_type> is assumed to be C<CL_BUFFER_CREATE_TYPE_REGION>.
		1116
		1117	L<http://www.khronos.org/registry/cl/sdk/1.1/docs/man/xhtml/clCreateSubBuffer.html>
		1118
925	=back	1119	=back
926		1120
927	=head2 THE OpenCL::Image CLASS	1121	=head2 THE OpenCL::Image CLASS
928		1122
929	This is the superclass of all image objects - OpenCL::Image2D and OpenCL::Image3D.	1123	This is the superclass of all image objects - OpenCL::Image2D and OpenCL::Image3D.
…		…
964	=item $int = $image->depth	1158	=item $int = $image->depth
965		1159
966	Calls C<clGetImageInfo> with C<CL_IMAGE_DEPTH> and returns the result.	1160	Calls C<clGetImageInfo> with C<CL_IMAGE_DEPTH> and returns the result.
967		1161
968	=for gengetinfo end image	1162	=for gengetinfo end image
		1163
		1164	=for gengetinfo begin gl_texture
		1165
		1166	=item $GLenum = $gl_texture->target
		1167
		1168	Calls C<clGetGLTextureInfo> with C<CL_GL_TEXTURE_TARGET> and returns the result.
		1169
		1170	=item $GLint = $gl_texture->gl_mipmap_level
		1171
		1172	Calls C<clGetGLTextureInfo> with C<CL_GL_MIPMAP_LEVEL> and returns the result.
		1173
		1174	=for gengetinfo end gl_texture
969		1175
970	=back	1176	=back
971		1177
972	=head2 THE OpenCL::Sampler CLASS	1178	=head2 THE OpenCL::Sampler CLASS
973		1179
…		…
1267	package OpenCL;	1473	package OpenCL;
1268		1474
1269	use common::sense;	1475	use common::sense;
1270		1476
1271	BEGIN {	1477	BEGIN {
1272	our $VERSION = '0.55';	1478	our $VERSION = '0.95';
1273		1479
1274	require XSLoader;	1480	require XSLoader;
1275	XSLoader::load (__PACKAGE__, $VERSION);	1481	XSLoader::load (__PACKAGE__, $VERSION);
1276		1482
1277	@OpenCL::Buffer::ISA =	1483	@OpenCL::Buffer::ISA =
1278	@OpenCL::Image::ISA = OpenCL::Memory::;	1484	@OpenCL::Image::ISA = OpenCL::Memory::;
1279		1485
		1486	@OpenCL::BufferObj::ISA = OpenCL::Buffer::;
		1487
1280	@OpenCL::Image2D::ISA =	1488	@OpenCL::Image2D::ISA =
1281	@OpenCL::Image3D::ISA = OpenCL::Image::;	1489	@OpenCL::Image3D::ISA = OpenCL::Image::;
1282		1490
1283	@OpenCL::UserEvent::ISA = OpenCL::Event::;	1491	@OpenCL::UserEvent::ISA = OpenCL::Event::;
1284	}	1492	}
1285		1493
1286	1;	1494	1;
1287		1495
1288	=head1 AUTHOR	1496	=head1 AUTHOR

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing OpenCL/OpenCL.pm (file contents): Revision 1.24 by root, Sun Nov 20 22:31:48 2011 UTC vs. Revision 1.38 by root, Thu Apr 19 19:36:24 2012 UTC

Diff Legend

Comparing OpenCL/OpenCL.pm (file contents):
Revision 1.24 by root, Sun Nov 20 22:31:48 2011 UTC vs.
Revision 1.38 by root, Thu Apr 19 19:36:24 2012 UTC