[commit] r2903 - forth/lib

[repository service]

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
 \