version 1.1, 1996/11/11 16:59:17
|
version 1.2, 1997/03/11 16:00:40
|
Line 3
|
Line 3
|
\ written by Anton Ertl 1996 |
\ written by Anton Ertl 1996 |
\ public domain |
\ public domain |
|
|
\ This is in ANS Forth (with an environmental dependence on case |
\ This (in combination with compat/struct.fs) is in ANS Forth (with an |
\ insensitivity; convert everything to upper case for state sensitive |
\ environmental dependence on case insensitivity; convert everything |
\ systems). It needs some non-core words (in particular, it uses the |
\ to upper case for state sensitive systems). |
\ memory allocation wordset), but I have not made a complete list. |
|
|
|
\ Manual: |
\ If you don't use Gforth, you have to load compat/struct.fs first. |
|
\ compat/struct.fs and this file together use the following words: |
|
|
|
\ from CORE : |
|
\ : 1- + swap invert and ; Create >r rot r@ dup , r> DOES> @ chars |
|
\ cells 2* here - allot drop over execute 2dup move 2! 2@ ! ['] >body |
|
\ ' Variable POSTPONE immediate ." . cr Constant +! |
|
\ from CORE-EXT : |
|
\ tuck :noname compile, true |
|
\ from BLOCK-EXT : |
|
\ \ |
|
\ from DOUBLE : |
|
\ 2Constant 2VARIABLE |
|
\ from EXCEPTION : |
|
\ throw catch |
|
\ from EXCEPTION-EXT : |
|
\ abort" |
|
\ from FILE : |
|
\ ( |
|
\ from FLOAT : |
|
\ floats |
|
\ from FLOAT-EXT : |
|
\ dfloats sfloats |
|
\ from MEMORY : |
|
\ allocate resize |
|
\ from TOOLS-EXT : |
|
\ [IF] [THEN] |
|
|
|
\ --------------------------------------- |
|
\ MANUAL: |
|
|
\ A class is defined like this: |
\ A class is defined like this: |
|
|