pike.git/ NT/ tools/ rntecl

2000-08-01

2000-08-01 15:53:31 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 52394a2e45d4a063a6b53e15c1d45bbd3ce8d2b6 (16 lines) (+15/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added support for -S.

Rev: NT/tools/rntecl:1.3

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.
61:       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"}) }),
108:    target="-";    break;    +  case "oper_asm": +  cflags+=({ "-S" }); +  target="asm"; +  break; +     case "oper_comp":    target="obj";    cflags+=({ "-c" });
218:    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)});