Root/prod/doc/figfilt

Source at commit 805db6ebf5d80692158acadf88e239da9d3e67af created 6 years 3 months ago.
By Stefan Schmidt, fw/atusb: add extra steps needed for HULUSB in README
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