version 1.6, 1995/09/15 14:52:49
|
version 1.7, 1995/10/07 17:38:11
|
Line 9
|
Line 9
|
|
|
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 |
Line 72 create description-buffer 4096 chars all
|
Line 73 create description-buffer 4096 chars all
|
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 -- ) |
Line 85 create description-buffer 4096 chars all
|
Line 91 create description-buffer 4096 chars all
|
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 |
Line 133 create docline doclinelength chars allot
|
Line 140 create docline doclinelength chars allot
|
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 |