basis/tools/crossref/crossref.factor

   1 ! Copyright (C) 2005, 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors arrays definitions assocs io kernel
   4 math namespaces prettyprint sequences strings io.styles words
   5 generic tools.completion quotations parser summary
   6 sorting hashtables vocabs parser source-files ;
   7 IN: tools.crossref
   8
   9 : usage. ( word -- )
  10     smart-usage sorted-definitions. ;
  11
  12 : words-matching ( str -- seq )
  13     all-words [ dup name>> ] { } map>assoc completions ;
  14
  15 : apropos ( str -- )
  16     words-matching synopsis-alist reverse definitions. ;