Return to ds2texi.fs CVS log | Up to [gforth] / gforth |
version 1.25, 2002/09/14 08:20:18 | version 1.26, 2003/01/26 20:56:37 |
---|---|
Line 203 create docline doclinelength chars allot | Line 203 create docline doclinelength chars allot |
: compare-ci ( addr1 u1 addr2 u2 -- n ) | : compare-ci ( addr1 u1 addr2 u2 -- n ) |
\ case insensitive string compare | \ case insensitive string compare |
\ !! works correctly only for comparing for equality | |
2 pick swap - | 2 pick swap - |
?dup-0=-if | ?dup-0=-if |
capscomp | capscomp |