version 1.12, 1997/02/01 14:59:28
|
version 1.14, 1997/04/10 15:00:04
|
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-order.fs |
require float.fs |
require glocals.fs |
require struct.fs |
require float.fs |
require debugging.fs |
require struct.fs |
|
require debugging.fs |
[THEN] |
[THEN] |
|
|
wordlist constant documentation |
wordlist constant documentation |
Line 138 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 |