Added support for -S.

Rev: NT/tools/rntecl:1.3

NT/tools/rntecl

 #!/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 Grubbstrm.
@@ -61,6 +61,7 @@ int main(int argc, string *argv)
 
   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,6 +109,11 @@ int main(int argc, string *argv)
 	  target="-";
 	  break;
 
+	case "oper_asm":
+	  cflags+=({ "-S" });
+	  target="asm";
+	  break;
+
 	case "oper_comp":
 	  target="obj";
 	  cflags+=({ "-c" });
@@ -218,6 +224,13 @@ int main(int argc, string *argv)
       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)});