gforth/ds2texi.fs - diff

Return to ds2texi.fs CVS log

Up to [gforth] / gforth

version 1.19, 1998/07/08 16:47:31	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 -- )