feat(guix): carry prebuilt runtime and recover preserved state

1 files changed, 45 insertions, 0 deletions

diff --git a/infra/guix/run.sh b/infra/guix/run.sh
new file mode 100644
index 0000000..e1b9b99
--- /dev/null
+++ b/infra/guix/run.sh
@@ -0,0 +1,45 @@
+#!/bin/sh
+# Copyright (C) 2026 Doan Luu Duc Tai <doan@luuduct.ai>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as
+# published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+set -eu
+ROOT=$(CDPATH= cd -- "$(dirname -- "$0")/.." && pwd)
+if [ -f "$ROOT/bin/guix-runtime.tar.gz" ]; then
+    DIGEST=$(sha256sum "$ROOT/bin/guix-runtime.tar.gz")
+    DIGEST=${DIGEST%% *}
+    RUNTIME="$ROOT/var/guix/$DIGEST"
+    if [ ! -d "$RUNTIME" ]; then
+        umask 077
+        mkdir -p "$ROOT/var/guix"
+        STAGE=$(mktemp -d "$ROOT/var/guix/.unpack.XXXXXX")
+        trap 'chmod -R u+w -- "$STAGE"; rm -rf -- "$STAGE"' EXIT HUP INT TERM
+        tar -xzf "$ROOT/bin/guix-runtime.tar.gz" --no-same-owner -C "$STAGE"
+        [ -x "$STAGE/bin/podman" ] && [ -x "$STAGE/bin/gpg" ] || {
+            echo 'Guix closure unavailable; run the trusted recovery capsule bootstrap as root first.' >&2; exit 1;
+        }
+        mv -T -- "$STAGE" "$RUNTIME"
+        trap - EXIT HUP INT TERM
+    fi
+    [ -x "$RUNTIME/bin/podman" ] && [ -x "$RUNTIME/bin/gpg" ] || {
+        echo 'Guix closure unavailable; run the trusted recovery capsule bootstrap as root first.' >&2; exit 1;
+    }
+    PATH="$RUNTIME/bin:$PATH"
+    CONTAINERS_CONF="$ROOT/infra/guix/containers.conf"
+    export PATH CONTAINERS_CONF
+    SSL_CERT_DIR="$RUNTIME/etc/ssl/certs"
+    SSL_CERT_FILE="$SSL_CERT_DIR/ca-certificates.crt"
+    export SSL_CERT_DIR SSL_CERT_FILE
+fi
+exec "$ROOT/bin/stack" --root "$ROOT" "$@"