VolksForth/8086/msdos/see.fb

1 line
122 KiB
Plaintext
Raw Normal View History

2017-04-23 22:25:49 +00:00
\ Extended-Decompiler for VolksForth cas 10nov05 This file contains the volksFORTH decompiler. The decompiler will convert FORTH code back to Sourcecode. Conditional words like IF THEN ELSE, BEGIN WHILE REPEAT UNTIL and DO LOOP +LOOP are identified and converted. The Decompiler cannot re-create comments, so please use comments in screens and view. Because: There is always one more bug! And to correct bug, nothing beats good commented sourcecode. Usage: SEE <name> \ Extended-Decompiler for VolksForth LOAD-SCREEN ks 22 dez 87 Onlyforth Tools also definitions | : internal 1 ?head ! ; | : external ?head off ; 1 &18 +thru \\ Produces compilable Forth source from normal compiled Forth. These source blocks are based on the works of Henry Laxen, Mike Perry and Wil Baden volksFORTH version: U. Hoffmann \ detecting does> ks 22 dez 87 internal ' Forth @ 1+ dup @ + 2+ Constant (dodoes> : does? ( IP - f ) dup c@ $E9 ( jmp ) = swap 1+ dup @ + 2+ (dodoes> = and ; \ indentation. 04Jul86Variable #spaces #spaces off : +in ( -- ) 3 #spaces +! ; : -in ( -- ) -3 #spaces +! ; : ind-cr ( -- ) ( col #spaces @ = ?exit ) cr #spaces @ spaces ; : ?ind-cr ( -- ) col c/l u> IF ind-cr THEN ;