1
0
mirror of git://projects.qi-hardware.com/ben-wpan.git synced 2024-11-05 07:27:31 +02:00

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

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

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;
}