zeps.zp

(load "zeps/vendor/cli/cli")
(load "zeps/vendor/semver/sv.zp")
(load "zeps/zeps/all")

(import-all "cli")
(import-all "zeps")
(import-all "semver")

(define env
  (cli:create
    (list
      (cli:command "install" zeps:install zeps:install-info)
      (cli:command "installed" zeps:installed zeps:installed-info)
      (cli:command "i" zeps:install zeps:install-info)
      (cli:command "help" zeps:help zeps:help-info)
      (cli:command "test" zeps:test zeps:test-info)
      (cli:command "t" zeps:test zeps:test-info)
      (cli:command "repl" zeps:repl zeps:repl-info)
      (cli:command "remove" zeps:remove zeps:remove-info)
      (cli:command "rm" zeps:remove zeps:remove-info)
      (cli:command "register" zeps:register zeps:register-info)
      (cli:command "r" zeps:register zeps:register-info)
      (cli:command "sandbox" zeps:sandbox zeps:sandbox-info)
      (cli:command "docgen" zeps:docgen zeps:docgen-info)
      (cli:command "doc" zeps:doc zeps:doc-info)
      (cli:command "search" zeps:search zeps:search-info)
      (cli:command "keygen" zeps:keygen zeps:keygen-info)
      (cli:command "new" zeps:new zeps:new-info)
      (cli:command "n" zeps:new zeps:new-info)
      (cli:command "run" zeps:run zeps:run-info)
      (cli:command "readme" zeps:readme zeps:readme-info))))

(if (file-exists? (++ ((zeps:get-conf) :install-home) "zeps/module.zp"))
  (begin
    (define parsed-module (parse (++ ((zeps:get-conf) :install-home)
                                     "zeps/module.zp")))
    (define self-info (get-from parsed-module [0 :version])))
  (define self-info "unknown"))

(define args  (make-hash :name        "zeps"
                         :description "The zepto package manager"
                         :version     self-info))

(cli:play env args)