Lines Matching full:var
12 'T_CALLBACK' => ' sv_setpvn($arg, $var.context.value().chp(),
13 $var.context.value().size());
17 if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
23 'T_REF_IV_PTR' => ' sv_setref_pv($arg, \\"${ntype}\\", (void*)$var);
25 'T_U_LONG' => ' sv_setuv($arg, (UV)$var);
27 'T_U_CHAR' => ' sv_setuv($arg, (UV)$var);
29 'T_U_INT' => ' sv_setuv($arg, (UV)$var);
32 U32 ix_$var;
33 EXTEND(SP,size_$var);
34 for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
35 ST(ix_$var) = sv_newmortal();
40 'T_NV' => ' sv_setnv($arg, (NV)$var);
42 'T_SHORT' => ' sv_setiv($arg, (IV)$var);
44 'T_OPAQUE' => ' sv_setpvn($arg, (char *)&$var, sizeof($var));
46 'T_PTROBJ' => ' sv_setref_pv($arg, \\"${ntype}\\", (void*)$var);
48 'T_HVREF' => ' $arg = newRV((SV*)$var);
50 'T_PACKEDARRAY' => ' XS_pack_$ntype($arg, $var, count_$ntype);
52 'T_INT' => ' sv_setiv($arg, (IV)$var);
54 'T_OPAQUEPTR' => ' sv_setpvn($arg, (char *)$var, sizeof(*$var));
56 'T_BOOL' => ' $arg = boolSV($var);
60 'T_REF_IV_REF' => ' sv_setref_pv($arg, \\"${ntype}\\", (void*)new $ntype($var));
64 PerlIO *fp = PerlIO_importFILE($var,0);
71 'T_FLOAT' => ' sv_setnv($arg, (double)$var);
75 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
81 'T_PV' => ' sv_setpv((SV*)$arg, $var);
85 if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
91 'T_CHAR' => ' sv_setpvn($arg, (char *)&$var, 1);
93 'T_LONG' => ' sv_setiv($arg, (IV)$var);
95 'T_DOUBLE' => ' sv_setnv($arg, (double)$var);
97 'T_PTR' => ' sv_setiv($arg, PTR2IV($var));
99 'T_AVREF' => ' $arg = newRV((SV*)$var);
101 'T_SV' => ' $arg = $var;
103 'T_ENUM' => ' sv_setiv($arg, (IV)$var);
107 'T_CVREF' => ' $arg = newRV((SV*)$var);
109 'T_UV' => ' sv_setuv($arg, (UV)$var);
111 'T_PACKED' => ' XS_pack_$ntype($arg, $var);
113 'T_SYSRET' => ' if ($var != -1) {
114 if ($var == 0)
117 sv_setiv($arg, (IV)$var);
120 'T_IV' => ' sv_setiv($arg, (IV)$var);
122 'T_PTRDESC' => ' sv_setref_pv($arg, \\"${ntype}\\", (void*)new\\U${type}_DESC\\E($var));
124 'T_DATAUNIT' => ' sv_setpvn($arg, $var.chp(), $var.size());
126 'T_U_SHORT' => ' sv_setuv($arg, (UV)$var);
128 'T_SVREF' => ' $arg = newRV((SV*)$var);
130 'T_PTRREF' => ' sv_setref_pv($arg, Nullch, (void*)$var);
137 T_UV => { type => 'u', with_size => undef, what => '(UV)$var', what_size => undef },
138 T_IV => { type => 'i', with_size => undef, what => '(IV)$var', what_size => undef },
139 T_NV => { type => 'n', with_size => undef, what => '(NV)$var', what_size => undef },
140 T_FLOAT => { type => 'n', with_size => undef, what => '(double)$var', what_size => undef },
141 T_PTR => { type => 'i', with_size => undef, what => 'PTR2IV($var)', what_size => undef },
142 T_PV => { type => 'p', with_size => undef, what => '$var', what_size => undef },
143 …UE => { type => 'p', with_size => 'n', what => '(char *)&$var', what_size => ', sizeof($var)' },
144 …UEPTR => { type => 'p', with_size => 'n', what => '(char *)$var', what_size => ', sizeof(*$var)' },
145 T_CHAR => { type => 'p', with_size => 'n', what => '(char *)&$var', what_size => ', 1' },
146 T_CALLBACK => { type => 'p', with_size => 'n', what => '$var.context.value().chp()',
147 … what_size => ",\n \$var.context.value().size()" }, # whitespace is significant here
148 …T_DATAUNIT => { type => 'p', with_size => 'n', what => '$var.chp()', what_size => ', $var.size()'…