File:  [gforth] / gforth / colorize.fs
Revision 1.1: download - view: text, annotated - select for diffs
Tue Nov 29 16:50:24 1994 UTC (29 years, 4 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
* forgotten file

\ COLORIZE.STR  Coloured .NAME and WORDS                20may93jaw

include ansi.fs

decimal

CREATE CT 30 cells allot
: CT! cells CT + ! ;
: CT@ cells CT + @ ;

VARIABLE Color 20 Color !

: Color: Color @ 1 Color +! constant ;

Color: Hig#

<A White >f A>          0 CT!
<A White >f bold A>     Ali# CT!
<A Brown >f A>          Con# CT!
<A Green >f A>          Var# CT!
<A Cyan >f A>           Def# CT!
<A Yellow >f A>         Val# CT!
<A Brown >f bold A>     Doe# CT!
<A Yellow >f bold A>    Col# CT!
<A Blue >f bold A>      Pri# CT!
<A Red >f bold A>       Str# CT!
<A Green >f bold A>     Com# CT!
<A Red >b A>            Hig# CT!

: (.name) ( lfa -- )
        cell+ dup
        wordinfo cells ct + @ attr!
        count $1f and type blackspace ;

: .name (.name) ct @ attr! ;

: words  context @
         BEGIN  @ dup  WHILE  dup (.name)  REPEAT drop
         ct @ attr! ;


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>