reset-class ( class -- )
Factor handbook » The language » Objects » Classes » Class predicate words

Prev:	predicate? ( object -- ? )
Next:	forget-class ( class -- )

Vocabulary
classes.private

Inputs

class

a class

Outputs
None

Word description
Forgets all of words that the class defines, but not words that are defined on the class. For instance, on a tuple class, this word should reset all of the tuple accessors but not things like nth that may be defined on the class elsewhere.

Definition

IN: classes.private

GENERIC: reset-class ( class -- )

Methods

USING: classes classes.private words ;

M: class reset-class
    {
        "defining-class"
        "class"
        "metaclass"
        "superclass"
        "members"
        "participants"
        "predicate"
    } remove-word-props ;


USING: classes.error classes.private generic kernel words ;

M: error-class reset-class
    [ M\ error-class reset-class (call-next-method) ]
    [ "error-class" remove-word-prop ] bi ;


USING: classes.mixin classes.private generic kernel words ;

M: mixin-class reset-class
    [ M\ mixin-class reset-class (call-next-method) ]
    [ "mixin" remove-word-prop ] bi ;


USING: classes.predicate classes.private generic kernel words ;

M: predicate-class reset-class
    [ M\ predicate-class reset-class (call-next-method) ]
    [ "predicate-definition" remove-word-prop ] bi ;


USING: accessors assocs classes.private classes.struct
classes.struct.private combinators generic sequences words ;

M: struct-class reset-class
    {
        [ \ <struct-boa> def>> first delete-at ]
        [ forget-struct-slot-accessors ]
        [ forget-struct-slot-values-method ]
        [ forget-clone-method ]
        [
            { "c-type" "layout" "struct-size" }
            remove-word-props
        ]
        [ M\ struct-class reset-class (call-next-method) ]
    } cleave ;


USING: classes.private classes.tuple generic kernel words ;

M: tuple-class reset-class
    [ dup "slots" word-prop forget-slot-accessors ] [
        [ M\ tuple-class reset-class (call-next-method) ] [
            { "layout" "slots" "boa-check" "prototype" "final" }
            remove-word-props
        ] bi
    ] bi ;


USING: classes.private kernel words ;

M: word reset-class drop ;