define-array-slot ( struct-class element-type pointer-slot length-quot accessor -- )

Vocabulary

raylib.util

Inputs

struct-class	an object
element-type	an object
pointer-slot	an object
length-quot	an object
accessor	an object

Outputs

None

Definition

USING: alien generic kernel quotations slots words ;

IN: raylib.util

:: define-array-slot
    ( struct-class element-type pointer-slot length-quot accessor -- )
    element-type use-specialized-array :> cons-quot accessor
    [ define-protocol-slot ] [ reader-word ] bi
    :> reader struct-class reader create-method
    :> reader-method pointer-slot reader-word 1quotation
    length-quot cons-quot [ [ >c-ptr ] compose ] 2dip
    [ [ bi ] 2curry ] dip compose reader-method swap define ;