green output, powerpc binaries

05vishap.conf

@@ -1 +1 @@
-/Users/noch/local/voc-1.0/lib
+/opt/voc-1.0/lib

src/voc/OPM.cmdln.Mod

@@ -121,7 +121,7 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
     oldSFile, newSFile, HFile, BFile, HIFile: Files.File;
 
     S: INTEGER;
-    stop, useLineNo, useParFile, dontAsm-, dontLink-, mainProg-, mainLinkStat-, notColorOutput: BOOLEAN;
+    stop, useLineNo, useParFile, dontAsm-, dontLink-, mainProg-, mainLinkStat-, notColorOutput-: BOOLEAN;
 
 
   (* ------------------------- Log Output ------------------------- *)
@@ -190,7 +190,7 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
       Console.Ln;
       Console.String('  command = "voc" options {file options}.'); Console.Ln;
       Console.String('  options = ["-" {option} ].'); Console.Ln;
-      Console.String('  option  = "m" | "M" | "s" | "e" | "i" | "l" | "k" | "r" | "x" | "a" | "p" | "t" | "P" | "S" | "c" .'); Console.Ln;
+      Console.String('  option  = "m" | "M" | "s" | "e" | "i" | "l" | "k" | "r" | "x" | "a" | "p" | "t" | "P" | "S" | "c" | "f" .'); Console.Ln;
       Console.Ln;
       Console.String(" m      - generate code for main module"); Console.Ln;
       Console.String(" M      - generate code for main module and link object statically"); Console.Ln;

src/voc/prf.Mod

@@ -1,5 +1,5 @@
 MODULE prf;
 
-CONST prefix* = "/Users/noch/local";
+CONST prefix* = "/opt";
 
 END prf.

src/voc/voc.Mod

@@ -4,7 +4,7 @@ MODULE voc;  (* J. Templ 3.2.95 *)
     SYSTEM, Unix, Kernel := Kernel0,
     OPP, OPB, OPT,
     OPV, OPC, OPM,
-    extTools, Strings;
+    extTools, Strings, vt100;
 
 VAR mname : ARRAY 256 OF CHAR; (* noch *)
 
@@ -49,7 +49,11 @@ VAR mname : ARRAY 256 OF CHAR; (* noch *)
           IF (OPM.mainProg OR OPM.mainLinkStat) & (OPM.modName # "SYSTEM") THEN
             OPM.DeleteNewSym; OPM.LogWStr("  main program")
           ELSE
-            IF new THEN OPM.LogWStr("  new symbol file"); OPM.RegisterNewSym
+            IF new THEN 
+	       IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.Green) END;
+	       OPM.LogWStr("  new symbol file");
+	       IF ~OPM.notColorOutput THEN vt100.SetAttr(vt100.ResetAll) END;
+	       OPM.RegisterNewSym
             ELSIF ext THEN OPM.LogWStr("  extended symbol file"); OPM.RegisterNewSym
             END
           END;