VtoPtr   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/gsl.xtm

Implementation

(bind-func VtoPtr
  (lambda (v1)
    (let ((size:size_t (tref v1 0))
    (ptr:double* (zalloc (* 8 size)))
    (i 0))
      (dotimes (i size)
  (pset! ptr i (gsl_vector_get v1 i)))
      ptr)))


Back to Index