gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.20, 1998/12/08 22:02:39	version 1.22, 1999/10/15 23:18:19
Line 63 create description-buffer 4096 chars all	Line 63 create description-buffer 4096 chars all
: skip-prefix ( c-addr1 u1 -- c-addr2 u2 )	: skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
2dup 2 min s" --" compare 0=	2dup 2 min s" --" compare 0=
IF	IF
[char] - skip [char] - scan [char] - skip	[char] - skip [char] - scan 1 /string
THEN ;	THEN ;

: replace-_ ( c-addr u -- )	: replace-_ ( c-addr u -- )
Line 133 create description-buffer 4096 chars all	Line 133 create description-buffer 4096 chars all
." @cindex "	." @cindex "
." @code{" r@ doc-name 2@ typetexi ." }"	." @code{" r@ doc-name 2@ typetexi ." }"
cr	cr
	r@ doc-name 2@ drop c@ [char] : <> if
	\ cut out words starting with :, info-lookup cannot handle them
	\ !! deal with : by replacing it here and in info-lookup?
	." @kindex "
	r@ doc-name 2@ typetexi
	cr
	endif
." @format" cr	." @format" cr
." @code{" r@ doc-name 2@ typetexi ." } "	." @code{" r@ doc-name 2@ typetexi ." } "
." @i{" r@ doc-stack-effect 2@ type ." } "	." @i{" r@ doc-stack-effect 2@ type ." } "