vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 06:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add IsConsole tests to compiler.mod, update bootstrap.

Browse source
This commit is contained in:
David Brown 2016-11-15 18:03:57 +00:00
parent 6da0d5d685
commit c12aae020d
187 changed files with 348 additions and 342 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/compiler/Compiler.Mod
View file

@ -25,14 +25,10 @@ MODULE Compiler; (* J. Templ 3.2.95 *)
IF OPM.noerr THEN
IF (OPM.mainprog IN OPM.Options) & (OPM.modName # "SYSTEM") THEN
OPM.DeleteNewSym;
IF ~(OPM.notcoloroutput IN OPM.Options) THEN VT100.SetAttr(VT100.Green) END;
OPM.LogWStr(" Main program.");
IF ~(OPM.notcoloroutput IN OPM.Options) THEN VT100.SetAttr(VT100.ResetAll) END;
OPM.LogVT100(VT100.Green); OPM.LogWStr(" Main program."); OPM.LogVT100(VT100.ResetAll);
ELSE
IF new THEN
IF ~(OPM.notcoloroutput IN OPM.Options) THEN VT100.SetAttr(VT100.Green) END;
OPM.LogWStr(" New symbol file.");
IF ~(OPM.notcoloroutput IN OPM.Options) THEN VT100.SetAttr(VT100.ResetAll) END;
OPM.LogVT100(VT100.Green); OPM.LogWStr(" New symbol file."); OPM.LogVT100(VT100.ResetAll);
OPM.RegisterNewSym
ELSIF ext THEN
OPM.LogWStr(" Extended symbol file.");

2
src/compiler/OPM.Mod
View file

@ -129,7 +129,7 @@ MODULE OPM; (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96 *)
PROCEDURE LogWNum*(i, len: SYSTEM.INT64); BEGIN Out.Int(i, len) END LogWNum;
PROCEDURE LogWLn*; BEGIN Out.Ln END LogWLn;
PROCEDURE LogVT100(vt100code: ARRAY OF CHAR);
PROCEDURE LogVT100*(vt100code: ARRAY OF CHAR);
BEGIN
IF Out.IsConsole & ~(notcoloroutput IN Options) THEN
VT100.SetAttr(vt100code)