[cl-gsl-cvs] CVS update: cl-gsl/c/cwrapperstub.c

[Edgar Denny]

Update of /project/cl-gsl/cvsroot/cl-gsl/c
In directory common-lisp.net:/tmp/cvs-serv31440

Modified Files:
	cwrapperstub.c 
Log Message:
Added wrappers for getting and setting complex vectors. UFFI seems to
require pointers to foreign structures.

Date: Tue Mar 15 04:19:10 2005
Author: edenny

Index: cl-gsl/c/cwrapperstub.c
diff -u cl-gsl/c/cwrapperstub.c:1.2 cl-gsl/c/cwrapperstub.c:1.3
--- cl-gsl/c/cwrapperstub.c:1.2	Fri Mar  4 02:58:57 2005
+++ cl-gsl/c/cwrapperstub.c	Tue Mar 15 04:19:08 2005
@@ -502,3 +502,34 @@
     ret = &v_view.vector;
     return ret;
 }
+
+/* ----------------------------------------------------------------- */
+
+void wrap_gsl_vector_complex_float_set(gsl_vector_complex_float *v,
+                                       const size_t i,
+                                       gsl_complex_float *z)
+{
+    v->data[2 * i * v->stride] = z->dat[0];
+    v->data[(2 * i * v->stride) + 1] = z->dat[1];
+}
+
+void wrap_gsl_vector_complex_set(gsl_vector_complex *v,
+                                 const size_t i,
+                                 gsl_complex *z)
+{
+    v->data[2 * i * v->stride] = z->dat[0];
+    v->data[(2 * i * v->stride) + 1] = z->dat[1];
+}
+
+void wrap_gsl_vector_complex_set_all(gsl_vector_complex *v,
+                                 gsl_complex *z)
+{
+    gsl_vector_complex_set_all(v , *z);
+}
+
+void wrap_gsl_vector_complex_float_set_all(gsl_vector_complex_float *v,
+                                           gsl_complex_float *z)
+{
+    gsl_vector_complex_float_set_all(v , *z);
+}
+