version 1.27, 2003/03/09 15:16:47
|
version 1.31, 2007/12/31 18:40:24
|
Line 1
|
Line 1
|
\ documentation source to texi format converter |
\ documentation source to texi format converter |
|
|
\ Copyright (C) 1995,1996,1997,1998,1999,2003 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,1999,2003,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
\ Gforth is free software; you can redistribute it and/or |
\ Gforth is free software; you can redistribute it and/or |
\ modify it under the terms of the GNU General Public License |
\ modify it under the terms of the GNU General Public License |
\ as published by the Free Software Foundation; either version 2 |
\ as published by the Free Software Foundation, either version 3 |
\ of the License, or (at your option) any later version. |
\ of the License, or (at your option) any later version. |
|
|
\ This program is distributed in the hope that it will be useful, |
\ This program is distributed in the hope that it will be useful, |
Line 15
|
Line 15
|
\ GNU General Public License for more details. |
\ GNU General Public License for more details. |
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
\ documentation source can contain lines in the form `doc-word' and |
\ documentation source can contain lines in the form `doc-word' and |
\ `short-word'. These are converted to appropriate full or short |
\ `short-word'. These are converted to appropriate full or short |
Line 94 create description-buffer 4096 chars all
|
Line 93 create description-buffer 4096 chars all
|
: make-doc ( -- ) |
: make-doc ( -- ) |
get-current documentation set-current |
get-current documentation set-current |
create |
create |
last @ name>string skip-prefix 2, \ name |
latest name>string skip-prefix 2, \ name |
[char] ) parse save-mem 2, \ stack-effect |
[char] ) parse save-mem 2, \ stack-effect |
bl sword condition-wordset 2, \ wordset |
bl sword condition-wordset 2, \ wordset |
bl sword dup \ pronounciation |
bl sword dup \ pronounciation |
if |
if |
condition-pronounciation |
condition-pronounciation |
else |
else |
2drop last @ name>string skip-prefix |
2drop latest name>string skip-prefix |
endif |
endif |
2, |
2, |
get-description save-mem 2, |
get-description save-mem 2, |
Line 167 create description-buffer 4096 chars all
|
Line 166 create description-buffer 4096 chars all
|
>r dup >r |
>r dup >r |
3 pick over str= |
3 pick over str= |
if \ addr2 u2 is a prefix of addr1 u1 |
if \ addr2 u2 is a prefix of addr1 u1 |
r> /string documentation search-wordlist |
r> /string -trailing documentation search-wordlist |
if \ the rest of addr1 u1 is in documentation |
if \ the rest of addr1 u1 is in documentation |
execute r> execute true |
execute r> execute true |
else |
else |