doc/seperate.pl

   1 #!/usr/bin/perl
   2
   3 $filename = $ARGV[0];
   4
   5 $filename =~ /^(.*)\.([^.]*)$/;
   6 $basename = $1;
   7 $extension = $2;
   8
   9 print "Processing $filename...\n";
  10
  11 $head = "";
  12
  13 open(fi, "<$filename");
  14
  15 while(<fi>) {
  16     last if(/snip:chapter/);
  17     $head .= $_;
  18 }
  19
  20 # chapters
  21 my $nr=1;
  22 my @chapters;
  23 my @names;
  24 /!!!"(.*)"!!!/;$name = $1;
  25 while(<fi>) {
  26     my $chapter = "";
  27     # one chapter
  28     while(1) {
  29         if(/snip:\/chapter/) {
  30             while(<fi>) {
  31                 last if(!/^\s*$/);
  32             }
  33             last;
  34         }
  35         $chapter .= $_;
  36         $_ = <fi>;
  37     }
  38     $names[$nr] = $name;
  39     $chapters[$nr++] = $chapter;
  40
  41     /!!!"(.*)"!!!/;$name = $1;
  42     if(!/snip:chapter/) {
  43         last;
  44     }
  45 }
  46
  47 while($_) {
  48     $tail .= $_;
  49     $_ = <fi>;
  50 }
  51
  52 close(fi);
  53
  54 my $num = $nr;
  55 $nr=1;
  56 for($nr=1;$nr<$num;$nr++) {
  57     $h2 = $head;
  58     $t2 = $tail;
  59     my $filename = "$basename.$nr.$extension";
  60     print "Creating $filename...\n";
  61     for($n=1;$n<$num;$n++) {
  62         if($nr == $n) {
  63             $h2 =~ s/chapterlink$n/<a href="$basename.$n.$extension">&gt;$names[$n]&lt;<\/a>/;
  64         } else {
  65             $h2 =~ s/chapterlink$n/<a href="$basename.$n.$extension">$names[$n]<\/a>/;
  66         }
  67     }
  68
  69     if($nr > 1) {
  70         $prev = $names[$nr-1];
  71         $aprev = $basename.".".($nr-1).".".$extension;
  72         $t2 =~ s/__prevlink__/<a href="$aprev">Previous:&nbsp;$prev<\/a>/;
  73     } else {
  74         $t2 =~ s/__prevlink__/&nbsp;/;
  75     }
  76     if($nr < $num-1) {
  77         $next= $names[$nr+1];
  78         $anext = $basename.".".($nr+1).".".$extension;
  79
  80         $t2 =~ s/__nextlink__/<a href="$anext">Next:&nbsp;$next<\/a>/;
  81     } else {
  82         $t2 =~ s/__nextlink__/&nbsp;/;
  83     }
  84     $t2 =~ s/__currentchapter__/$names[$nr]/;
  85
  86     open(fi, ">$filename");
  87     print fi "$h2\n$chapters[$nr]\n$t2";
  88     close(fi);
  89 }