(require 'asdf)
(asdf:initialize-source-registry
`(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
-(asdf:load-system :candle)
-(asdf:load-system :opera)
+(let
+ ((*error-output* (make-broadcast-stream)))
+ (asdf:load-system :candle))
-(defpackage #:candle-server-cli (:use #:common-lisp))
-(in-package #:candle-server-cli)
-
-(defvar *options*
- '((:name :help :short "h" :long "help" :description "Print this usage.")
- (:name :port :short "p" :long "port" :takes-argument t :variable-name "PORT"
- :description "Port on which to listen for commands. Defaults to 25004")))
-
-(defun usage ()
- (format t "~A"
- (opera:usage
- "candle-server"
- *options*
- "Starts a candle continuous integration server. Use 'candle' to interact with the server.")))
-
-(multiple-value-bind (options remaining-args error) (opera:process-arguments *options* (cdr sb-ext:*posix-argv*))
- (cond
- ((opera:option-present :help options) (usage))
- (remaining-args
- (format *error-output* "Don't understand ~A. See 'candle-server -h'~%" (car remaining-args))
- (sb-ext:exit :code 1))
- ((and (opera:option-present :port options) (not (parse-integer (opera:option-argument :port options) :junk-allowed t)))
- (format *error-output* "--port requires a number. See 'candle-server -h'~%"))
- (t
- (let
- ((port (or (and
- (opera:option-present :port options)
- (parse-integer (opera:option-argument :port options) :junk-allowed t))
- 25004)))
- (format t "Starting server on port ~A~%" port)
- (candle:server port nil)))))
+(candle-server-cli:run)
; vim:ft=lisp