[p5sagit/p5-mst-13.2.git] / os2 / OS2 / typemap

BOOL			T_IV
ULONG			T_UV
HINI			T_UV
HAB			T_UV
HWND			T_UV
ATOM			T_UV
HATOMTBL		T_UV
HSWITCH			T_UV
ULONG			T_UV
USHORT			T_UV
LONG			T_IV
SHORT			T_IV

PSZ			T_PVNULL
PCSZ			T_PVNULLC

#############################################################################
INPUT
T_PVNULL
	$var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL )
T_PVNULLC
	$var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL )
#############################################################################
OUTPUT
T_PVNULL
	sv_setpv((SV*)$arg, $var);
T_PVNULLC
	NOTIMPLEMENTED
Commit	Line	Data
622913ab	1	BOOL T_IV
	2	ULONG T_UV
	3	HINI T_UV
	4	HAB T_UV
	5	HWND T_UV
	6	ATOM T_UV
	7	HATOMTBL T_UV
	8	HSWITCH T_UV
	9	ULONG T_UV
	10	USHORT T_UV
	11	LONG T_IV
	12	SHORT T_IV
	13
	14	PSZ T_PVNULL
	15	PCSZ T_PVNULLC
	16
	17	#############################################################################
	18	INPUT
	19	T_PVNULL
	20	$var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL )
	21	T_PVNULLC
	22	$var = ( SvOK($arg) ? ($type)SvPV($arg,PL_na) : NULL )
	23	#############################################################################
	24	OUTPUT
	25	T_PVNULL
	26	sv_setpv((SV*)$arg, $var);
	27	T_PVNULLC
	28	NOTIMPLEMENTED