Root/prod/doc/figfilt

Source at commit 873f80cb4dac00800826958f9869ec55dbd9e91c created 10 years 7 months ago.
By Werner Almesberger, tools/atrf-txrx/atrf-txrx.c: option -q becomes "quick" and uses aggressive polling
1#!/usr/bin/perl
2$key = shift @ARGV;
3$skip = 0;
4$skipping = 0;
5while (<>) {
6    if (/^#/ && $. != 1) {
7        $skip = $_ !~ /$key/;
8        print unless $skip;
9        next;
10    }
11    if (/^\s/) {
12        print unless $skipping;
13        next;
14    }
15    print unless $skip;
16    $skipping = $skip;
17    $skip = 0;
18}
19

Archive Download this file



interactive