Add bluetooth and vms example tools

Read-only: bluetoothctl show/devices/info and virsh list, domstate,
dominfo and domifaddr. Connecting devices and handling VMs are phase 2.
The DHCP lease source is empty for bridged guests, so the VM's IP comes
from ARP or the guest agent.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

1 files changed, 48 insertions, 0 deletions

diff --git a/examples/tools/vms.sh b/examples/tools/vms.sh
new file mode 100755
index 0000000..3595839
--- /dev/null
+++ b/examples/tools/vms.sh
@@ -0,0 +1,48 @@
+#!/bin/bash
+# desktop-assistant tool: virtual machine status through virsh (read-only).
+# Copyright (C) 2026 Danilo M. <danix@danix.xyz>
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License version 2 as published
+# by the Free Software Foundation.
+#
+# 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 General
+# Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#
+# vms.sh [NAME]: without NAME, every defined VM with its state; with NAME,
+# that VM's state, vCPUs, memory, autostart and IP address when one is
+# known. Only list, domstate, dominfo and domifaddr run here: nothing is
+# started, stopped or edited. Uses libvirt's default URI (LIBVIRT_DEFAULT_URI
+# overrides it).
+
+set -uo pipefail
+
+name="${1:-}"
+if [ -z "$name" ]; then
+    vms=$(virsh list --all --name) || exit 1
+    [ -n "${vms//[[:space:]]/}" ] || { echo "no virtual machines defined"; exit 0; }
+    while read -r vm; do
+        [ -n "$vm" ] && echo "$vm: $(virsh domstate "$vm")"
+    done <<<"$vms"
+    exit 0
+fi
+
+# An unknown name leaves virsh's own error as the last stderr line.
+info=$(virsh dominfo "$name") || exit 1
+field() { sed -n "s/^$1: *//p" <<<"$info"; }
+echo "$name: $(field State), $(field 'CPU(s)') vCPUs," \
+     "$(( $(field 'Max memory' | awk '{print $1}') / 1048576 )) GiB memory," \
+     "autostart $(field Autostart)"
+
+# The DHCP lease is empty for bridged guests; ARP or the guest agent knows.
+for source in lease arp agent; do
+    ip=$(virsh domifaddr "$name" --source "$source" 2>/dev/null \
+         | awk 'NR > 2 && $4 != "" && $4 !~ /^127\./ {sub(/\/.*/, "", $4); print $4}' | paste -sd, -)
+    [ -n "$ip" ] && { echo "IP address: $ip"; break; }
+done