chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
wiringpi: initial skeleton
[chiark-tcl.git]
/
debian
/
extractdoc
1
#!/usr/bin/perl -w
2
$o= '';
3
for (;;) {
4
exit 0 unless defined ($_= <STDIN>);
5
$o .= $_;
6
last if / \-\-\-8\<\-\-\- end of documentation /;
7
}
8
($before, $_, $after)= @ARGV;
9
s,.*/,,;
10
$of= $before.$_.$after;
11
open F, "> $of" or die $!;
12
print F $o or die $!;
13
close F or die $!;
14
print " wrote $of\n" or die $!;