[SCM] Debian packaging for sketch 3D line drawing software branch, debian/Doc-make-pl, updated. upstream/0.2.89-11-g5184983

[David Bremner]

The following commit has been merged in the debian/Doc-make-pl branch:
commit 9c705eba5a2dd3c37add1a6655c6a5bd8e771a96
Author: David Bremner <bremner at unb.ca>
Date:   Tue Jan 5 08:09:13 2010 -0400

    Add debugging output

diff --git a/Doc/make.pl b/Doc/make.pl
index d40e8ff..b20aa9e 100644
--- a/Doc/make.pl
+++ b/Doc/make.pl
@@ -16,22 +16,22 @@ sub make_example {
   unless ($arg{nosketch}) {
     my $cmd = "../sketch -D $ex manexamples.sk > $ex.tex";
     print STDERR "$cmd\n";
-    system($cmd) == 0 or die;
+    system($cmd) == 0 or die "$!";
   }
   unless ($arg{nobitmaps}) {
     print STDERR "latex example '$ex-tmp.tex':\n";
-    system("sed -e s/TEXFILE/$ex/ makeex-tmp.tex > $ex-tmp.tex") == 0 or die;
-    system("latex $MEM_OPTION $ex-tmp.tex") == 0 or die;
-    system("dvips -E $ex-tmp -o tmp.eps") == 0 or die;
+    system("sed -e s/TEXFILE/$ex/ makeex-tmp.tex > $ex-tmp.tex") == 0 or die "$!";
+    system("latex $MEM_OPTION $ex-tmp.tex") == 0 or die "$!";
+    system("dvips -E $ex-tmp -o tmp.eps") == 0 or die "$!";
     # fix up bounding box (originally this was not necessary; something was "improved")
-    system("epstool --copy --bbox tmp.eps $ex.eps") == 0 or die;
+    system("epstool --copy --bbox tmp.eps $ex.eps") == 0 or die "$!";
     unlink "tmp.eps";
     local *F;
-    open(F, "> $ex.txt") or die;
+    open(F, "> $ex.txt") or die "$!";
     print F "Image $ex omitted in text version of this document.";
     close F;
-    system("$GS -q -dQUIET -dNOPAUSE -dBATCH -dEPSCrop -sDEVICE=pdfwrite -sOutputFile=$ex.pdf -r120 $ex.eps") == 0 or die;
-    system("$GS -q -dQUIET -dNOPAUSE -dBATCH -dEPSCrop -sDEVICE=png256   -sOutputFile=$ex.png -r120 $ex.eps") == 0 or die;
+    system("$GS -q -dQUIET -dNOPAUSE -dBATCH -dEPSCrop -sDEVICE=pdfwrite -sOutputFile=$ex.pdf -r120 $ex.eps") == 0 or die "$!";
+    system("$GS -q -dQUIET -dNOPAUSE -dBATCH -dEPSCrop -sDEVICE=png256   -sOutputFile=$ex.png -r120 $ex.eps") == 0 or die "$!";
     unlink <$ex-tmp.*>;
   }
 }
@@ -40,7 +40,7 @@ sub make_all {
   my %arg = map { $_ => 1 } @_;
   if ($arg{examples}) {
     local *F;
-    open(F, "tags.sk") or die;
+    open(F, "tags.sk") or die "$!";
     while (<F>) {
       if (/<([^>]*)>/) {
         make_example $1, @_;
@@ -50,24 +50,24 @@ sub make_all {
   }
   unless ($arg{notypeset}) {
     print "info:\n";
-    system("makeinfo sketch.texi") == 0 or die;
+    system("makeinfo sketch.texi") == 0 or die "$!";
 
     print "html, one page per node:\n";
-    system("makeinfo --html sketch.texi") == 0 or die;
+    system("makeinfo --html sketch.texi") == 0 or die "$!";
     while (<*.png>) { 
       copy($_, "sketch/$_");
     }
 
     print "html, single page:\n";
-    system("makeinfo --html --no-split sketch.texi") == 0 or die;
+    system("makeinfo --html --no-split sketch.texi") == 0 or die "$!";
 
     # run twice to ensure labels are ok
     print "TeX DVI\n";
-    system("texi2dvi sketch.texi") == 0 or die;
-    system("texi2dvi sketch.texi") == 0 or die;
+    system("texi2dvi sketch.texi") == 0 or die "$!";
+    system("texi2dvi sketch.texi") == 0 or die "$!";
 
     print "Postscript:\n";
-    system("dvips sketch.dvi -o sketch.ps") == 0 or die;
+    system("dvips sketch.dvi -o sketch.ps") == 0 or die "$!";
 
     # texi2dvi finds PNG before the PDF graphics, so delete...
     my @unlink_list = <ex???.png>;
@@ -75,7 +75,7 @@ sub make_all {
 
     # make PDF manual
     print "PDF:\n";
-    system("texi2dvi --pdf sketch.texi") == 0 or die;
+    system("texi2dvi --pdf sketch.texi") == 0 or die "$!";
 
     # ... and restore
     for (@unlink_list) {

-- 
Debian packaging for sketch 3D line drawing software