diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-01-08 14:23:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-01-08 14:23:30 +0000 |
| commit | a90e0b91cdd543cc28abf425355c801279482ad6 (patch) | |
| tree | 3f322cc2a533a443fe31463392dd0ff2ba10b0cb /src/interp/sys-driver.boot | |
| parent | 8d42d860e9f2fa6b71cfc1840134ad3b2a0a5dc9 (diff) | |
| download | open-axiom-a90e0b91cdd543cc28abf425355c801279482ad6.tar.gz | |
* boot/Makefile.pamphlet (AXIOM_LOCAL_LISP): Use Lisp image with C
bindings.
* interp/msgdb.boot (brightPrint0): Don't highlight if the
standard output is not attached to a terminal.
* interp/sys-driver.boot (stdStreamIsTerminal): New.
* lib/cfuns-c.c (std_stream_is_terminal): New.
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 2bd991fa..8cc54fad 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -64,4 +64,13 @@ systemAlgebraDirectory() == ensureTrailingSlash cdr dir nil +++ stdStreamIsTerminal: +++ returns 1 if the standard stream is attached to a terminal; +++ otherwise 0. +)if %hasFeature KEYWORD::GCL +import stdStreamIsTerminal for std__stream__is__terminal: INT -> INT +)else +stdStreamIsTerminal fd == + 0 +)endif |