gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.13, 1997/02/12 00:25:34	version 1.16, 1997/07/31 16:17:08
Line 28	Line 28
script? [IF]	script? [IF]
warnings off	warnings off
require extend.fs	require extend.fs
require search-order.fs	require search.fs
require glocals.fs	require glocals.fs
require float.fs	require float.fs
require struct.fs	require struct.fs
require debugging.fs	require debugs.fs
[THEN]	[THEN]

wordlist constant documentation	wordlist constant documentation

struct	struct
2 cells: field doc-name	cell% 2* field doc-name
2 cells: field doc-stack-effect	cell% 2* field doc-stack-effect
2 cells: field doc-wordset	cell% 2* field doc-wordset
2 cells: field doc-pronounciation	cell% 2* field doc-pronounciation
2 cells: field doc-description	cell% 2* field doc-description
end-struct doc-entry	end-struct doc-entry

create description-buffer 4096 chars allot	create description-buffer 4096 chars allot
Line 139 create description-buffer 4096 chars all	Line 139 create description-buffer 4096 chars all
r@ print-short	r@ print-short
r@ doc-description 2@ dup 0<>	r@ doc-description 2@ dup 0<>
if	if
." @iftex" cr ." @vskip-3ex" cr ." @end iftex" cr	\ ." @iftex" cr ." @vskip-0ex" cr ." @end iftex" cr
type cr cr \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr	type cr cr
	\ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr
else	else
2drop cr	2drop cr
endif	endif