qemu.stap

#!/usr/bin/stap
#
global write_errors, write_success

function handlewrite (pp, ret) {
    if (ret < 0)
    {
        printf("%s %s returned %d", tz_ctime(gettimeofday_s()), pp, ret)
        write_errors[pp]++
    }
    else
    {
        write_success[pp]++
    }
}

probe process("/usr/libexec/qemu-kvm").function("*_writev").return
{
    handlewrite(pp(), $return)
}

probe process("/usr/libexec/qemu-kvm").function("qemu_gluster_aio_rw").return
{
    if ($write)
        handlewrite(pp(), $return)   
}

probe process("/usr/lib*/libgfapi.so.*").function("glfs_pwritev_async").return
{
    handlewrite(pp(), $return)
}

probe end
{
    printf("Write success :\n")
    foreach(p in write_success)
    {
        printf("%s %d\n", p, write_success[p])
    }

    printf("Write error :\n")
    foreach(p in write_errors)
    {
        printf("%s %d\n", p, write_errors[p])
    }
}