Parsing libvirt XML with GNU awk

xmlexample.awk

@load "xml"

XMLSTARTELEM == "disk"  {
        in_disk=1
        disk_file=""
        disk_target=""
}

in_disk == 1 && XMLSTARTELEM == "source" {
        disk_file=XMLATTR["file"]
}

in_disk == 1 && XMLSTARTELEM == "target" {
        disk_target=XMLATTR["dev"]
}

XMLENDELEM == "disk"    {
        in_disk=0
        print disk_target, disk_file
}