version 1.7, 2003/03/22 10:04:08
|
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 |
latest 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 |