cl_bool			T_BOOL
cl_char			T_IV
cl_uchar		T_UV
cl_short		T_IV
cl_ushort		T_UV
cl_int			T_IV
cl_uint			T_UV
cl_long			T_IV
cl_ulong		T_UV
cl_double		T_NV
cl_float		T_NV
cl_half			T_UV

cl_bitfield		T_UV
cl_device_fp_config	T_UV
cl_device_exec_capabilities T_UV

cl_platform_info	T_IV
cl_device_type		T_IV
cl_device_info		T_IV
cl_device_mem_cache_type T_UV
cl_device_local_mem_type T_UV
cl_device_partition_property_ext T_UV
cl_context_info		T_IV
cl_command_queue_properties T_IV
cl_command_queue_info	T_IV
cl_mem_flags		T_IV
cl_mem_info		T_IV
cl_mem_object_type	T_IV
cl_image_info		T_IV
cl_profiling_info	T_IV
cl_channel_order	T_UV
cl_channel_type		T_UV
cl_event_info		T_IV
cl_addressing_mode	T_IV
cl_filter_mode		T_IV
cl_sampler_info		T_IV
cl_program_info		T_IV
cl_program_build_info	T_IV
cl_build_status		T_IV
cl_kernel_info		T_IV
cl_kernel_work_group_info T_IV
cl_command_type		T_UV

cl_context_properties * context_properties

cl_GLenum		T_UV
cl_GLint		T_IV
cl_GLuint		T_UV

cl_gl_object_type	T_UV
cl_gl_texture_info	T_UV
cl_gl_platform_info	T_UV
cl_gl_context_info	T_UV

OpenCL::Platform	ptrobj
OpenCL::Device		ptrobj
OpenCL::Context		ptrobj
OpenCL::Queue		ptrobj
OpenCL::Memory		ptrobj
OpenCL::Buffer		ptrobj
OpenCL::BufferObj	ptrobj
OpenCL::Image		ptrobj
OpenCL::Image2D		ptrobj
OpenCL::Image3D		ptrobj
OpenCL::Memory_ornull	ptrobj_ornull
OpenCL::Buffer_ornull	ptrobj_ornull
OpenCL::Image_ornull	ptrobj_ornull
OpenCL::Image2D_ornull	ptrobj_ornull
OpenCL::Image3D_ornull	ptrobj_ornull
OpenCL::Sampler		ptrobj
OpenCL::Program		ptrobj
OpenCL::Kernel		ptrobj
OpenCL::Event		ptrobj
OpenCL::UserEvent	ptrobj

FUTURE			future

INPUT

future
	if (SvOK ($arg))
	  croak (\"$pname argument '$var' is reserved for future extensions, it must be missing or undef in this implementation, in call\");

context_properties
	$var = SvCONTEXTPROPERTIES (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, 0, 0)

ptrobj
	$var = ($type)SvPTROBJ (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, \"${ntype}\")

ptrobj_ornull
	$var = SvOK ($arg) ? ($type)SvPTROBJ (${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", $arg, \"${\substr $ntype, 0, -7}\") : 0

