gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.4, 1995/03/13 09:17:25	version 1.6, 1995/09/15 14:52:49
Line 77 create description-buffer 4096 chars all	Line 77 create description-buffer 4096 chars all
." @i{" r@ doc-stack-effect 2@ type ." } "	." @i{" r@ doc-stack-effect 2@ type ." } "
r@ doc-wordset 2@ type ." ``"	r@ doc-wordset 2@ type ." ``"
r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr	r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr
	." @findex " r@ doc-name 2@ typetexi cr
rdrop ;	rdrop ;

: print-doc ( doc-entry -- )	: print-doc ( doc-entry -- )
Line 134 create docline doclinelength chars allot	Line 135 create docline doclinelength chars allot
script? [IF]	script? [IF]
include prims2x.fs	include 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]