diff options
Diffstat (limited to 'src/interp/diagnostics.boot')
-rw-r--r-- | src/interp/diagnostics.boot | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot index fd5c5e09..a16cba91 100644 --- a/src/interp/diagnostics.boot +++ b/src/interp/diagnostics.boot @@ -97,3 +97,46 @@ MESSAGEPRINT_-2 x == MESSAGEPRINT_-1 first x MESSAGEPRINT_-2 rest x +--% + +++ if not nil, gives stream for sayBrightly output +$sayBrightlyStream := nil + +sayBrightlyNT1(x,out) == + cons? x => brightPrint(x,out) + brightPrint0(x,out) + +sayBrightly1(x,out) == + sayBrightlyNT1(x,out) + finishLine out + +sayBrightlyNT(x,out == $OutputStream) == + x = nil => nil + $sayBrightlyStream ~= nil => sayBrightlyNT1(x,$sayBrightlyStream) + IS_-CONSOLE out => sayBrightlyNT1(x,out) + sayBrightly1(x,out) => sayBrightlyNT1(x,out) + nil + +sayBrightly(x,out == $OutputStream) == + x = nil => nil + $sayBrightlyStream ~= nil => sayBrightly1(x,$sayBrightlyStream) + IS_-CONSOLE out => sayBrightly1(x,out) + sayBrightly1(x,out) => sayBrightly1(x,$OutputStream) + nil + +sayBrightlyI(x,out == $OutputStream) == + x = nil => nil + sayBrightly1(x,out) + +sayMSG x == + x = nil => nil + sayBrightly1(x,$algebraOutputStream) + +sayMSG2File msg == + file := makePathname('spadmsg,'listing,$listingDirectory) + str := DEFIOSTREAM(['(MODE . OUTPUT),['FILE,:file]],255,0) + sayBrightly1(msg,str) + +sayTeX x == + x = nil => nil + sayBrightly1(x,$texOutputStream) |