Add the ability to build a standalone cl-ledger program with ASDF

.gitignore

@@ -0,0 +1 @@
+cl-ledger

Makefile

@@ -0,0 +1,11 @@
+LISP ?= sbcl
+asdf_system := cl-ledger
+
+all:
+	${LISP} \
+		--load "${asdf_system}.asd" \
+		--eval "(asdf:make \"${asdf_system}\")" \
+		--eval "(uiop:quit)"
+
+clean:
+	rm -f cl-ledger

README.org

@@ -380,8 +380,16 @@ a /series/ of the corresponding type. Example:
 
 * Command line
 
-You can use the [[https://github.com/roswell/roswell][Roswell]] script /cl-ledger.ros/ to use *CL-Ledger* from
-the command line:
+You can build a standalone /cl-ledger/ binary using the /Makefile/:
+
+#+BEGIN_SRC shell
+make LISP=sbcl
+cl-ledger -f doc/sample.dat balance
+#+END_SRC
+
+
+You can also use the [[https://github.com/roswell/roswell][Roswell]] script /cl-ledger.ros/ to use *CL-Ledger*
+from the command line:
 
 #+BEGIN_SRC shell
 cl-ledger.ros -f doc/sample.dat balance

cl-ledger.asd

@@ -31,6 +31,11 @@
 
 (cl:in-package :asdf-user)
 
+;; Redefine 'program-op' to actvate compression
+;; #+sbcl
+;; (defmethod asdf:perform ((o asdf:program-op) (c asdf:system))
+;;   (uiop:dump-image (asdf:output-file o c) :executable t :compression t))
+
 (defsystem :cl-ledger
   :serial t
   :description "Double-entry accounting system."
@@ -39,6 +44,9 @@
   :license "BSD-3"
   :version "4.0.0"
   :depends-on (:local-time :periods-series :cambl :cl-ppcre)
+  :build-operation program-op
+  :build-pathname "cl-ledger"
+  :entry-point "ledger::main"
   :components
   ((:module "core"
 	    :components ((:file "packages")

driver.lisp

@@ -194,6 +194,22 @@ Options:
             (t
              (driver-help))))))
 
+(defun command-line-args ()
+  (or #+abcl ext:*command-line-argument-list*
+      #+allegro (sys:command-line-arguments)
+      #+ccl (ccl::command-line-arguments)
+      #+clisp (ext:argv)
+      #+cmu extensions:*command-line-words*
+      #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
+      #+gcl si:*command-args*
+      #+lispworks sys:*line-arguments-list*
+      #+sbcl sb-ext:*posix-argv*
+      nil))
+
+(defun main ()
+  (handler-case (apply #'process-command-line (rest (command-line-args)))
+    (t (err) (format *error-output* "~a~%" err))))
+
 (provide 'driver)
 
 ;; driver.lisp ends here