Debian package wip

[chiark-tcl.git] / debian / extractdoc

diff --git a/debian/extractdoc b/debian/extractdoc
new file mode 100644 (file)
index 0000000..318c8cc
--- /dev/null
+++ b/debian/extractdoc
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+$o= '';
+for (;;) {
+    exit 0 unless defined ($_= <STDIN>);
+    $o .= $_;
+    last if / \-\-\-8\<\-\-\- end of documentation /;
+}
+($before, $_, $after)= @ARGV;
+s,.*/,,;
+$of= $before.$_.$after;
+open F, "> $of" or die $!;
+print F $o or die $!;
+close F or die $!;
+print " wrote $of\n" or die $!;