Lines Matching full:"$ text"
67 my $text = "";
127 if($text ne "") {
128 $text .= "\n"
130 $text .= sprintf "func %s(%s)%s {\n", $func, join(', ', @in), $out;
151 $text .= "\tvar _p$n $strconvtype\n";
152 $text .= "\t_p$n, $errvar = $strconvfunc($name)\n";
153 $text .= "\tif $errvar != nil {\n\t\treturn\n\t}\n";
159 $text .= "\tvar _p$n $strconvtype\n";
160 $text .= "\t_p$n, _ = $strconvfunc($name)\n";
168 $text .= "\tvar _p$n *$1\n";
169 $text .= "\tif len($name) > 0 {\n\t\t_p$n = \&$name\[0]\n\t}\n";
179 $text .= "\tvar _p$n uint32\n";
180 $text .= "\tif $name {\n\t\t_p$n = 1\n\t} else {\n\t\t_p$n = 0\n\t}\n";
245 $text .= "\t$call\n";
247 $text .= "\t$ret[0], $ret[1], $ret[2] := $call\n";
250 $text .= "\t$use\n";
252 $text .= $body;
255 $text .= "\tif e1 != 0 {\n";
256 $text .= "\t\terr = errnoErr(e1)\n";
257 $text .= "\t}\n";
259 $text .= "\treturn\n";
260 $text .= "}\n";
293 $text
