mirror/qca-swiss-army-knife
1
0
Fork 0
mirror of https://github.com/qca/qca-swiss-army-knife.git synced 2025-12-10 07:44:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

qca-swiss-army-knife: scripts: add irq-watch

Browse source 
This adds an IRQ watch for the ath9k debugfs interrupt file.

Signed-off-by: Luis R. Rodriguez <lrodriguez@atheros.com>
This commit is contained in:
Luis R. Rodriguez 2010-04-16 19:25:38 -07:00 • committed by Luis R. Rodriguez
parent fc4d32e21b
commit e1aae2b82b
2 changed files with 70 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README
View file

@ -7,6 +7,7 @@ to debug / help with our driver development.
Tools and their respective documentation:
* initvals: http://wireless.kernel.org/en/users/Drivers/ath9k_hw/initvals-tool
* scripts: To be determined
License
=======

69
tools/scripts/irq-watch Executable file
View file

@ -0,0 +1,69 @@
#!/usr/bin/perl
# Copyright (c) 2010 Atheros Communications Inc.
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#
# IRQ monitor utility for ath9k.
# The ath9k debugfs stuff is nice but sometimes you want more
# complicated analysis of the values. This shows you the actual
# number of IRQs, the average and the rate of change.
my $file="/sys/kernel/debug/ath9k/phy0/interrupt";
my %irqs = ();
my %irqs_next = ();
my %irqs_total = ();
my $loop_count = 0;
my %old_irq_diff = 0;
while (1) {
open(FILE, $file) or die "Cannot open $file: $!.\n";
while (<FILE>) {
if (m/^\s*(\S*):\s+(\d+)/o) {
$irqs{$1} = $2;
}
}
close(FILE);
sleep 1;
system("clear");
printf("IRQ monitor for ath9k, Loop count: %d\n", $loop_count+1);
printf("%10s\t%10s\t%10s\t%10s\n", "IRQ-type", "delta", "Average", "dy/dx");
open(FILE, $file) or die "Cannot open $file: $!.\n";
while (<FILE>) {
if (m/^\s*(\S*):\s+(\d+)/o) {
$irqs_next{$1} = $2;
}
}
close(FILE);
$loop_count++;
foreach $irq (keys %irqs) {
my $irq_diff = $irqs_next{$irq} - $irqs{$irq};
$irqs_total{$irq} += $irq_diff;
printf("%10s\t%10d\t%10d\t%10d\n",
$irq,
$irq_diff,
$irqs_total{$irq} / $loop_count,
$irq_diff - $old_irq_diff{$irq});
$old_irq_diff{$irq} = $irq_diff;
}
}