version 1.2, 2002/09/14 08:34:03
|
version 1.3, 2003/02/25 22:58:48
|
Line 10
|
Line 10
|
s" gforth" environment? [if] |
s" gforth" environment? [if] |
2drop defined str= |
2drop defined str= |
[else] |
[else] |
|
\ : \G postpone \ ; immediate |
0 |
0 |
[then] |
[then] |
0= [if] |
0= [if] |
|
|
: str= ( c-addr1 u1 c-addr2 u2 -- f ) |
: str= ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth |
compare 0= ; |
compare 0= ; |
|
|
: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) |
: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth |
\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}? |
\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}? |
tuck 2>r min 2r> str= ; |
tuck 2>r min 2r> str= ; |
|
|
: str< ( c-addr1 u1 c-addr2 u2 -- f ) |
: str< ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth |
compare 0< ; |
compare 0< ; |
|
|
[then] |
[then] |