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


Vocabulary
raylib.util

Inputs
struct-classan object
element-typean object
pointer-slotan object
length-quotan object
accessoran 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 ;