cl-snips/save.lisp

;;; Stub that takes lisp source file as an argument and generates an executable
;;; for it. Assumes entry point is main.

(ql:quickload "unix-opts")

(defun file-test (filename)
  (if (probe-file filename) filename (print "Couldn't find filename")))

(defun get-fn-str (filename)
  (if (stringp filename) filename))

(opts:define-opts
  (:name :help
   :description "Print this text"
   :short #\h
   :long "help")
  (:name :output-file
   :description "File to write executable to"
   :short #\f
   :long "output-file"
   :arg-parser #'get-fn-str)
  (:name :entry-point
   :description "Entry point for saved binary"
   :short #\e
   :long "entry-point"
   :arg-parser #'read-from-string)
  (:name :input-file
   :description "File to load and save"
   :short #\l
   :long "load"
   :arg-parser #'file-test))

;; See: https://github.com/libre-man/unix-opts/blob/master/example/example.lisp
(defmacro when-option ((options opt) &body body)
  `(let ((it (getf ,options ,opt)))
     (when it
       ,@body)))

;;(defun saver (filename entry-point)
;;  (sb-ext:save-lisp-and-die filename :toplevel (function entry-point) :executable t :compression t))
(defmacro saver (filename entry-point)
  `(sb-ext:save-lisp-and-die ,filename :toplevel ,entry-point :executable t :compression t))

(defun display-help ()
  (progn
    (opts:describe
     :prefix "save.bin - Load and then save lisp files. Script over sb-ext:save-lisp-and-die"
     :usage-of "save.bin"
     :args "[FREE-ARGS]")
    (quit)))

(defun builder ()
  (if (> 2 (length sb-ext:*posix-argv*)) (display-help))
  ;;; Get and process args
  (let ((matches (opts:get-opts)))
    (progn
      (format t "~a ~%" matches)
      (when-option (matches :help)
		   (display-help))
      ;; Load program
      (load (getf matches :input-file))
      (print "Loaded file")
      ;; Save program
      (saver (getf matches :output-file) (getf matches :entry-point)))))