make-slot-descriptions ( obj -- seq )

Vocabulary

ui.tools.inspector

Inputs

obj

an object

Outputs

seq

an object

Definition

IN: ui.tools.inspector

GENERIC: make-slot-descriptions ( obj -- seq )

Methods

USING: accessors generic hashtables sorting ui.tools.inspector ;

M: hashtable make-slot-descriptions
    M\ hashtable make-slot-descriptions (call-next-method)
    [ key-string>> ] sort-by ;


USING: assocs kernel mirrors ui.tools.inspector ;

M: object make-slot-descriptions
    make-mirror [ <slot-description> ] { } assoc>map ;


USING: assocs formatting kernel math math.parser sequences
strings ui.tools.inspector unicode ;

M: string make-slot-descriptions
    [
        swap [ dup number>string ] dip dup dup printable?
        [ 1string ] [
            dup 255 <= [
                H{
                    { 0 "\\0" }
                    { 7 "\\a" }
                    { 8 "\\b" }
                    { 9 "\\t" }
                    { 10 "\\n" }
                    { 27 "\\e" }
                    { 12 "\\f" }
                    { 13 "\\r" }
                    { 11 "\\v" }
                } ?at [ "\\x%02x" sprintf ] unless
            ] [ "\\u{%x}" sprintf ] if
        ] if slot-description boa
    ] { } map-index-as ;