I think it is a good idea. (gsl-config-pathname "lib/libgslcblas.dylib") could be abandoned and (:darwin "libgslcblas.dylib") would just work fine. I have already confirmed such change works on CCL 1.7 and SBCL 1.0.52 (both are x86-64, on MacOSX Lion).
Yuan
(cffi:define-foreign-library libgsl (:darwin "libgsl.dylib") (:cygwin "cyggsl-0.dll") (:unix (:or "libgsl.so.0" "libgsl.so")) (t (:default "libgsl")))
On Thu, Nov 24, 2011 at 10:27 PM, Liam Healy lhealy@common-lisp.net wrote:
In light of this:
http://lispcaveats.tumblr.com/post/13259176455/ffi-linking-against-shared-li...
I'd like to reconsider these changes. Can we remove the special-case :darwin :ccl conditional that has the literal path, and leave this up to dlopen?
Liam
On Mon, Oct 17, 2011 at 11:16 PM, Liam Healy lhealy@common-lisp.net wrote:
Yuan,
Thanks for the patch. I don't use MacOSX so I can't test it, but I've committed it. If possible, in the future please join the mailing list and post your items there. As far as your CFFI suggestions go, I encourage you to post them on the cffi-devel list; Mac users seem to have a lot of trouble with paths and anything that improves that situation should be welcome.
Liam
On Thu, Oct 13, 2011 at 5:46 PM, Yuan MEI yuan.mei@gmail.com wrote:
Hi Liam, I've started using GSLL. It is wonderful! I just discovered a glitch though, when using CCL under MacOSX, it complains that a #P"xxx.dylib" is not accepted. I'd rather think cffi should be blamed for not accepting a path, but I'd like to let you know that there is this issue and here is a quick fix. Actually a better portable way should be implemented to translate #P"" to a string that cffi could understand, or better cffi should be modified to accept #P in any CL implementation on any platform.
Thanks,
Yuan Mei
diff --git a/init/init.lisp b/init/init.lisp index 41ef370..e632f09 100644 --- a/init/init.lisp +++ b/init/init.lisp @@ -66,7 +66,9 @@ (merge-pathnames pn (pathname (format nil "~a/" (gsl-config "--prefix"))))))
(cffi:define-foreign-library libgslcblas
- (:darwin #.(gsl-config-pathname "lib/libgslcblas.dylib"))
- (:darwin #+ccl #.(ccl:native-translated-namestring
- (gsl-config-pathname "lib/libgslcblas.dylib"))
- #-ccl #.(gsl-config-pathname "lib/libgslcblas.dylib"))
(:cygwin "cyggslcblas-0.dll") (:unix (:or "libgslcblas.so.0" "libgslcblas.so")) (t (:default "libgslcblas"))) @@ -80,9 +82,12 @@ (cffi:load-foreign-library "/lib/lapack/cygblas.dll")
(cffi:define-foreign-library libgsl
- (:darwin #. (gsl-config-pathname "lib/libgsl.dylib"))
- (:darwin #+ccl #.(ccl:native-translated-namestring
- (gsl-config-pathname "lib/libgsl.dylib"))
- #-ccl #.(gsl-config-pathname "lib/libgsl.dylib"))
(:cygwin "cyggsl-0.dll") (:unix (:or "libgsl.so.0" "libgsl.so")) (t (:default "libgsl")))
(cffi:use-foreign-library libgsl)