26 lines
426 B
Plaintext
26 lines
426 B
Plaintext
|
|
||
|
|
: sconstant ( "name" str -- )
|
||
|
|
2>r : 2r> postpone sliteral postpone ; ;
|
||
|
|
|
||
|
|
: variable! ( "name" value-n -- )
|
||
|
|
create , ;
|
||
|
|
|
||
|
|
: alloterase ( n -- )
|
||
|
|
here over allot swap erase ;
|
||
|
|
|
||
|
|
: 3dup ( a b c -- a b c a b c )
|
||
|
|
>r 2dup r@ -rot r> ;
|
||
|
|
|
||
|
|
: 3drop ( a b c -- )
|
||
|
|
2drop drop ;
|
||
|
|
|
||
|
|
: to-string ( n -- str )
|
||
|
|
s>d <# #s #> ;
|
||
|
|
|
||
|
|
: startswith ( str prefix-str -- flag )
|
||
|
|
2>r over swap 2r> search IF
|
||
|
|
drop =
|
||
|
|
ELSE
|
||
|
|
3drop false
|
||
|
|
THEN ;
|