IEEE 802.15.4 subsystem
Sign in or create your account | Project List | Help
IEEE 802.15.4 subsystem Git Source Tree
Root/
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; |
5 | while (<>) { |
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 |