pike.git / NT / tools / rntecl

version» Context lines:

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;