March 2005 - cl-gsl-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-gsl-cvs] CVS update: cl-gsl/ChangeLog
by edenny＠common-lisp.net 23 Mar '05

23 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl In directory common-lisp.net:/tmp/cvs-serv31859 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Thu Mar 24 02:50:46 2005 Author: edenny Index: cl-gsl/ChangeLog diff -u cl-gsl/ChangeLog:1.8 cl-gsl/ChangeLog:1.9 --- cl-gsl/ChangeLog:1.8 Mon Mar 21 04:53:56 2005 +++ cl-gsl/ChangeLog Thu Mar 24 02:50:45 2005 @@ -1,6 +1,14 @@ +2005-03-24 Edgar Denny <edgardenny(a)comcast.net> + + * doc/math.tex: Initial checkin. + +2005-03-23 Edgar Denny <edgardenny(a)comcast.net> + + * doc/poly.tex: Initial checkin. + 2005-03-21 Edgar Denny <edgardenny@.comcast.net> - * Makefile, sf.tex: Initial checkin. + * doc/Makefile, doc/sf.tex: Initial checkin. 2005-03-15 Edgar Denny <edgardenny(a)comcast.net>

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/math.tex
by edenny＠common-lisp.net 23 Mar '05

23 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv31820 Added Files: math.tex Log Message: Initial checkin. Date: Thu Mar 24 02:48:25 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/poly.tex
by edenny＠common-lisp.net 22 Mar '05

22 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv16882 Added Files: poly.tex Log Message: Initial checkin. Date: Wed Mar 23 04:00:29 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/ChangeLog
by edenny＠common-lisp.net 20 Mar '05

20 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl In directory common-lisp.net:/tmp/cvs-serv16561 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Mon Mar 21 04:53:56 2005 Author: edenny Index: cl-gsl/ChangeLog diff -u cl-gsl/ChangeLog:1.7 cl-gsl/ChangeLog:1.8 --- cl-gsl/ChangeLog:1.7 Tue Mar 15 04:23:15 2005 +++ cl-gsl/ChangeLog Mon Mar 21 04:53:56 2005 @@ -1,3 +1,7 @@ +2005-03-21 Edgar Denny <edgardenny@.comcast.net> + + * Makefile, sf.tex: Initial checkin. + 2005-03-15 Edgar Denny <edgardenny(a)comcast.net> * test/test-vector.lisp: Initial checkin.

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/Makefile
by edenny＠common-lisp.net 20 Mar '05

20 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv16534 Added Files: Makefile Log Message: Initial checkin. Date: Mon Mar 21 04:53:13 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/doc/sf.tex
by edenny＠common-lisp.net 20 Mar '05

20 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/doc In directory common-lisp.net:/tmp/cvs-serv15708 Added Files: sf.tex Log Message: Initial checkin. Date: Mon Mar 21 04:44:32 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/ChangeLog
by edenny＠common-lisp.net 14 Mar '05

14 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl In directory common-lisp.net:/tmp/cvs-serv31513 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Tue Mar 15 04:23:16 2005 Author: edenny Index: cl-gsl/ChangeLog diff -u cl-gsl/ChangeLog:1.6 cl-gsl/ChangeLog:1.7 --- cl-gsl/ChangeLog:1.6 Sun Mar 13 01:55:30 2005 +++ cl-gsl/ChangeLog Tue Mar 15 04:23:15 2005 @@ -1,3 +1,19 @@ +2005-03-15 Edgar Denny <edgardenny(a)comcast.net> + + * test/test-vector.lisp: Initial checkin. + + * test/cl-gsl-test.asd: Add test-vector to list of files in defsystem. + + * c/cwrapperstub.c: + Added wrappers for getting and setting complex vectors. UFFI seems to + require pointers to foreign structures. + + * vector.lisp: + Can now actually set and get values from complex vectors. Bindings are + still leaky though. + + * package.lisp, ffi.lisp: Changes needed for complex vectors. + 2005-03-13 Edgar Denny <edgardenny(a)comcast.net> * tolerance.lisp, test-poly.lisp: Initial checkin.

1 0

[cl-gsl-cvs] CVS update: cl-gsl/test/test-vector.lisp
by edenny＠common-lisp.net 14 Mar '05

14 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/test In directory common-lisp.net:/tmp/cvs-serv31491 Added Files: test-vector.lisp Log Message: Initial checkin. Date: Tue Mar 15 04:21:50 2005 Author: edenny

1 0

[cl-gsl-cvs] CVS update: cl-gsl/test/cl-gsl-test.asd
by edenny＠common-lisp.net 14 Mar '05

14 Mar '05

Update of /project/cl-gsl/cvsroot/cl-gsl/test In directory common-lisp.net:/tmp/cvs-serv31467 Modified Files: cl-gsl-test.asd Log Message: Add test-vector to list of files in defsystem. Date: Tue Mar 15 04:20:58 2005 Author: edenny Index: cl-gsl/test/cl-gsl-test.asd diff -u cl-gsl/test/cl-gsl-test.asd:1.2 cl-gsl/test/cl-gsl-test.asd:1.3 --- cl-gsl/test/cl-gsl-test.asd:1.2 Sun Mar 13 01:49:36 2005 +++ cl-gsl/test/cl-gsl-test.asd Tue Mar 15 04:20:57 2005 @@ -35,4 +35,5 @@ (:file "tolerance" :depends-on ("package")) (:file "test-sf" :depends-on ("tolerance")) (:file "test-poly" :depends-on ("tolerance")) + (:file "test-vector" :depends-on ("tolerance")) ))

1 0

[cl-gsl-cvs] CVS update: cl-gsl/c/cwrapperstub.c
by edenny＠common-lisp.net 14 Mar '05

14 Mar '05

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); +} +

1 0