[openfirmware] [commit] r2903 - forth/lib
repository service
svn at openfirmware.info
Tue Mar 20 23:37:14 CET 2012
Author: wmb
Date: Tue Mar 20 23:37:14 2012
New Revision: 2903
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2903
Log:
ANSI terminal interface - make it possible to turn off color text support.
Modified:
forth/lib/ansiterm.fth
Modified: forth/lib/ansiterm.fth
==============================================================================
--- forth/lib/ansiterm.fth Tue Mar 20 22:04:53 2012 (r2902)
+++ forth/lib/ansiterm.fth Tue Mar 20 23:37:14 2012 (r2903)
@@ -40,10 +40,12 @@
;
: page ( -- ) 0 0 at-xy kill-screen ;
-true [if]
+true value ansi-colors?
+
headerless
: color: ( adr len "name" -- )
- create ", does> .esc[ count (type [char] m (emit
+ create ",
+ does> ansi-colors? if .esc[ count (type [char] m (emit else drop then
;
headers
" 0" color: default-colors
@@ -66,7 +68,7 @@
" 45" color: magenta-screen
" 46" color: cyan-screen
" 47" color: white-screen
-[then]
+
\ LICENSE_BEGIN
\ Copyright (c) 2006 FirmWorks
\
More information about the openfirmware
mailing list