gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.16, 1997/07/31 16:17:08	version 1.17, 1997/08/03 20:21:34
Line 60 create description-buffer 4096 chars all	Line 60 create description-buffer 4096 chars all
repeat then	repeat then
description-buffer tuck - ;	description-buffer tuck - ;

	: skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
	2dup 2 min s" --" compare 0=
	IF
	[char] - skip [char] - scan [char] - skip
	THEN ;

: replace-_ ( c-addr u -- )	: replace-_ ( c-addr u -- )
\ replaces _ with -	\ replaces _ with -
chars bounds	chars bounds
Line 88 create description-buffer 4096 chars all	Line 94 create description-buffer 4096 chars all
: make-doc ( -- )	: make-doc ( -- )
get-current documentation set-current	get-current documentation set-current
create	create
last @ name>string 2, \ name	last @ name>string skip-prefix 2, \ name
[char] ) parse save-mem 2, \ stack-effect	[char] ) parse save-mem 2, \ stack-effect
bl parse-word condition-wordset 2, \ wordset	bl parse-word condition-wordset 2, \ wordset
bl parse-word dup \ pronounciation	bl parse-word dup \ pronounciation
if	if
condition-pronounciation	condition-pronounciation
else	else
2drop last @ name>string	2drop last @ name>string skip-prefix
endif	endif
2,	2,
get-description save-mem 2,	get-description save-mem 2,