lcli

(defmodule lcli-spec
  (export
   (->map 1)
   (->maps 1)
   (map-> 1)
   (maps-> 1)
   (new-map 0) (new-map 1) (new-map 5) (new-map 6)))

(defun new-map ()
  #m(short undefined
     long undefined
     type undefined
     help undefined))

(defun new-map (m)
  (maps:merge (new-map) m))

(defun new-map (short long type default help)
  (new-map (atom_to_list long) short long type default help))

(defun new-map (name short long type default help)
  `#m(name ,name
      short ,short
      long ,long
      type ,type
      default ,default
      help ,help))

(defun map->
  ;; is the data already a spec?
  ((data) (when (or (is_tuple data) (is_atom data)))
   data)
  ((data) (when (== (map_size data) 0))
   '())
  (((= `#m(name ,name long ,long)  map-spec))
   (let ((`#m(name ,name short ,short long ,long help ,help)
             (new-map map-spec)))
     `#(,name ,short ,long ,(map->arg-spec map-spec) ,help)))
  (((= `#m(long ,long) map-spec))
   (map-> (maps:merge map-spec `#m(name ,(list_to_atom long)))))
  (((= `#m(name ,name) map-spec))
   (map-> (new-map map-spec)))
  (((= `#m(short ,short arg ,arg help ,help) args))
   (lcli-error:invalid-spec "one of name or long is required")))

(defun maps->
  (('())
   '())
  ((maps)
   (if (lcli-util:speclist? maps)
     maps
     (lists:map #'map->/1 maps))))

(defun ->maps
  (('())
   '())
  ((specs)
   (lists:filter
    (lambda (x) (=/= (map_size x) 0))
    (lists:map #'->map/1 specs))))

(defun ->map
  (('())
   #m())
  ((data) (when (is_map data))
   (if (andalso (maps:is_key 'commands data)
                (is_list (mref data 'commands)))
     #m()
     data))
  ((`#(,name ,short ,long ,arg-spec ,help))
   (->map name short long arg-spec help))
  ((`#(commands ,vals)) (when (is_list vals))
   #m())
  ((`#(commands ,vals))
   `#m(commands ,vals)))

;;; Private functions

(defun ->map (name short long arg-spec help)
  "Convert an Erlang getopt spec (`type option_spec`) to a map."
  (let* ((val (arg-spec->map arg-spec))
         (type (maps:get 'type val 'undefined))
         (default (maps:get 'default val 'undefined))
         (result `#m(name ,name
                     short ,short
                     long ,long
                     type ,type
                     default ,default
                     help ,help)))
    (maps:filter
     (lambda (k v) (if (orelse (== v 'undefined)
                               (== v 'unset)
                               (and (== k 'name)
                                    (maps:is_key 'long result)))
                     'false
                     'true))
     result)))

(defun arg-spec->map
  (('())
   #m())
  (('undefined)
   #m())
  ((`#(,arg-type ,default-val))
   `#m(type ,arg-type
       default ,default-val))
  ((arg-type)
   `#m(type ,arg-type
       default unset)))

(defun map->arg-spec
  ((`#m(type ,arg-type default unset))
   arg-type)
  ((`#m(type ,arg-type default ,default-val))
   `#(,arg-type ,default-val))
  ((`#m(type ,arg-type))
   arg-type)
  ((_)
   'undefined))