12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- ( Main file for pure ANS forth JCB 13:53 11/27/10)
- : parse-word
- bl word count ;
- : defer create ( "name" -- )
- ['] abort , does> @ execute ;
- : include ( "filename" -- )
- bl word count included decimal ;
- : is ( xt "name" -- )
- ' ( xt xt2)
- state @ if
- postpone literal postpone >body postpone !
- else
- >body !
- then ; immediate
- : include ( "filename" -- )
- bl parse included decimal ;
- : Do-Vocabulary ( -- )
- DOES> @ >R ( )( R: widnew)
- GET-ORDER SWAP DROP ( wid_n ... wid_2 n)
- R> SWAP SET-ORDER ;
- : VOCABULARY ( "name" -- )
- WORDLIST CREATE , Do-Vocabulary ;
- : -rot rot rot ;
- : nstime 0. ;
- : <= > invert ;
- : >= < invert ;
- : d0<> d0= invert ;
- : f> fswap f< ;
- : f<= f> invert ;
- : f>= f< invert ;
- : f= 0e0 f~ ;
- : f<> f= invert ;
- 3.1415926e0 fconstant pi
- include main.fs
|