From 3bf3d6b49d5a2ac8c5fb01dcba386bb5517f2882 Mon Sep 17 00:00:00 2001
From: kramm <kramm>
Date: Sun, 6 Jun 2004 16:47:48 +0000
Subject: [PATCH] initial revision.

---
 doc/seperate.pl |   89 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 doc/seperate.pl

diff --git a/doc/seperate.pl b/doc/seperate.pl
new file mode 100644
index 0000000..45e7103
--- /dev/null
+++ b/doc/seperate.pl
@@ -0,0 +1,89 @@
+#!/usr/bin/perl
+
+$filename = $ARGV[0];
+
+$filename =~ /^(.*)\.([^.]*)$/;
+$basename = $1;
+$extension = $2;
+
+print "Processing $filename...\n";
+
+$head = "";
+
+open(fi, "<$filename");
+
+while(<fi>) {
+    last if(/snip:chapter/);
+    $head .= $_;
+}
+
+# chapters
+my $nr=1;
+my @chapters;
+my @names;
+/!!!"(.*)"!!!/;$name = $1;
+while(<fi>) {
+    my $chapter = "";
+    # one chapter
+    while(1) {
+	if(/snip:\/chapter/) {
+	    while(<fi>) {
+		last if(!/^\s*$/);
+	    }
+	    last;
+	}
+	$chapter .= $_;
+	$_ = <fi>;
+    }
+    $names[$nr] = $name;
+    $chapters[$nr++] = $chapter;
+
+    /!!!"(.*)"!!!/;$name = $1;
+    if(!/snip:chapter/) {
+	last;
+    }
+}
+
+while($_) {
+    $tail .= $_;
+    $_ = <fi>;
+}
+
+close(fi);
+
+my $num = $nr;
+$nr=1;
+for($nr=1;$nr<$num;$nr++) {
+    $h2 = $head;
+    $t2 = $tail;
+    my $filename = "$basename.$nr.$extension";
+    print "Creating $filename...\n";
+    for($n=1;$n<$num;$n++) {
+	if($nr == $n) {
+	    $h2 =~ s/chapterlink$n/<a href="$basename.$n.$extension">&gt;$names[$n]&lt;<\/a>/;
+	} else {
+	    $h2 =~ s/chapterlink$n/<a href="$basename.$n.$extension">$names[$n]<\/a>/;
+	}
+    }
+  
+    if($nr > 1) {
+	$prev = $names[$nr-1];
+	$aprev = $basename.".".($nr-1).".".$extension;
+	$t2 =~ s/__prevlink__/<a href="$aprev">Previous:&nbsp;$prev<\/a>/;
+    } else {
+	$t2 =~ s/__prevlink__/&nbsp;/;
+    }
+    if($nr < $num) {
+	$next= $names[$nr+1];
+	$anext = $basename.".".($nr+1).".".$extension;
+	
+	$t2 =~ s/__nextlink__/<a href="$anext">Next:&nbsp;$next<\/a>/;
+    } else {
+	$t2 =~ s/__nextlink__/&nbsp;/;
+    }
+    $t2 =~ s/__currentchapter__/$names[$nr]/;
+
+    open(fi, ">$filename");
+    print fi "$h2\n$chapters[$nr]\n$t2";
+    close(fi);
+}
-- 
1.7.10.4