notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make macros private

Browse Source
This commit is contained in:
oakes
2014-01-18 19:04:17 -05:00
parent a1a6066c99
commit 51547b9968
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/play_clj/g2d_physics.clj
View File

@@ -27,15 +27,15 @@
; bodies ; bodies
(defmacro body-type (defmacro ^:private body-type
[k] [k]
`~(symbol (str u/main-package ".physics.box2d.BodyDef$BodyType/" `(symbol (str u/main-package ".physics.box2d.BodyDef$BodyType/"
(u/key->pascal k) "Body"))) (u/key->pascal ~k) "Body")))
(defmacro body-def (defmacro body-def
[k & options] [k & options]
`(let [^BodyDef object# (BodyDef.)] `(let [^BodyDef object# (BodyDef.)]
(set! (. object# type) (body-type ~k)) (set! (. object# type) ~(body-type k))
(u/fields! object# ~@options))) (u/fields! object# ~@options)))
(defmacro body! (defmacro body!
@@ -83,14 +83,14 @@
; joints ; joints
(defmacro joint-init (defmacro ^:private joint-init
[k] [k]
`(~(symbol (str u/main-package ".physics.box2d.joints." `(symbol (str u/main-package ".physics.box2d.joints."
(u/key->pascal k) "JointDef.")))) (u/key->pascal ~k) "JointDef.")))
(defmacro joint-def (defmacro joint-def
[k & options] [k & options]
`(let [object# (joint-init ~k)] `(let [object# (~(joint-init k))]
(u/fields! object# ~@options))) (u/fields! object# ~@options)))
(defn create-joint!* (defn create-joint!*