2023-11-20 09:05:07 -07:00
|
|
|
#!@GUILE@ \
|
2025-02-27 19:20:55 -07:00
|
|
|
--no-auto-compile -e main -s
|
2023-11-20 09:05:07 -07:00
|
|
|
!#
|
|
|
|
|
|
2025-02-27 22:06:12 -07:00
|
|
|
(use-modules ;;(msg machine2)
|
2023-11-25 09:51:23 -07:00
|
|
|
(msg shell)
|
2023-11-20 09:05:07 -07:00
|
|
|
(ice-9 match))
|
|
|
|
|
|
|
|
|
|
(define* (main #:optional (args (command-line)))
|
|
|
|
|
(define clean-args (cdr args))
|
|
|
|
|
|
|
|
|
|
(match clean-args
|
2025-02-27 22:06:12 -07:00
|
|
|
;;(("machine" rest ...)
|
|
|
|
|
;; (machine rest))
|
2023-11-25 09:51:23 -07:00
|
|
|
(("shell" rest ...)
|
|
|
|
|
(shell))
|
2023-11-20 09:05:07 -07:00
|
|
|
(("-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"))
|
