![]() ![]() | ![]() |
Added compat/strcomp.fs, introducing STR=, STRING-PREFIX?, and STR< replaced most occurences of COMPARE with STR= and STRING-PREFIX?
\ 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] defined str= [else] 0 [then] 0= [if] : str= ( c-addr1 u1 c-addr2 u2 -- f ) compare 0= ; : string-prefix? ( c-addr1 u1 c-addr2 u2 -- f ) \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 ) compare 0< ; [then]