pike.git
/
NT
/
tools
/
rntecl
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/NT/tools/rntecl:1:
#!/usr/local/bin/pike // -*- Pike -*-
-
// $Id: rntecl,v 1.
8
2000/08/
20
12
:
49
:
16
grubba
Exp $
+
// $Id: rntecl,v 1.
9
2000/08/
25
17
:
08
:
30
mast
Exp $
// RNTECL, a front-end to Intel ECL with options similar to GCC // Written by Fredrik Hubinette & Henrik Grubbström. inherit "lib.pike"; // Verbose is default for now, this can be turned off one this // frontend has been refined to where it does not require more // debugging.
pike.git/NT/tools/rntecl:374:
if(target=="exe" && !share) { rm(output); Stdio.write_file(output, "#!/usr/local/bin/pike\n" "inherit \""+find_lib_location()+"\";\n" "int main(int argc, string *argv) {\n" " if (lower_case(getenv(\"CROSSCOMPILING\")||\"no\") != \"no\")\n" " exit(1);\n"
-
" argv[0]
+
=
\
".
exe\
";\n"
+
" argv[0]="
+ sprintf ("%O", output + "
.
exe
"
) + "
;\n"
" argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n" " int ret=silent_do_cmd(argv);\n" " exit(ret);\n" "}\n"); chmod(output,0755); } exit(ret); }