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 ac710d0de437e2292a94498c38339d8d978adbee created 6 years 7 months ago. By Werner Almesberger, web/index.html: update shop links; status table; link to ATUSB schematics | |
|---|---|
| 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 | |
