T_PTR
	$var = INT2PTR($type,SvIV($arg))

##</code><code>##

T_PTR
at_c(x,position)
   pdl*    x
   PDL_Long * pos = NO_INIT
   CODE:
    // code that does stuff
    OUTPUT:
     RETVAL