MSG/msg-cli
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases 2 Packages Wiki Activity Actions

testing

Browse source
This commit is contained in:
Chad Nelson 2025-02-27 22:19:59 -07:00
parent 1ef4257c0a
commit 324a629be1
1 changed files with 81 additions and 80 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

107
msg/machine.scm
View file

@ -31,12 +31,12 @@
(match args (match args
(("-h") (("-h")
(help)) (help))
;; (("init" rest ...) (("init" rest ...)
;; (init rest)) (init rest))
;; (("reinit") (("reinit")
;; (stop) (stop)
;; (clear-install) (clear-install)
;; (init)) (init))
(("start" rest ...) (("start" rest ...)
(start rest)) (start rest))
(("stop") (("stop")
@ -107,48 +107,48 @@
(system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo shutdown'")) (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo shutdown'"))
;; (define* (init #:optional args) (define* (init #:optional args)
;; (if (not (directory-exists? (format #f "~a/.guix" home-path))) (if (not (directory-exists? (format #f "~a/.guix" home-path)))
;; (begin (begin
;; ;; Grab ssh cert for installer ;; Grab ssh cert for installer
;; (system "mkdir -p $HOME/.guix/qemu $HOME/.guix/home $HOME/.guix/ssh-cert") (system "mkdir -p $HOME/.guix/qemu $HOME/.guix/home $HOME/.guix/ssh-cert")
;; (system "ssh-keygen -R \"[127.0.0.1]:9001\"") (system "ssh-keygen -R \"[127.0.0.1]:9001\"")
;; ;; Download system image and and start vm ;; Download system image and and start vm
;; (cond (cond
;; ((string=? arch "arm64") ((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 "/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 "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") (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 ;; 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 "/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 "chmod 400 ~/.guix/ssh-cert/msg_rsa ")
;; (system "/opt/homebrew/bin/qemu-system-aarch64 \ (system "/opt/homebrew/bin/qemu-system-aarch64 \
;; -machine virt,highmem=on \ -machine virt,highmem=on \
;; -accel hvf \ -accel hvf \
;; -cpu host \ -cpu host \
;; -smp 4 \ -smp 4 \
;; -display none \ -display none \
;; -hda $HOME/.guix/qemu/guix-user.qcow2 \ -hda $HOME/.guix/qemu/guix-user.qcow2 \
;; -m 4G \ -m 4G \
;; -virtfs local,path=$HOME/.guix/home,security_model=mapped,mount_tag=macos \ -virtfs local,path=$HOME/.guix/home,security_model=mapped,mount_tag=macos \
;; -bios /opt/homebrew/opt/qemu/share/qemu/edk2-aarch64-code.fd \ -bios /opt/homebrew/opt/qemu/share/qemu/edk2-aarch64-code.fd \
;; -device virtio-net,netdev=vmnic \ -device virtio-net,netdev=vmnic \
;; -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &") -netdev user,id=vmnic,hostfwd=tcp:127.0.0.1:9001-:22 &")
;; (sleep 5) (sleep 5)
;; (update-uid) (update-uid)
;; (build-msg) (build-msg)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa root@127.0.0.1 -p 9001 'shutdown'") (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\"") (system "ssh-keygen -R \"[127.0.0.1]:9001\"")
;; (sleep 30) (sleep 30)
;; (system "rm ~/.guix/qemu/guix-user.qcow2") (system "rm ~/.guix/qemu/guix-user.qcow2")
;; (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/") (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/")
;; (start) (start)
;; (sleep 15) (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 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'")) (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") ;; ((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 "/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 "tar -xvzf $HOME/.guix/qemu/guix.qcow2.tar.gz -C $HOME/.guix/qemu/")
@ -178,19 +178,20 @@
;; (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/") ;; (system "mv ~/.guix/home/guix-user.qcow2 ~/.guix/qemu/")
;; (start) ;; (start)
;; (sleep 15) ;; (sleep 15)
;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo mkdir /Users'"))) ;; (system "ssh -o StrictHostKeyChecking=no -i $HOME/.guix/ssh-cert/msg_rsa admin@127.0.0.1 -p 9001 'sudo mkdir /Users'"))
)
;; (newline) (newline)
;; (display "Reconfiguring MSG, this may take a few minutes...") (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 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'") (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 "\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.")) (display "MSG already initialized. Please run `msg machine reinit` if you would like to recreate it."))
;; ) )
(define (build-msg) (define (build-msg)
;; Build MSG ;; Build MSG