version 1.25, 2002/09/14 08:20:18
|
version 1.27, 2003/03/09 15:16:47
|
Line 1
|
Line 1
|
\ documentation source to texi format converter |
\ documentation source to texi format converter |
|
|
\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,1999,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 |