64 lines
1.5 KiB
Factor
64 lines
1.5 KiB
Factor
! Copyright (C) 2005, 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: tools
|
|
USING: arrays generic hashtables io kernel kernel-internals
|
|
math namespaces prettyprint sequences strings styles vectors
|
|
words ;
|
|
|
|
GENERIC: sheet ( object -- sheet )
|
|
|
|
: slot-sheet ( object -- sheet )
|
|
dup class "slots" word-prop [
|
|
dup third -rot first slot 2array
|
|
] map-with ;
|
|
|
|
M: object sheet slot-sheet ;
|
|
|
|
M: tuple sheet
|
|
dup slot-sheet swap delegate [ 1 tail ] unless ;
|
|
|
|
M: sequence summary
|
|
[ dup length # " element " % class word-name % ] "" make ;
|
|
|
|
: sequence-sheet [ 1array ] map ;
|
|
|
|
M: quotation sheet sequence-sheet ;
|
|
M: vector sheet sequence-sheet ;
|
|
M: array sheet sequence-sheet ;
|
|
|
|
M: hashtable summary
|
|
"a hashtable storing " swap hash-size number>string
|
|
" keys" append3 ;
|
|
|
|
M: hashtable sheet hash>alist ;
|
|
|
|
: sheet. ( sheet -- )
|
|
dup empty? [
|
|
drop
|
|
] [
|
|
dup first length 1 =
|
|
{ 0 0 } { 10 0 } ? table-gap associate
|
|
[ dup unparse-short swap write-object ]
|
|
tabular-output
|
|
] if ;
|
|
|
|
: describe ( object -- ) dup summary print sheet sheet. ;
|
|
|
|
: stack. ( seq -- ) <reversed> >array sheet sheet. ;
|
|
|
|
: .s ( -- ) datastack stack. ;
|
|
: .r ( -- ) retainstack stack. ;
|
|
|
|
: callframe. ( seq pos -- )
|
|
[
|
|
hilite-index set dup hilite-quotation set
|
|
1 nesting-limit set
|
|
pprint
|
|
terpri
|
|
] with-scope ;
|
|
|
|
: callstack. ( seq -- )
|
|
3 group <reversed> [ first2 1- callframe. ] each ;
|
|
|
|
: .c ( -- ) callstack callstack. ;
|