[gforth] / gforth / compat / strcomp.fs

gforth: gforth/compat/strcomp.fs

File: [gforth] / gforth / compat / strcomp.fs (download)
Revision: 1.3, Tue Feb 25 22:58:48 2003 UTC (10 years, 2 months ago) by anton
Branch: MAIN
CVS Tags: v0-7-0, v0-6-2, v0-6-0, v0-6-1, HEAD
Changes since 1.2: +4 -3 lines

Documentation changes (new: The Input Stream (gforth), Stack growth
direction (Vmgen)

\ 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]

CVS Admin

gforth: gforth/compat/strcomp.fs

ViewCVS and CVS Help