abc   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/orbbec_test.xtm

Implementation

(bind-func abc
  (lambda ()
    (let ((y:float* (alloc 4))
          (x (XX (array 1.0 2.0 3.0 4.0))))
     (println x)
     (pfill! y 4.0 3.0 2.0 1.0)
     (tset! x 0 (f4ToArray y))
     (println x)
     void)))


Back to Index