gforth/doc/makedoc.fs - diff

Return to makedoc.fs CVS log

Up to [gforth] / gforth / doc

version 1.6, 2003/03/09 15:17:01	version 1.10, 2004/12/31 13:24:02
Line 1	Line 1
\ create a documentation file	\ create a documentation file

\ Copyright (C) 1995,1999,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1999,2000,2003,2004 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 67 s" \ automatically generated by makedoc.	Line 67 s" \ automatically generated by makedoc.
source >in ! drop ; immediate	source >in ! drop ; immediate

: put-doc-entry ( -- )	: put-doc-entry ( -- )
locals-list @ 0= \ not in a colon def, i.e., not a local name	dpp @ normal-dp = \ not defining locals
last @ 0<> and \ not an anonymous (i.e. noname) header	latest 0<> and \ not an anonymous (i.e. noname) header
if	if
s" " >fileCR	s" " >fileCR
s" make-doc " >file	s" make-doc " >file
Line 89 s" \ automatically generated by makedoc.	Line 89 s" \ automatically generated by makedoc.
ELSE	ELSE
drop >in !	drop >in !
THEN	THEN
last @ name>string >file	latest name>string >file
>file	>file
s" )" >file	s" )" >file
POSTPONE \g	POSTPONE \g