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 ae1455cc7dadfaa494c792217d1e4a53efb2747e created 7 years 1 month ago. By Stefan Schmidt, atusb-eui64: print out set address with upper case characters in hex | |
|---|---|
| 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 | |
