50 lines
1.2 KiB
Factor
50 lines
1.2 KiB
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: inspector
|
||
|
|
USING: arrays generic hashtables io kernel kernel-internals
|
||
|
|
lists math prettyprint sequences strings vectors words ;
|
||
|
|
|
||
|
|
GENERIC: sheet ( obj -- sheet )
|
||
|
|
|
||
|
|
M: object sheet ( obj -- sheet )
|
||
|
|
dup class "slots" word-prop
|
||
|
|
dup [ second ] map -rot
|
||
|
|
[ first slot ] map-with
|
||
|
|
2array ;
|
||
|
|
|
||
|
|
M: list sheet 1array ;
|
||
|
|
|
||
|
|
M: vector sheet 1array ;
|
||
|
|
|
||
|
|
M: array sheet 1array ;
|
||
|
|
|
||
|
|
M: hashtable sheet dup hash-keys swap hash-values 2array ;
|
||
|
|
|
||
|
|
: format-column ( list -- list )
|
||
|
|
[ [ pprint-short ] string-out ] map
|
||
|
|
[ 0 [ length max ] reduce ] keep
|
||
|
|
[ swap CHAR: \s pad-right ] map-with ;
|
||
|
|
|
||
|
|
: format-sheet ( sheet -- list )
|
||
|
|
[ format-column ] map flip [ " " join ] map ;
|
||
|
|
|
||
|
|
: describe ( object -- )
|
||
|
|
sheet dup format-sheet swap peek
|
||
|
|
[ dup [ describe ] curry write-outliner ] 2each ;
|
||
|
|
|
||
|
|
: word. ( word -- )
|
||
|
|
dup word-name swap dup [ see ] curry write-outliner ;
|
||
|
|
|
||
|
|
: vocab. ( vocab -- )
|
||
|
|
f over [ words [ word. ] each ] curry write-outliner ;
|
||
|
|
|
||
|
|
: browser ( -- )
|
||
|
|
#! Outlining word browser.
|
||
|
|
vocabs [ vocab. ] each ;
|
||
|
|
|
||
|
|
: stack. ( seq -- seq )
|
||
|
|
reverse-slice >array describe ;
|
||
|
|
|
||
|
|
: .s datastack stack. ;
|
||
|
|
: .r callstack stack. ;
|