green output, powerpc binaries

Former-commit-id: 175a480412
This commit is contained in:
norayr 2014-04-14 01:57:06 +04:00
parent 580db0d788
commit 72e3679b72
8 changed files with 13 additions and 9 deletions

View file

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

BIN
ocat

Binary file not shown.

View file

@ -1 +1 @@
bea7ea7c4f216100c15fae68027897b714f24660 77f0406a9047c69cb72983e8664b51e70eb52e42

View file

@ -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; oldSFile, newSFile, HFile, BFile, HIFile: Files.File;
S: INTEGER; S: INTEGER;
stop, useLineNo, useParFile, dontAsm-, dontLink-, mainProg-, mainLinkStat-, notColorOutput: BOOLEAN; stop, useLineNo, useParFile, dontAsm-, dontLink-, mainProg-, mainLinkStat-, notColorOutput-: BOOLEAN;
(* ------------------------- Log Output ------------------------- *) (* ------------------------- 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.Ln;
Console.String(' command = "voc" options {file options}.'); Console.Ln; Console.String(' command = "voc" options {file options}.'); Console.Ln;
Console.String(' options = ["-" {option} ].'); 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.Ln;
Console.String(" m - generate code for main module"); 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; Console.String(" M - generate code for main module and link object statically"); Console.Ln;

View file

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

View file

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

View file

@ -1 +1 @@
42bb6261a32859410a4c5e8720c17281e13d0a23 77a2f7c8f7de9063f526f754f5cd1a43450539e5

View file

@ -1 +1 @@
594af660e64af8116b17d04bf8fe958705a43388 77a2f7c8f7de9063f526f754f5cd1a43450539e5