write out individual book files

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/.gitignore b/.gitignore
index 6cb2956d75e5a1600e9d88b4318d4a9838290c5e..6ebd0e8adc679fab5ea16fddf270f4b03d686eec 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -3,6 +3,7 @@ pumpkin-books.pdf
 bag.pgm
 pot.pgm
 droplet.ppm
+book-*
 *.tmp
 *.tmp.*
 *.md.txt

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 2f56ec4a08a4bf28ba808ad1f1e5b4cd84ed8629..d83a4ad20e43e97b3bac41075b252fc252cd3aff 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -788,7 +788,14 @@ our @tiles;
 foreach my $spec (@books) {
   my @datas;
   foreach my $book (split m{/}, $spec) {
-    push @datas, ${*::}{"$book"}();
+    my $data = ${*::}{"$book"}();;
+    my $file = $book;
+    $file =~ s/_book//;
+    $file =~ y/_/-/;
+    open F, ">book-$file.ps" or die $!;
+    print F $ps_framing, $data, "\nshowpage\n" or die $!;
+    close F or die $!;
+    push @datas, $data;
   }
   push @tiles, @datas == 1 ? @datas : \@datas;
 }