! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs bootstrap.image.private
-combinators.smart compiler.units generic generic.single graphs
-hashtables help help.apropos help.crossref help.markup
-help.topics init io io.pathnames io.styles kernel namespaces
-quotations see sequences sets sorting source-files threads
-vocabs words ;
+USING: accessors arrays assocs combinators.smart compiler.units
+generic generic.single graphs hash-sets.identity hashtables help
+help.crossref help.markup help.topics init io io.pathnames
+io.styles kernel namespaces quotations see sequences sets
+sorting source-files threads vocabs words ;
IN: tools.crossref
SYMBOL: crossref
M: word quot-uses over crossref? [ adjoin ] [ 2drop ] if ;
: seq-uses ( seq set -- )
- over <eq-wrapper> visited get ?adjoin [
+ over visited get ?adjoin [
[ quot-uses ] curry each
] [ 2drop ] if ; inline
: assoc-uses ( assoc' set -- )
- over <eq-wrapper> visited get ?adjoin [
+ over visited get ?adjoin [
[ quot-uses ] curry [ bi@ ] curry assoc-each
] [ 2drop ] if ; inline
M: wrapper quot-uses [ wrapped>> ] dip quot-uses ;
M: callable uses ( quot -- seq )
- HS{ } clone visited [
+ IHS{ } clone visited [
HS{ } clone [ quot-uses ] keep members
] with-variable ;
M: pathname uses string>> source-file top-level-form>> [ uses ] [ { } ] if* ;
! To make UI browser happy
-M: vocab uses drop f ;
-M: vocab-link uses drop f ;
-M: apropos-search uses drop f ;
+M: object uses drop f ;
: crossref-def ( defspec -- )
dup uses crossref get-global add-vertex ;
: defs-to-crossref ( -- seq )
[
all-words
- [ [ generic? not ] filter ]
+ [ [ generic? ] reject ]
[ [ subwords ] map concat ] bi
all-articles [ >link ] map
GENERIC: smart-usage ( defspec -- seq )
-M: object smart-usage usage [ irrelevant? not ] filter ;
+M: object smart-usage usage [ irrelevant? ] reject ;
M: method smart-usage "method-generic" word-prop smart-usage ;
[ "No usages." print ] [ sorted-definitions. ] if-empty ;
: vocab-xref ( vocab quot: ( defspec -- seq ) -- vocabs )
- [ [ vocab-name ] [ words [ generic? not ] filter ] bi ] dip map
+ [ [ vocab-name ] [ words [ generic? ] reject ] bi ] dip map
[
[ [ word? ] [ generic? not ] bi and ] filter [
dup method?