mirror of
https://github.com/dimitri/pgloader.git
synced 2025-08-07 23:07:00 +02:00
23 lines
666 B
Common Lisp
23 lines
666 B
Common Lisp
(in-package #:pgloader)
|
|
|
|
(defparameter *opt-spec*
|
|
`((("help" #\h) :type boolean :documentation "show usage")
|
|
(("file" #\f) :type string :documentation "read commands from file")))
|
|
|
|
(defun main (argv)
|
|
"Entry point when building an executable image with buildapp"
|
|
(let ((args (rest argv)))
|
|
(multiple-value-bind (options arguments)
|
|
(command-line-arguments:process-command-line-options *opt-spec* args)
|
|
(declare (ignore arguments))
|
|
(destructuring-bind (&key help file) options
|
|
|
|
(when help
|
|
(command-line-arguments:show-option-help *opt-spec*)
|
|
(uiop:quit))
|
|
|
|
(run-command (slurp-file-into-string file))
|
|
(format t "~&")
|
|
|
|
(uiop:quit)))))
|