xref: /linux/tools/perf/scripts/perl/bin/rwtop-report (revision 47902f3611b392209e2a412bf7ec02dca95e666d)
1*47902f36STom Zanussi#!/bin/bash
2*47902f36STom Zanussi# description: system-wide r/w top
3*47902f36STom Zanussi# args: [interval]
4*47902f36STom Zanussin_args=0
5*47902f36STom Zanussifor i in "$@"
6*47902f36STom Zanussido
7*47902f36STom Zanussi    if expr match "$i" "-" > /dev/null ; then
8*47902f36STom Zanussi	break
9*47902f36STom Zanussi    fi
10*47902f36STom Zanussi    n_args=$(( $n_args + 1 ))
11*47902f36STom Zanussidone
12*47902f36STom Zanussiif [ "$n_args" -gt 1 ] ; then
13*47902f36STom Zanussi    echo "usage: rwtop-report [interval]"
14*47902f36STom Zanussi    exit
15*47902f36STom Zanussifi
16*47902f36STom Zanussiif [ "$n_args" -gt 0 ] ; then
17*47902f36STom Zanussi    interval=$1
18*47902f36STom Zanussi    shift
19*47902f36STom Zanussifi
20*47902f36STom Zanussiperf trace $@ -s ~/libexec/perf-core/scripts/perl/rwtop.pl $interval
21*47902f36STom Zanussi
22*47902f36STom Zanussi
23*47902f36STom Zanussi
24