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 \