38 lines
923 B
Factor
38 lines
923 B
Factor
|
! Copyright (C) 2007 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: definitions help help.topics help.syntax
|
||
|
|
prettyprint.backend prettyprint words kernel effects ;
|
||
|
|
IN: help.definitions
|
||
|
|
|
||
|
|
! Definition protocol implementation
|
||
|
|
|
||
|
|
M: link definer drop \ ARTICLE: \ ; ;
|
||
|
|
|
||
|
|
M: link where link-name article article-loc ;
|
||
|
|
|
||
|
|
M: link set-where link-name article set-article-loc ;
|
||
|
|
|
||
|
|
M: link forget* link-name remove-article ;
|
||
|
|
|
||
|
|
M: link definition article-content ;
|
||
|
|
|
||
|
|
M: link synopsis*
|
||
|
|
dup definer.
|
||
|
|
dup link-name pprint*
|
||
|
|
article-title pprint* ;
|
||
|
|
|
||
|
|
M: word-link definer drop \ HELP: \ ; ;
|
||
|
|
|
||
|
|
M: word-link where link-name "help-loc" word-prop ;
|
||
|
|
|
||
|
|
M: word-link set-where link-name swap "help-loc" set-word-prop ;
|
||
|
|
|
||
|
|
M: word-link definition link-name "help" word-prop ;
|
||
|
|
|
||
|
|
M: word-link synopsis*
|
||
|
|
dup definer.
|
||
|
|
link-name dup pprint-word
|
||
|
|
stack-effect. ;
|
||
|
|
|
||
|
|
M: word-link forget* link-name remove-word-help ;
|