![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to makedoc.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / doc|
Return to makedoc.fs CVS log | Up to [gforth] / gforth / doc |
| version 1.13, 2007/12/31 18:40:25 | version 1.15, 2010/12/31 18:09:02 |
|---|---|
| Line 1 | Line 1 |
| \ create a documentation file | \ create a documentation file |
| \ Copyright (C) 1995,1999,2000,2003,2004,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1999,2000,2003,2004,2007,2010 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| Line 84 s" \ automatically generated by makedoc. | Line 84 s" \ automatically generated by makedoc. |
| endif | endif |
| endif | endif |
| [char] \ parse 2drop | [char] \ parse 2drop |
| >in @ | >in @ |
| bl word dup c@ | parse-name dup |
| IF | IF |
| dup count 1- chars + c@ [char] - = | 2dup 1- chars + c@ [char] - = |
| IF | IF |
| s" --" >file | s" --" >file |
| count >file drop | >file drop |
| ELSE | ELSE |
| drop >in ! | 2drop >in ! |
| THEN | THEN |
| ELSE | ELSE |
| drop >in ! | 2drop >in ! |
| THEN | THEN |
| latest name>string >file | latest name>string >file |
| s" " >file | s" " >file |