#! /bin/sh

set -x

I=${1-64-devel.img}
shift
D=${1-0}
shift
sudo modprobe nbd max_part=63
sleep 1
guix shell qemu -- sudo qemu-nbd -c /dev/nbd$D $@ $I
sleep 1
sudo mount /dev/nbd${D}p1 /mnt/$D

pflocal=/$(cd /mnt/$D && find gnu -name pflocal | grep -v profile)
sudo mkdir -p /mnt/$D/servers/socket
sudo touch /mnt/$D/servers/socket/1
guix shell attr -- sudo setfattr --name=gnu.translator --value="$pflocal\0" \
     /mnt/$D/servers/socket/1
echo result=$?
guix shell attr -- sudo getfattr -d /mnt/$D/servers/socket/1
guix shell attr -- sudo getfattr --name=gnu.translator /mnt/$D/servers/socket/1
./umount-qcow2

exit 0