23 lines
604 B
Forth
Executable File
23 lines
604 B
Forth
Executable File
#! /usr/bin/env ueforth
|
|
|
|
vocabulary infix infix definitions also internals
|
|
|
|
: token ( -- a ) >in @ tib + ;
|
|
: full? ( -- f ) >in @ #tib @ < ;
|
|
: ( token 0
|
|
begin full? over 0< 0= and while
|
|
token c@ [char] ( = if 1+ then
|
|
token c@ [char] ) = if 1- then
|
|
1 >in +!
|
|
repeat
|
|
drop token over - 1- 0 max
|
|
evaluate ; immediate
|
|
: scarf +evaluate1 ;
|
|
: enact state @ if , else execute then ;
|
|
: + scarf ['] + enact ; immediate
|
|
: - scarf ['] - enact ; immediate
|
|
: * scarf ['] * enact ; immediate
|
|
: / scarf ['] / enact ; immediate
|
|
|
|
previous forth definitions
|