gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.19, 1998/07/08 16:47:31	version 1.23, 2000/09/23 15:05:59
Line 1	Line 1
\ documentation source to texi format converter	\ documentation source to texi format converter

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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 ." } "