make-tuple-layout ( class -- layout )

Vocabulary

classes.tuple.private

Inputs

class

an object

Outputs

layout

an object

Definition

USING: classes combinators kernel make math sequences words ;

IN: classes.tuple.private

: make-tuple-layout ( class -- layout )
    [
        {
            [ , ]
            [
                [ superclass-of class-size ]
                [ "slots" word-prop length ] bi + ,
            ]
            [ superclasses-of length 1 - , ]
            [ superclasses-of [ [ , ] [ hashcode , ] bi ] each ]
        } cleave
    ] { } make ;