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

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)