我正在寻找惯用的方法来设置我的项目,是否通过.asd文件中的选项或其他方式,以便使用cffi自动加载我所依赖的动态外部库。
这是我正在尝试的:在一个叫犰狳的文件里。我有
;;; Load the Armadillo Libraries
(push "/users/mcheema/src/c++/lisp-armadillo/" cffi:*FOREIGN-LIBRARY-DIRECTORIES*)
(cffi:define-foreign-library lisp-armadillo-lib
(t "lisp-armadillo.dylib"))
(cffi:load-foreign-library 'lisp-armadillo-lib)
当我第一次启动slime时,我会输入
(ql:register-local-projects)
(asdf:load-system :cl-armadillo)
抛出错误:
CL-USER> (asdf:load-system :cl-armadillo)
;Compiling "/Users/mcheema/src/lisp/cl-armadillo/src/armadillo.lisp"...;
Evaluation aborted on #<CFFI::FOREIGN-LIBRARY-UNDEFINED-ERROR #x3020017A461D>.
如果我只是剪切和粘贴相同的cffi代码片段到我的泥REPL,我得到:
CL-USER> (push "/users/mcheema/src/c++/lisp-armadillo/" cffi:*FOREIGN-LIBRARY-DIRECTORIES*)
(cffi:define-foreign-library lisp-armadillo-lib
(t "lisp-armadillo.dylib"))
(cffi:load-foreign-library 'lisp-armadillo-lib)
#<FOREIGN-LIBRARY LISP-ARMADILLO-LIB "lisp-armadillo.dylib">
编辑:回答德克的评论。目前都是特色菜。Lisp和io。Lisp是空文件,保存一个解压缩包和一个用于整个项目版本号的表单。
(in-package :cl-user)
(defpackage cl-armadillo-asdf
(:use :cl :asdf))
(in-package :cl-armadillo-asdf)
(defsystem cl-armadillo
:author "Munawar Cheema"
:license "LLGPL"
:version "0.0.1"
:depends-on (:uiop :cffi)
:components (
(module "src"
:components
((:file "armadillo" :depends-on ("io"))
(:file "io" :depends-on ("specials"))
(:file "specials"))))
:description "Create a simple interface to the armadillo library"
:long-description "Create a simple interface to the armadillo library"
; :in-order-to ((test-op (load-op cl-armadillo-test))) ; see fukamachi/cl-project.asd
)
我将包括犰狳。Lisp到故障点
(in-package :cl-user)
(defpackage cl-armadillo
(:use
#:cl
#:uiop
#:cffi
#:cl-armadillo.specials
#:cl-armadillo.io)
(:nicknames :arm)
(:export matrix-destroy
matref
make-matrix-ones
make-matrix-randu
make-matrix-zeros
make-matrix-eye))
(in-package :cl-armadillo)
;;; Load the Armadillo Libraries
(push "/users/mcheema/src/c++/lisp-armadillo/" cffi:*FOREIGN-LIBRARY-DIRECTORIES*)
(cffi:define-foreign-library lisp-armadillo-lib
(t "lisp-armadillo.dylib"))
(cffi:load-foreign-library 'lisp-armadillo-lib)
经过一些尝试和错误之后,我弄清楚了如何确保我的代码每次都能与asdf:load-system一起工作。关键是将库的定义和cffi:*foreign-library-directories的更新封装在eval-when格式中:
(eval-when
(:compile-toplevel :load-toplevel :execute)
(pushnew #P"/users/mcheema/src/c++/lisp-armadillo/" cffi:*FOREIGN-LIBRARY-DIRECTORIES*)
(cffi:define-foreign-library lisp-armadillo-lib
(t "lisp-armadillo.dylib"))
(cffi:load-foreign-library 'lisp-armadillo-lib))
代码编辑以反映在注释中推送新建议