Return to see.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / debugging

Annotation of qemu/roms/openbios/forth/debugging/see.fs, revision 1.1

1.1     ! root        1: \ tag: Forth Decompiler 
        !             2: \ 
        !             3: \ this code implements IEEE 1275-1994 ch. 7.5.3.2
        !             4: \ 
        !             5: \ Copyright (C) 2003 Stefan Reinauer
        !             6: \ 
        !             7: \ See the file "COPYING" for further information about
        !             8: \ the copyright and warranty status of this work.
        !             9: \ 
        !            10: 
        !            11: 1 value (see-indent) 
        !            12: 
        !            13: : (see-cr)
        !            14:   cr (see-indent) spaces
        !            15:   ;
        !            16: 
        !            17: : indent+
        !            18:   (see-indent) 2+ to (see-indent)
        !            19:   ;
        !            20: 
        !            21: : indent-
        !            22:   (see-indent) 2- to (see-indent)
        !            23:   ;
        !            24:   
        !            25: : (see-colon)
        !            26:   dup ." : " cell - lfa2name type (see-cr)
        !            27:    begin
        !            28:    cell+ dup @ dup ['] (semis) <>
        !            29:    while
        !            30:     space
        !            31:     dup
        !            32:     case
        !            33: 
        !            34:       ['] do?branch of
        !            35:         ." if" (see-cr) indent+
        !            36:         drop cell+ 
        !            37:       endof
        !            38:       
        !            39:       ['] dobranch of
        !            40:        ." then" indent- (see-cr)
        !            41:        drop cell+ 
        !            42:       endof
        !            43:       
        !            44:       ['] (begin) of
        !            45:         ." begin" indent+ (see-cr) 
        !            46:        drop
        !            47:       endof
        !            48: 
        !            49:       ['] (again) of
        !            50:        ." again" (see-cr) 
        !            51:        drop
        !            52:       endof
        !            53: 
        !            54:       ['] (until) of
        !            55:         ." until" (see-cr)
        !            56:        drop
        !            57:       endof
        !            58: 
        !            59:       ['] (while) of
        !            60:         indent- (see-cr)
        !            61:        ."  while" 
        !            62:        indent+ (see-cr)
        !            63:        drop 2 cells +
        !            64:       endof
        !            65: 
        !            66:       ['] (repeat) of
        !            67:         indent- (see-cr) 
        !            68:         ."  repeat" 
        !            69:        (see-cr) 
        !            70:         drop 2 cells +
        !            71:       endof
        !            72: 
        !            73:       ['] (lit) of
        !            74:         ." ( lit ) h# " 
        !            75:        drop 1 cells +
        !            76:        dup @ u.
        !            77:       endof
        !            78: 
        !            79:       ['] (") of
        !            80:         22 emit space drop dup cell+ @ 
        !            81:        2dup swap 2 cells + swap type 
        !            82:        22 emit
        !            83:        + aligned cell+
        !            84:       endof
        !            85: 
        !            86:       cell - lfa2name type 
        !            87:     endcase
        !            88:    repeat
        !            89:   cr ."   ;"
        !            90:   2drop
        !            91:   ;
        !            92: 
        !            93: : (see) ( xt -- )
        !            94:   cr
        !            95:   dup @ case
        !            96:     1 of 
        !            97:       (see-colon)  
        !            98:     endof
        !            99:     3 of 
        !           100:       ." constant " dup cell - lfa2name type ."  =  " execute . 
        !           101:     endof
        !           102:     4 of 
        !           103:       ." variable " dup cell - lfa2name type ."  =  " execute @ . 
        !           104:     endof
        !           105:     5 of 
        !           106:       ." defer " dup  cell - lfa2name type cr 
        !           107:       ." is " cell+ @ cell - lfa2name type cr
        !           108:     endof
        !           109:     ." primword " swap cell - lfa2name type 
        !           110:   endcase
        !           111:   cr
        !           112:   ;
        !           113: 
        !           114: : see ' (see) ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.