stack-shape ( params -- in out )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

in	an object
out	an object

Definition

USING: accessors alien.c-types combinators kernel math sequences
;

IN: stack-checker.alien

: stack-shape ( params -- in out )
    [
        {
            [ parameters>> length ]
            [ alien-indirect-params? 1 0 ? ]
            [
                dup alien-callback-params?
                [ varargs?>> 5 0 ? ] [ drop 0 ] if
            ]
        } cleave + +
    ] [ return>> void? 0 1 ? ] bi ;