(exec) ( registers gml obj -- registers gml )

Vocabulary

gml.runtime

Inputs

registers	an object
gml	an object
obj	an object

Outputs

registers	an object
gml	an object

Definition

IN: gml.runtime

GENERIC: (exec) ( registers gml obj -- registers gml )

Methods

USING: gml.runtime kernel ;

M: exec-register (exec)
    is-gml [ 2dup ] dip lookup-register exec-proc ;


USING: accessors gml.runtime kernel ;

M: gml-exec-name (exec)
    is-gml name>> over lookup-name exec-proc ;


USING: gml.runtime kernel ;

M: object (exec) is-gml over push-operand ;


USING: gml.runtime ;

M:: pathname (exec) ( registers gml obj -- registers gml )
    obj gml pop-operand at-pathname gml push-operand
    registers gml ;


USING: accessors gml.runtime gml.types kernel ;

M: proc (exec) is-gml array>> pick <proc> over push-operand ;


USING: gml.runtime kernel ;

M: read-register (exec)
    is-gml [ 2dup ] dip lookup-register over push-operand ;


USING: accessors arrays gml.runtime kernel ;

M: use-registers (exec)
    is-gml n>> f <array> [ [ drop ] ] dip [ ] curry compose dip
    ;


USING: accessors gml.runtime sequences ;

M:: write-register (exec)
    ( registers gml obj -- registers gml )
    gml pop-operand obj n>> registers set-nth registers gml ;