[perl5.git] / cpan / Win32API-File / typemap

BOOL			T_BOOL
LONG			T_IV
HKEY			T_UV
HANDLE			T_UV
DWORD			T_UV
oDWORD			O_UV
UINT			T_UV
REGSAM			T_UV
SECURITY_INFORMATION	T_UV
char *			T_BUF
WCHAR *			T_BUF
BYTE *			T_BUF
void *			T_BUF
ValEntA *		T_BUF
ValEntW *		T_BUF
SECURITY_DESCRIPTOR *	T_BUF
SECURITY_ATTRIBUTES *	T_BUF
LPOVERLAPPED		T_BUF
LONG *			T_IVBUF
DWORD *			T_UVBUF
LPDWORD			T_UVBUF
oDWORD *		O_UVBUF
HKEY *			T_UVBUFP
oHKEY *			O_UVBUFP
FILETIME *		T_SBUF

#############################################################################
INPUT
T_BOOL
	$var= null_arg($arg)||!SvTRUE($arg) ? ($type)0 : looks_like_number($arg) ? ($type)SvIV($arg) : ($type)1
T_BUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    $var= ($type) SvPV_nolen( $arg )
T_SBUF
	grow_buf( $var,$arg, $type )
T_IV
	$var= null_arg($arg) ? ($type)0 : INT2PTR($type,SvIV($arg))
T_UV
	$var= null_arg($arg) ? ($type)0 : INT2PTR($type,SvUV($arg))
O_IV
	$var= optIV($arg)
O_UV
	$var= optUV($arg)
T_IVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )= SvIV($arg)
T_UVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )= SvUV($arg)
O_IVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )=
	      SvOK($arg) ? SvIV($arg) : 0;
O_UVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )=
	      SvOK($arg) ? SvUV($arg) : 0;
T_IVBUFP
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )= (void *)SvIV($arg)
T_UVBUFP
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )= (void *)SvUV($arg)
O_IVBUFP
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )=
	      SvOK($arg) ? (void *)SvIV($arg) : 0;
O_UVBUFP
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) TempAlloc( sizeof(*($var)) ) )=
	      SvOK($arg) ? (void *)SvUV($arg) : 0;

#############################################################################
OUTPUT
T_BOOL
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  ) {
	    if(  $var  ) {
		sv_setiv( $arg, (IV)$var );
	    } else {
		sv_setsv( $arg, &PL_sv_no );
	    }
	}
T_BUF
	;
T_SBUF
	trunc_buf( RETVAL, $var,$arg );
T_IV
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setiv( $arg, PTR2IV($var) );
T_UV
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setuv( $arg, PTR2UV($var) );
O_IV
	if(  ! null_arg($arg)  )
	    sv_setiv( $arg, PTR2IV($var) );
O_UV
	if(  ! null_arg($arg)  )
	    sv_setuv( $arg, PTR2UV($var) );
T_IVBUF
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setiv( $arg, (IV)*($var) );
T_UVBUF
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setuv( $arg, (UV)*($var) );
O_IVBUF
	if(  ! null_arg($arg)  )
	    sv_setiv( $arg, (IV)*($var) );
O_UVBUF
	if(  ! null_arg($arg)  )
	    sv_setuv( $arg, (UV)*($var) );
T_IVBUFP
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setiv( $arg, (IV)*($var) );
T_UVBUFP
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setuv( $arg, (UV)*($var) );
O_IVBUFP
	if(  ! null_arg($arg)  )
	    sv_setiv( $arg, (IV)*($var) );
O_UVBUFP
	if(  ! null_arg($arg)  )
	    sv_setuv( $arg, (UV)*($var) );
Commit	Line	Data
00701878 SH	1	BOOL T_BOOL
	2	LONG T_IV
	3	HKEY T_UV
	4	HANDLE T_UV
	5	DWORD T_UV
	6	oDWORD O_UV
	7	UINT T_UV
	8	REGSAM T_UV
	9	SECURITY_INFORMATION T_UV
	10	char * T_BUF
	11	WCHAR * T_BUF
	12	BYTE * T_BUF
	13	void * T_BUF
	14	ValEntA * T_BUF
	15	ValEntW * T_BUF
	16	SECURITY_DESCRIPTOR * T_BUF
	17	SECURITY_ATTRIBUTES * T_BUF
	18	LPOVERLAPPED T_BUF
	19	LONG * T_IVBUF
	20	DWORD * T_UVBUF
	21	LPDWORD T_UVBUF
	22	oDWORD * O_UVBUF
	23	HKEY * T_UVBUFP
	24	oHKEY * O_UVBUFP
	25	FILETIME * T_SBUF
	26
	27	#############################################################################
	28	INPUT
	29	T_BOOL
	30	$var= null_arg($arg)\|\|!SvTRUE($arg) ? ($type)0 : looks_like_number($arg) ? ($type)SvIV($arg) : ($type)1
	31	T_BUF
	32	if( null_arg($arg) )
	33	$var= NULL;
	34	else
bfd025d9	35	$var= ($type) SvPV_nolen( $arg )
00701878 SH	36	T_SBUF
	37	grow_buf( $var,$arg, $type )
	38	T_IV
	39	$var= null_arg($arg) ? ($type)0 : INT2PTR($type,SvIV($arg))
	40	T_UV
	41	$var= null_arg($arg) ? ($type)0 : INT2PTR($type,SvUV($arg))
	42	O_IV
	43	$var= optIV($arg)
	44	O_UV
	45	$var= optUV($arg)
	46	T_IVBUF
	47	if( null_arg($arg) )
	48	$var= NULL;
	49	else
	50	( $var= ($type) TempAlloc( sizeof(($var)) ) )= SvIV($arg)
	51	T_UVBUF
	52	if( null_arg($arg) )
	53	$var= NULL;
	54	else
	55	( $var= ($type) TempAlloc( sizeof(($var)) ) )= SvUV($arg)
	56	O_IVBUF
	57	if( null_arg($arg) )
	58	$var= NULL;
	59	else
	60	( $var= ($type) TempAlloc( sizeof(($var)) ) )=
	61	SvOK($arg) ? SvIV($arg) : 0;
	62	O_UVBUF
	63	if( null_arg($arg) )
	64	$var= NULL;
	65	else
	66	( $var= ($type) TempAlloc( sizeof(($var)) ) )=
	67	SvOK($arg) ? SvUV($arg) : 0;
	68	T_IVBUFP
	69	if( null_arg($arg) )
	70	$var= NULL;
	71	else
	72	( $var= ($type) TempAlloc( sizeof(($var)) ) )= (void *)SvIV($arg)
	73	T_UVBUFP
	74	if( null_arg($arg) )
	75	$var= NULL;
	76	else
	77	( $var= ($type) TempAlloc( sizeof(($var)) ) )= (void *)SvUV($arg)
	78	O_IVBUFP
	79	if( null_arg($arg) )
	80	$var= NULL;
	81	else
	82	( $var= ($type) TempAlloc( sizeof(($var)) ) )=
	83	SvOK($arg) ? (void *)SvIV($arg) : 0;
	84	O_UVBUFP
	85	if( null_arg($arg) )
	86	$var= NULL;
	87	else
	88	( $var= ($type) TempAlloc( sizeof(($var)) ) )=
	89	SvOK($arg) ? (void *)SvUV($arg) : 0;
	90
	91	#############################################################################
	92	OUTPUT
	93	T_BOOL
	94	if( ! null_arg($arg) && ! SvREADONLY($arg) ) {
	95	if( $var ) {
	96	sv_setiv( $arg, (IV)$var );
	97	} else {
	98	sv_setsv( $arg, &PL_sv_no );
	99	}
100	}
101	T_BUF
102	;
103	T_SBUF
104	trunc_buf( RETVAL, $var,$arg );
105	T_IV
106	if( ! null_arg($arg) && ! SvREADONLY($arg) )
107	sv_setiv( $arg, PTR2IV($var) );
108	T_UV
109	if( ! null_arg($arg) && ! SvREADONLY($arg) )
110	sv_setuv( $arg, PTR2UV($var) );
111	O_IV
112	if( ! null_arg($arg) )
113	sv_setiv( $arg, PTR2IV($var) );
114	O_UV
115	if( ! null_arg($arg) )
116	sv_setuv( $arg, PTR2UV($var) );
117	T_IVBUF
118	if( ! null_arg($arg) && ! SvREADONLY($arg) )
119	sv_setiv( $arg, (IV)*($var) );
120	T_UVBUF
121	if( ! null_arg($arg) && ! SvREADONLY($arg) )
122	sv_setuv( $arg, (UV)*($var) );
123	O_IVBUF
124	if( ! null_arg($arg) )
125	sv_setiv( $arg, (IV)*($var) );
126	O_UVBUF
127	if( ! null_arg($arg) )
128	sv_setuv( $arg, (UV)*($var) );
129	T_IVBUFP
130	if( ! null_arg($arg) && ! SvREADONLY($arg) )
131	sv_setiv( $arg, (IV)*($var) );
132	T_UVBUFP
133	if( ! null_arg($arg) && ! SvREADONLY($arg) )
134	sv_setuv( $arg, (UV)*($var) );
135	O_IVBUFP
136	if( ! null_arg($arg) )
137	sv_setiv( $arg, (IV)*($var) );
138	O_UVBUFP
139	if( ! null_arg($arg) )
140	sv_setuv( $arg, (UV)*($var) );