mirror
Factor handbook » The language » Objects » Mirrors

Next:

<mirror> ( object -- mirror )

Vocabulary
mirrors

Class description
An associative structure which wraps an object and presents itself as a mapping from slot names to the object's slot values. Mirrors are used to build reflective developer tools.

Mirrors are mutable, however new keys cannot be inserted, only values of existing keys can be changed. Deleting a key has the effect of setting its value to f.

Mirrors are created by calling <mirror> or make-mirror.

Definition

IN: mirrors

TUPLE: mirror { object read-only } ;

Methods

USING: accessors assocs kernel mirrors slots.private ;

M: mirror >alist
    [ object-slots ] [ object>> ] bi [ [ offset>> ] ] dip
    [ swap slot ] curry compose [ [ [ name>> ] ] ] dip
    [ bi ] curry compose { } map>assoc ;


USING: accessors assocs classes classes.tuple.private mirrors ;

M: mirror assoc-size object>> class-of class-size ;


USING: accessors assocs kernel mirrors slots slots.private ;

M: mirror at*
    [ nip object>> ] [ object-slots slot-named ] 2bi
    [ offset>> slot t ] [ drop f f ] if* ;


USING: assocs kernel mirrors ;

M: mirror clear-assoc
    [ object-slots ] keep \ clear-assoc mirror-slot-removal ;


USING: assocs mirrors ;

M: mirror delete-at \ delete-at mirror-slot-removal ;


USING: assocs inspector.private kernel mirrors ;

M: mirror fix-slot-names
    [ [ slot-name boa ] dip ] { } assoc-map-as ;


USING: accessors assocs mirrors sequences ;

M: mirror keys object-slots [ name>> ] map ;


USING: accessors assocs kernel mirrors slots slots.private ;

M: mirror set-at
    [ object-slots slot-named check-set-slot ] [ object>> ] bi
    swap set-slot ;


USING: accessors assocs kernel mirrors sequences slots.private ;

M: mirror values
    [ object-slots ] [ object>> ] bi [ [ offset>> ] ] dip
    [ swap slot ] curry compose map ;