gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.24, 2000/09/23 15:46:52	version 1.26, 2003/01/26 20:56:37
Line 61 create description-buffer 4096 chars all	Line 61 create description-buffer 4096 chars all
description-buffer tuck - ;	description-buffer tuck - ;

: skip-prefix ( c-addr1 u1 -- c-addr2 u2 )	: skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
2dup 2 min s" --" compare 0=	2dup s" --" string-prefix?
IF	IF
[char] - skip [char] - scan 1 /string	[char] - skip [char] - scan 1 /string
THEN ;	THEN ;
Line 165 create description-buffer 4096 chars all	Line 165 create description-buffer 4096 chars all
\ with the prefix addr2 u2 and continuing with a word in the	\ with the prefix addr2 u2 and continuing with a word in the
\ wordlist `documentation'. f is true if xt is executed.	\ wordlist `documentation'. f is true if xt is executed.
>r dup >r	>r dup >r
3 pick over compare 0=	3 pick over str=
if \ addr2 u2 is a prefix of addr1 u1	if \ addr2 u2 is a prefix of addr1 u1
r> /string documentation search-wordlist	r> /string documentation search-wordlist
if \ the rest of addr1 u1 is in documentation	if \ the rest of addr1 u1 is in documentation
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