zig/mach
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

libmach: fix small issues and naming conventions

Browse source
This commit is contained in:
Zachary Huang 2022-07-20 14:44:31 -04:00 • committed by Stephen Gutekanst
parent 5d86314fbb
commit 8f6273c0d0
4 changed files with 30 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libmach/test.c
View file

@ -4,17 +4,18 @@
typedef void resize_callback(void*, uint32_t, uint32_t);
typedef enum {
MachFailure,
MachSuccess
} MachReturn;
typedef enum MachStatus {
MachStatus_Success = 0x00000000,
MachStatus_Error = 0x00000001,
MachStatus_Force32 = 0x7FFFFFFF
} MachStatus;
// `libmach` exported API bindings
void* mach_core_init(void);
void mach_core_deinit(void*);
void mach_core_set_should_close(void*);
bool mach_core_window_should_close(void*);
MachReturn mach_core_update(void*, resize_callback);
MachStatus mach_core_update(void*, resize_callback);
float mach_core_delta_time(void*);
void resize_fn(void* core, uint32_t width, uint32_t height) {
@ -32,7 +33,7 @@ int main() {
}
while (!mach_core_window_should_close(core)) {
if (mach_core_update(core, resize_fn) == MachFailure) {
if (mach_core_update(core, resize_fn) == MachStatus_Error) {
printf("Error updating Mach\n");
break;
};

7
libmach/test.lisp
View file

@ -15,6 +15,10 @@
;; Note: CFFI automatically translates C_style names into lispier kebab-case ones
(defcenum mach-status
(:success 0)
(:error 1))
(defcfun "mach_core_init" :pointer)
(defcfun "mach_core_update" :int
@ -49,7 +53,8 @@
(loop while (not (mach-core-window-should-close core))
do (progn
(when (= 0 (mach-core-update core (callback resize-fn)))
(when (= (foreign-enum-value 'mach-status :error)
(mach-core-update core (callback resize-fn)))
(format t "Error updating mach~%")
(sb-ext:exit))
(when (> (incf *elapsed* (mach-core-delta-time core)) 5.0)