Return to colorize.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/colorize.fs, revision 1.1

1.1     ! pazsan      1: \ COLORIZE.STR  Coloured .NAME and WORDS                20may93jaw
        !             2: 
        !             3: include ansi.fs
        !             4: 
        !             5: decimal
        !             6: 
        !             7: CREATE CT 30 cells allot
        !             8: : CT! cells CT + ! ;
        !             9: : CT@ cells CT + @ ;
        !            10: 
        !            11: VARIABLE Color 20 Color !
        !            12: 
        !            13: : Color: Color @ 1 Color +! constant ;
        !            14: 
        !            15: Color: Hig#
        !            16: 
        !            17: <A White >f A>          0 CT!
        !            18: <A White >f bold A>     Ali# CT!
        !            19: <A Brown >f A>          Con# CT!
        !            20: <A Green >f A>          Var# CT!
        !            21: <A Cyan >f A>           Def# CT!
        !            22: <A Yellow >f A>         Val# CT!
        !            23: <A Brown >f bold A>     Doe# CT!
        !            24: <A Yellow >f bold A>    Col# CT!
        !            25: <A Blue >f bold A>      Pri# CT!
        !            26: <A Red >f bold A>       Str# CT!
        !            27: <A Green >f bold A>     Com# CT!
        !            28: <A Red >b A>            Hig# CT!
        !            29: 
        !            30: : (.name) ( lfa -- )
        !            31:         cell+ dup
        !            32:         wordinfo cells ct + @ attr!
        !            33:         count $1f and type blackspace ;
        !            34: 
        !            35: : .name (.name) ct @ attr! ;
        !            36: 
        !            37: : words  context @
        !            38:          BEGIN  @ dup  WHILE  dup (.name)  REPEAT drop
        !            39:          ct @ attr! ;
        !            40: