code.consxy.com Git - candle/blob - src/main/cli.lisp

   1 (in-package #:candle-cli)
   2
   3 (defun main-options ()
   4  '((:name :help :short "h" :long "help" :description "Print this usage.")
   5    (:name :port :short "p" :long "port" :takes-argument t :variable-name "PORT"
   6     :description "Port on which to listen for commands.  Defaults to 25004")
   7    (:positional "<command>" :required t :description "Command to send to candle server")))
   8
   9 (defun project-options ()
  10  '((:name :help :short "h" :long "help" :description "Print this usage.")
  11    (:name :add :long "add" :takes-argument t :description
  12     "Add a project.  <name> is the name of the project, which must not include colons, while <src> is the location of the repository for cloning.  This location must be accessible by the machine running candle."
  13     :variable-name "<name>:<src>")))
  14
  15 (defun job-options ()
  16  '((:name :help :short "h" :long "help" :description "Print this usage.")
  17    (:name :project-name :long "project" :takes-argument t :description "The project name for the jobs under consideration.")
  18    (:name :add :long "add" :takes-argument t :description
  19     "Add a job to a project.  <sha> is the commit for that project to run the job.  Requires --project to be specified."
  20     :variable-name "<sha>")))
  21
  22 (defun run-options ()
  23  '((:name :help :short "h" :long "help" :description "Print this usage.")))
  24
  25 (defun main-usage ()
  26  (format t "~A"
  27   (opera:usage
  28    "candle"
  29    (main-options)
  30    "Interacts with candle server.  The available commands are:
  31   project   List, show or add projects
  32   job       List or show jobs
  33   run       Local command.  Run candle in the current working directory")))
  34
  35 (defgeneric execute-command (command args))
  36
  37 (defmethod execute-command (command args)
  38  (format *error-output* "Unknown command '~(~A~)'.  See 'candle --help'.~%" command))
  39
  40 (defun add-project (project-definition)
  41  (let
  42   ((pos (position #\: project-definition)))
  43   (cond
  44    ((not pos) (format *error-output* "Project definition ~A is not valid.  See 'candle project --help'.~%" project-definition))
  45    (t
  46     (let*
  47      ((name (subseq project-definition 0 pos))
  48       (src (subseq project-definition (1+ pos))))
  49      (communication:query `(candle:add-project ,name ,src))
  50      (format t "Added project ~A at src definition ~A~%" name src))))))
  51
  52 (defmethod execute-command ((command (eql :project)) args)
  53  (multiple-value-bind (options remaining-args error) (opera:process-arguments (project-options) args)
  54   (cond
  55    ((eql error :unknown-option) (format *error-output* "Unknown option: ~A.  See 'candle project --help'.~%" (car remaining-args)))
  56    ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A.  See 'candle project --help'.~%" (car remaining-args)))
  57    ((opera:option-present :help options) (format t "~A" (opera:usage "candle project" (project-options))))
  58    ((opera:option-present :add options) (add-project (opera:option-argument :add options))))))
  59
  60 (defun add-job (project-name sha)
  61  (format t "Added job with sha ~A to project ~A~%" sha project-name))
  62
  63 (defmethod execute-command ((command (eql :job)) args)
  64  (multiple-value-bind (options remaining-args error) (opera:process-arguments (job-options) args)
  65   (cond
  66    ((eql error :unknown-option) (format *error-output* "Unknown option: ~A.  See 'candle job --help'.~%" (car remaining-args)))
  67    ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A.  See 'candle job --help'.~%" (car remaining-args)))
  68    ((opera:option-present :help options) (format t "~A" (opera:usage "candle job" (job-options))))
  69    ((and (opera:option-present :add options) (not (opera:option-present :project-name options)))
  70     (format *error-output* "Cannot --add without --project.  See 'candle job --help'.~%"))
  71    ((opera:option-present :add options)
  72     (add-job
  73      (opera:option-argument :project-name options)
  74      (opera:option-argument :add options))))))
  75
  76 (defmethod execute-command ((command (eql :run)) args)
  77  (multiple-value-bind (options remaining-args error) (opera:process-arguments (run-options) args)
  78   (cond
  79    ((eql error :unknown-option) (format *error-output* "Unknown option: ~A.  See 'candle run --help'.~%" (car remaining-args)))
  80    ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A.  See 'candle run --help'.~%" (car remaining-args)))
  81    (remaining-args (format *error-output* "Unknown option: ~A. See 'candle run --help'.~%" (car remaining-args)))
  82    ((opera:option-present :help options) (format t "~A" (opera:usage "candle run" (run-options))))
  83    ((not (candle:run)) (sb-ext:exit :code 1)))))
  84
  85 (defun run ()
  86  (multiple-value-bind (options remaining-args error) (opera:process-arguments (main-options) (cdr sb-ext:*posix-argv*))
  87   (cond
  88    ((opera:option-present :help options) (main-usage))
  89    ((eql error :unknown-option) (format *error-output* "Unknown option: ~A.  See 'candle --help'.~%" (car remaining-args)))
  90    ((and (opera:option-present :port options) (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
  91     (format *error-output* "--port requires a number.  See 'candle-server -h'~%"))
  92    ((not remaining-args) (format *error-output* "Command required.  See 'candle --help'.~%"))
  93    (t
  94     (let
  95      ((communication:*query-port*
  96        (or
  97         (and
  98          (opera:option-present :port options)
  99          (parse-integer (opera:option-argument :port options) :junk-allowed t))
 100         25004)))
 101      (execute-command (intern (string-upcase (car remaining-args)) :keyword) (cdr remaining-args)))))))