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 cec05a0f5ea2fb4ff5637d418c7f5dae196abda8 created 6 years 9 months ago. By Werner Almesberger, atusb/atusb.pro: we don't use power.lib anymore | |
|---|---|
| 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 | |
