/[cl-gsl]/cl-gsl/vector.lisp
ViewVC logotype

Diff of /cl-gsl/vector.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by edenny, Sat Mar 5 04:31:41 2005 UTC revision 1.4 by edenny, Tue Mar 15 03:17:29 2005 UTC
# Line 231  Line 231 
231           ,type-ptr))))           ,type-ptr))))
232    
233    
234    (defun-foreign "gsl_vector_complex_float_ptr"
235        ((v gsl-vector-complex-float-ptr)
236         (i size-t))
237      (* gsl-complex-float))
238    
239    (defun-foreign "gsl_vector_complex_ptr"
240        ((v gsl-vector-complex-ptr)
241         (i size-t))
242      (* gsl-complex))
243    
244    (defun-foreign "wrap_gsl_vector_complex_float_set"
245        ((v gsl-vector-complex-float-ptr)
246         (i size-t)
247         (z (* gsl-complex-float)))
248      :void)
249    
250    (defun-foreign "wrap_gsl_vector_complex_set"
251        ((v gsl-vector-complex-ptr)
252         (i size-t)
253         (z (* gsl-complex)))
254      :void)
255    
256    (defun-foreign "wrap_gsl_vector_complex_float_set_all"
257        ((v gsl-vector-complex-float-ptr)
258         (z (* gsl-complex-float)))
259      :void)
260    
261    (defun-foreign "wrap_gsl_vector_complex_set_all"
262        ((v gsl-vector-complex-ptr)
263         (z (* gsl-complex)))
264      :void)
265    
266  (def-vector-type-funcs% double-float)  (def-vector-type-funcs% double-float)
267  (def-vector-type-funcs% single-float)  (def-vector-type-funcs% single-float)
268  (def-vector-type-funcs% integer)  (def-vector-type-funcs% integer)
# Line 292  Line 324 
324      ((eq (gsl-vec-element-type v) 'double-float)      ((eq (gsl-vec-element-type v) 'double-float)
325       (gsl-vector-get (gsl-vec-ptr v) i))       (gsl-vector-get (gsl-vec-ptr v) i))
326      ((equal (gsl-vec-element-type v) '(complex (single-float)))      ((equal (gsl-vec-element-type v) '(complex (single-float)))
327       (gsl-complex-float->complex (gsl-vector-complex-float-get       (gsl-complex-float->complex
328                                    (gsl-vec-ptr v) i)))        (gsl-vector-complex-float-ptr (gsl-vec-ptr v) i)))
329      ((equal (gsl-vec-element-type v) '(complex (double-float)))      ((equal (gsl-vec-element-type v) '(complex (double-float)))
330       (gsl-complex->complex (gsl-vector-complex-get (gsl-vec-ptr v) i)))       (gsl-complex->complex (gsl-vector-complex-ptr (gsl-vec-ptr v) i)))
331      (t      (t
332       (error "No matching type"))))       (error "No matching type"))))
333    
# Line 313  Line 345 
345      ((eq (gsl-vec-element-type v) 'double-float)      ((eq (gsl-vec-element-type v) 'double-float)
346       (gsl-vector-set (gsl-vec-ptr v) i x))       (gsl-vector-set (gsl-vec-ptr v) i x))
347      ((equal (gsl-vec-element-type v) '(complex (single-float)))      ((equal (gsl-vec-element-type v) '(complex (single-float)))
348       (gsl-vector-complex-float-set (gsl-vec-ptr v) i       (wrap-gsl-vector-complex-float-set (gsl-vec-ptr v) i
349                                     (complex->gsl-complex-float x)))                                          (complex->gsl-complex-float-ptr x)))
350      ((equal (gsl-vec-element-type v) '(complex (double-float)))      ((equal (gsl-vec-element-type v) '(complex (double-float)))
351       (gsl-vector-complex-set (gsl-vec-ptr v) i (complex->gsl-complex x)))       (wrap-gsl-vector-complex-set (gsl-vec-ptr v) i
352                                      (complex->gsl-complex-ptr x)))
353      (t      (t
354       (error "No matching type"))))       (error "No matching type"))))
355    
# Line 332  Line 365 
365      ((eq (gsl-vec-element-type v) 'double-float)      ((eq (gsl-vec-element-type v) 'double-float)
366       (gsl-vector-set-all (gsl-vec-ptr v) x))       (gsl-vector-set-all (gsl-vec-ptr v) x))
367      ((equal (gsl-vec-element-type v) '(complex (single-float)))      ((equal (gsl-vec-element-type v) '(complex (single-float)))
368       (gsl-vector-complex-float-set-all (gsl-vec-ptr v)       (wrap-gsl-vector-complex-float-set-all (gsl-vec-ptr v)
369                                         (complex->gsl-complex-float x)))                                              (complex->gsl-complex-float-ptr x)))
370      ((equal (gsl-vec-element-type v) '(complex (double-float)))      ((equal (gsl-vec-element-type v) '(complex (double-float)))
371       (gsl-vector-complex-set-all (gsl-vec-ptr v) (complex->gsl-complex x)))       (wrap-gsl-vector-complex-set-all (gsl-vec-ptr v)
372                                          (complex->gsl-complex-ptr x)))
373      (t      (t
374       (error "No matching type"))))       (error "No matching type"))))
375    
# Line 369  Line 403 
403      ((eq (gsl-vec-element-type v) 'double-float)      ((eq (gsl-vec-element-type v) 'double-float)
404       (gsl-vector-set-basis (gsl-vec-ptr v) i))       (gsl-vector-set-basis (gsl-vec-ptr v) i))
405      ((equal (gsl-vec-element-type v) '(complex (single-float)))      ((equal (gsl-vec-element-type v) '(complex (single-float)))
406       (gsl-vector-complex-float-set-basis (gsl-vec-ptr v)       (gsl-vector-complex-float-set-basis (gsl-vec-ptr v) i))
                                          (complex->gsl-complex-float i)))  
407      ((equal (gsl-vec-element-type v) '(complex (double-float)))      ((equal (gsl-vec-element-type v) '(complex (double-float)))
408       (gsl-vector-complex-set-basis (gsl-vec-ptr v)       (gsl-vector-complex-set-basis (gsl-vec-ptr v) i))
                                    (complex->gsl-complex i)))  
409      (t      (t
410       (error "No matching type"))))       (error "No matching type"))))
411    
# Line 864  Line 896 
896    
897  ;; Function: gsl_vector_view gsl_vector_view_array_with_stride (double * base, size_t stride, size_t n)  ;; Function: gsl_vector_view gsl_vector_view_array_with_stride (double * base, size_t stride, size_t n)
898  ;; Function: gsl_vector_const_view gsl_vector_const_view_array_with_stride (const double * base, size_t stride, size_t n)  ;; Function: gsl_vector_const_view gsl_vector_const_view_array_with_stride (const double * base, size_t stride, size_t n)
899    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5