Lines Matching full:"$ text"
62 my $text = "";
123 if($text ne "") {
124 $text .= "\n"
126 $text .= sprintf "func %s(%s)%s {\n", $func, join(', ', @in), $out;
147 $text .= "\tvar _p$n $strconvtype\n";
148 $text .= "\t_p$n, $errvar = $strconvfunc($name)\n";
149 $text .= "\tif $errvar != nil {\n\t\treturn\n\t}\n";
155 $text .= "\tvar _p$n $strconvtype\n";
156 $text .= "\t_p$n, _ = $strconvfunc($name)\n";
164 $text .= "\tvar _p$n *$1\n";
165 $text .= "\tif len($name) > 0 {\n\t\t_p$n = \&$name\[0]\n\t}\n";
175 $text .= "\tvar _p$n uint32\n";
176 $text .= "\tif $name {\n\t\t_p$n = 1\n\t} else {\n\t\t_p$n = 0\n\t}\n";
241 $text .= "\t$call\n";
243 $text .= "\t$ret[0], $ret[1], $ret[2] := $call\n";
246 $text .= "\t$use\n";
248 $text .= $body;
251 $text .= "\tif e1 != 0 {\n";
252 $text .= "\t\terr = errnoErr(e1)\n";
253 $text .= "\t}\n";
255 $text .= "\treturn\n";
256 $text .= "}\n";
284 $text
