basis/tools/crossref/crossref.factor

   1 ! Copyright (C) 2005, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: assocs definitions io io.styles kernel prettyprint
   4 sorting ;
   5 IN: tools.crossref
   6
   7 : synopsis-alist ( definitions -- alist )
   8     [ dup synopsis swap ] { } map>assoc ;
   9
  10 : definitions. ( alist -- )
  11     [ write-object nl ] assoc-each ;
  12
  13 : sorted-definitions. ( definitions -- )
  14     synopsis-alist sort-keys definitions. ;
  15
  16 : usage. ( word -- )
  17     smart-usage sorted-definitions. ;