18 lines
482 B
Factor
18 lines
482 B
Factor
! Copyright (C) 2005, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs definitions io io.styles kernel prettyprint
|
|
sorting ;
|
|
IN: tools.crossref
|
|
|
|
: synopsis-alist ( definitions -- alist )
|
|
[ dup synopsis swap ] { } map>assoc ;
|
|
|
|
: definitions. ( alist -- )
|
|
[ write-object nl ] assoc-each ;
|
|
|
|
: sorted-definitions. ( definitions -- )
|
|
synopsis-alist sort-keys definitions. ;
|
|
|
|
: usage. ( word -- )
|
|
smart-usage sorted-definitions. ;
|