Lines Matching refs:body
326 my $body = $indent . "if (memEQ(name, \"$name\", $len)) {\n";
331 $body .= $indent . "/* ". (' ' x $checked_at) . $pointer
334 $body .= $indent . "/* $front_chop"
337 return $body;
470 my $body = '';
485 $body .= memEQ_clause ($name, $offset, length $indent);
487 $body .= $indent . " if (utf8) {\n";
489 $body .= $indent . " if (!utf8) {\n";
492 $body .= return_clause ($either, 4 + length $indent);
494 $body .= $indent . " } else {\n";
495 $body .= return_clause ($no, 4 + length $indent);
497 $body .= $indent . " }\n";
499 $body .= return_clause ($item, 2 + length $indent);
501 $body .= $indent . "}\n";
523 my $body = $indent . "/* Names all of length $namelen. */\n";
525 $body = wrap ($leader, $follower, $comment) . "\n";
542 $body .= wrap ($leader, $follower, join (" ", @safe_names) . " */") . "\n";
590 $body .= $indent . "/* Offset $offset gives the best switch position. */\n";
594 $body .= $indent . "switch (*name++) {\n";
596 $body .= $indent . "switch (name[$offset]) {\n";
602 $body .= $indent . "case '" . C_stringify ($char) . "':\n";
607 $body .= match_clause ($thisone, \$char, 2 + length $indent);
609 $body .= match_clause ($thisone, $offset, 2 + length $indent);
612 $body .= $indent . " break;\n";
614 $body .= $indent . "}\n";
615 return $body;
1022 my ($body, @subs) = "static int\n$subname (pTHX_ const char *name";
1023 $body .= ", STRLEN len" unless defined $namelen;
1024 $body .= ", int utf8" if $params->{''};
1025 $body .= ", IV *iv_return" if $params->{IV};
1026 $body .= ", NV *nv_return" if $params->{NV};
1027 $body .= ", const char **pv_return" if $params->{PV};
1028 $body .= ", SV **sv_return" if $params->{SV};
1029 $body .= ") {\n";
1036 $body .= switch_clause (2, $comment, $namelen, $items, @items);
1039 $body .= " /* Initially switch on the length of the name. */\n";
1040 $body .= dogfood ($package, $subname, $default_type, $what, $indent,
1042 $body .= " switch (len) {\n";
1050 $body .= " case $i:\n";
1056 $body .= match_clause ([$only_thing]);
1059 $body .= match_clause ([undef, $only_thing]);
1062 $body .= match_clause ($only_thing);
1065 $body .= switch_clause (4, '', $i, $items, @{$by_length[$i]});
1077 $body .= " return ${subname}_$i (aTHX_ name";
1078 $body .= ", utf8" if $params->{''};
1079 $body .= ", iv_return" if $params->{IV};
1080 $body .= ", nv_return" if $params->{NV};
1081 $body .= ", pv_return" if $params->{PV};
1082 $body .= ", sv_return" if $params->{SV};
1083 $body .= ");\n";
1085 $body .= " break;\n";
1087 $body .= " }\n";
1089 $body .= " return PERL_constant_NOTFOUND;\n}\n";
1090 return (@subs, $body);