Changeset 2903


Ignore:
Timestamp:
Mar 20, 2012, 10:37:14 PM (3 years 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.