Build with colour output when on a tty/console.

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

View file

@ -539,6 +539,11 @@ VAR mode: SYSTEM.INT32;
BEGIN IF GetConsoleMode(StdOut, mode) THEN SetConsoleMode(StdOut, mode+VTprocessing) END
END EnableVT100;
PROCEDURE IsConsole*(h: FileHandle): BOOLEAN;
VAR mode: SYSTEM.INT32;
BEGIN RETURN GetConsoleMode(StdOut, mode)
END IsConsole;
PROCEDURE TestLittleEndian;
VAR i: INTEGER;