24 lines
594 B
Factor
24 lines
594 B
Factor
! Copyright (C) 2005, 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: prettyprint
|
|
USING: generic kernel namespaces prettyprint sequences strings
|
|
styles words ;
|
|
|
|
GENERIC: summary ( object -- string )
|
|
|
|
M: object summary
|
|
"an instance of the " swap class word-name " class" append3 ;
|
|
|
|
M: input summary
|
|
"Input: " swap input-string dup string?
|
|
[ "\n" split1 "..." "" ? append ] [ unparse-short ] if
|
|
append ;
|
|
|
|
M: vocab-link summary
|
|
[
|
|
vocab-link-name dup %
|
|
" vocabulary (" %
|
|
words length #
|
|
" words)" %
|
|
] "" make ;
|