#!@GUILE@ \
--no-auto-compile -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"))