luciano/coffi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move section for static memory access

Browse source
This commit is contained in:
Joshua Suskalo 2021-09-20 20:01:37 -05:00
parent a61feaa739
commit 331e72079f
1 changed files with 50 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

98
src/coffi/ffi.clj
View file

@ -721,54 +721,6 @@
(address-of symbol-or-addr) (address-of symbol-or-addr)
(find-symbol symbol-or-addr))) (find-symbol symbol-or-addr)))
(defn const
"Gets the value of a constant stored in `symbol-or-addr`."
[symbol-or-addr type]
(deserialize (ensure-address symbol-or-addr) [::pointer type]))
(deftype StaticVariable [addr type meta]
Addressable
(address [_]
addr)
IDeref
(deref [_]
(deserialize addr [::pointer type]))
IObj
(withMeta [_ meta-map]
(StaticVariable. addr type (atom meta-map)))
IMeta
(meta [_]
@meta)
IReference
(resetMeta [_ meta-map]
(reset! meta meta-map))
(alterMeta [_ f args]
(apply swap! meta f args)))
(defn freset!
"Sets the value of `static-var`"
[^StaticVariable static-var newval]
(serialize-into
newval (.-type static-var)
(slice-global (.-addr static-var) (size-of (.-type static-var)))
(global-scope))
newval)
(defn fswap!
[static-var f & args]
(freset! static-var (apply f @static-var args)))
(defn static-variable
"Constructs a reference to a mutable value stored in `symbol-or-addr`.
The returned value can be dereferenced, and has metadata, and the address of
the value can be queried with [[address-of]].
See [[freset!]], [[fswap!]]."
[symbol-or-addr type]
(StaticVariable. (ensure-address symbol-or-addr) type (atom nil)))
(defn make-downcall (defn make-downcall
"Constructs a downcall function reference to `symbol-or-addr` with the given `args` and `ret` types. "Constructs a downcall function reference to `symbol-or-addr` with the given `args` and `ret` types.
@ -822,6 +774,56 @@
args-types args-types
ret-type))))) ret-type)))))
;;; Static memory access
(defn const
"Gets the value of a constant stored in `symbol-or-addr`."
[symbol-or-addr type]
(deserialize (ensure-address symbol-or-addr) [::pointer type]))
(deftype StaticVariable [addr type meta]
Addressable
(address [_]
addr)
IDeref
(deref [_]
(deserialize addr [::pointer type]))
IObj
(withMeta [_ meta-map]
(StaticVariable. addr type (atom meta-map)))
IMeta
(meta [_]
@meta)
IReference
(resetMeta [_ meta-map]
(reset! meta meta-map))
(alterMeta [_ f args]
(apply swap! meta f args)))
(defn freset!
"Sets the value of `static-var`"
[^StaticVariable static-var newval]
(serialize-into
newval (.-type static-var)
(slice-global (.-addr static-var) (size-of (.-type static-var)))
(global-scope))
newval)
(defn fswap!
[static-var f & args]
(freset! static-var (apply f @static-var args)))
(defn static-variable
"Constructs a reference to a mutable value stored in `symbol-or-addr`.
The returned value can be dereferenced, and has metadata, and the address of
the value can be queried with [[address-of]].
See [[freset!]], [[fswap!]]."
[symbol-or-addr type]
(StaticVariable. (ensure-address symbol-or-addr) type (atom nil)))
(s/def :coffi.ffi.symbolspec/symbol string?) (s/def :coffi.ffi.symbolspec/symbol string?)
(s/def :coffi.ffi.symbolspec/type keyword?) (s/def :coffi.ffi.symbolspec/type keyword?)
(s/def ::symbolspec (s/def ::symbolspec