#!/bin/bash
abusctl() {
  busctl --address=unix:path=/run/agama/bus "$@"
}

# a stdio filter for XML introspection,
# to fix some less clever choices made by zbus:
# - remove detailed introspection of _child_ nodes
# - make interfaces order deterministic by sorting them
cleanup() {
  # also remove the DTD declaration
  # otherwise xmlstarlet will complain about it not being available
  sed -e '/^<!DOCTYPE/d' -e '/http.*introspect.dtd/d' |
    xmlstarlet tr cleanup-zbus.xslt |
    xmllint --nonet --format -
}

# "dot dot name"
# "slash slash name"
DD=org.opensuse.Agama
SS=/${DD//./\/}

look() {
  abusctl tree --list $DD.${1%.*}
  abusctl introspect --xml-interface $DD.${1%.*} $SS/${1//./\/} |
    cleanup \
      >$DD.$1.bus.xml
}

look Storage1