qi-hardware/ben-wpan
1
0
Fork 0
mirror of git://projects.qi-hardware.com/ben-wpan.git synced 2024-11-22 08:30:17 +02:00
Code

prod/doc/figfilt: script to filter portions of a FIG file based on keys in comments

Browse Source 
This file is part of the production documentation build process but was
never committed.
This commit is contained in:
Werner Almesberger 2013-01-30 10:13:14 -03:00
parent 63a6ad22bf
commit 5733b60721
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
prod/doc/figfilt Executable file
View File

@ -0,0 +1,18 @@
#!/usr/bin/perl
$key = shift @ARGV;
$skip = 0;
$skipping = 0;
while (<>) {
if (/^#/ && $. != 1) {
$skip = $_ !~ /$key/;
print unless $skip;
next;
}
if (/^\s/) {
print unless $skipping;
next;
}
print unless $skip;
$skipping = $skip;
$skip = 0;
}