12 lines
484 B
Plaintext
12 lines
484 B
Plaintext
;;;; Bindings over res.c, named the way raylib names its pairs, which is what
|
|
;;;; makes a dev build count them.
|
|
|
|
(defstruct Thing [id i32 flag u8 w f32 data (Ptr u8)])
|
|
|
|
(declare-c load-thing [id i32] Thing "LoadThing")
|
|
(declare-c unload-thing [t Thing] "UnloadThing")
|
|
(declare-c thing-grow [t (Ptr Thing)] "ThingGrow")
|
|
(declare-c get-default-thing [] Thing "GetDefaultThing")
|
|
(declare-c load-bytes [n i32] (Ptr u8) "LoadBytes")
|
|
(declare-c unload-bytes [p (Ptr u8)] "UnloadBytes")
|