updated script
This commit is contained in:
parent
567b9e56f3
commit
da9170e372
3 changed files with 2 additions and 24 deletions
1
LICENSE
1
LICENSE
|
@ -659,3 +659,4 @@ specific requirements.
|
||||||
if any, to sign a "copyright disclaimer" for the program, if necessary.
|
if any, to sign a "copyright disclaimer" for the program, if necessary.
|
||||||
For more information on this, and how to apply and follow the GNU AGPL, see
|
For more information on this, and how to apply and follow the GNU AGPL, see
|
||||||
<https://www.gnu.org/licenses/>.
|
<https://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
|
1
hall.scm
1
hall.scm
|
@ -1,6 +1,7 @@
|
||||||
(hall-description
|
(hall-description
|
||||||
(name "msg")
|
(name "msg")
|
||||||
(prefix "")
|
(prefix "")
|
||||||
|
(postfix "")
|
||||||
(version "0.1")
|
(version "0.1")
|
||||||
(author "Chad Nelson")
|
(author "Chad Nelson")
|
||||||
(email "")
|
(email "")
|
||||||
|
|
24
scripts/msg
24
scripts/msg
|
@ -1,24 +0,0 @@
|
||||||
#!/opt/homebrew/bin/guile \
|
|
||||||
-e main -s
|
|
||||||
!#
|
|
||||||
|
|
||||||
(use-modules (msg machine)
|
|
||||||
(msg shell)
|
|
||||||
(ice-9 match))
|
|
||||||
|
|
||||||
(define* (main #:optional (args (command-line)))
|
|
||||||
(define clean-args (cdr args))
|
|
||||||
|
|
||||||
(match clean-args
|
|
||||||
(("machine" rest ...)
|
|
||||||
(machine rest))
|
|
||||||
(("shell" rest ...)
|
|
||||||
(shell))
|
|
||||||
(("-h")
|
|
||||||
(help))
|
|
||||||
(_
|
|
||||||
(display "Please enter a valid command or -h for help.\n"))))
|
|
||||||
|
|
||||||
(define* (help)
|
|
||||||
(display "\nHere are the available commands:\n\n")
|
|
||||||
(display "machine: interact with the vm environment for MSG.\n"))
|
|
Loading…
Add table
Reference in a new issue