home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume36 / psutils / patch03 < prev    next >
Encoding:
Text File  |  1993-04-03  |  20.1 KB  |  739 lines
  1. Newsgroups: comp.sources.misc
  2. From: ajcd@dcs.ed.ac.uk (Angus Duggan)
  3. Subject: v36i095:  psutils - Postscript document manipulation tools, Patch03
  4. Message-ID: <1993Apr4.222504.6468@sparky.imd.sterling.com>
  5. X-Md4-Signature: 5da466d7b7abd79955fb69d8c404e60d
  6. Date: Sun, 4 Apr 1993 22:25:04 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: ajcd@dcs.ed.ac.uk (Angus Duggan)
  10. Posting-number: Volume 36, Issue 95
  11. Archive-name: psutils/patch03
  12. Environment: UNIX, VMS
  13. Patch-To: psutils: Volume 35, Issue 8-11
  14.  
  15. This is patch 3 to psutils (c.s.m. volume 35), bringing it up to patchlevel
  16. 10. This patch does the following:
  17.  
  18. * all utilities use malloc to allocate space for page pointers, removing the
  19.   maximum page limit.
  20.  
  21. * improves psselect to allow pages to be given relative to the end of the
  22.   document.
  23.  
  24. * improves the arbitrary coordinate system support to work with GhostView
  25.  
  26. * alters fixwpps for WordPerfect 5.1 output
  27.  
  28. * miscellaneous changes to manual pages and Makefile
  29.  
  30. a.
  31. --
  32. Angus Duggan, Department of Computer Science,    | I'm pink, therefore I'm Spam.
  33. University of Edinburgh, The King's Buildings,  | PHONE: +44(0)31 650 5126
  34. Mayfield Road, Edinburgh EH9 3JZ, Scotland.    | INET: ajcd@dcs.ed.ac.uk
  35.  
  36.  
  37. diff -cr psutils-dist/Makefile psutils/Makefile
  38. *** psutils-dist/Makefile    Wed Mar 31 15:57:34 1993
  39. --- psutils/Makefile    Wed Mar 31 15:14:11 1993
  40. ***************
  41. *** 30,42 ****
  42.   pstops: pstops.o psutil.o
  43.       $(CC) $(CFLAGS) -o pstops psutil.o pstops.o
  44.   
  45. ! psbook.c: psutil.h patchlevel.h
  46.   
  47. ! pstops.c: psutil.h patchlevel.h
  48.   
  49. ! psutil.c: psutil.h patchlevel.h
  50.   
  51. ! psselect.c: psutil.h patchlevel.h
  52.   
  53.   psnup: psnup.sh patchlevel.h
  54.       r=`sed -n -e "s/^#define RELEASE \([0-9][0-9]*\)/\1/p" <patchlevel.h`; \
  55. --- 30,42 ----
  56.   pstops: pstops.o psutil.o
  57.       $(CC) $(CFLAGS) -o pstops psutil.o pstops.o
  58.   
  59. ! psbook.o: psutil.h patchlevel.h psbook.c
  60.   
  61. ! pstops.o: psutil.h patchlevel.h pstops.c
  62.   
  63. ! psutil.o: psutil.h patchlevel.h psutil.c
  64.   
  65. ! psselect.o: psutil.h patchlevel.h psselect.c
  66.   
  67.   psnup: psnup.sh patchlevel.h
  68.       r=`sed -n -e "s/^#define RELEASE \([0-9][0-9]*\)/\1/p" <patchlevel.h`; \
  69. diff -cr psutils-dist/fixwpps psutils/fixwpps
  70. *** psutils-dist/fixwpps    Fri Mar 19 14:48:40 1993
  71. --- psutils/fixwpps    Mon Mar 29 13:06:50 1993
  72. ***************
  73. *** 7,25 ****
  74.   
  75.   $page = 1;
  76.   while (<>) {
  77. !    s/(_[a-zA-Z]+)([0-9]+)/\1 \2/g;
  78.      if (/^_bp/) {
  79.         print STDOUT "%%Page: $page $page\n";
  80.         print STDOUT $_;
  81.         $page++;
  82. !    } elsif (/^([^\/].*\S.*)(_bp.*)/) {
  83.         print STDOUT "$1\n";
  84.         print STDOUT "%%Page: $page $page\n";
  85.         print STDOUT "$2\n";
  86.         $page++;
  87. !    } elsif (/^_ed/) {
  88.         print STDOUT "%%Trailer:\n";
  89. !       print STDOUT $_;
  90.      } else {
  91.         print STDOUT $_;
  92.      }
  93. --- 7,26 ----
  94.   
  95.   $page = 1;
  96.   while (<>) {
  97. ! #   s/([^\/]_[a-zA-Z]+)([0-9]+)/\1 \2/g;    # removed for wp 5.1
  98.      if (/^_bp/) {
  99.         print STDOUT "%%Page: $page $page\n";
  100.         print STDOUT $_;
  101.         $page++;
  102. !    } elsif (/^([^\/\s].*)\s(_bp.*)/) {
  103.         print STDOUT "$1\n";
  104.         print STDOUT "%%Page: $page $page\n";
  105.         print STDOUT "$2\n";
  106.         $page++;
  107. !    } elsif (/^(.*\s)?(_ed.*)/) {
  108. !       print STDOUT "$1\n" if defined($1);
  109.         print STDOUT "%%Trailer:\n";
  110. !       print STDOUT "$2\n";
  111.      } else {
  112.         print STDOUT $_;
  113.      }
  114. diff -cr psutils-dist/patchlevel.h psutils/patchlevel.h
  115. *** psutils-dist/patchlevel.h    Wed Mar 31 15:57:35 1993
  116. --- psutils/patchlevel.h    Wed Mar 31 15:11:24 1993
  117. ***************
  118. *** 1,2 ****
  119.   #define RELEASE 1
  120. ! #define PATCHLEVEL 9
  121. --- 1,2 ----
  122.   #define RELEASE 1
  123. ! #define PATCHLEVEL 10
  124. diff -cr psutils-dist/psbook.1 psutils/psbook.1
  125. *** psutils-dist/psbook.1    Mon Feb  8 11:33:45 1993
  126. --- psutils/psbook.1    Wed Mar 31 15:33:31 1993
  127. ***************
  128. *** 33,42 ****
  129.   .SH AUTHOR
  130.   Angus Duggan
  131.   .SH "SEE ALSO"
  132. ! psselect(1), pstops(1)
  133.   .SH TRADEMARKS
  134.   .B PostScript
  135.   is a trademark of Adobe Systems Incorporated.
  136.   .SH BUGS
  137.   .I Psbook
  138. ! cannot cope with documents longer than 5000 pages.
  139. --- 33,42 ----
  140.   .SH AUTHOR
  141.   Angus Duggan
  142.   .SH "SEE ALSO"
  143. ! psselect(1), pstops(1), psnup(1)
  144.   .SH TRADEMARKS
  145.   .B PostScript
  146.   is a trademark of Adobe Systems Incorporated.
  147.   .SH BUGS
  148.   .I Psbook
  149. ! does not accept all DSC comments.
  150. diff -cr psutils-dist/psbook.c psutils/psbook.c
  151. *** psutils-dist/psbook.c    Mon Feb  8 11:33:45 1993
  152. --- psutils/psbook.c    Wed Mar 31 17:47:59 1993
  153. ***************
  154. *** 72,78 ****
  155.   
  156.      /* rearrange pages */
  157.      writeheader(maxpage);
  158. !    writeprolog();
  159.      for (currentpg = 0; currentpg < maxpage; currentpg++) {
  160.         int actualpg = currentpg - currentpg%signature;
  161.         switch(currentpg%4) {
  162. --- 72,78 ----
  163.   
  164.      /* rearrange pages */
  165.      writeheader(maxpage);
  166. !    writeprolog("");
  167.      for (currentpg = 0; currentpg < maxpage; currentpg++) {
  168.         int actualpg = currentpg - currentpg%signature;
  169.         switch(currentpg%4) {
  170. diff -cr psutils-dist/psnup.1 psutils/psnup.1
  171. *** psutils-dist/psnup.1    Wed Mar 31 15:57:36 1993
  172. --- psutils/psnup.1    Wed Mar 31 15:33:22 1993
  173. ***************
  174. *** 27,54 ****
  175.   ]
  176.   [
  177.   .I infile
  178. ! ]
  179.   .SH DESCRIPTION
  180.   .I Psnup
  181.   is a script making the use of 
  182.   .I pstops 
  183.   easier.
  184. ! It sets up standard width and height parameters and 
  185.   .I Pstops
  186. ! rearranges pages from a PostScript document, creating a new PostScript file.
  187.   The input PostScript file should follow the Adobe Document Structuring
  188.   Conventions.
  189. - .I Pstops
  190. - can be used to perform a large number of arbitrary re-arrangements of
  191. - Documents, including arranging for printing 2-up, 4-up, booklets, reversing,
  192. - selecting front or back sides of documents, scaling, etc.
  193.   .PP
  194.   The
  195.   .I \-w
  196. ! option gives the width, the default is (21cm),
  197.   .I \-h
  198. ! option gives the height, the default is (29.7cm), 
  199. ! and are normally specified in
  200.   .B "cm"
  201.   or
  202.   .B "in"
  203. --- 27,53 ----
  204.   ]
  205.   [
  206.   .I infile
  207. ! [
  208. ! .I outfile
  209. ! ] ]
  210.   .SH DESCRIPTION
  211.   .I Psnup
  212.   is a script making the use of 
  213.   .I pstops 
  214.   easier.
  215. ! It uses
  216.   .I Pstops
  217. ! to put more than one logical page of a PostScript document on each physical
  218. ! page of output.
  219.   The input PostScript file should follow the Adobe Document Structuring
  220.   Conventions.
  221.   .PP
  222.   The
  223.   .I \-w
  224. ! option gives the paper width, and the
  225.   .I \-h
  226. ! option gives the paper height,
  227. ! normally specified in
  228.   .B "cm"
  229.   or
  230.   .B "in"
  231. ***************
  232. *** 72,81 ****
  233.   .BR \-8 ,
  234.   and
  235.   .BR \-9
  236. ! options print 2-,
  237. ! 4-,
  238. ! 8-,
  239. ! and 9-up.
  240.   .PP
  241.   The
  242.   .I \-b
  243. --- 71,80 ----
  244.   .BR \-8 ,
  245.   and
  246.   .BR \-9
  247. ! options put 2,
  248. ! 4,
  249. ! 8,
  250. ! or 9 logical pages on each physical page.
  251.   .PP
  252.   The
  253.   .I \-b
  254. ***************
  255. *** 111,120 ****
  256.   .br
  257.   brianc@labmed.ucsf.edu
  258.   .SH "SEE ALSO"
  259. ! psbook(1), pstops(1)
  260.   .SH TRADEMARKS
  261.   .B PostScript
  262.   is a trademark of Adobe Systems Incorporated.
  263.   .SH BUGS
  264.   .I Pstops
  265. ! cannot cope with documents longer than 5000 pages.
  266. --- 110,119 ----
  267.   .br
  268.   brianc@labmed.ucsf.edu
  269.   .SH "SEE ALSO"
  270. ! psbook(1), pstops(1), psselect(1)
  271.   .SH TRADEMARKS
  272.   .B PostScript
  273.   is a trademark of Adobe Systems Incorporated.
  274.   .SH BUGS
  275.   .I Pstops
  276. ! does not accept all DSC comments.
  277. diff -cr psutils-dist/psnup.sh psutils/psnup.sh
  278. *** psutils-dist/psnup.sh    Fri Mar 19 14:48:41 1993
  279. --- psutils/psnup.sh    Wed Mar 31 15:27:44 1993
  280. ***************
  281. *** 1,7 ****
  282.   #!/bin/sh
  283.   # psnup: put multiple pages onto one physical sheet of paper.
  284.   # usage:
  285. ! #       psnup [-w<dim>] [-h<dim>] [-ppaper] [-l] [-2|-4|-8|-9] [file...]
  286.   #               -w<dim> sets the paper width
  287.   #               -h<dim> sets the paper height
  288.   #               -ppaper sets the paper size (width and height) by name
  289. --- 1,7 ----
  290.   #!/bin/sh
  291.   # psnup: put multiple pages onto one physical sheet of paper.
  292.   # usage:
  293. ! #       psnup [-q] [-w<dim>] [-h<dim>] [-ppaper] [-l] [-2|-4|-8|-9] [in [out]]
  294.   #               -w<dim> sets the paper width
  295.   #               -h<dim> sets the paper height
  296.   #               -ppaper sets the paper size (width and height) by name
  297. ***************
  298. *** 21,27 ****
  299.           -8)     nup=8 ;;
  300.           -9)     nup=9 ;;
  301.           -s*)    xscale=`echo "$1" | sed "s/^-./@/"` ;;
  302. !         -v)     echo "psnup release @RELEASE@ patchlevel @PATCHLEVEL@" ; exit 1 ;;
  303.           *)      io="$io $1"
  304.           esac
  305.           shift
  306. --- 21,29 ----
  307.           -8)     nup=8 ;;
  308.           -9)     nup=9 ;;
  309.           -s*)    xscale=`echo "$1" | sed "s/^-./@/"` ;;
  310. !         -v)     echo "psnup release @RELEASE@ patchlevel @PATCHLEVEL@" 1>&2
  311. !                 echo "Usage: $0 [-w<dim>] [-h<dim>] [-ppaper] [-l] [-2|-4|-8|-9] [-q] [-b] [infile [outfile]]" 1>&2
  312. !                 exit 1 ;;
  313.           *)      io="$io $1"
  314.           esac
  315.           shift
  316. diff -cr psutils-dist/psselect.1 psutils/psselect.1
  317. *** psutils-dist/psselect.1    Mon Feb  8 11:33:46 1993
  318. --- psutils/psselect.1    Wed Mar 31 15:33:42 1993
  319. ***************
  320. *** 44,49 ****
  321. --- 44,52 ----
  322.   or a page range of the form \fIfirst\fR-\fIlast\fR. If \fIfirst\fR is omitted,
  323.   the
  324.   first page is assumed, and if \fIlast\fR is omitted, the last page is assumed.
  325. + 
  326. + The prefix character `_' indicates that the page number is relative to the end
  327. + of the document, counting backwards.
  328.   .PP
  329.   The 
  330.   .I \-r
  331. ***************
  332. *** 66,80 ****
  333.   .SH NOTES
  334.   The page number given to
  335.   .I psselect
  336. ! is the number of the page counting from the start of the file, starting at
  337. ! one. The actual page number in the document may be different.
  338.   .SH AUTHOR
  339.   Angus Duggan
  340.   .SH "SEE ALSO"
  341. ! psbook(1), pstops(1)
  342.   .SH TRADEMARKS
  343.   .B PostScript
  344.   is a trademark of Adobe Systems Incorporated.
  345.   .SH BUGS
  346.   .I Psselect
  347. ! cannot cope with documents longer than 5000 pages.
  348. --- 69,83 ----
  349.   .SH NOTES
  350.   The page number given to
  351.   .I psselect
  352. ! is the number of the page counting from the start or end of the file, starting
  353. ! at one. The actual page number in the document may be different.
  354.   .SH AUTHOR
  355.   Angus Duggan
  356.   .SH "SEE ALSO"
  357. ! psbook(1), pstops(1), psnup(1)
  358.   .SH TRADEMARKS
  359.   .B PostScript
  360.   is a trademark of Adobe Systems Incorporated.
  361.   .SH BUGS
  362.   .I Psselect
  363. ! does not accept all DSC comments.
  364. diff -cr psutils-dist/psselect.c psutils/psselect.c
  365. *** psutils-dist/psselect.c    Wed Mar 31 15:57:36 1993
  366. --- psutils/psselect.c    Wed Mar 31 17:59:40 1993
  367. ***************
  368. *** 48,55 ****
  369.        range *rp;
  370.   {
  371.      int first=0;
  372.      if (isdigit(*str)) {
  373. !       first = atoi(str);
  374.         while (isdigit(*str)) str++;
  375.      }
  376.      switch (*str) {
  377. --- 48,57 ----
  378.        range *rp;
  379.   {
  380.      int first=0;
  381. +    int sign;
  382. +    sign = (*str == '_' && ++str) ? -1 : 1;
  383.      if (isdigit(*str)) {
  384. !       first = sign*atoi(str);
  385.         while (isdigit(*str)) str++;
  386.      }
  387.      switch (*str) {
  388. ***************
  389. *** 64,71 ****
  390.      case '-':
  391.      case ':':
  392.         str++;
  393.         if (isdigit(*str)) {
  394. !      int last = atoi(str);
  395.        while (isdigit(*str)) str++;
  396.        if (!first)
  397.           first = 1;
  398. --- 66,74 ----
  399.      case '-':
  400.      case ':':
  401.         str++;
  402. +       sign = (*str == '_' && ++str) ? -1 : 1;
  403.         if (isdigit(*str)) {
  404. !      int last = sign*atoi(str);
  405.        while (isdigit(*str)) str++;
  406.        if (!first)
  407.           first = 1;
  408. ***************
  409. *** 77,83 ****
  410.              return (addrange(str+1, makerange(first, last, rp)));
  411.           }
  412.         } else if (*str == '\0')
  413. !      return (makerange(first, MAXPAGES, rp));
  414.      }
  415.      fprintf(stderr, "%s: invalid page range\n", prog);
  416.      fflush(stderr);
  417. --- 80,88 ----
  418.              return (addrange(str+1, makerange(first, last, rp)));
  419.           }
  420.         } else if (*str == '\0')
  421. !      return (makerange(first, -1, rp));
  422. !       else if (*str == ',')
  423. !      return (addrange(str+1, makerange(first, -1, rp)));
  424.      }
  425.      fprintf(stderr, "%s: invalid page range\n", prog);
  426.      fflush(stderr);
  427. ***************
  428. *** 162,177 ****
  429.      for (pass = 0; pass < 2; pass++) {
  430.         if (pass) {                           /* write header on second pass */
  431.        writeheader(maxpage);
  432. !      writeprolog();
  433.         }
  434.         if (pagerange) {
  435.        range *r;
  436.        for (r = pagerange; r; r = r->next) {
  437. !         if (pagerange->last == MAXPAGES)
  438. !            pagerange->last = pages;
  439.           if (reverse) {
  440.              for (currentpg = r->last; currentpg >= r->first; currentpg--) {
  441. !           if ((currentpg&1) ? (odd || all) : (even || all)) {
  442.                if (pass)
  443.               writepage(currentpg-1);
  444.                else
  445. --- 167,191 ----
  446.      for (pass = 0; pass < 2; pass++) {
  447.         if (pass) {                           /* write header on second pass */
  448.        writeheader(maxpage);
  449. !      writeprolog("");
  450.         }
  451.         if (pagerange) {
  452.        range *r;
  453.        for (r = pagerange; r; r = r->next) {
  454. !         if (pagerange->first < 0) {
  455. !            pagerange->first += pages + 1;
  456. !            if (pagerange->first < 0)
  457. !           pagerange->first = 0;
  458. !         }
  459. !         if (pagerange->last < 0) {
  460. !            pagerange->last += pages + 1;
  461. !            if (pagerange->last < 0)
  462. !           pagerange->last = 0;
  463. !         }
  464.           if (reverse) {
  465.              for (currentpg = r->last; currentpg >= r->first; currentpg--) {
  466. !           if (currentpg <= pages &&
  467. !               ((currentpg&1) ? (odd || all) : (even || all))) {
  468.                if (pass)
  469.               writepage(currentpg-1);
  470.                else
  471. ***************
  472. *** 180,186 ****
  473.              }
  474.           } else {
  475.              for (currentpg = r->first; currentpg <= r->last; currentpg++) {
  476. !           if ((currentpg&1) ? (odd || all) : (even || all)) {
  477.                if (pass)
  478.               writepage(currentpg-1);
  479.                else
  480. --- 194,201 ----
  481.              }
  482.           } else {
  483.              for (currentpg = r->first; currentpg <= r->last; currentpg++) {
  484. !           if (currentpg <= pages &&
  485. !               ((currentpg&1) ? (odd || all) : (even || all))) {
  486.                if (pass)
  487.               writepage(currentpg-1);
  488.                else
  489. diff -cr psutils-dist/pstops.1 psutils/pstops.1
  490. *** psutils-dist/pstops.1    Mon Feb  8 11:33:21 1993
  491. --- psutils/pstops.1    Wed Mar 31 15:33:55 1993
  492. ***************
  493. *** 42,48 ****
  494.   .I = spec[+specs][,specs]
  495.   .TP
  496.   .I spec
  497. ! .I = [-]pageno[@scale][L][R][U][(xoff,yoff)]
  498.   .RE
  499.   .sp
  500.   .I modulo
  501. --- 42,48 ----
  502.   .I = spec[+specs][,specs]
  503.   .TP
  504.   .I spec
  505. ! .I = [-]pageno[L][R][U][@scale][(xoff,yoff)]
  506.   .RE
  507.   .sp
  508.   .I modulo
  509. ***************
  510. *** 89,94 ****
  511. --- 89,98 ----
  512.   If there is only one page specification, with
  513.   .I pageno
  514.   zero, the \fIpageno\fR may be omitted.
  515. + 
  516. + The shift, rotation, and scaling are performed
  517. + in that order regardless of which order
  518. + they appear on the command line.
  519.   .PP
  520.   The
  521.   .I \-w
  522. ***************
  523. *** 137,146 ****
  524.   .SH AUTHOR
  525.   Angus Duggan
  526.   .SH "SEE ALSO"
  527. ! psbook(1), psselect(1)
  528.   .SH TRADEMARKS
  529.   .B PostScript
  530.   is a trademark of Adobe Systems Incorporated.
  531.   .SH BUGS
  532.   .I Pstops
  533. ! cannot cope with documents longer than 5000 pages.
  534. --- 141,150 ----
  535.   .SH AUTHOR
  536.   Angus Duggan
  537.   .SH "SEE ALSO"
  538. ! psbook(1), psselect(1), psnup(1)
  539.   .SH TRADEMARKS
  540.   .B PostScript
  541.   is a trademark of Adobe Systems Incorporated.
  542.   .SH BUGS
  543.   .I Pstops
  544. ! does not accept all DSC comments.
  545. diff -cr psutils-dist/pstops.c psutils/pstops.c
  546. *** psutils-dist/pstops.c    Wed Mar 31 15:57:37 1993
  547. --- psutils/pstops.c    Wed Mar 31 17:43:53 1993
  548. ***************
  549. *** 300,306 ****
  550.         writestring("/initmatrix lcvx/initclip lcvx /newpath lcvx\n");
  551.         writestring(" 0 0 /moveto lcvx\n");
  552.         sprintf(buffer,
  553. !           " %lf 0/rlineto lcvx 0 %lf/rlineto lcvx -%lf 0/rlineto lcvx\n",
  554.             width, height, width);
  555.         writestring(buffer);
  556.         writestring(" /clip lcvx /newpath lcvx /setmatrix lcvx /exec lcvx]\n");
  557. --- 300,306 ----
  558.         writestring("/initmatrix lcvx/initclip lcvx /newpath lcvx\n");
  559.         writestring(" 0 0 /moveto lcvx\n");
  560.         sprintf(buffer,
  561. !           " %lf 0/rlineto lcvx\n 0 %lf/rlineto lcvx\n -%lf 0/rlineto lcvx\n /closepath lcvx\n",
  562.             width, height, width);
  563.         writestring(buffer);
  564.         writestring(" /clip lcvx /newpath lcvx /setmatrix lcvx /exec lcvx]\n");
  565. ***************
  566. *** 312,321 ****
  567.      if (nobinding) /* desperation measures */
  568.         writestring("/bind{}def\n");
  569.      writestring("%%EndProcSet\n");
  570. -    writeprolog();
  571.      /* save transformation from original to current matrix */
  572. !    writestring("/pstopsxform pstopsmatrix matrix currentmatrix matrix\n");
  573. !    writestring("invertmatrix matrix concatmatrix matrix invertmatrix store\n");
  574.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  575.         int add_last = 0;
  576.         struct pagespec *ps;
  577. --- 312,319 ----
  578.      if (nobinding) /* desperation measures */
  579.         writestring("/bind{}def\n");
  580.      writestring("%%EndProcSet\n");
  581.      /* save transformation from original to current matrix */
  582. !    writeprolog("/pstopsxform pstopsmatrix matrix currentmatrix matrix invertmatrix matrix concatmatrix matrix invertmatrix store\n");
  583.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  584.         int add_last = 0;
  585.         struct pagespec *ps;
  586. ***************
  587. *** 353,358 ****
  588. --- 351,357 ----
  589.           }
  590.           writestring("pstopsxform concat\n");
  591.           writestring("/pstopsmatrix matrix currentmatrix def\n");
  592. + 
  593.        }
  594.        if (add_next) {
  595.           writestring("/showpage{}def/copypage{}def/erasepage{}def\n");
  596. diff -cr psutils-dist/psutil.c psutils/psutil.c
  597. *** psutils-dist/psutil.c    Wed Mar 31 15:57:37 1993
  598. --- psutils/psutil.c    Wed Mar 31 17:50:28 1993
  599. ***************
  600. *** 22,31 ****
  601. --- 22,34 ----
  602.   static long bytes = 0;
  603.   static long pagescmt = 0;
  604.   static long headerlen = 0;
  605. + static long endsetup = 0;
  606.   static int outputpage = 0;
  607.   static char pagelabel[BUFSIZ];
  608.   static int pageno;
  609.   static long pagelength;
  610. + static int maxpages = 100;
  611. + static long *pageptr;
  612.   
  613.   /* make a file seekable; trick stolen from Chris Torek's libdvi */
  614.   
  615. ***************
  616. *** 96,101 ****
  617. --- 99,109 ----
  618.      register long int this_record;
  619.   #endif
  620.   
  621. +    if ((pageptr = (long *)malloc(sizeof(long)*maxpages)) == NULL) {
  622. +       fprintf(stderr, "%s: out of memory\n", prog);
  623. +       fflush(stderr);
  624. +       exit(1);
  625. +    }
  626.      pages = 0;
  627.      fseek(infile, 0L, 0);
  628.   #ifdef VMS
  629. ***************
  630. *** 105,117 ****
  631.   #endif
  632.         if (*buffer == '%') {
  633.        if (buffer[1] == '%') {
  634. !         if (nesting == 0 && strncmp(comment, "Page:", 5) == 0)
  635.   #ifdef VMS
  636.              pageptr[pages++] = this_record;
  637.   #else
  638.              pageptr[pages++] = ftell(infile)-strlen(buffer);
  639.   #endif
  640. !         else if (headerlen == 0 && strncmp(comment, "Pages:", 6) == 0)
  641.   #ifdef VMS
  642.              pagescmt = this_record;
  643.   #else
  644. --- 113,134 ----
  645.   #endif
  646.         if (*buffer == '%') {
  647.        if (buffer[1] == '%') {
  648. !         if (nesting == 0 && strncmp(comment, "Page:", 5) == 0) {
  649. !            if (pages >= maxpages-1) {
  650. !           maxpages *= 2;
  651. !           if ((pageptr = (long *)realloc((char *)pageptr,
  652. !                          sizeof(long)*maxpages)) == NULL) {
  653. !              fprintf(stderr, "%s: out of memory\n", prog);
  654. !              fflush(stderr);
  655. !              exit(1);
  656. !           }
  657. !            }
  658.   #ifdef VMS
  659.              pageptr[pages++] = this_record;
  660.   #else
  661.              pageptr[pages++] = ftell(infile)-strlen(buffer);
  662.   #endif
  663. !         } else if (headerlen == 0 && strncmp(comment, "Pages:", 6) == 0)
  664.   #ifdef VMS
  665.              pagescmt = this_record;
  666.   #else
  667. ***************
  668. *** 128,133 ****
  669. --- 145,156 ----
  670.              nesting++;
  671.           else if (strncmp(comment, "EndBinary", 9) == 0)
  672.              nesting--;
  673. +         else if (nesting == 0 && strncmp(comment, "EndSetup", 8) == 0)
  674. + #ifdef VMS
  675. +            endsetup = this_record;
  676. + #else
  677. +            endsetup = ftell(infile)-strlen(buffer);
  678. + #endif
  679.           else if (nesting == 0 && strncmp(comment, "Trailer", 7) == 0) {
  680.   #ifdef VMS
  681.              fseek(infile, this_record, 0);
  682. ***************
  683. *** 149,154 ****
  684. --- 172,179 ----
  685.        headerlen = ftell(infile)-strlen(buffer);
  686.   #endif
  687.      pageptr[pages] = ftell(infile);
  688. +    if (endsetup == 0)
  689. +       endsetup = pageptr[0];
  690.   }
  691.   
  692.   seekpage(p)
  693. ***************
  694. *** 225,233 ****
  695.   }
  696.   
  697.   
  698. ! writeprolog()
  699.   {
  700. !    if (!fcopy(pageptr[0]-headerlen)) {
  701.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  702.         fflush(stderr);
  703.         exit(1);
  704. --- 250,265 ----
  705.   }
  706.   
  707.   
  708. ! writeprolog(setup)
  709. !      char *setup;
  710.   {
  711. !    if (!fcopy(endsetup-headerlen)) {
  712. !       fprintf(stderr, "%s: I/O error in prologue\n", prog);
  713. !       fflush(stderr);
  714. !       exit(1);
  715. !    }
  716. !    writestring(setup);
  717. !    if (!fcopy(pageptr[0]-endsetup)) {
  718.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  719.         fflush(stderr);
  720.         exit(1);
  721. diff -cr psutils-dist/psutil.h psutils/psutil.h
  722. *** psutils-dist/psutil.h    Wed Mar 31 15:57:37 1993
  723. --- psutils/psutil.h    Wed Mar 31 11:23:06 1993
  724. ***************
  725. *** 11,20 ****
  726.   #endif
  727.   
  728.   #define TMPDIR "/tmp"
  729. - #define MAXPAGES 5000 /* max pages in document */
  730.   
  731.   LOCAL char *prog;
  732. - LOCAL long pageptr[MAXPAGES];
  733.   LOCAL int pages;
  734.   LOCAL int verbose;
  735.   LOCAL FILE *infile;
  736. --- 11,18 ----
  737.  
  738. exit 0 # Just in case...
  739.