1 \ tag: Forth Decompiler
3 \ this code implements IEEE 1275-1994 ch. 7.5.3.2
5 \ Copyright (C) 2003 Stefan Reinauer
7 \ See the file "COPYING" for further information about
8 \ the copyright and warranty status of this work.
14 cr (see-indent) spaces
18 (see-indent) 2+ to (see-indent)
22 (see-indent) 2- to (see-indent)
26 dup ." : " cell - lfa2name type (see-cr)
28 cell+ dup @ dup ['] (semis) <>
35 ." if" (see-cr) indent+
40 ." then" indent- (see-cr)
45 ." begin" indent+ (see-cr)
80 22 emit space drop dup cell+ @
81 2dup swap 2 cells + swap type
100 ." constant " dup cell - lfa2name type ." = " execute .
103 ." variable " dup cell - lfa2name type ." = " execute @ .
106 ." defer " dup cell - lfa2name type cr
107 ." is " cell+ @ cell - lfa2name type cr
109 ." primword " swap cell - lfa2name type