[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / typemap

# $Header$ 
# basic C types
int			T_IV
unsigned		T_IV
unsigned int		T_IV
long			T_IV
unsigned long		T_IV
short			T_IV
unsigned short		T_IV
char			T_CHAR
unsigned char		T_U_CHAR
char *			T_PV
unsigned char *		T_PV
caddr_t			T_PV
wchar_t *		T_PV
wchar_t			T_IV
bool_t			T_IV
size_t			T_IV
ssize_t			T_IV
time_t			T_NV
unsigned long *		T_OPAQUEPTR
char **			T_PACKED
void *			T_PTR
Time_t *		T_PV
SV *			T_SV
SVREF			T_SVREF
AV *			T_AVREF
HV *			T_HVREF
CV *			T_CVREF

IV			T_IV
I32			T_IV
I16			T_IV
I8			T_IV
U32			T_U_LONG
U16			T_U_SHORT
U8			T_IV
Result			T_U_CHAR
Boolean			T_IV
double			T_DOUBLE
SysRet			T_SYSRET
SysRetLong		T_SYSRET
FILE *			T_IN
FileHandle		T_PTROBJ
InputStream		T_IN
InOutStream		T_INOUT
OutputStream		T_OUT

#############################################################################
INPUT
T_SV
	$var = $arg
T_SVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (SV*)SvRV($arg);
	else
	    croak(\"$var is not of type ${ntype}\")
T_AVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (AV*)SvRV($arg);
	else
	    croak(\"$var is not of type ${ntype}\")
T_HVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (HV*)SvRV($arg);
	else
	    croak(\"$var is not of type ${ntype}\")
T_CVREF
	if (sv_isa($arg, \"${ntype}\"))
	    $var = (CV*)SvRV($arg);
	else
	    croak(\"$var is not of type ${ntype}\")
T_SYSRET
	$var NOT IMPLEMENTED
T_IV
	$var = ($type)SvIV($arg)
T_INT
	$var = (int)SvIV($arg)
T_ENUM
	$var = ($type)SvIV($arg)
T_U_INT
	$var = (unsigned int)SvIV($arg)
T_SHORT
	$var = (short)SvIV($arg)
T_U_SHORT
	$var = (unsigned short)SvIV($arg)
T_LONG
	$var = (long)SvIV($arg)
T_U_LONG
	$var = (unsigned long)SvIV($arg)
T_CHAR
	$var = (char)*SvPV($arg,na)
T_U_CHAR
	$var = (unsigned char)SvIV($arg)
T_FLOAT
	$var = (float)SvNV($arg)
T_NV
	$var = ($type)SvNV($arg)
T_DOUBLE
	$var = (double)SvNV($arg)
T_PV
	$var = ($type)SvPV($arg,na)
T_PTR
	$var = ($type)SvIV($arg)
T_PTRREF
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not a reference\")
T_REF_IV_REF
	if (sv_isa($arg, \"${type}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *($type *) tmp;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
T_REF_IV_PTR
	if (sv_isa($arg, \"${type}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
T_PTROBJ
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = ($type) tmp;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
T_PTRDESC
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    ${type}_desc = (\U${type}_DESC\E*) tmp; 
	    $var = ${type}_desc->ptr;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
T_REFREF
	if (SvROK($arg)) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *($type) tmp;
	}
	else
	    croak(\"$var is not a reference\")
T_REFOBJ
	if (sv_isa($arg, \"${ntype}\")) {
	    IV tmp = SvIV((SV*)SvRV($arg));
	    $var = *($type) tmp;
	}
	else
	    croak(\"$var is not of type ${ntype}\")
T_OPAQUE
	$var NOT IMPLEMENTED
T_OPAQUEPTR
	$var = ($type)SvPV($arg,na)
T_PACKED
	$var = XS_unpack_$ntype($arg)
T_PACKEDARRAY
	$var = XS_unpack_$ntype($arg)
T_CALLBACK
	$var = make_perl_cb_$type($arg)
T_ARRAY
	$var = $ntype(items -= $argoff);
	U32 ix_$var = $argoff;
	while (items--) {
	    DO_ARRAY_ELEM;
	}
T_IN
	$var = IoIFP(sv_2io($arg))
T_INOUT
	$var = IoIFP(sv_2io($arg))
T_OUT
	$var = IoOFP(sv_2io($arg))
#############################################################################
OUTPUT
T_SV
	$arg = $var;
T_SVREF
	$arg = newRV((SV*)$var);
T_AVREF
	$arg = newRV((SV*)$var);
T_HVREF
	$arg = newRV((SV*)$var);
T_CVREF
	$arg = newRV((SV*)$var);
T_IV
	sv_setiv($arg, (IV)$var);
T_INT
	sv_setiv($arg, (IV)$var);
T_SYSRET
	if ($var != -1) {
	    if ($var == 0)
		sv_setpvn($arg, "0 but true", 10);
	    else
		sv_setiv($arg, (IV)$var);
	}
T_ENUM
	sv_setiv($arg, (IV)$var);
T_U_INT
	sv_setiv($arg, (IV)$var);
T_SHORT
	sv_setiv($arg, (IV)$var);
T_U_SHORT
	sv_setiv($arg, (IV)$var);
T_LONG
	sv_setiv($arg, (IV)$var);
T_U_LONG
	sv_setiv($arg, (IV)$var);
T_CHAR
	sv_setpvn($arg, (char *)&$var, 1);
T_U_CHAR
	sv_setiv($arg, (IV)$var);
T_FLOAT
	sv_setnv($arg, (double)$var);
T_NV
	sv_setnv($arg, (double)$var);
T_DOUBLE
	sv_setnv($arg, (double)$var);
T_PV
	sv_setpv((SV*)$arg, $var);
T_PTR
	sv_setiv($arg, (IV)$var);
T_PTRREF
	sv_setref_pv($arg, Nullch, (void*)$var);
T_REF_IV_REF
	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
T_REF_IV_PTR
	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
T_PTROBJ
	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
T_PTRDESC
	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
T_REFREF
	sv_setrefref($arg, \"${ntype}\", XS_service_$ntype,
		    ($var ? (void*)new $ntype($var) : 0));
T_REFOBJ
	NOT IMPLEMENTED
T_OPAQUE
	sv_setpvn($arg, (char *)&$var, sizeof($var));
T_OPAQUEPTR
	sv_setpvn($arg, (char *)$var, sizeof(*$var)), XFree((char *)$var);
T_PACKED
	XS_pack_$ntype($arg, $var);
T_PACKEDARRAY
	XS_pack_$ntype($arg, $var, count_$ntype);
T_DATAUNIT	
	sv_setpvn($arg, $var.chp(), $var.size());
T_CALLBACK
	sv_setpvn($arg, $var.context.value().chp(),
		$var.context.value().size());
T_ARRAY
	ST_EXTEND($var.size);
	for (U32 ix_$var = 0; ix_$var < $var.size; ix_$var++) {
		ST(ix_$var) = sv_newmortal();
	DO_ARRAY_ELEM
	}
	sp += $var.size - 1;
T_IN
	{
	    GV *gv = newGVgen("$Package");
	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	    else
		$arg = &sv_undef;
	}
T_INOUT
	{
	    GV *gv = newGVgen("$Package");
	    if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	    else
		$arg = &sv_undef;
	}
T_OUT
	{
	    GV *gv = newGVgen("$Package");
	    if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
		sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	    else
		$arg = &sv_undef;
	}
Commit	Line	Data
93a17b20	1	# $Header$
93a17b20	2	# basic C types
85e6fe83	3	int T_IV
	4	unsigned T_IV
	5	unsigned int T_IV
a0d0e21e	6	long T_IV
a0d0e21e	7	unsigned long T_IV
85e6fe83	8	short T_IV
85e6fe83	9	unsigned short T_IV
93a17b20	10	char T_CHAR
85e6fe83	11	unsigned char T_U_CHAR
a0d0e21e	12	char * T_PV
	13	unsigned char * T_PV
	14	caddr_t T_PV
	15	wchar_t * T_PV
	16	wchar_t T_IV
	17	bool_t T_IV
	18	size_t T_IV
	19	ssize_t T_IV
	20	time_t T_NV
93a17b20	21	unsigned long * T_OPAQUEPTR
	22	char ** T_PACKED
	23	void * T_PTR
a0d0e21e	24	Time_t * T_PV
2304df62	25	SV * T_SV
a0d0e21e	26	SVREF T_SVREF
	27	AV * T_AVREF
	28	HV * T_HVREF
	29	CV * T_CVREF
93a17b20	30
a0d0e21e	31	IV T_IV
85e6fe83	32	I32 T_IV
	33	I16 T_IV
	34	I8 T_IV
93a17b20	35	U32 T_U_LONG
93a17b20	36	U16 T_U_SHORT
85e6fe83	37	U8 T_IV
93a17b20	38	Result T_U_CHAR
a0d0e21e	39	Boolean T_IV
93a17b20	40	double T_DOUBLE
2304df62	41	SysRet T_SYSRET
a0d0e21e	42	SysRetLong T_SYSRET
	43	FILE * T_IN
	44	FileHandle T_PTROBJ
	45	InputStream T_IN
	46	InOutStream T_INOUT
	47	OutputStream T_OUT
93a17b20	48
8990e307	49	#############################################################################
8990e307	50	INPUT
2304df62	51	T_SV
a0d0e21e	52	$var = $arg
a0d0e21e	53	T_SVREF
2304df62	54	if (sv_isa($arg, \"${ntype}\"))
a0d0e21e	55	$var = (SV*)SvRV($arg);
2304df62	56	else
2304df62	57	croak(\"$var is not of type ${ntype}\")
a0d0e21e	58	T_AVREF
2304df62	59	if (sv_isa($arg, \"${ntype}\"))
	60	$var = (AV*)SvRV($arg);
	61	else
	62	croak(\"$var is not of type ${ntype}\")
a0d0e21e	63	T_HVREF
2304df62	64	if (sv_isa($arg, \"${ntype}\"))
	65	$var = (HV*)SvRV($arg);
	66	else
	67	croak(\"$var is not of type ${ntype}\")
a0d0e21e	68	T_CVREF
2304df62	69	if (sv_isa($arg, \"${ntype}\"))
	70	$var = (CV*)SvRV($arg);
	71	else
	72	croak(\"$var is not of type ${ntype}\")
	73	T_SYSRET
	74	$var NOT IMPLEMENTED
85e6fe83	75	T_IV
85e6fe83	76	$var = ($type)SvIV($arg)
8990e307	77	T_INT
	78	$var = (int)SvIV($arg)
	79	T_ENUM
	80	$var = ($type)SvIV($arg)
	81	T_U_INT
	82	$var = (unsigned int)SvIV($arg)
	83	T_SHORT
	84	$var = (short)SvIV($arg)
	85	T_U_SHORT
	86	$var = (unsigned short)SvIV($arg)
	87	T_LONG
	88	$var = (long)SvIV($arg)
	89	T_U_LONG
	90	$var = (unsigned long)SvIV($arg)
	91	T_CHAR
	92	$var = (char)*SvPV($arg,na)
	93	T_U_CHAR
	94	$var = (unsigned char)SvIV($arg)
	95	T_FLOAT
	96	$var = (float)SvNV($arg)
85e6fe83	97	T_NV
85e6fe83	98	$var = ($type)SvNV($arg)
8990e307	99	T_DOUBLE
85e6fe83	100	$var = (double)SvNV($arg)
a0d0e21e	101	T_PV
a0d0e21e	102	$var = ($type)SvPV($arg,na)
8990e307	103	T_PTR
a0d0e21e	104	$var = ($type)SvIV($arg)
8990e307	105	T_PTRREF
85e6fe83	106	if (SvROK($arg)) {
a0d0e21e	107	IV tmp = SvIV((SV*)SvRV($arg));
85e6fe83	108	$var = ($type) tmp;
85e6fe83	109	}
8990e307	110	else
8990e307	111	croak(\"$var is not a reference\")
a0d0e21e	112	T_REF_IV_REF
	113	if (sv_isa($arg, \"${type}\")) {
	114	IV tmp = SvIV((SV*)SvRV($arg));
	115	$var = ($type ) tmp;
	116	}
	117	else
	118	croak(\"$var is not of type ${ntype}\")
	119	T_REF_IV_PTR
	120	if (sv_isa($arg, \"${type}\")) {
	121	IV tmp = SvIV((SV*)SvRV($arg));
	122	$var = ($type) tmp;
	123	}
	124	else
	125	croak(\"$var is not of type ${ntype}\")
8990e307	126	T_PTROBJ
85e6fe83	127	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	128	IV tmp = SvIV((SV*)SvRV($arg));
85e6fe83	129	$var = ($type) tmp;
85e6fe83	130	}
8990e307	131	else
	132	croak(\"$var is not of type ${ntype}\")
	133	T_PTRDESC
	134	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	135	IV tmp = SvIV((SV*)SvRV($arg));
85e6fe83	136	${type}_desc = (\U${type}_DESC\E*) tmp;
8990e307	137	$var = ${type}_desc->ptr;
	138	}
	139	else
	140	croak(\"$var is not of type ${ntype}\")
	141	T_REFREF
85e6fe83	142	if (SvROK($arg)) {
a0d0e21e	143	IV tmp = SvIV((SV*)SvRV($arg));
85e6fe83	144	$var = *($type) tmp;
85e6fe83	145	}
8990e307	146	else
	147	croak(\"$var is not a reference\")
	148	T_REFOBJ
85e6fe83	149	if (sv_isa($arg, \"${ntype}\")) {
a0d0e21e	150	IV tmp = SvIV((SV*)SvRV($arg));
85e6fe83	151	$var = *($type) tmp;
85e6fe83	152	}
8990e307	153	else
	154	croak(\"$var is not of type ${ntype}\")
	155	T_OPAQUE
	156	$var NOT IMPLEMENTED
	157	T_OPAQUEPTR
	158	$var = ($type)SvPV($arg,na)
	159	T_PACKED
	160	$var = XS_unpack_$ntype($arg)
	161	T_PACKEDARRAY
	162	$var = XS_unpack_$ntype($arg)
	163	T_CALLBACK
	164	$var = make_perl_cb_$type($arg)
	165	T_ARRAY
	166	$var = $ntype(items -= $argoff);
	167	U32 ix_$var = $argoff;
	168	while (items--) {
	169	DO_ARRAY_ELEM;
	170	}
a0d0e21e	171	T_IN
	172	$var = IoIFP(sv_2io($arg))
	173	T_INOUT
	174	$var = IoIFP(sv_2io($arg))
	175	T_OUT
	176	$var = IoOFP(sv_2io($arg))
8990e307	177	#############################################################################
8990e307	178	OUTPUT
2304df62	179	T_SV
2304df62	180	$arg = $var;
a0d0e21e	181	T_SVREF
2304df62	182	$arg = newRV((SV*)$var);
a0d0e21e	183	T_AVREF
2304df62	184	$arg = newRV((SV*)$var);
a0d0e21e	185	T_HVREF
2304df62	186	$arg = newRV((SV*)$var);
a0d0e21e	187	T_CVREF
2304df62	188	$arg = newRV((SV*)$var);
85e6fe83	189	T_IV
a0d0e21e	190	sv_setiv($arg, (IV)$var);
8990e307	191	T_INT
a0d0e21e	192	sv_setiv($arg, (IV)$var);
2304df62	193	T_SYSRET
	194	if ($var != -1) {
	195	if ($var == 0)
	196	sv_setpvn($arg, "0 but true", 10);
	197	else
a0d0e21e	198	sv_setiv($arg, (IV)$var);
2304df62	199	}
8990e307	200	T_ENUM
a0d0e21e	201	sv_setiv($arg, (IV)$var);
8990e307	202	T_U_INT
a0d0e21e	203	sv_setiv($arg, (IV)$var);
8990e307	204	T_SHORT
a0d0e21e	205	sv_setiv($arg, (IV)$var);
8990e307	206	T_U_SHORT
a0d0e21e	207	sv_setiv($arg, (IV)$var);
8990e307	208	T_LONG
a0d0e21e	209	sv_setiv($arg, (IV)$var);
8990e307	210	T_U_LONG
a0d0e21e	211	sv_setiv($arg, (IV)$var);
8990e307	212	T_CHAR
	213	sv_setpvn($arg, (char *)&$var, 1);
	214	T_U_CHAR
a0d0e21e	215	sv_setiv($arg, (IV)$var);
8990e307	216	T_FLOAT
8990e307	217	sv_setnv($arg, (double)$var);
85e6fe83	218	T_NV
85e6fe83	219	sv_setnv($arg, (double)$var);
8990e307	220	T_DOUBLE
85e6fe83	221	sv_setnv($arg, (double)$var);
a0d0e21e	222	T_PV
a0d0e21e	223	sv_setpv((SV*)$arg, $var);
8990e307	224	T_PTR
a0d0e21e	225	sv_setiv($arg, (IV)$var);
8990e307	226	T_PTRREF
a0d0e21e	227	sv_setref_pv($arg, Nullch, (void*)$var);
	228	T_REF_IV_REF
	229	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
	230	T_REF_IV_PTR
	231	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	232	T_PTROBJ
a0d0e21e	233	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
8990e307	234	T_PTRDESC
a0d0e21e	235	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
8990e307	236	T_REFREF
	237	sv_setrefref($arg, \"${ntype}\", XS_service_$ntype,
	238	($var ? (void*)new $ntype($var) : 0));
	239	T_REFOBJ
	240	NOT IMPLEMENTED
	241	T_OPAQUE
	242	sv_setpvn($arg, (char *)&$var, sizeof($var));
	243	T_OPAQUEPTR
	244	sv_setpvn($arg, (char )$var, sizeof($var)), XFree((char *)$var);
	245	T_PACKED
	246	XS_pack_$ntype($arg, $var);
	247	T_PACKEDARRAY
	248	XS_pack_$ntype($arg, $var, count_$ntype);
	249	T_DATAUNIT
	250	sv_setpvn($arg, $var.chp(), $var.size());
	251	T_CALLBACK
	252	sv_setpvn($arg, $var.context.value().chp(),
	253	$var.context.value().size());
	254	T_ARRAY
	255	ST_EXTEND($var.size);
	256	for (U32 ix_$var = 0; ix_$var < $var.size; ix_$var++) {
	257	ST(ix_$var) = sv_newmortal();
	258	DO_ARRAY_ELEM
	259	}
	260	sp += $var.size - 1;
a0d0e21e	261	T_IN
	262	{
	263	GV *gv = newGVgen("$Package");
c07a80fd	264	if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
a0d0e21e	265	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	266	else
	267	$arg = &sv_undef;
	268	}
	269	T_INOUT
	270	{
	271	GV *gv = newGVgen("$Package");
c07a80fd	272	if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
a0d0e21e	273	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	274	else
	275	$arg = &sv_undef;
	276	}
	277	T_OUT
	278	{
	279	GV *gv = newGVgen("$Package");
c07a80fd	280	if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
a0d0e21e	281	sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
	282	else
	283	$arg = &sv_undef;
	284	}