xref: /OK3568_Linux_fs/kernel/tools/perf/scripts/perl/bin/rwtop-report (revision 4882a59341e53eb6f0b4789bf948001014eff981)
1*4882a593Smuzhiyun#!/bin/bash
2*4882a593Smuzhiyun# description: system-wide r/w top
3*4882a593Smuzhiyun# args: [interval]
4*4882a593Smuzhiyunn_args=0
5*4882a593Smuzhiyunfor i in "$@"
6*4882a593Smuzhiyundo
7*4882a593Smuzhiyun    if expr match "$i" "-" > /dev/null ; then
8*4882a593Smuzhiyun	break
9*4882a593Smuzhiyun    fi
10*4882a593Smuzhiyun    n_args=$(( $n_args + 1 ))
11*4882a593Smuzhiyundone
12*4882a593Smuzhiyunif [ "$n_args" -gt 1 ] ; then
13*4882a593Smuzhiyun    echo "usage: rwtop-report [interval]"
14*4882a593Smuzhiyun    exit
15*4882a593Smuzhiyunfi
16*4882a593Smuzhiyunif [ "$n_args" -gt 0 ] ; then
17*4882a593Smuzhiyun    interval=$1
18*4882a593Smuzhiyun    shift
19*4882a593Smuzhiyunfi
20*4882a593Smuzhiyunperf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval
21