param-prep-quot ( params -- quot )

Vocabulary

stack-checker.alien

Inputs

params

an alien-node-params

Outputs

quot	a quotation

Word description

Builds a quotation which coerces values on the stack to the required types for the alien call.

Examples

USING: alien.c-types prettyprint stack-checker.alien ; T{ alien-invoke-params { parameters { void* c-string int } } } param-prep-quot .
[ [ [ [ ] dip >c-ptr ] dip \ utf8 string>alien ] dip >fixnum ]

Definition

USING: accessors alien.c-types combinators sequences ;

IN: stack-checker.alien

: param-prep-quot ( params -- quot )
    parameters>> [ lookup-c-type c-type-unboxer-quot ] map
    deep-spread>quot ;