common-lisp - 如何在defsystem中设置C编译器？

Question

我正在尝试使用 quicklisp 加载 cl-mpi 系统。这是系统定义:

(asdf:defsystem cl-mpi
    :description "Common Lisp bindings for the Message Passing Interface (MPI)"
    :author "Alex Fukunaga"
    :version "0.1.0"
    :license "MIT"
    :depends-on (:cffi :cffi-grovel)
    :components
    ((:file "packages")
     (:file "cl-mpi-configure" :depends-on ("packages"))
     (cffi-grovel:grovel-file "mpi-grovel" :depends-on ("packages" "cl-mpi-configure"))
     (:file "mpi" :depends-on ("packages"))))

编译失败，因为它“不知道”$CC 设置为什么。我需要将其设置为 mpicc。我找到了代码，我认为它在其中设置了它:

(defun cc-compile-and-link (input-file output-file &key library)
  (let ((arglist
         `(,(or (getenv "CC") *cc*)
           ,@*cpu-word-size-flags*
           ,@*cc-flags*
           ;; add the cffi directory to the include path to make common.h visible
           ,(format nil "-I~A"
                    (directory-namestring
                     (truename
                      (asdf:system-definition-pathname :cffi-grovel))))
           ,@(when library *platform-library-flags*)
           "-o" ,(native-namestring output-file)
           ,(native-namestring input-file))))
    (when library
      ;; if it's a library that may be used, remove it
      ;; so we won't possibly be overwriting the code of any existing process
      (ignore-some-conditions (file-error)
        (delete-file output-file)))
    (apply #'invoke arglist)))

以上内容位于asdf包内。但是我不明白如何更改 defsystem 以考虑编译器。

PS:错误如下所示:

External process exited with code 1.
Command was: "cc" "-m64" "-I/home/wvxvw/quicklisp/dists/quicklisp/software/cffi_0.11.1/" 
"-o" "/home/wvxvw/.cache/common-lisp/sbcl-1.1.2-1.fc18-linux-x64/home/wvxvw/quicklisp/local-projects/cl-mpi/mpi-grovel" 
"/home/wvxvw/.cache/common-lisp/sbcl-1.1.2-1.fc18-linux-x64/home/wvxvw/quicklisp/local-projects/cl-mpi/mpi-grovel.c"

Output was:
/home/wvxvw/.cache/common-lisp/sbcl-1.1.2-1.fc18-linux-x64/home/wvxvw/quicklisp/local-projects/cl-mpi/mpi-grovel.c:6:34: 
fatal error: /usr/include/mpi/mpi.h: No such file or directory

compilation terminated.

为了便于阅读而格式化。编译器找不到 header ，因为它不是正确的编译器(mpicc“知道”在哪里查找mpi.h header ，它不会在/usr/include)。

<小时/>

抱歉造成困惑。我可以将 $CC 设置为 mpicc，但它仍然找不到 /usr/include/mpich-x86_64/mp​​i.h header -所以也许我需要设置包含路径而不是编译器？如果是这样，怎么办？

这就是我如何将其设置为mpicc:

(eval-when (:compile-toplevel :load-toplevel :execute)
  (asdf:oos 'asdf:load-op :cffi-grovel)
  (setf cffi-grovel::*cc* "mpicc"))

在defsystem之前

编辑:哎呀，是 cffi 生成了错误的包含:(，看起来像这样:

#include </usr/include/mpi/mpi.h>

而不是:

#include "mpi.h"

有什么办法可以解决这个问题吗？

<小时/>

应用大量的黑客技术和诡计我可以让它工作。看来库的路径是在代码本身中设置的，所以我必须

(eval-when (:compile-toplevel :load-toplevel :execute)
  (asdf:oos 'asdf:load-op :cffi-grovel)
  (setf cffi-grovel::*cc* "mpicc"
        mpi::*mpi-header-file* "/usr/include/mpich-x86_64/mpi.h"))

我还必须对我的系统进行一些特定的更改才能编译整个内容。

但是，如果可能的话，我希望这个问题能够得到一般性的回答!即，以通用且可接受的方式设置 C 编译器及其选项的方法是什么？

Answer 1

cl-mpi 包含一个名为“cl-mpi-configure.lisp”的文件。该文件看起来应该更改为配置 cl-mpi 以使用系统的正确路径。

具体来说这一行:

(defvar *mpi-header-file* "/usr/include/mpi/mpi.h") ; this is where  ubuntu apt-get install puts mpi.h. 

定义 mpi 头文件的路径。您需要更改此行以使用系统上 mpi.h 的路径。这有点烦人，因为您不需要使用本地版本，而不是直接从 Quicklisp 下载。

或者，您可以制作补丁来更智能地确定路径(例如使用pkg-config)，然后将其提交到上游。