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.
10
2000/
11
/
21
02
:
38
:
22
marcus
Exp $
+
// $Id: rntecl,v 1.
11
2000/
12
/
01
03
:
19
:
48
hubbe
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]=
getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"
-
"
int ret=
silent_do_cmd(argv)
;\n"
-
" exit(ret
);\n"
+
" argv[0]=getenv(\"NTDRIVE\")+fixpath(
follow_symlinks(
combine_path(getcwd(),argv[0]))
+\".exe\")
;\n"
+
"
exit(
silent_do_cmd(argv));\n"
"}\n"); chmod(output,0755); } exit(ret); }