! Copyright (C) 2005, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: words
USING: inspector io kernel math namespaces prettyprint
sequences strings walker ;

: usage. ( word -- )
    usage natural-sort [
        [ synopsis ] keep dup [ usage. ] curry
        write-outliner terpri
    ] each ;

: apropos ( substring -- )
    "Word names containing ``" write dup write "'':" print
    all-words completions
    [
        [
            dup word-name % " (" % dup word-vocabulary % ")" %
        ] "" make swap write-object terpri
    ] each ;

: annotate ( word quot -- | quot: word def -- def )
    over >r >r dup word-def r> call r> swap define-compound ;
    inline

: watch-msg ( word prefix -- ) write word-name print .s flush ;

: (watch) ( word def -- def )
    [
        swap literalize
        dup , "===> Entering: " , \ watch-msg ,
        swap %
        , "===> Leaving:  " , \ watch-msg ,
    ] [ ] make ;

: watch ( word -- ) [ (watch) ] annotate ;

: break ( word -- ) [ nip [ walk ] curry ] annotate ;

: break-on ( word test -- | test: -- ? )
    swap [
        nip [ swap % dup [ walk ] curry , , \ if , ] [ ] make
    ] annotate ;

: profile ( word -- )
    [ swap [ global [ inc ] bind ] curry swap append ] annotate ;