From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 20:41:46 +0000 (+0000)
Subject: reorganise prep for fix number missing from individuals
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=568ab4b21ceadf78b6e875b04057a45badbf292e;p=quacks.git

reorganise prep for fix number missing from individuals

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 7dbc0dd..19cc6c4 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -456,15 +456,29 @@ END
   $o;
 }
 
+our $ps_framing;
+
 sub tile {
   my @tiles;
   my $index_i = 1;
-  foreach my $d (@_) {
-    foreach my $dd (ref $d ? @$d : $d) {
+
+  foreach my $spec (@_) {
+    my @datas;
+    foreach my $stem (split m{/}, $spec) {
+      my $func = $stem;
+      $func =~ y/-/_/;
+      $func = ${*::}{"book_$func"} // die "$func ?";
+      my $data = $func->();
+      open F, ">book-$stem.ps" or die $!;
+      print F $ps_framing, $data, "\nshowpage\n" or die $!;
+      close F or die $!;
+      push @datas, $data;
+    }
+    foreach my $dd (@datas) {
       push @tiles, [ $dd, $index_i ];
     }
     $index_i++;
-  }      
+  }
 
   my $pos = 0;
   my $o = '';
@@ -691,7 +705,7 @@ END
 };
 
 
-our $ps_framing = <<END;
+$ps_framing = <<END;
 %!
 
 $page_pre
@@ -774,22 +788,5 @@ print $ps_framing or die $!;
 
 print "gsave\n" or die $!;
 
-our @tiles;
-
-foreach my $spec (@ARGV) {
-  my @datas;
-  foreach my $stem (split m{/}, $spec) {
-    my $func = $stem;
-    $func =~ y/-/_/;
-    $func = ${*::}{"book_$func"} // die "$func ?";
-    my $data = $func->();
-    open F, ">book-$stem.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;
-}
-
-print tile(@tiles) or die $! if 1;
+print tile(@ARGV) or die $! if 1;