afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ test file for ficl

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ test ANSI CORE stuff first...

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome-1 set-order

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ set up local variable regressions before { gets redefined!

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: local1 { a b c | clr -- c b a 0 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome c b a clr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: local2 { | clr -- 0 } clr ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: local3 { a b | c }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome a to c

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome b to a

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome c to b

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome a b

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeinclude tester.fr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeinclude core.fr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -> }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ test double stuff

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting 2>r 2r> 2r@

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: 2r1 2>r r> r> swap ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: 2r2 swap >r >r 2r> ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: 2r3 2>r 2r@ R> R> 2DUP >R >R SWAP 2r> ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 2r1 -> 1 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 2r2 -> 1 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 2r3 -> 1 2 1 2 1 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -> }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ Now test ficl extras and optional word-sets

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting locals

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 3 local1 -> 3 2 1 0 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ local2 -> 0 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 local2 -> 1 0 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 local3 -> 2 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting :noname

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ :noname 1 ; execute -> 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 2 3 -rot -> 3 1 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting default search order

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ get-order -> forth-wordlist 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ only definitions get-order -> forth-wordlist 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting forget

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomehere constant fence

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ fence forget fence -> here }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting within

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -1 1 0 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 0 1s 2 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -100 0 -1 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -1 1 2 within -> false }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -1 1 -2 within -> false }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 -5 5 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 33000 32000 34000 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 0x80000000 0x7f000000 0x81000000 within -> true }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting exception words

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: exc1 1 throw ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: exctest1 [ ' exc1 ] literal catch ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: exc2 exctest1 1 = if 2 throw endif ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: exctest2 [ ' exc2 ] literal catch ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome: exctest? ' catch ;

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ exctest1 -> 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ exctest2 -> 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ exctest? abort -> -1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting refill

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ from file loading

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome0 [if]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( Error )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[else]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome1 [if]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[else]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome.( Error )

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[then]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[then]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome\ refill from evaluate string

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ -> }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ s" 1 refill 2 " evaluate -> 1 0 2 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting prefixes

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 0x10 -> decimal 16 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ hex 0d10 -> decimal 10 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ hex 100

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome-> decimal 256 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting number builder

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 1 -> 1 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome{ 3. -> 3 0 }

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomes" ficlwin" environment?

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[if]

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomedrop

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soometesting OOP support

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soomeinclude ooptest.fr

afc2ba1deb75b323afde536f2dd18bcafdaa308dToomas Soome[endif]