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 $
+
// $Id: rntecl,v 1.
3
2000/08/01
15
:
53
:
31
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.
pike.git/NT/tools/rntecl:54:
// "-D__STDC__", "-nologo", }); string target="exe"; int debug,optimize,share; string output, wantfile; mixed *opts=Getopt.find_all_options(argv, aggregate( ({"oper_pre",Getopt.NO_ARG, ({"-E"}) }),
+
({"oper_asm",Getopt.NO_ARG, ({"-S"}) }),
({"oper_comp",Getopt.NO_ARG, ({"-c"}) }), ({"verbose",Getopt.NO_ARG, ({"-v"}) }), ({"debug",Getopt.MAY_HAVE_ARG, ({"-g"}) }), ({"optimize",Getopt.MAY_HAVE_ARG, ({"-O"}) }), ({"include",Getopt.HAS_ARG, ({"-I"}) }), ({"link",Getopt.HAS_ARG, ({"-l"}) }), ({"share",Getopt.MAY_HAVE_ARG, ({"-s"}) }), ({"ignore",Getopt.MAY_HAVE_ARG, ({"-t"}) }), ({"ignore",Getopt.HAS_ARG, ({"-R","-L","-r"}) }), ({"warn",Getopt.MAY_HAVE_ARG, ({"-W"}) }),
pike.git/NT/tools/rntecl:101:
/* Not yet implemented */ break; } break; case "oper_pre": cflags+=({ "-E" }); target="-"; break;
+
case "oper_asm":
+
cflags+=({ "-S" });
+
target="asm";
+
break;
+
case "oper_comp": target="obj"; cflags+=({ "-c" }); break; case "debug": cflags+=({ "-Z7", "-FR", // "-Yd",
pike.git/NT/tools/rntecl:211:
wantfile=output+".exe"; break; case "obj": if(!output) output=remove_ext(argv[1])+".o"; cflags+=({"-Fo"+fixpath(output)}); wantfile=output; break;
+
case "asm":
+
if(!output)
+
output=remove_ext(argv[1])+".s";
+
cflags+=({"-Fa"+fixpath(output)});
+
wantfile=output;
+
break;
+
case "dll": if(output) cflags+=({"-Fe"+fixpath(output)}); else output=remove_ext(argv[1])+".dll"; // cflags+=({"-MD" + (debug?"d":"") }); wantfile=output; break;