Annotation of gforth/tools.fs, revision 1.1

1.1     ! anton       1: \ TOOLS.FS     Toolkit extentions                      2may93jaw
        !             2: 
        !             3: \ May be cross-compiled
        !             4: 
        !             5: hex
        !             6: 
        !             7: \ .S            CORE / CORE EXT                         9may93jaw
        !             8: 
        !             9: : .s ( -- )
        !            10: \ depth 0= IF ." <empty> " THEN
        !            11:   depth 0 ?DO  I pick . LOOP ;
        !            12: 
        !            13: \ DUMP                       2may93jaw - 9may93jaw    06jul93py
        !            14: \ looks very nice, I know
        !            15: 
        !            16: : .4 ( addr -- addr' )
        !            17:   3 FOR  dup c@ 0 <# # # #> type space char+ NEXT ;
        !            18: : .chars ( addr -- )
        !            19:   10 bounds DO  I c@ dup 7f bl within
        !            20:                 IF drop [char] . THEN emit LOOP ;
        !            21: 
        !            22: : .line ( addr -- )
        !            23:   dup .4 space .4 ." - " .4 space .4 drop  space .chars ;
        !            24: 
        !            25: : dump  ( addr u -- )
        !            26:   cr base @ >r hex        \ save base on return stack
        !            27:   $F + $10 /              \ calc number of lines
        !            28:   0 ?DO  dup 8 u.r ." : " dup .line 10 + cr  LOOP
        !            29:   drop r> base ! ;
        !            30: 
        !            31: \ ?                                                     17may93jaw
        !            32: 
        !            33: : ? @ . ;
        !            34: 
        !            35: \ INCLUDE see.fs
        !            36: 

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