struct-mirror

Vocabulary

classes.struct.prettyprint

Definition

IN: classes.struct.prettyprint

TUPLE: struct-mirror { object read-only } ;

Methods

USING: accessors alien arrays assocs classes.struct.prettyprint
classes.struct.prettyprint.private continuations kernel
sequences ;

M: struct-mirror >alist
    object>>
    [ [ drop "underlying" ] [ >c-ptr ] bi 2array 1array ] [
        [
            struct>assoc
            [ [ [ name>> ] [ type>> ] bi 2array ] dip ]
            assoc-map
        ] curry [ drop { } ] recover
    ] bi append ;


USING: accessors alien arrays assocs classes.struct.prettyprint
combinators combinators.short-circuit kernel math sequences ;

M: struct-mirror at*
    object>> {
        { [ over "underlying" = ] [ nip >c-ptr t ] }
        {
            [ over { [ array? ] [ length 1 >= ] } 1&& ]
            [ swap first get-struct-slot ]
        }
        [ 2drop f f ]
    } cond ;


USING: accessors assocs classes.struct.prettyprint ;

M: struct-mirror clear-assoc object>> reset-struct-slots ;


USING: accessors arrays assocs classes.struct.prettyprint
combinators kernel sequences ;

M: struct-mirror delete-at
    object>> {
        { [ over "underlying" = ] [ 2drop ] }
        { [ over array? ] [ swap first reset-struct-slot ] }
        [ 2drop ]
    } cond ;


USING: accessors arrays assocs classes.struct.prettyprint
combinators kernel sequences ;

M: struct-mirror set-at
    object>> {
        { [ over "underlying" = ] [ 3drop ] }
        { [ over array? ] [ swap first set-struct-slot ] }
        [ 3drop ]
    } cond ;