Lines Matching full:"$ text"
91 my $text = "";
117 $text .= "// THIS FILE IS GENERATED BY THE COMMAND AT THE TOP; DO NOT EDIT\n\n";
121 $text .= sprintf "func %s(%s)%s {\n", $func, join(', ', @in), $out_decl;
142 $text .= "\tvar _p$n *byte\n";
143 $text .= "\t_p$n, $errvar = BytePtrFromString($name)\n";
144 $text .= "\tif $errvar != nil {\n\t\treturn\n\t}\n";
150 $text .= "\tvar _p$n *byte\n";
151 $text .= "\t_p$n, _ = BytePtrFromString($name)\n";
160 $text .= "\tvar _p$n unsafe.Pointer\n";
161 $text .= "\tif len($name) > 0 {\n\t\t_p$n = unsafe.Pointer(\&${name}[0])\n\t}";
162 $text .= " else {\n\t\t_p$n = unsafe.Pointer(&_zero)\n\t}";
163 $text .= "\n";
280 $text .= "\t$call\n";
282 $text .= "\t$ret[0], $ret[1], $ret[2] := $call\n";
285 $text .= "\t$use\n";
287 $text .= $body;
290 $text .= "\tif int32(r0) == -1 {\n";
291 $text .= "\t\terr = e1\n";
292 $text .= "\t}\n";
294 $text .= "\tif e1 != 0 {\n";
295 $text .= "\t\terr = errnoErr(e1)\n";
296 $text .= "\t}\n";
298 $text .= "\treturn\n";
299 $text .= "}\n\n";
302 chomp $text;
303 chomp $text;
317 $text
