make-callback-type ( return function library types names -- word quot effect )

Vocabulary

alien.parser

Inputs

return	an object
function	an object
library	an object
types	an object
names	an object

Outputs

word	an object
quot	an object
effect	an object

Definition

USING: alien.c-types alien.libraries words ;

IN: alien.parser

:: make-callback-type
    ( return function library types names -- word quot effect )
    function create-function :> type-word void* type-word
    typedef type-word names return function-effect
    "callback-effect" set-word-prop
    type-word library "callback-library" set-word-prop
    type-word return types library library-abi callback-quot
    ( quot -- alien ) ;