Lines Matching refs:xs
33 in the C section of C<Foo.xs>
35 INCLUDE const-xs.inc
37 in the XS section of C<Foo.xs>.
1128 my $xs = <<"EOT";
1142 $xs .= " IV iv;\n";
1144 $xs .= " /* IV\t\tiv;\tUncomment this if you need to return IVs */\n";
1147 $xs .= " NV nv;\n";
1149 $xs .= " /* NV\t\tnv;\tUncomment this if you need to return NVs */\n";
1152 $xs .= " const char *pv;\n";
1154 $xs .=
1158 $xs .= << 'EOT';
1164 $xs .= << 'EOT';
1169 $xs .= << 'EOT';
1174 $xs .= << "EOT";
1179 $xs .= " type = $C_subname(aTHX_ s, len";
1180 $xs .= ', utf8' if $params->{''};
1181 $xs .= ', &iv' if $params->{IV};
1182 $xs .= ', &nv' if $params->{NV};
1183 $xs .= ', &pv' if $params->{PV};
1184 $xs .= ', &sv' if $params->{SV};
1185 $xs .= ");\n";
1187 $xs .= << "EOT";
1205 $xs .= "\t/* Uncomment this if you need to return ${type}s\n"
1207 $xs .= " case PERL_constant_IS$type:\n";
1209 $xs .= << "EOT";
1218 $xs .= " break;\n";
1220 chop $xs; # Yes, another need for chop not chomp.
1221 $xs .= " */\n";
1224 $xs .= << "EOT";
1233 return $xs;
1381 C<.xs> to C<.c> rules.
1386 C<const-xs.inc>.
1408 XS_FILE => 'const-xs.inc',