2025-02-27 22:15:08 -07:00
( define-module ( msg machine )
# :use-module ( ice-9 match )
# :use-module ( ice-9 rdelim )
# :use-module ( ice-9 textual-ports )
# :use-module ( system foreign )
2025-02-28 06:15:14 -07:00
;;#:use-module (msg helpers)
;;#:use-module (msg config)
2025-02-27 22:15:08 -07:00
# :export ( machine ) )
( define home-path ( getenv "HOME" ) )
2025-02-28 06:15:14 -07:00
;;(define arch (run-shell-command "uname -m"))
2025-02-27 22:15:08 -07:00
( define cpu-conf #f )
( define mem-conf #f )
( define* ( load-config # :optional args )
( define config-file ( format #f "~a/.guix/qemu/config.scm" home-path ) )
( define loaded-config ( manage-config config-file ) )
( if ( not ( null? loaded-config ) )
( begin
( set! cpu-conf ( cdr ( assoc 'cpu loaded-config ) ) )
( set! mem-conf ( cdr ( assoc 'mem loaded-config ) ) )
#t )
#f ) )
( define* ( machine # :optional ( args ( command-line ) ) )
;;(define clean-args (cdr args))
( match args
( ( "-h" )
( help ) )
2025-02-28 06:15:14 -07:00
;; (("init" rest ...)
;; (init rest))
;; (("reinit")
;; (stop)
;; (clear-install)
;; (init))
;; (("start" rest ...)
;; (start rest))
2025-02-27 22:15:08 -07:00
( ( "stop" )
( stop ) )
( ( "rm" )
( stop )
( clear-install ) )
( _
( display "Please enter a valid command or -h for help.\n" ) ) ) )
( define* ( help )
( display "\nHere are the available commands:\n\n" )
( display "start: Start the MSG envrionment.\n" ) )
( define* ( clear-install )
( let loop ( )
( display "This is a destructive command and will remove your entire Guix instance. Proceed? (y/n)\n" )
( define response ( read-line ) )
( cond
( ( string=? response "y" )
( system "rm -r ~/.guix" )
)
( ( string=? response "n" )
( display "Operation canceled.\n" )
( exit 0 ) )
( else
( display "Please enter a valid response.\n" )
( loop ) ) ) ) )
2025-02-28 06:15:14 -07:00
;; (define* (start #:optional args)
;; (define config (load-config))
;; (if (not (directory-exists? (format #f "~a/.guix" home-path)))
;; (begin
;; (display "MSG not initialized. Please run `msg machine init` to continue. If you already tried to install and are receiving this message, try running `msg machine reinit`")
;; (exit 0)))
;; (cond
;; ((string=? arch "arm64")
;; (system (format #f "/opt/homebrew/bin/qemu-system-aarch64 \
;; -machine virt,highmem=on \
;; -accel hvf \
;; -cpu host \
;; -smp ~a \
;; -display none \
;; -hda $HOME/.guix/qemu/guix-user.qcow2 \
;; -m ~aG \
;; -virtfs local,path=/Users,security_model=mapped,mount_tag=macos \
;; -bios /opt/homebrew/opt/qemu/share/qemu/edk2-aarch64-code.fd \
;; -device virtio-net,netdev=vmnic \
;; -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &" cpu-conf mem-conf)))
;; ((string=? arch "x86_64")
;; (system (format #f "/usr/local/bin/qemu-system-x86_64 \
;; -machine type=q35,accel=hvf \
;; -smp ~a \
;; -hda $HOME/.guix/qemu/guix-user.qcow2 \
;; -m ~aG \
;; -display none \
;; -cpu Nehalem \
;; -virtfs local,path=/Users,security_model=mapped,mount_tag=macos \
;; -device virtio-net,netdev=vmnic \
;; -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &" cpu-conf mem-conf))))
;; (display "MSG has been started")
;; )
2025-02-27 22:15:08 -07:00
( define* ( stop )
( system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo shutdown'" ) )
2025-02-28 06:15:14 -07:00
;; (define* (init #:optional args)
;; (if (not (directory-exists? (format #f "~a/.guix" home-path)))
;; (begin
;; ;; Grab ssh cert for installer
;; (system "mkdir -p $HOME/.guix/qemu $HOME/.guix/home $HOME/.guix/ssh-cert")
;; (system "ssh-keygen -R \"[127.0.0.1]:9001\"")
;; ;; Download system image and and start vm
;; (cond
;; ((string=? arch "arm64")
;; (system "/opt/homebrew/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg-system-aarch64guix-installer.qcow2.tar.gz -O $HOME/.guix/qemu/guix.qcow2.tar.gz")
;; (system "tar -xvzf $HOME/.guix/qemu/guix.qcow2.tar.gz -C $HOME/.guix/qemu/")
;; (system "/opt/homebrew/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg-system-aarch64config.scm -O $HOME/.guix/home/config.scm")
;; ;; Get msg ssh-key
;; (system "/opt/homebrew/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg_rsa -O $HOME/.guix/ssh-cert/msg_rsa")
;; (system "chmod 400 ~/.guix/ssh-cert/msg_rsa ")
;; (system "/opt/homebrew/bin/qemu-system-aarch64 \
;; -machine virt,highmem=on \
;; -accel hvf \
;; -cpu host \
;; -smp 4 \
;; -display none \
;; -hda $HOME/.guix/qemu/guix-user.qcow2 \
;; -m 4G \
;; -virtfs local,path=$HOME/.guix/home,security_model=mapped,mount_tag=macos \
;; -bios /opt/homebrew/opt/qemu/share/qemu/edk2-aarch64-code.fd \
;; -device virtio-net,netdev=vmnic \
;; -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &")
;; (sleep 5)
;; (update-uid)
;; (build-msg)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'shutdown'")
;; (system "ssh-keygen -R \"[127.0.0.1]:9001\"")
;; (sleep 30)
;; (system "rm ~/.guix/qemu/guix-user.qcow2")
;; (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/")
;; (start)
;; (sleep 15)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo mkdir /Users /boot/efi'")
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo mount /dev/vda1 /boot/efi'"))
;; ((string=? arch "x86_64")
;; (system "/usr/local/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg-system-x86_64guix-installer.qcow2.tar.gz -O $HOME/.guix/qemu/guix.qcow2.tar.gz")
;; (system "tar -xvzf $HOME/.guix/qemu/guix.qcow2.tar.gz -C $HOME/.guix/qemu/")
;; (system "/usr/local/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg-system-x86_64config.scm -O $HOME/.guix/home/config.scm")
;; ;; Get msg ssh-key
;; (system "/usr/local/bin/wget https://objectstorage.us-phoenix-1.oraclecloud.com/n/axfgkze2xif1/b/guix-system/o/msg_rsa -O $HOME/.guix/ssh-cert/msg_rsa")
;; (system "chmod 400 ~/.guix/ssh-cert/msg_rsa ")
;; (system "/usr/local/bin/qemu-system-x86_64 \
;; -machine type=q35,accel=hvf \
;; -smp 4 \
;; -hda $HOME/.guix/qemu/guix-installer.qcow2 \
;; -m 4G \
;; -display none \
;; -cpu Nehalem \
;; -virtfs local,path=$HOME/.guix/home,security_model=mapped,mount_tag=macos \
;; -device virtio-net,netdev=vmnic \
;; -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &")
;; (sleep 5)
;; (update-uid)
;; (build-msg)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'shutdown'")
;; (system "ssh-keygen -R \"[127.0.0.1]:9001\"")
;; (sleep 30)
;; (system "rm ~/.guix/qemu/guix-installer.qcow2")
;; (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/")
;; (start)
;; (sleep 15)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo mkdir /Users'"))
;; )
2025-02-27 22:15:08 -07:00
2025-02-28 06:15:14 -07:00
;; (newline)
;; (display "Reconfiguring MSG, this may take a few minutes...")
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo guix system reconfigure --allow-downgrades /etc/config.scm'")
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo shutdown'")
;; (display "\nMSG is ready to be started. Run 'msg machine start' to begin.\n"))
;; (display "MSG already initialized. Please run `msg machine reinit` if you would like to recreate it."))
2025-02-27 22:15:08 -07:00
2025-02-28 06:15:14 -07:00
;; )
2025-02-27 22:15:08 -07:00
2025-02-28 06:15:14 -07:00
;; (define (build-msg)
;; ;; Build MSG
;; (define* filename (run-shell-command "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'guix system image -t qcow2 --save-provenance --image-size=100G /etc/config.scm'"))
;; (system (format #f "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'cp ~a /mnt/macos/guix-user.qcow2'" filename)))
2025-02-27 22:15:08 -07:00
( define ( update-uid )
;; Update UID for msg image
( system "sed -i.bak \"s/\\$UID/$(id -u)/g\" ~/.guix/home/config.scm && rm ~/.guix/home/config.scm.bak" )
( system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'cp /mnt/macos/config.scm /etc/config.scm'" ) )