common-lisp
バイナリの作成

Buildappのビルド

スタンドアロンのCommon Lispバイナリは、 buildappでビルドすることができます。バイナリを生成するためにそれを使う前に、それをインストールしてビルドする必要があります。

quicklispとCommon Lispの使い方が分かりやすい（この例では[ sbcl ]を使用していますが、あなたが持っているものに違いはありません）。

$ sbcl

This is SBCL 1.3.5.nixos, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.

* (ql:quickload :buildapp)
To load "buildapp":
  Load 1 ASDF system:
    buildapp
; Loading "buildapp"

(:BUILDAPP)

* (buildapp:build-buildapp)
;; loading system "buildapp"
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into /home/inaimathi/buildapp:
writing 4800 bytes from the read-only space at 0x20000000
writing 3216 bytes from the static space at 0x20100000
writing 47349760 bytes from the dynamic space at 0x1000000000
done]
NIL

* (quit)

$ ls -lh buildapp 
-rwxr-xr-x 1 inaimathi inaimathi 46M Aug 13 20:12 buildapp
$

バイナリをビルドしたら、それを使ってCommon Lispプログラムのバイナリを構築することができます。これをたくさんするつもりなら、 PATHどこかに置いて、任意のディレクトリからbuildappを実行するだけです。

Buildapp Hello World

可能な限り簡単なバイナリ

1. 依存関係はありません
2. コマンドライン引数をとらない
3. 「Hello world！」と書いてくださいstdout

あなたがbuildappをビルドした後、あなたはちょうど...

$ buildapp --eval '(defun main (argv) (declare (ignore argv)) (write-line "Hello, world!"))' --entry main --output hello-world
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into hello-world:
writing 4800 bytes from the read-only space at 0x20000000
writing 3216 bytes from the static space at 0x20100000
writing 43220992 bytes from the dynamic space at 0x1000000000
done]

$ ./hello-world 
Hello, world!

$

ビルドアップ・ハロー・ウェブ・ワールド

より現実的な例としては、（ --eval渡されるbuildappオプションではなく）複数のファイルをディスクに構築するプロジェクトや、いくつかの依存関係を--evalことが挙げられます。

asdfシステムの検索とロード（任意の他の関連性のないシステムのロードを含む）で任意のことが起こる可能性があるため、ロードする必要があるものを見つけるために依存しているプロジェクトのasdファイルを調べるだけでは不十分です。一般的なアプローチは、 quicklispを使用してターゲットシステムをロードし、 quicklisp ql:write-asdf-manifest-fileを呼び出してロードされたすべてのマニフェストを書き出すことです。

実際にどのように起こるかを説明するためにhunchentoot構築されたおもちゃシステムがあります：

;;;; buildapp-hello-web-world.asd

(asdf:defsystem #:buildapp-hello-web-world
  :description "An example application to use when getting familiar with buildapp"
  :author "inaimathi <[email protected]>"
  :license "Expat"
  :depends-on (#:hunchentoot)
  :serial t
  :components ((:file "package")
               (:file "buildapp-hello-web-world"))

;;;; package.lisp

(defpackage #:buildapp-hello-web-world
  (:use #:cl #:hunchentoot))

;;;; buildapp-hello-web-world.lisp

(in-package #:buildapp-hello-web-world)

(define-easy-handler (hello :uri "/") ()
  (setf (hunchentoot:content-type*) "text/plain")
  "Hello Web World!")

(defun main (argv)
  (declare (ignore argv))
  (start (make-instance 'easy-acceptor :port 4242))
  (format t "Press any key to exit...~%")
  (read-char))

;;;; build.lisp
(ql:quickload :buildapp-hello-web-world)
(ql:write-asdf-manifest-file "/tmp/build-hello-web-world.manifest")
(with-open-file (s "/tmp/build-hello-web-world.manifest" :direction :output :if-exists :append)
  (format s "~a~%" (merge-pathnames
            "buildapp-hello-web-world.asd"
            (asdf/system:system-source-directory
             :buildapp-hello-web-world))))

#### build.sh
sbcl --load "build.lisp" --quit

buildapp --manifest-file /tmp/build-hello-web-world.manifest --load-system hunchentoot --load-system buildapp-hello-web-world --output hello-web-world --entry buildapp-hello-web-world:main

buildapp-hello-web-worldという名前のディレクトリにこれらのファイルを保存したら、それを行うことができます

$ cd buildapp-hello-web-world/

$ sh build.sh 
This is SBCL 1.3.7.nixos, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
To load "cffi":
  Load 1 ASDF system:
    cffi
; Loading "cffi"
........
To load "buildapp-hello-web-world":
  Load 1 ASDF system:
    buildapp-hello-web-world
; Loading "buildapp-hello-web-world"
....
;; loading system "cffi"
;; loading system "hunchentoot"
;; loading system "buildapp-hello-web-world"
[undoing binding stack and other enclosing state... done]
[saving current Lisp image into hello-web-world:
writing 4800 bytes from the read-only space at 0x20000000
writing 4624 bytes from the static space at 0x20100000
writing 66027520 bytes from the dynamic space at 0x1000000000
done]

$ ls -lh hello-web-world 
-rwxr-xr-x 1 inaimathi inaimathi 64M Aug 13 21:17 hello-web-world

これは、上のように、あなたが考えるべきものを正確に行うバイナリを生成します。

$ ./hello-web-world 
Press any key to exit...

次に、別のシェルを起動し、 curl localhost:4242をcurl localhost:4242て、 Hello Web World!平文応答を確認する必要がありますHello Web World!印刷されます。