version 1.27, 2003/03/09 15:16:47
|
version 1.30, 2005/12/31 15:46:08
|
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. |
|
|
Line 94 create description-buffer 4096 chars all
|
Line 94 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 167 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 |