(ql:quickload '(:myoji-accent))

(myoji-accent/accent:initialize-connection)

(defparameter *interface* "localhost")
(defparameter *port* 8080)
(defparameter *debug* nil)
(defparameter *help* nil)

(defun parse-arguments (&optional (args (uiop:command-line-arguments)))
  (mapl (lambda (arg)
          (macrolet ((require-arg (var)
                       `(assert (second ,var) () "~s requires and argument"
                                (car ,var))))
            (when (member (car arg) '("-h" "--help") :test 'equal)
              (setq *help* t))
            (when (member (car arg) '("-i" "--interface") :test 'equal)
              (require-arg arg)
              (setq *interface* (second arg)))
            (when (member (car arg) '("-p" "--port") :test 'equal)
              (require-arg arg)
              (setq *port* (parse-integer (second arg))))
            (when (member (car arg) '("-d" "--debug") :test 'equal)
              (setq *debug* t))))
        args))

(defun print-help ()
  (format t "usage: sbcl --load ~a~%" *load-pathname*)
  (format t "  -h|--help       print this message, then exit~%")
  (format t "  -d|--debug      enable debug output~%")
  (format t "  -p|--port       the port to use (takes an argument)~%")
  (format t "  -i|--interface  the address to bind to (takes an argument)~%")
  (uiop:quit))

(parse-arguments)
(if *help*
    (print-help)
    (reblocks/server:start :interface *interface* :port *port* :debug *debug*))