11 unsigned char T_U_CHAR
21 unsigned long * T_OPAQUEPTR
49 #############################################################################
54 if (sv_isa($arg, \"${ntype}\"))
55 $var = (SV*)SvRV($arg);
57 croak(\"$var is not of type ${ntype}\")
59 if (sv_isa($arg, \"${ntype}\"))
60 $var = (AV*)SvRV($arg);
62 croak(\"$var is not of type ${ntype}\")
64 if (sv_isa($arg, \"${ntype}\"))
65 $var = (HV*)SvRV($arg);
67 croak(\"$var is not of type ${ntype}\")
69 if (sv_isa($arg, \"${ntype}\"))
70 $var = (CV*)SvRV($arg);
72 croak(\"$var is not of type ${ntype}\")
76 $var = ($type)SvIV($arg)
78 $var = (int)SvIV($arg)
80 $var = ($type)SvIV($arg)
82 $var = (unsigned int)SvIV($arg)
84 $var = (short)SvIV($arg)
86 $var = (unsigned short)SvIV($arg)
88 $var = (long)SvIV($arg)
90 $var = (unsigned long)SvIV($arg)
92 $var = (char)*SvPV($arg,na)
94 $var = (unsigned char)SvIV($arg)
96 $var = (float)SvNV($arg)
98 $var = ($type)SvNV($arg)
100 $var = (double)SvNV($arg)
102 $var = ($type)SvPV($arg,na)
104 $var = ($type)SvIV($arg)
107 IV tmp = SvIV((SV*)SvRV($arg));
111 croak(\"$var is not a reference\")
113 if (sv_isa($arg, \"${type}\")) {
114 IV tmp = SvIV((SV*)SvRV($arg));
115 $var = *($type *) tmp;
118 croak(\"$var is not of type ${ntype}\")
120 if (sv_isa($arg, \"${type}\")) {
121 IV tmp = SvIV((SV*)SvRV($arg));
125 croak(\"$var is not of type ${ntype}\")
127 if (sv_isa($arg, \"${ntype}\")) {
128 IV tmp = SvIV((SV*)SvRV($arg));
132 croak(\"$var is not of type ${ntype}\")
134 if (sv_isa($arg, \"${ntype}\")) {
135 IV tmp = SvIV((SV*)SvRV($arg));
136 ${type}_desc = (\U${type}_DESC\E*) tmp;
137 $var = ${type}_desc->ptr;
140 croak(\"$var is not of type ${ntype}\")
143 IV tmp = SvIV((SV*)SvRV($arg));
147 croak(\"$var is not a reference\")
149 if (sv_isa($arg, \"${ntype}\")) {
150 IV tmp = SvIV((SV*)SvRV($arg));
154 croak(\"$var is not of type ${ntype}\")
158 $var = ($type)SvPV($arg,na)
160 $var = XS_unpack_$ntype($arg)
162 $var = XS_unpack_$ntype($arg)
164 $var = make_perl_cb_$type($arg)
166 $var = $ntype(items -= $argoff);
167 U32 ix_$var = $argoff;
172 $var = IoIFP(sv_2io($arg))
174 $var = IoIFP(sv_2io($arg))
176 $var = IoOFP(sv_2io($arg))
177 #############################################################################
182 $arg = newRV((SV*)$var);
184 $arg = newRV((SV*)$var);
186 $arg = newRV((SV*)$var);
188 $arg = newRV((SV*)$var);
190 sv_setiv($arg, (IV)$var);
192 sv_setiv($arg, (IV)$var);
196 sv_setpvn($arg, "0 but true", 10);
198 sv_setiv($arg, (IV)$var);
201 sv_setiv($arg, (IV)$var);
203 sv_setiv($arg, (IV)$var);
205 sv_setiv($arg, (IV)$var);
207 sv_setiv($arg, (IV)$var);
209 sv_setiv($arg, (IV)$var);
211 sv_setiv($arg, (IV)$var);
213 sv_setpvn($arg, (char *)&$var, 1);
215 sv_setiv($arg, (IV)$var);
217 sv_setnv($arg, (double)$var);
219 sv_setnv($arg, (double)$var);
221 sv_setnv($arg, (double)$var);
223 sv_setpv((SV*)$arg, $var);
225 sv_setiv($arg, (IV)$var);
227 sv_setref_pv($arg, Nullch, (void*)$var);
229 sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
231 sv_setref_pv($arg, \"${ntype}\", (void*)$var);
233 sv_setref_pv($arg, \"${ntype}\", (void*)$var);
235 sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
237 sv_setrefref($arg, \"${ntype}\", XS_service_$ntype,
238 ($var ? (void*)new $ntype($var) : 0));
242 sv_setpvn($arg, (char *)&$var, sizeof($var));
244 sv_setpvn($arg, (char *)$var, sizeof(*$var)), XFree((char *)$var);
246 XS_pack_$ntype($arg, $var);
248 XS_pack_$ntype($arg, $var, count_$ntype);
250 sv_setpvn($arg, $var.chp(), $var.size());
252 sv_setpvn($arg, $var.context.value().chp(),
253 $var.context.value().size());
255 ST_EXTEND($var.size);
256 for (U32 ix_$var = 0; ix_$var < $var.size; ix_$var++) {
257 ST(ix_$var) = sv_newmortal();
263 GV *gv = newGVgen("$Package");
264 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
265 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
271 GV *gv = newGVgen("$Package");
272 if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
273 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
279 GV *gv = newGVgen("$Package");
280 if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
281 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));