Блог

Я создал библиотеку, которая содержит пользовательский код на языке Си, и думаю о том, как лучше всего создать общую библиотеку в рамках загрузки ASDF. Файл makefile обусловлен для различных операционных систем, поэтому он может быть таким же простым , как uiop:run-program ... , но я подумал, что спрошу здесь, есть ли для этого более стандартная идиома.

Поскольку код C специфичен для этого приложения, он не будет доступен через менеджер пакетов и должен быть создан специально для каждого компьютера пользователя. Я в порядке с документированием ручной сборки, но если я смогу сгладить ситуацию для пользователя, я это сделаю. Я замечаю, что у Python, похоже, есть какой-то автоматизированный способ создания библиотек для их CFFI, и задаюсь вопросом, есть ли что-то для CL.

Для ответа на мой собственный вопрос: похоже, что нет ни фактического способа сделать это (основанного на поиске файлов asd на github), ни определенного метода в лучших практиках ASDF, хотя из этого документа можно почерпнуть некоторые идеи.

Я представлю свою реализацию в качестве предложенной идиомы для этого варианта использования вместе с некоторыми возможными альтернативами. Надеюсь, некоторые из экспертов ASDF здесь исправят любые недоразумения.

 ;; Define a makefile as a type of source file for the system
(defclass makefile (source-file) ((type :initform "m")))

;; tell ASDF how to compile it
(defmethod perform ((o load-op) (c makefile)) t)
(defmethod perform ((o compile-op) (c makefile))
  (let* ((lib-dir (system-relative-pathname "cephes" "scipy-cephes"))
         (lib (make-pathname :directory `(:relative ,(namestring lib-dir))
                             :name "libmd"
                             :type # unix "so" # (or windows win32) "dll"))
     (built (probe-file (namestring lib))))
    (if built
      (format *error-output* "Library ~S exists, skipping build" lib)
      (format *error-output* "Building ~S~%" lib))
    (unless built
      (run-program (format nil "cd ~S amp;amp; make" (namestring lib-dir)) :output t))))

(defsystem "cephes"
  :description "Wrapper for the Cephes Mathematical Library"
  :version      (:read-file-form "version.sexp")
  :license "MS-PL"
  :depends-on ("cffi")
  :serial t
  :components ((:module "libmd"
                :components ((:makefile "makefile")))
               (:file "package")
               (:file "init")
               (:file "cephes")))
 

Это прекрасно работает как в MS Windows, так и в UNIX. Добавление метода в perform , по — видимому, является наиболее распространенным методом на github.

Альтернативой может быть использование a build-op , как описано в разделе построение системы. Описание

Некоторые системы предлагают операции, которые не являются ни загрузкой в текущем образе, ни тестированием. С какой бы операцией ни предназначалась система, вы можете использовать ее с:

(asdf:make :foobar)

Это вызовет операцию сборки, которая, в свою очередь, будет зависеть от операции сборки для системы, если она определена, или операции загрузки, если нет. Таким образом, для обычных систем Lisp, которые хотят, чтобы вы их загрузили, вышеуказанное будет эквивалентно (asdf:load-system :foobar), но для других систем Lisp, например, для тех, которые создают исполняемый файл командной строки оболочки (asdf:make …), будет делать правильные вещи™, что бы это ни было.

предложите мне, чтобы это было довольно близко к идее создания библиотеки C, и это хорошо соответствовало бы ментальной модели использования файла makefile и asdf:make команды. Я не нашел слишком много примеров использования этого в дикой природе, хотя технически мы загружаем библиотеку C в существующий образ.

Еще один момент, который можно было бы пересмотреть, — это обнаружение существующей общей библиотеки, чтобы избежать перестройки. make позволит избежать перекомпиляции, если общая библиотека существует, но все равно снова вызовет компоновщик. Это приводит к ошибкам, поскольку он не может выполнять запись в общую библиотеку, когда она используется, по крайней мере, в MS Windows. В примере ASDF использовался код Lisp для обнаружения существования библиотеки и предотвращения перекомпиляции, но альтернативой может быть использование output-files .

 (defsystem "foobar/executable"
  :build-operation program-op
  :build-pathname "foobar-command" ;; shell name
  :entry-point "foobar::start-foobar" ;; thunk
  :depends-on ("foobar")
  :components ((:file "main")))