version 1.4, 1994/07/21 10:52:39
|
version 1.9, 1995/04/20 09:42:50
|
Line 6 decimal
|
Line 6 decimal
|
|
|
\ .( 12may93jaw |
\ .( 12may93jaw |
|
|
: .( [char] ) parse type ; |
: .( ( -- ) |
|
[char] ) parse type ; immediate |
|
|
\ VALUE 2>R 2R> 2R@ 17may93jaw |
\ VALUE 2>R 2R> 2R@ 17may93jaw |
|
|
Line 14 decimal
|
Line 15 decimal
|
(constant) , ; |
(constant) , ; |
\ !! 2value |
\ !! 2value |
|
|
: 2>r postpone swap postpone >r postpone >r ; immediate restrict |
|
: 2r> postpone r> postpone r> postpone swap ; immediate restrict |
|
: 2r@ postpone 2r> postpone 2dup postpone 2>r ; immediate restrict |
|
|
|
: 2Literal swap postpone Literal postpone Literal ; |
: 2Literal swap postpone Literal postpone Literal ; |
immediate restrict |
immediate restrict |
|
|
Line 76 decimal
|
Line 73 decimal
|
: erase ( 0 1 chars um/mod nip ) 0 fill ; |
: erase ( 0 1 chars um/mod nip ) 0 fill ; |
: blank ( 0 1 chars um/mod nip ) bl fill ; |
: blank ( 0 1 chars um/mod nip ) bl fill ; |
|
|
|
\ SEARCH 02sep94py |
|
|
|
: search ( buf buflen text textlen -- restbuf restlen flag ) |
|
2over 2 pick - 1+ 3 pick c@ >r |
|
BEGIN r@ scan dup WHILE |
|
>r >r 2dup r@ -text |
|
0= IF >r drop 2drop r> r> r> rot + 1- rdrop true EXIT THEN |
|
r> r> 1 /string REPEAT |
|
2drop 2drop rdrop false ; |
|
|
\ ROLL 17may93jaw |
\ ROLL 17may93jaw |
|
|
: roll dup 1+ pick >r |
: roll dup 1+ pick >r |
cells sp@ 2 cells + dup cell+ rot move drop r> ; |
cells sp@ cell+ dup cell+ rot move drop r> ; |
|
|
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
\ SOURCE-ID SAVE-INPUT RESTORE-INPUT 11jun93jaw |
|
|
Line 113 decimal
|
Line 120 decimal
|
variable span |
variable span |
|
|
: expect ( c-addr +len -- ) |
: expect ( c-addr +len -- ) |
0 rot over |
0 rot over |
BEGIN key decode >r 2over = r> or UNTIL |
BEGIN ( maxlen span c-addr pos1 ) |
2drop nip span ! ; |
key decode ( maxlen span c-addr pos2 flag ) |
|
>r 2over = r> or |
|
UNTIL |
|
type-rest drop |
|
2drop nip span ! ; |
|
|