proc

Vocabulary

gml.types

Definition

USING: arrays ;

IN: gml.types

TUPLE: proc
    { array array read-only initial: { } }
    { registers array read-only initial: { } } ;

Methods

USING: accessors gml.runtime gml.types kernel ;

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


USING: gml.types kernel ;

M: proc (gml-copy) clone ;


USING: accessors gml.types kernel ;

M: proc clone
    [ array>> clone ] [ registers>> clone ] bi <proc> ;


USING: accessors gml.runtime gml.types kernel sequences ;

M:: proc exec-proc ( registers gml proc -- registers gml )
    proc registers>> gml proc array>> [ (exec) ] each 2drop
    registers gml ;


USING: accessors gml.types sequences ;

M: proc length array>> length ;


USING: gml.types kernel sequences ;

M: proc like drop dup proc? [ { } like { } <proc> ] unless ;


USING: arrays gml.types kernel sequences ;

M: proc new-sequence drop 0 <array> { } <proc> ;


USING: accessors gml.types sequences.private ;

M: proc nth-unsafe array>> nth-unsafe ;


USING: accessors gml.types sequences.private ;

M: proc set-nth-unsafe array>> set-nth-unsafe ;


USING: accessors gml.printer gml.types io sequences ;

M: proc write-gml
    "{" write array>> [ bl ] [ write-gml ] interleave "}" write
    ;