Add the rt linux 4.1.3-rt3 as base

[kvmfornfv.git] / kernel / tools / perf / scripts / perl / bin / rwtop-report

diff --git a/kernel/tools/perf/scripts/perl/bin/rwtop-report b/kernel/tools/perf/scripts/perl/bin/rwtop-report
new file mode 100644 (file)
index 0000000..83e11ec
--- /dev/null
+++ b/kernel/tools/perf/scripts/perl/bin/rwtop-report
@@ -0,0 +1,20 @@
+#!/bin/bash
+# description: system-wide r/w top
+# args: [interval]
+n_args=0
+for i in "$@"
+do
+    if expr match "$i" "-" > /dev/null ; then
+       break
+    fi
+    n_args=$(( $n_args + 1 ))
+done
+if [ "$n_args" -gt 1 ] ; then
+    echo "usage: rwtop-report [interval]"
+    exit
+fi
+if [ "$n_args" -gt 0 ] ; then
+    interval=$1
+    shift
+fi
+perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval