10 unsigned char T_U_CHAR
17 # bool_t is defined in <rpc/rpc.h>
22 unsigned long * T_OPAQUEPTR
56 #############################################################################
62 $var = (SV*)SvRV($arg);
64 Perl_croak(aTHX_ \"$var is not a reference\")
66 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
67 $var = (AV*)SvRV($arg);
69 Perl_croak(aTHX_ \"$var is not an array reference\")
71 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV)
72 $var = (HV*)SvRV($arg);
74 Perl_croak(aTHX_ \"$var is not a hash reference\")
76 if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVCV)
77 $var = (CV*)SvRV($arg);
79 Perl_croak(aTHX_ \"$var is not a code reference\")
83 $var = ($type)SvUV($arg)
85 $var = ($type)SvIV($arg)
87 $var = (int)SvIV($arg)
89 $var = ($type)SvIV($arg)
91 $var = (bool)SvTRUE($arg)
93 $var = (unsigned int)SvUV($arg)
95 $var = (short)SvIV($arg)
97 $var = (unsigned short)SvUV($arg)
99 $var = (long)SvIV($arg)
101 $var = (unsigned long)SvUV($arg)
103 $var = (char)*SvPV_nolen($arg)
105 $var = (unsigned char)SvUV($arg)
107 $var = (float)SvNV($arg)
109 $var = ($type)SvNV($arg)
111 $var = (double)SvNV($arg)
113 $var = ($type)SvPV_nolen($arg)
115 $var = INT2PTR($type,SvIV($arg))
118 IV tmp = SvIV((SV*)SvRV($arg));
119 $var = INT2PTR($type,tmp);
122 Perl_croak(aTHX_ \"$var is not a reference\")
124 if (sv_isa($arg, \"${ntype}\")) {
125 IV tmp = SvIV((SV*)SvRV($arg));
126 $var = *INT2PTR($type *, tmp);
129 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
131 if (sv_isa($arg, \"${ntype}\")) {
132 IV tmp = SvIV((SV*)SvRV($arg));
133 $var = INT2PTR($type, tmp);
136 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
138 if (sv_derived_from($arg, \"${ntype}\")) {
139 IV tmp = SvIV((SV*)SvRV($arg));
140 $var = INT2PTR($type,tmp);
143 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
145 if (sv_isa($arg, \"${ntype}\")) {
146 IV tmp = SvIV((SV*)SvRV($arg));
147 ${type}_desc = (\U${type}_DESC\E*) tmp;
148 $var = ${type}_desc->ptr;
151 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
154 IV tmp = SvIV((SV*)SvRV($arg));
155 $var = *INT2PTR($type,tmp);
158 Perl_croak(aTHX_ \"$var is not a reference\")
160 if (sv_isa($arg, \"${ntype}\")) {
161 IV tmp = SvIV((SV*)SvRV($arg));
162 $var = *INT2PTR($type,tmp);
165 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
167 $var = *($type *)SvPV_nolen($arg)
169 $var = ($type)SvPV_nolen($arg)
171 $var = XS_unpack_$ntype($arg)
173 $var = XS_unpack_$ntype($arg)
175 $var = make_perl_cb_$type($arg)
177 U32 ix_$var = $argoff;
178 $var = $ntype(items -= $argoff);
183 /* this is the number of elements in the array */
186 $var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
188 $var = IoIFP(sv_2io($arg))
190 $var = IoIFP(sv_2io($arg))
192 $var = IoOFP(sv_2io($arg))
193 #############################################################################
198 $arg = newRV((SV*)$var);
200 $arg = newRV((SV*)$var);
202 $arg = newRV((SV*)$var);
204 $arg = newRV((SV*)$var);
206 sv_setiv($arg, (IV)$var);
208 sv_setuv($arg, (UV)$var);
210 sv_setiv($arg, (IV)$var);
214 sv_setpvn($arg, "0 but true", 10);
216 sv_setiv($arg, (IV)$var);
219 sv_setiv($arg, (IV)$var);
223 sv_setuv($arg, (UV)$var);
225 sv_setiv($arg, (IV)$var);
227 sv_setuv($arg, (UV)$var);
229 sv_setiv($arg, (IV)$var);
231 sv_setuv($arg, (UV)$var);
233 sv_setpvn($arg, (char *)&$var, 1);
235 sv_setuv($arg, (UV)$var);
237 sv_setnv($arg, (double)$var);
239 sv_setnv($arg, (NV)$var);
241 sv_setnv($arg, (double)$var);
243 sv_setpv((SV*)$arg, $var);
245 sv_setiv($arg, PTR2IV($var));
247 sv_setref_pv($arg, Nullch, (void*)$var);
249 sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
251 sv_setref_pv($arg, \"${ntype}\", (void*)$var);
253 sv_setref_pv($arg, \"${ntype}\", (void*)$var);
255 sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
261 sv_setpvn($arg, (char *)&$var, sizeof($var));
263 sv_setpvn($arg, (char *)$var, sizeof(*$var));
265 XS_pack_$ntype($arg, $var);
267 XS_pack_$ntype($arg, $var, count_$ntype);
269 sv_setpvn($arg, $var.chp(), $var.size());
271 sv_setpvn($arg, $var.context.value().chp(),
272 $var.context.value().size());
276 EXTEND(SP,size_$var);
277 for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
278 ST(ix_$var) = sv_newmortal();
284 GV *gv = newGVgen("$Package");
285 PerlIO *fp = PerlIO_importFILE($var,0);
286 if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
287 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
293 GV *gv = newGVgen("$Package");
294 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
295 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
301 GV *gv = newGVgen("$Package");
302 if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
303 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
309 GV *gv = newGVgen("$Package");
310 if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
311 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));