1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
\ string comparisons
\ This file is in the public domain. NO WARRANTY.
\ Uses of COMPARE can be replaced with STR=, STRING-PREFIX?, and STR<
\ (and these can be implemented more efficiently and used more easily
\ than COMPARE). See <news:2002Aug12.110229@a0.complang.tuwien.ac.at>
\ and following.
s" gforth" environment? [if]
2drop defined str=
[else]
\ : \G postpone \ ; immediate
0
[then]
0= [if]
: str= ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
compare 0= ;
: string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
\G Is @var{c-addr2 u2} a prefix of @var{c-addr1 u1}?
tuck 2>r min 2r> str= ;
: str< ( c-addr1 u1 c-addr2 u2 -- f ) \ gforth
compare 0< ;
[then]
|
