Wrapping & calling compiled C fns from Clojurescript

core.cljs

;; initialize particle system and
;; create C function wrappers
(let [psys         (.ccall js/Particles "initParticleSystem" "*"
                           #js ["number" "number" "number" "number"]
                           #js [10000 1000 0.0 -0.01 0.125])
      psys-update  (.cwrap js/Particles "updateParticleSystem" "*"
                           #js ["number"])
      psys-count   (.cwrap js/Particles "getNumParticles" "number"
                           #js ["number"])
      particle-ptr (.ccall js/Particles "getParticlesPointer" "*"
                           #js ["number"] #js [psys])]
  ;; store in app state atom for future use
  (swap! app merge
         {:psys         psys
          :psys-update  psys-update
          :psys-count   psys-count
          :psys-get     psys-get
          :particle-ptr particle-ptr}))