diff options
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 33 |
1 files changed, 26 insertions, 7 deletions
@@ -16,10 +16,6 @@ : min 2dup <= if drop else swap drop then ; : max 2dup <= if swap drop else drop then ; -: cr 10 emit ; -: space bl emit ; -\ : spaces begin dup 0 > while space 1- repeat drop ; - : begin 0 here ; immediate : while swap 1+ swap postpone if -rot ; immediate : repeat ['] _jmp , , if postpone then then ; immediate @@ -27,7 +23,7 @@ : do ['] _lit , here 0 , ['] >r , postpone 2>r here ; immediate : unloop postpone 2r> ['] 2drop , ['] r> , ['] drop , ; immediate -: leave postpone 2r> ['] 2drop , ['] exit , ; immediate +: leave postpone 2r> ['] 2drop , postpone exit ; immediate : +loop ['] r> , ['] 2dup , ['] + , postpone r@ ['] swap , ['] >r , ['] - , ['] 2dup , ['] + , ['] over , ['] xor , @@ -49,5 +45,28 @@ : does> here 4 cells + postpone literal ['] _does> , 0 , ; immediate -: variable create cell allot ; -: constant create , does> @ ; +: variable create cell allot ; +: constant create , does> @ ; + +: cr 10 emit ; +: space bl emit ; +: spaces begin dup 0 > while space 1- repeat drop ; + +: word 0 here c! begin \ bl + key 2dup <> \ bl key <> + over 0<> and while \ bl key + here c@ char+ \ bl key u + dup here c! \ bl key u + here + c! \ bl + repeat 2drop here ; +: count dup char+ swap c@ ; +: char 0 here char+ c! bl word char+ c@ ; +: [char] char postpone literal ; immediate + +: s" state @ if ['] _jmp , here 0 , then + [char] " word count + state @ 0= if exit then + dup cell+ allot + rot here swap ! + swap postpone literal postpone literal ; immediate + |