39 lines
1.4 KiB
Hy
Executable file
39 lines
1.4 KiB
Hy
Executable file
#!/usr/bin/env hy
|
|
;; Hypo -- Quickly share stuff
|
|
;; Copyright (C) 2013 Tom Willemse
|
|
|
|
;; Hypo is free software: you can redistribute it and/or modify it
|
|
;; under the terms of the GNU Affero General Public License as
|
|
;; published by the Free Software Foundation, either version 3 of the
|
|
;; License, or (at your option) any later version.
|
|
|
|
;; Hypo is distributed in the hope that it will be useful, but WITHOUT
|
|
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General
|
|
;; Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU Affero General Public
|
|
;; License along with Hypo. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(import pycommand sys web os
|
|
[hypo [hypo-start]])
|
|
|
|
(defclass hypoctl-command (pycommand.CommandBase)
|
|
[[usagestr "usage: hypoctl <command> [<args]"]
|
|
[description "Control hypo"]
|
|
[run (lambda [self]
|
|
(cond
|
|
((not self.args)
|
|
(progn (print self.usage) 2))
|
|
((= (car self.args) "start")
|
|
(hypo-start (cdr self.args)))
|
|
(True
|
|
(print (.format "error: command {0} does not exist"
|
|
(car self.args))))))]])
|
|
|
|
(when (= __name__ "__main__")
|
|
(let ((cmd (hypoctl-command (cdr (cdr sys.argv)))))
|
|
(if cmd.error
|
|
(progn (print (.format "error: {0}" cmd.error))
|
|
(sys.exit 1))
|
|
(sys.exit (cmd.run)))))
|