| repeat then |
repeat then |
| description-buffer tuck - ; |
description-buffer tuck - ; |
| |
|
| |
: skip-prefix ( c-addr1 u1 -- c-addr2 u2 ) |
| |
2dup 2 min s" --" compare 0= |
| |
IF |
| |
[char] - skip [char] - scan [char] - skip |
| |
THEN ; |
| |
|
| : replace-_ ( c-addr u -- ) |
: replace-_ ( c-addr u -- ) |
| \ replaces _ with - |
\ replaces _ with - |
| chars bounds |
chars bounds |
| : make-doc ( -- ) |
: make-doc ( -- ) |
| get-current documentation set-current |
get-current documentation set-current |
| create |
create |
| last @ name>string 2, \ name |
last @ name>string skip-prefix 2, \ name |
| [char] ) parse save-mem 2, \ stack-effect |
[char] ) parse save-mem 2, \ stack-effect |
| bl parse-word condition-wordset 2, \ wordset |
bl parse-word condition-wordset 2, \ wordset |
| bl parse-word dup \ pronounciation |
bl parse-word dup \ pronounciation |
| if |
if |
| condition-pronounciation |
condition-pronounciation |
| else |
else |
| 2drop last @ name>string |
2drop last @ name>string skip-prefix |
| endif |
endif |
| 2, |
2, |
| get-description save-mem 2, |
get-description save-mem 2, |
