| |
|
| script? [IF] |
script? [IF] |
| warnings off |
warnings off |
| include search-order.fs |
require search-order.fs |
| include struct.fs |
require float.fs |
| include debugging.fs |
require struct.fs |
| |
require debugging.fs |
| [THEN] |
[THEN] |
| |
|
| wordlist constant documentation |
wordlist constant documentation |
| drop ; |
drop ; |
| |
|
| : print-short ( doc-entry -- ) |
: print-short ( doc-entry -- ) |
| >r ." @format" cr |
>r |
| |
." @findex " |
| |
r@ doc-name 2@ typetexi |
| |
." @var{ " r@ doc-stack-effect 2@ type ." } " |
| |
r@ doc-wordset 2@ type |
| |
cr |
| |
." @format" cr |
| ." @code{" r@ doc-name 2@ typetexi ." } " |
." @code{" r@ doc-name 2@ typetexi ." } " |
| ." @i{" r@ doc-stack-effect 2@ type ." } " |
." @i{" r@ doc-stack-effect 2@ type ." } " |
| r@ doc-wordset 2@ type ." ``" |
r@ doc-wordset 2@ type ." ``" |
| r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr |
r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr |
| ." @findex " r@ doc-name 2@ typetexi cr |
|
| rdrop ; |
rdrop ; |
| |
|
| : print-doc ( doc-entry -- ) |
: print-doc ( doc-entry -- ) |
| r@ print-short |
r@ print-short |
| r@ doc-description 2@ dup 0<> |
r@ doc-description 2@ dup 0<> |
| if |
if |
| type ." @*" cr |
." @iftex" cr ." @vskip-3ex" cr ." @end iftex" cr |
| |
type cr cr \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr |
| else |
else |
| 2drop cr |
2drop cr |
| endif |
endif |
| drop rdrop ; |
drop rdrop ; |
| |
|
| script? [IF] |
script? [IF] |
| include prims2x.fs |
require prims2x.fs |
| s" primitives.b" ' register-doc process-file |
s" primitives.b" ' register-doc process-file |
| require doc.fd |
require doc.fd |
| require crossdoc.fd |
require crossdoc.fd |
