version 1.10, 1996/08/21 14:58:38
|
version 1.15, 1997/05/21 20:39:23
|
Line 26
|
Line 26
|
\ `documentation'. Each word resides there under its own name. |
\ `documentation'. Each word resides there under its own name. |
|
|
script? [IF] |
script? [IF] |
warnings off |
warnings off |
require search-order.fs |
require extend.fs |
require glocals.fs |
require search.fs |
require float.fs |
require glocals.fs |
require struct.fs |
require float.fs |
require debugging.fs |
require struct.fs |
|
require debugs.fs |
[THEN] |
[THEN] |
|
|
wordlist constant documentation |
wordlist constant documentation |
Line 123 create description-buffer 4096 chars all
|
Line 124 create description-buffer 4096 chars all
|
." @var{ " r@ doc-stack-effect 2@ type ." } " |
." @var{ " r@ doc-stack-effect 2@ type ." } " |
r@ doc-wordset 2@ type |
r@ doc-wordset 2@ type |
cr |
cr |
|
." @cindex " |
|
." @code{" r@ doc-name 2@ typetexi ." }" |
|
cr |
." @format" 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 ." } " |
Line 135 create description-buffer 4096 chars all
|
Line 139 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 |
." @iftex" cr ." @vskip-3ex" cr ." @end iftex" cr |
\ ." @iftex" cr ." @vskip-0ex" cr ." @end iftex" cr |
type cr cr \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr |
type cr cr |
|
\ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr |
else |
else |
2drop cr |
2drop cr |
endif |
endif |
Line 217 create docline doclinelength chars allot
|
Line 222 create docline doclinelength chars allot
|
else |
else |
." undocumented: " wordname type cr |
." undocumented: " wordname type cr |
endif ; |
endif ; |
|
|
script? [IF] |
|
require prims2x.fs |
|
s" primitives.b" ' register-doc process-file |
|
require crossdoc.fd |
|
require doc.fd |
|
[THEN] |
|