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.2 2000/08/01 13:40:06 grubba 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. int verbose=1;
pike.git/NT/tools/rntecl:36:
{ sscanf(file=reverse(file),"%*s.%s",file,file); return reverse(file); } int main(int argc, string *argv) { string *ldopts=({"-INCREMENTAL:no"}); string *cflags=({
-
"-Wp64",
+
"-Wp64",
// Generate warnings for loss of precision.
+
//"-W4", // Maximum verbosity.
+
"-W3", // More warnings.
"-D__WIN32__", "-D_WIN32", "-D__NT__", // "-D__STDC__", "-nologo", }); string target="exe"; int debug,optimize,share; string output, wantfile;
pike.git/NT/tools/rntecl:300:
} } 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"
-
"argv[0]+=\".exe\";\n"
-
"argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\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" "}\n"); chmod(output,0755); } exit(ret); }