mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-13 09:00:26 +00:00
Code Issues 1 Releases Wiki Activity

Update gtk example.

Browse Source
This commit is contained in:
Calvin Rose 2022-06-12 12:51:06 -05:00
parent a45ef7a856
commit 3af7d61d3e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ffitest/gtk.janet
View File

@ -5,7 +5,7 @@
(defn ffi-context
"Load a dynamic library and set it as the context for following declarations"
[location]
(setdyn :raw-native (ffi/native location)))
(setdyn :ffi-context (ffi/native location)))
(defmacro defnative
"Declare a native binding"
@ -16,7 +16,7 @@
(def $sig (symbol name "-signature-"))
(def $pointer (symbol name "-raw-pointer-"))
~(upscope
(def ,$pointer :private (as-macro ,assert (,ffi/lookup (,dyn :raw-native) ,raw-symbol)))
(def ,$pointer :private (as-macro ,assert (,ffi/lookup (,dyn :ffi-context) ,raw-symbol)))
(def ,$sig :private (,ffi/signature :default ,ret-type ,;signature-args))
(defn ,name [,;defn-args]
(,ffi/call ,$pointer ,$sig ,;defn-args))))