Changeset 2903


Ignore:
Timestamp:
Mar 20, 2012 11:37:14 PM (15 months ago)
Author:
wmb
Message:

ANSI terminal interface - make it possible to turn off color text support.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • forth/lib/ansiterm.fth

    r1 r2903  
    4141: page         ( -- )  0 0 at-xy  kill-screen  ; 
    4242 
    43 true [if] 
     43true value ansi-colors? 
     44 
    4445headerless 
    4546: color:  ( adr len "name" -- ) 
    46    create ",  does> .esc[  count (type  [char] m (emit 
     47   create ", 
     48   does> ansi-colors? if  .esc[  count (type  [char] m (emit  else  drop  then 
    4749; 
    4850headers 
    … …  
    6769" 46"   color: cyan-screen 
    6870" 47"   color: white-screen 
    69 [then] 
     71 
    7072\ LICENSE_BEGIN 
    7173\ Copyright (c) 2006 FirmWorks 
Note: See TracChangeset for help on using the changeset viewer.