gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.18, 1998/04/12 21:49:12	version 1.21, 1998/12/13 23:29:58
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 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 96 create description-buffer 4096 chars all	Line 96 create description-buffer 4096 chars all
create	create
last @ name>string skip-prefix 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 sword condition-wordset 2, \ wordset
bl parse-word dup \ pronounciation	bl sword dup \ pronounciation
if	if
condition-pronounciation	condition-pronounciation
else	else