1 ! Copyright (C) 2005, 2010 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.x
3 USING: accessors arrays definitions generic assocs
4 io kernel namespaces make prettyprint prettyprint.sections
5 sequences words summary classes strings vocabs ;
10 INSTANCE: link definition
18 GENERIC: >link ( obj -- obj )
21 M: object >link link boa ;
22 M: f >link drop \ f >link ;
24 PREDICATE: word-link < link name>> word? ;
29 name>> dup word? [ summary ] [ unparse-short ] if %
35 articles [ H{ } clone ] initialize
39 article-xref [ H{ } clone ] initialize
41 GENERIC: valid-article? ( topic -- ? )
42 GENERIC: article-title ( topic -- string )
43 GENERIC: article-name ( topic -- string )
44 GENERIC: article-content ( topic -- content )
45 GENERIC: article-parent ( topic -- parent )
46 GENERIC: set-article-parent ( parent topic -- )
48 M: object article-name article-title ;
50 TUPLE: article title content loc ;
52 : <article> ( title content -- article )
55 M: article valid-article? drop t ;
56 M: article article-title title>> ;
57 M: article article-content content>> ;
59 ERROR: no-article name ;
62 drop "Help article does not exist" ;
64 : lookup-article ( name -- article )
65 articles get ?at [ no-article ] unless ;
67 M: object valid-article? articles get key? ;
68 M: object article-title lookup-article article-title ;
69 M: object article-content lookup-article article-content ;
70 M: object article-parent article-xref get at ;
71 M: object set-article-parent article-xref get set-at ;
73 M: link valid-article? name>> valid-article? ;
74 M: link article-title name>> article-title ;
75 M: link article-content name>> article-content ;
76 M: link article-parent name>> article-parent ;
77 M: link set-article-parent name>> set-article-parent ;
79 ! Special case: f help
80 M: f valid-article? drop t ;
81 M: f article-title drop \ f article-title ;
82 M: f article-content drop \ f article-content ;
83 M: f article-parent drop \ f article-parent ;
84 M: f set-article-parent drop \ f set-article-parent ;