updated autocompile to include for now
This commit is contained in:
parent
a12ca7b466
commit
567b9e56f3
1 changed files with 24 additions and 0 deletions
24
scripts/msg
Executable file
24
scripts/msg
Executable file
|
@ -0,0 +1,24 @@
|
||||||
|
#!/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