vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-10-10 02:47:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Build with colour output when on a tty/console.

Browse source
This commit is contained in:
David Brown 2016-11-15 17:33:05 +00:00
parent f08e49d856
commit 6da0d5d685
7 changed files with 195 additions and 176 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/runtime/Out.Mod
View file

@ -2,7 +2,13 @@ MODULE Out; (* DCW Brown. 2016-09-27 *)
IMPORT SYSTEM, Platform;
VAR buf: ARRAY 128 OF CHAR; in: INTEGER;
VAR
IsConsole-: BOOLEAN;
buf: ARRAY 128 OF CHAR;
in: INTEGER;
PROCEDURE Flush*;
VAR error: Platform.ErrorCode;
@ -199,5 +205,7 @@ PROCEDURE LongReal*(x: LONGREAL; n: INTEGER);
BEGIN RealP(x, n, TRUE);
END LongReal;
BEGIN in := 0
BEGIN
IsConsole := Platform.IsConsole(Platform.StdOut);
in := 0
END Out.