gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/ds2texi.fs between versions 1.4 and 1.7

version 1.4, 1995/03/13 09:17:25	version 1.7, 1995/10/07 17:38:11
Line 9	Line 9

script? [IF]	script? [IF]
warnings off	warnings off
include search-order.fs	require search-order.fs
include struct.fs	require float.fs
include debugging.fs	require struct.fs
	require debugging.fs
[THEN]	[THEN]

wordlist constant documentation	wordlist constant documentation
Line 72 create description-buffer 4096 chars all	Line 73 create description-buffer 4096 chars all
drop ;	drop ;

: print-short ( doc-entry -- )	: print-short ( doc-entry -- )
>r ." @format" cr	>r
	." @findex "
	r@ doc-name 2@ typetexi
	." @var{ " r@ doc-stack-effect 2@ type ." } "
	r@ doc-wordset 2@ type
	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 ." } "
r@ doc-wordset 2@ type ." ``"	r@ doc-wordset 2@ type ." ``"
Line 84 create description-buffer 4096 chars all	Line 91 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
type ." @*" cr	." @iftex" cr ." @vskip-3ex" cr ." @end iftex" cr
	type cr cr \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr
else	else
2drop cr	2drop cr
endif	endif
Line 132 create docline doclinelength chars allot	Line 140 create docline doclinelength chars allot
drop rdrop ;	drop rdrop ;

script? [IF]	script? [IF]
include prims2x.fs	require prims2x.fs
s" primitives.b" ' register-doc process-file	s" primitives.b" ' register-doc process-file
require doc.fs	require doc.fd
	require crossdoc.fd
s" gforth.ds" r/o open-file throw ds2texi bye	s" gforth.ds" r/o open-file throw ds2texi bye
[THEN]	[THEN]

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.4
changed lines
	Added in v.1.7