22 lines
604 B
Factor
22 lines
604 B
Factor
! Copyright (C) 2005, 2007 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: arrays kernel parser sequences words help help.topics
|
|
namespaces vocabs ;
|
|
IN: help.syntax
|
|
|
|
: HELP:
|
|
scan-word bootstrap-word
|
|
dup set-word
|
|
dup >link save-location
|
|
\ ; parse-until >array swap set-word-help ; parsing
|
|
|
|
: ARTICLE:
|
|
location >r
|
|
\ ; parse-until >array [ first2 ] keep 2 tail <article>
|
|
over add-article >link r> (save-location) ; parsing
|
|
|
|
: ABOUT:
|
|
scan-word dup parsing? [
|
|
V{ } clone swap execute first
|
|
] when in get vocab set-vocab-help ; parsing
|