home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume41 / psutils / patch01 next >
Encoding:
Text File  |  1993-12-04  |  85.2 KB  |  2,766 lines
  1. Newsgroups: comp.sources.misc
  2. From: angus@harlequin.co.uk (Angus Duggan)
  3. Subject: v41i029:  psutils - Postscript document manipulation tools, Patch01
  4. Message-ID: <1993Dec4.180102.18886@sparky.sterling.com>
  5. X-Md4-Signature: 80a21b8422ef14a0f9bc74c106081bac
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Sterling Software
  8. Date: Sat, 4 Dec 1993 18:01:02 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: angus@harlequin.co.uk (Angus Duggan)
  12. Posting-number: Volume 41, Issue 29
  13. Archive-name: psutils/patch01
  14. Environment: UNIX, VMS, msdos
  15. Patch-To: psutils: Volume 39, Issue 93-96
  16.  
  17. This patch takes PSUtils to patchlevel 13. The main features of this patch
  18. are:
  19.  
  20. Patchlevel 13 contains two new scripts for resource management, a program for
  21. page resizing, and fixes to the Makefile, page labels, and output chaining.
  22.  
  23. * Epsffit can output to a file as well as standard output.
  24. * extractres takes resources out of PostScript files and saves them
  25. * includeres puts resources from a resource library into PostScript files.
  26. * maketext script is now used to do substitutions in Perl scripts and man pages
  27. * page labels in psnup and pstops are now show where pages came from.
  28. * page labels in psbook and psselect fixed.
  29. * prologues fixed to be extractable and re-usable
  30. * Makefile doesn't use SUFFIXES any more
  31. * pstops and psnup output can now be chained through each other.
  32. * psresize alters the paper size used by a document
  33. * patchlevel.h shortened to patchlev.h as a concession to MSDOS
  34. * psnup now has -n nup form for compatibility with other n-up programs
  35.  
  36. a.
  37. --
  38. Angus Duggan, Harlequin Ltd., Barrington Hall,    | INET: angus@harlequin.co.uk
  39. Barrington, Cambridge CB2 5RG, U.K.        | PHONE: +44(0)223 872522
  40.  
  41. diff -cr +new-file psutils-dist/LICENSE psutils-next/LICENSE
  42. *** psutils-dist/LICENSE    Mon Nov 29 10:34:21 1993
  43. --- psutils-next/LICENSE    Mon Nov 29 18:50:38 1993
  44. ***************
  45. *** 4,17 ****
  46.   The constituent files of this package listed below are copyright (C) 1991,
  47.   1992, 1993 Angus J. C. Duggan.
  48.   
  49. ! LICENSE         Makefile        Manifest        README          epsffit.c
  50. ! epsffit.man     fixfmps.man     fixfmps.pl      fixmacps.man    fixmacps.pl
  51. ! fixpsditps.man  fixpsditps.pl   fixpspps.man    fixpspps.pl     fixtpps.man
  52. ! fixtpps.pl      fixwfwps.man    fixwfwps.pl     fixwpps.man     fixwpps.pl
  53. ! fixwwps.man     fixwwps.pl      getafm.man      patchlevel.h    psbook.c
  54. ! psbook.man      psnup.c         psnup.man       psselect.c      psselect.man
  55. ! psspec.c        psspec.h        pstops.c        pstops.man      psutil.c
  56. ! psutil.h        showchar
  57.   
  58.   They may be copied and used for any purpose (including distribution as part of
  59.   a for-profit product), provided:
  60. --- 4,19 ----
  61.   The constituent files of this package listed below are copyright (C) 1991,
  62.   1992, 1993 Angus J. C. Duggan.
  63.   
  64. ! LICENSE        Makefile    Manifest    README        epsffit.c
  65. ! epsffit.man    extractres.man    extractres.pl    fixdlsrps.man    fixdlsrps.pl
  66. ! fixfmps.man    fixfmps.pl    fixmacps.man    fixmacps.pl    fixpsditps.man
  67. ! fixpsditps.pl    fixpspps.man    fixpspps.pl    fixtpps.man    fixtpps.pl
  68. ! fixwfwps.man    fixwfwps.pl    fixwpps.man    fixwpps.pl    fixwwps.man
  69. ! fixwwps.pl    getafm.man    includeres.man    includeres.pl    maketext
  70. ! patchlev.h    psbook.c    psbook.man    psnup.c        psnup.man
  71. ! psresize.c    psresize.man    psselect.c    psselect.man    psspec.c
  72. ! psspec.h    pstops.c    pstops.man    psutil.c    psutil.h
  73. ! showchar
  74.   
  75.   They may be copied and used for any purpose (including distribution as part of
  76.   a for-profit product), provided:
  77. ***************
  78. *** 37,40 ****
  79.   The included files, md68_0.ps and md71_0.ps (and their uuencoded forms) are
  80.   (to the best of my knowledge) copyright Apple Computer, Inc.
  81.   
  82. !                                                                 AJCD 7/6/93
  83. --- 39,42 ----
  84.   The included files, md68_0.ps and md71_0.ps (and their uuencoded forms) are
  85.   (to the best of my knowledge) copyright Apple Computer, Inc.
  86.   
  87. !                                                                 AJCD 29/11/93
  88. diff -cr +new-file psutils-dist/Makefile psutils-next/Makefile
  89. *** psutils-dist/Makefile    Mon Nov 29 10:34:22 1993
  90. --- psutils-next/Makefile    Mon Nov 29 17:38:33 1993
  91. ***************
  92. *** 1,4 ****
  93. --- 1,9 ----
  94.   # Makefile for PS utilities
  95. + # updated AJCD 23/9/93
  96. + #
  97. + # This Makefile is rather revolting; unfortunately, there are so many
  98. + # incompatible makes around that putting all of the non-standard targets
  99. + # explicitly seems to be the only way of ensuring portability.
  100.   
  101.   BINMODE=0755
  102.   MANMODE=0644
  103. ***************
  104. *** 5,22 ****
  105.   CHMOD=chmod
  106.   INSTALL=install -c -m $(BINMODE)
  107.   INSTALLMAN=install -c -m $(MANMODE)
  108.   BINDIR=/usr/local/bin
  109.   SCRIPTDIR=$(BINDIR)
  110.   MANDIR=/usr/local/share/man/man1
  111.   MANEXT=1
  112.   PAPER=a4
  113. ! INCLUDEDIR=/usr/local/share/tex/dvips
  114.   PERL=/usr/local/bin/perl
  115.   
  116.   # CFLAGS variable controls compilation. Add following flags if necessary:
  117.   #    -DVMS    if compiling under VMS
  118.   #    -DMSDOS    if compiling under MSDOS
  119. ! CFLAGS=-g -DPAPER=\"$(PAPER)\"
  120.   
  121.   # epsffit fits an epsf file to a given bounding box
  122.   # psbook rearranges pages into signatures
  123. --- 10,28 ----
  124.   CHMOD=chmod
  125.   INSTALL=install -c -m $(BINMODE)
  126.   INSTALLMAN=install -c -m $(MANMODE)
  127. + 
  128.   BINDIR=/usr/local/bin
  129.   SCRIPTDIR=$(BINDIR)
  130.   MANDIR=/usr/local/share/man/man1
  131.   MANEXT=1
  132.   PAPER=a4
  133. ! INCLUDEDIR=/usr/local/share/psutils
  134.   PERL=/usr/local/bin/perl
  135.   
  136.   # CFLAGS variable controls compilation. Add following flags if necessary:
  137.   #    -DVMS    if compiling under VMS
  138.   #    -DMSDOS    if compiling under MSDOS
  139. ! CFLAGS=-DPAPER=\"$(PAPER)\"
  140.   
  141.   # epsffit fits an epsf file to a given bounding box
  142.   # psbook rearranges pages into signatures
  143. ***************
  144. *** 23,124 ****
  145.   # psselect selects page ranges
  146.   # pstops performs general page rearrangement and merging
  147.   # psnup puts multiple logical pages on one physical page
  148.   
  149. ! # definitions for Unix
  150.   exe =
  151.   obj = .o
  152. ! BIN = psbook psselect pstops epsffit psnup
  153.   SHELLSCRIPTS = getafm
  154.   PERLSCRIPTS = fixfmps fixmacps fixpsditps fixpspps fixtpps fixwfwps fixwpps \
  155. !               fixwwps
  156.   INCLUDES = md68_0.ps md71_0.ps
  157.   MANPAGES = psbook.$(MANEXT) psselect.$(MANEXT) pstops.$(MANEXT) \
  158. !            epsffit.$(MANEXT) psnup.$(MANEXT) getafm.$(MANEXT) \
  159. !            fixfmps.$(MANEXT) fixmacps.$(MANEXT) fixpsditps.$(MANEXT) \
  160. !            fixpspps.$(MANEXT) fixtpps.$(MANEXT) fixwfwps.$(MANEXT) \
  161. !            fixwpps.$(MANEXT) fixwwps.$(MANEXT)
  162.   RM = rm -f
  163.   
  164.   # Definitions for MSDOS
  165.   #exe = .exe
  166.   #obj = .obj
  167. ! #BIN = psbook$(exe) psselect$(exe) pstops$(exe) epsffit$(exe) psnup$(exe)
  168.   #PERLSCRIPTS =
  169.   #INCLUDES =
  170.   #MANPAGES =
  171.   #RM = del
  172.   
  173. ! .SUFFIXES: .man .$(MANEXT)
  174.   
  175. ! .man.$(MANEXT):
  176. !     R=`sed -n "s/.*RELEASE *//p" patchlevel.h`; \
  177. !     P=`sed -n "s/.*PATCHLEVEL *//p" patchlevel.h`; \
  178. !     M=`echo $(MANPAGES) | sed -e "s/\.$(MANEXT)/($(MANEXT)),/g" -e "s/, *$$//"`; \
  179. !     sed -e "s/@PL@/$$P/" -e "s/@REL@/$$R/" -e "s/@MAN@/$$M/" \
  180. !         -e "s/@PAPER@/$(PAPER)/" $< >$@
  181.   
  182. ! all: $(BIN) $(PERLSCRIPTS) $(MANPAGES)
  183.   
  184.   epsffit$(exe): epsffit.c
  185.       $(CC) $(CFLAGS) -o epsffit$(exe) epsffit.c
  186.   
  187.   psnup$(exe): psnup$(obj) psutil$(obj) psspec$(obj)
  188.       $(CC) $(CFLAGS) -o psnup$(exe) psutil$(obj) psspec$(obj) psnup$(obj)
  189.   
  190.   psbook$(exe): psbook$(obj) psutil$(obj)
  191.       $(CC) $(CFLAGS) -o psbook$(exe) psutil$(obj) psbook$(obj)
  192.   
  193. ! psselect$(exe): psselect$(obj) psutil$(obj)
  194. !     $(CC) $(CFLAGS) -o psselect$(exe) psutil$(obj) psselect$(obj)
  195.   
  196. ! pstops$(exe): pstops$(obj) psutil$(obj) psspec$(obj)
  197. !     $(CC) $(CFLAGS) -o pstops$(exe) psutil$(obj) psspec$(obj) pstops$(obj)
  198.   
  199. ! psnup$(obj): psutil.h patchlevel.h psspec.h psnup.c
  200.   
  201. ! psbook$(obj): psutil.h patchlevel.h psbook.c
  202.   
  203. ! pstops$(obj): psutil.h patchlevel.h psspec.h pstops.c
  204.   
  205. ! psselect$(obj): psutil.h patchlevel.h psselect.c
  206.   
  207. ! psutil$(obj): psutil.h patchlevel.h psutil.c
  208.   
  209. ! psspec$(obj): psutil.h patchlevel.h psspec.h psspec.c
  210.   
  211.   fixfmps: fixfmps.pl
  212. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  213.       $(CHMOD) $(BINMODE) $@
  214.   
  215.   fixmacps: fixmacps.pl
  216. !     sed -e "s%@PERL@%$(PERL)%" \
  217. !         -e "s%@INCLUDE@%$(INCLUDEDIR)%" $? >$@; \
  218.       $(CHMOD) $(BINMODE) $@
  219.   
  220.   fixpsditps: fixpsditps.pl
  221. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  222.       $(CHMOD) $(BINMODE) $@
  223.   
  224.   fixpspps: fixpspps.pl
  225. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  226.       $(CHMOD) $(BINMODE) $@
  227.   
  228.   fixtpps: fixtpps.pl
  229. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  230.       $(CHMOD) $(BINMODE) $@
  231.   
  232.   fixwfwps: fixwfwps.pl
  233. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  234.       $(CHMOD) $(BINMODE) $@
  235.   
  236.   fixwpps: fixwpps.pl
  237. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  238.       $(CHMOD) $(BINMODE) $@
  239.   
  240.   fixwwps: fixwwps.pl
  241. !     sed -e "s%@PERL@%$(PERL)%" $? >$@; \
  242.       $(CHMOD) $(BINMODE) $@
  243.   
  244.   clean:
  245.       $(RM) *$(obj)
  246.   
  247. --- 29,197 ----
  248.   # psselect selects page ranges
  249.   # pstops performs general page rearrangement and merging
  250.   # psnup puts multiple logical pages on one physical page
  251. + # psresize scales and moves pages to fit on different paper sizes
  252. + 
  253. + # Do NOT leave "obj" undefined in the definitions below, or "make clean" will
  254. + # remove ALL of the files.
  255.   
  256. ! # definitions for Unix:
  257.   exe =
  258.   obj = .o
  259. ! BIN = psbook psselect pstops epsffit psnup psresize
  260.   SHELLSCRIPTS = getafm
  261.   PERLSCRIPTS = fixfmps fixmacps fixpsditps fixpspps fixtpps fixwfwps fixwpps \
  262. !               fixwwps fixdlsrps extractres includeres
  263.   INCLUDES = md68_0.ps md71_0.ps
  264.   MANPAGES = psbook.$(MANEXT) psselect.$(MANEXT) pstops.$(MANEXT) \
  265. !        epsffit.$(MANEXT) psnup.$(MANEXT) psresize.$(MANEXT) \
  266. !        getafm.$(MANEXT) fixdlsrps.$(MANEXT) fixfmps.$(MANEXT) \
  267. !        fixmacps.$(MANEXT) fixpsditps.$(MANEXT) fixpspps.$(MANEXT) \
  268. !        fixtpps.$(MANEXT) fixwfwps.$(MANEXT) fixwpps.$(MANEXT) \
  269. !        fixwwps.$(MANEXT) extractres.$(MANEXT) includeres.$(MANEXT)
  270.   RM = rm -f
  271.   
  272.   # Definitions for MSDOS
  273.   #exe = .exe
  274.   #obj = .obj
  275. ! #BIN = psbook$(exe) psselect$(exe) pstops$(exe) epsffit$(exe) psnup$(exe) \
  276. ! #      psresize$(exe)
  277.   #PERLSCRIPTS =
  278.   #INCLUDES =
  279.   #MANPAGES =
  280.   #RM = del
  281.   
  282. ! all: $(BIN) $(PERLSCRIPTS) $(MANPAGES)
  283.   
  284. ! psutil$(obj): psutil.h patchlev.h psutil.c
  285.   
  286. ! psspec$(obj): psutil.h patchlev.h psspec.h psspec.c
  287.   
  288.   epsffit$(exe): epsffit.c
  289.       $(CC) $(CFLAGS) -o epsffit$(exe) epsffit.c
  290.   
  291. + epsffit.$(MANEXT): epsffit.man
  292. +     ./maketext MAN="$(MANPAGES)" $? > $@
  293. + 
  294.   psnup$(exe): psnup$(obj) psutil$(obj) psspec$(obj)
  295.       $(CC) $(CFLAGS) -o psnup$(exe) psutil$(obj) psspec$(obj) psnup$(obj)
  296.   
  297. + psnup$(obj): psutil.h patchlev.h psspec.h psnup.c
  298. + 
  299. + psnup.$(MANEXT): psnup.man
  300. +     ./maketext MAN="$(MANPAGES)" PAPER=$(PAPER) $? > $@
  301. + 
  302. + psresize$(exe): psresize$(obj) psutil$(obj) psspec$(obj)
  303. +     $(CC) $(CFLAGS) -o psresize$(exe) psutil$(obj) psspec$(obj) psresize$(obj)
  304. + 
  305. + psresize$(obj): psutil.h patchlev.h psspec.h psresize.c
  306. + 
  307. + psresize.$(MANEXT): psresize.man
  308. +     ./maketext MAN="$(MANPAGES)" PAPER=$(PAPER) $? > $@
  309. + 
  310.   psbook$(exe): psbook$(obj) psutil$(obj)
  311.       $(CC) $(CFLAGS) -o psbook$(exe) psutil$(obj) psbook$(obj)
  312.   
  313. ! psbook$(obj): psutil.h patchlev.h psbook.c
  314.   
  315. ! psbook.$(MANEXT): psbook.man
  316. !     ./maketext "MAN=$(MANPAGES)" $? > $@
  317.   
  318. ! psselect$(exe): psselect$(obj) psutil$(obj)
  319. !     $(CC) $(CFLAGS) -o psselect$(exe) psutil$(obj) psselect$(obj)
  320.   
  321. ! psselect$(obj): psutil.h patchlev.h psselect.c
  322.   
  323. ! psselect.$(MANEXT): psselect.man
  324. !     ./maketext "MAN=$(MANPAGES)" $? > $@
  325.   
  326. ! pstops$(exe): pstops$(obj) psutil$(obj) psspec$(obj)
  327. !     $(CC) $(CFLAGS) -o pstops$(exe) psutil$(obj) psspec$(obj) pstops$(obj)
  328.   
  329. ! pstops$(obj): psutil.h patchlev.h psspec.h pstops.c
  330.   
  331. ! pstops.$(MANEXT): pstops.man
  332. !     ./maketext "MAN=$(MANPAGES)" PAPER=$(PAPER) $? > $@
  333.   
  334.   fixfmps: fixfmps.pl
  335. !     ./maketext PERL=$(PERL) $? >$@;
  336.       $(CHMOD) $(BINMODE) $@
  337.   
  338. + fixfmps.$(MANEXT): fixfmps.man
  339. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  340. + 
  341.   fixmacps: fixmacps.pl
  342. !     ./maketext PERL=$(PERL) INCLUDE=$(INCLUDEDIR) $? >$@;
  343.       $(CHMOD) $(BINMODE) $@
  344.   
  345. + fixmacps.$(MANEXT): fixmacps.man
  346. +     ./maketext "MAN=$(MANPAGES)" INCLUDE=$(INCLUDEDIR) $? > $@
  347. + 
  348.   fixpsditps: fixpsditps.pl
  349. !     ./maketext PERL=$(PERL) $? >$@;
  350.       $(CHMOD) $(BINMODE) $@
  351.   
  352. + fixpsditps.$(MANEXT): fixpsditps.man
  353. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  354. + 
  355.   fixpspps: fixpspps.pl
  356. !     ./maketext PERL=$(PERL) $? >$@;
  357.       $(CHMOD) $(BINMODE) $@
  358.   
  359. + fixpspps.$(MANEXT): fixpspps.man
  360. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  361. + 
  362.   fixtpps: fixtpps.pl
  363. !     ./maketext PERL=$(PERL) $? >$@;
  364.       $(CHMOD) $(BINMODE) $@
  365.   
  366. + fixtpps.$(MANEXT): fixtpps.man
  367. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  368. + 
  369.   fixwfwps: fixwfwps.pl
  370. !     ./maketext PERL=$(PERL) $? >$@;
  371.       $(CHMOD) $(BINMODE) $@
  372.   
  373. + fixwfwps.$(MANEXT): fixwfwps.man
  374. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  375. + 
  376.   fixwpps: fixwpps.pl
  377. !     ./maketext PERL=$(PERL) $? >$@;
  378.       $(CHMOD) $(BINMODE) $@
  379.   
  380. + fixwpps.$(MANEXT): fixwpps.man
  381. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  382. + 
  383.   fixwwps: fixwwps.pl
  384. !     ./maketext PERL=$(PERL) $? >$@;
  385. !     $(CHMOD) $(BINMODE) $@
  386. ! 
  387. ! fixwwps.$(MANEXT): fixwwps.man
  388. !     ./maketext "MAN=$(MANPAGES)" $? > $@
  389. ! 
  390. ! fixdlsrps: fixdlsrps.pl
  391. !     ./maketext PERL=$(PERL) $? >$@;
  392.       $(CHMOD) $(BINMODE) $@
  393.   
  394. + fixdlsrps.$(MANEXT): fixdlsrps.man
  395. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  396. + 
  397. + extractres: extractres.pl
  398. +     ./maketext PERL=$(PERL) $? >$@;
  399. +     $(CHMOD) $(BINMODE) $@
  400. + 
  401. + extractres.$(MANEXT): extractres.man
  402. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  403. + 
  404. + includeres: includeres.pl
  405. +     ./maketext PERL=$(PERL) INCLUDE=$(INCLUDEDIR) $? >$@;
  406. +     $(CHMOD) $(BINMODE) $@
  407. + 
  408. + includeres.$(MANEXT): includeres.man
  409. +     ./maketext "MAN=$(MANPAGES)" INCLUDE=$(INCLUDEDIR) $? > $@
  410. + 
  411. + getafm.$(MANEXT): getafm.man
  412. +     ./maketext "MAN=$(MANPAGES)" $? > $@
  413. + 
  414.   clean:
  415.       $(RM) *$(obj)
  416.   
  417. ***************
  418. *** 150,153 ****
  419.           echo Installing manual page for $$i; \
  420.           $(INSTALLMAN) $$i $(MANDIR)/$$i; \
  421.       done
  422. - 
  423. --- 223,225 ----
  424. diff -cr +new-file psutils-dist/Manifest psutils-next/Manifest
  425. *** psutils-dist/Manifest    Mon Nov 29 10:34:24 1993
  426. --- psutils-next/Manifest    Mon Nov 29 18:47:08 1993
  427. ***************
  428. *** 1,12 ****
  429. --- 1,17 ----
  430.   LICENSE
  431.   Makefile
  432.   Manifest
  433. + maketext
  434.   README
  435.   descrip.mms
  436.   epsffit.c
  437.   epsffit.man
  438. + extractres.man
  439. + extractres.pl
  440.   fixfmps.man
  441.   fixfmps.pl
  442. + fixdlsrps.man
  443. + fixdlsrps.pl
  444.   fixmacps.man
  445.   fixmacps.pl
  446.   fixpsditps.man
  447. ***************
  448. *** 23,35 ****
  449.   fixwwps.pl
  450.   getafm
  451.   getafm.man
  452.   md68_0.uue
  453.   md71_0.uue
  454. ! patchlevel.h
  455.   psbook.c
  456.   psbook.man
  457.   psnup.c
  458.   psnup.man
  459.   psselect.c
  460.   psselect.man
  461.   psspec.c
  462. --- 28,44 ----
  463.   fixwwps.pl
  464.   getafm
  465.   getafm.man
  466. + includeres.man
  467. + includeres.pl
  468.   md68_0.uue
  469.   md71_0.uue
  470. ! patchlev.h
  471.   psbook.c
  472.   psbook.man
  473.   psnup.c
  474.   psnup.man
  475. + psresize.c
  476. + psresize.man
  477.   psselect.c
  478.   psselect.man
  479.   psspec.c
  480. diff -cr +new-file psutils-dist/README psutils-next/README
  481. *** psutils-dist/README    Mon Nov 29 10:34:24 1993
  482. --- psutils-next/README    Mon Nov 29 20:54:17 1993
  483. ***************
  484. *** 1,4 ****
  485. ! PostScript Utilities            Angus Duggan                7 June 1993
  486.   
  487.   This shar file contains some utilities for manipulating PostScript documents.
  488.   Page selection and rearrangement are supported, including arrangement into
  489. --- 1,4 ----
  490. ! PostScript Utilities            Angus Duggan               29 November 1993
  491.   
  492.   This shar file contains some utilities for manipulating PostScript documents.
  493.   Page selection and rearrangement are supported, including arrangement into
  494. ***************
  495. *** 15,61 ****
  496.   FILES
  497.   
  498.   The files contained are:
  499. ! -rw-r--r--  1 ajcd         1945 Jun  7 15:40 LICENSE
  500. ! -rw-r--r--  1 ajcd         3367 Jun  7 11:30 Makefile
  501. ! -rw-r--r--  1 ajcd          432 Jun  7 11:33 Manifest
  502. ! -rw-r--r--  1 ajcd         6295 Jun  7 15:40 README
  503. ! -rw-r--r--  1 ajcd         1864 Jun  5 16:31 descrip.mms
  504. ! -rw-r--r--  1 ajcd         4431 Jun  5 11:05 epsffit.c
  505. ! -rw-r--r--  1 ajcd         1045 Jun  7 11:01 epsffit.man
  506. ! -rw-r--r--  1 ajcd          538 Apr  9 22:33 fixfmps.man
  507. ! -rw-r--r--  1 ajcd          419 Apr  9 17:14 fixfmps.pl
  508. ! -rw-r--r--  1 ajcd          559 Apr  9 22:35 fixmacps.man
  509. ! -rw-r--r--  1 ajcd         1751 Jun  7 11:30 fixmacps.pl
  510. ! -rw-r--r--  1 ajcd          564 Apr  9 22:35 fixpsditps.man
  511. ! -rw-r--r--  1 ajcd          596 Apr  9 17:15 fixpsditps.pl
  512. ! -rw-r--r--  1 ajcd          533 Apr  9 22:35 fixpspps.man
  513. ! -rw-r--r--  1 ajcd         1236 Apr  9 17:15 fixpspps.pl
  514. ! -rw-r--r--  1 ajcd          551 Apr  9 22:32 fixtpps.man
  515. ! -rw-r--r--  1 ajcd          602 Apr  9 22:31 fixtpps.pl
  516. ! -rw-r--r--  1 ajcd          556 Apr  9 22:36 fixwfwps.man
  517. ! -rw-r--r--  1 ajcd          318 Apr  9 17:15 fixwfwps.pl
  518. ! -rw-r--r--  1 ajcd          544 Apr  9 22:36 fixwpps.man
  519. ! -rw-r--r--  1 ajcd          669 May  5 13:54 fixwpps.pl
  520. ! -rw-r--r--  1 ajcd          542 Apr 22 12:38 fixwwps.man
  521. ! -rw-r--r--  1 ajcd          364 Apr 22 12:37 fixwwps.pl
  522. ! -rwxr-xr-x  1 ajcd         6124 Jun  7 15:25 getafm
  523. ! -rw-r--r--  1 ajcd          702 Jun  7 15:38 getafm.man
  524. ! -rw-r--r--  1 ajcd        42798 May  6 09:16 md68_0.uue
  525. ! -rw-r--r--  1 ajcd        48726 May  6 09:16 md71_0.uue
  526. ! -rw-r--r--  1 ajcd           40 Apr  9 21:03 patchlevel.h
  527. ! -rw-r--r--  1 ajcd         2155 Jun  4 15:23 psbook.c
  528. ! -rw-r--r--  1 ajcd         1059 Mar 31 15:33 psbook.man
  529. ! -rw-r--r--  1 ajcd         6967 Jun  7 10:29 psnup.c
  530. ! -rw-r--r--  1 ajcd         2578 Jun  7 11:28 psnup.man
  531. ! -rw-r--r--  1 ajcd         5298 Jun  4 15:24 psselect.c
  532. ! -rw-r--r--  1 ajcd         1893 Mar 31 15:33 psselect.man
  533. ! -rw-r--r--  1 ajcd         6682 Jun  5 16:49 psspec.c
  534. ! -rw-r--r--  1 ajcd          604 Jun  5 13:38 psspec.h
  535. ! -rw-r--r--  1 ajcd         4215 Jun  5 13:04 pstops.c
  536. ! -rw-r--r--  1 ajcd         3512 Jun  7 10:43 pstops.man
  537. ! -rw-r--r--  1 ajcd         8195 Jun  5 16:43 psutil.c
  538. ! -rw-r--r--  1 ajcd          988 Jun  5 14:48 psutil.h
  539. ! -rwxr-xr-x  1 ajcd         2552 Feb 10 12:47 showchar
  540.   
  541.   PROGRAMS
  542.   
  543. --- 15,70 ----
  544.   FILES
  545.   
  546.   The files contained are:
  547. ! -rw-r--r--  1 angus        1919 Nov 29 18:50 LICENSE
  548. ! -rw-r--r--  1 angus        6003 Nov 29 17:38 Makefile
  549. ! -rw-r--r--  1 angus         559 Nov 29 18:47 Manifest
  550. ! -rw-r--r--  1 angus        8354 Nov 29 20:52 README
  551. ! -rw-r--r--  1 angus        2083 Nov 29 20:44 descrip.mms
  552. ! -rw-r--r--  1 angus        5013 Nov 29 17:02 epsffit.c
  553. ! -rw-r--r--  1 angus        1210 Nov 27 14:28 epsffit.man
  554. ! -rw-r--r--  1 angus        1159 Nov 27 14:28 extractres.man
  555. ! -rw-r--r--  1 angus        2687 Nov 19 22:14 extractres.pl
  556. ! -rw-r--r--  1 angus         507 Nov 27 14:28 fixdlsrps.man
  557. ! -rw-r--r--  1 angus        1220 Nov 20 00:30 fixdlsrps.pl
  558. ! -rw-r--r--  1 angus         473 Nov 27 14:28 fixfmps.man
  559. ! -rw-r--r--  1 angus         431 Oct 27 18:07 fixfmps.pl
  560. ! -rw-r--r--  1 angus         587 Nov 27 14:28 fixmacps.man
  561. ! -rw-r--r--  1 angus        2043 Oct 27 18:07 fixmacps.pl
  562. ! -rw-r--r--  1 angus         502 Nov 27 14:28 fixpsditps.man
  563. ! -rw-r--r--  1 angus         596 Oct 27 18:07 fixpsditps.pl
  564. ! -rw-r--r--  1 angus         469 Nov 27 14:28 fixpspps.man
  565. ! -rw-r--r--  1 angus        1236 Oct 27 18:07 fixpspps.pl
  566. ! -rw-r--r--  1 angus         499 Nov 27 14:28 fixtpps.man
  567. ! -rw-r--r--  1 angus         602 Oct 27 18:07 fixtpps.pl
  568. ! -rw-r--r--  1 angus         493 Nov 27 14:28 fixwfwps.man
  569. ! -rw-r--r--  1 angus         794 Nov  9 22:57 fixwfwps.pl
  570. ! -rw-r--r--  1 angus         479 Nov 27 14:28 fixwpps.man
  571. ! -rw-r--r--  1 angus         669 Oct 27 18:07 fixwpps.pl
  572. ! -rw-r--r--  1 angus         477 Nov 27 14:29 fixwwps.man
  573. ! -rw-r--r--  1 angus         364 Oct 27 18:07 fixwwps.pl
  574. ! -rw-r--r--  1 angus        6124 Oct 27 18:08 getafm
  575. ! -rw-r--r--  1 angus         711 Nov 27 14:29 getafm.man
  576. ! -rw-r--r--  1 angus        1035 Nov 27 14:29 includeres.man
  577. ! -rw-r--r--  1 angus        1392 Nov 19 21:10 includeres.pl
  578. ! -rwxr-xr-x  1 angus         901 Nov 29 17:02 maketext
  579. ! -rw-r--r--  1 angus       30969 Oct 27 18:08 md68_0.ps
  580. ! -rw-r--r--  1 angus       35273 Oct 27 18:08 md71_0.ps
  581. ! -rw-r--r--  1 angus          40 Oct 27 18:09 patchlev.h
  582. ! -rw-r--r--  1 angus        2168 Nov 29 17:02 psbook.c
  583. ! -rw-r--r--  1 angus        1084 Nov 27 14:29 psbook.man
  584. ! -rw-r--r--  1 angus        8793 Nov 29 17:23 psnup.c
  585. ! -rw-r--r--  1 angus        3565 Nov 29 20:52 psnup.man
  586. ! -rw-r--r--  1 angus        4808 Nov 29 20:19 psresize.c
  587. ! -rw-r--r--  1 angus        1585 Nov 29 20:28 psresize.man
  588. ! -rw-r--r--  1 angus        5310 Nov 29 17:03 psselect.c
  589. ! -rw-r--r--  1 angus        1920 Nov 27 14:29 psselect.man
  590. ! -rw-r--r--  1 angus        7393 Nov 29 20:18 psspec.c
  591. ! -rw-r--r--  1 angus         602 Oct 27 18:09 psspec.h
  592. ! -rw-r--r--  1 angus        4386 Nov 29 17:03 pstops.c
  593. ! -rw-r--r--  1 angus        3895 Nov 27 14:09 pstops.man
  594. ! -rw-r--r--  1 angus        9697 Nov 29 19:39 psutil.c
  595. ! -rw-r--r--  1 angus        1071 Nov 27 13:19 psutil.h
  596. ! -rw-r--r--  1 angus        2567 Oct 27 18:09 showchar
  597.   
  598.   PROGRAMS
  599.   
  600. ***************
  601. *** 63,68 ****
  602. --- 72,78 ----
  603.   psselect        selects pages and page ranges
  604.   pstops          performs general page rearrangement and selection
  605.   psnup           put multiple pages per physical sheet of paper
  606. + psresize        alter document paper size
  607.   epsffit         fits an EPSF file to a given bounding box
  608.   
  609.   psselect in modeled after Chris Torek's dviselect program, and pstops is
  610. ***************
  611. *** 73,78 ****
  612. --- 83,89 ----
  613.   
  614.   getafm   (sh)   outputs PostScript to retrieve AFM file from printer
  615.   showchar (sh)   outputs PostScript to draw a character with metric info
  616. + fixdlsrps (perl) filter to fix DviLaser/PS output so that PSUtils works
  617.   fixfmps  (perl) filter to fix framemaker documents so that psselect etc. work
  618.   fixmacps (perl) filter to fix Macintosh documents with saner version of md
  619.   fixpsditps (perl) filter to fix Transcript psdit documents to work with PSUtils
  620. ***************
  621. *** 81,92 ****
  622.   fixwfwps (perl) filter to fix Word for Windows documents for PSUtils
  623.   fixwpps  (perl) filter to fix WordPerfect documents for PSUtils
  624.   fixwwps  (perl) filter to fix Windows Write documents for PSUtils
  625.   
  626.   INSTALLATION
  627.   
  628. ! UUdecode md71_0.uue and md68_0.uue (if supplied encoded), edit Makefile to put
  629. ! in required paths and CFLAGS (-DSYSV for System V machines, -DMSDOS for
  630. ! Messy-DOS, -DVMS for VMS), "make", and "make install".
  631.   
  632.   BUGS
  633.   
  634. --- 92,107 ----
  635.   fixwfwps (perl) filter to fix Word for Windows documents for PSUtils
  636.   fixwpps  (perl) filter to fix WordPerfect documents for PSUtils
  637.   fixwwps  (perl) filter to fix Windows Write documents for PSUtils
  638. + extractres (perl) filter to extract resources from PostScript files
  639. + includeres (perl) filter to include resources into PostScript files
  640.   
  641.   INSTALLATION
  642.   
  643. ! UUdecode md71_0.uue and md68_0.uue (if supplied encoded). Edit Makefile to put
  644. ! in required paths for BINDIR, SCRIPTDIR, MANDIR, INCLUDEDIR, an PERL. Alter
  645. ! values of MANEXT to put the manual pages in a different section if desired,
  646. ! change PAPER to set the default paper size, and CFLAGS (-DSYSV for System V
  647. ! machines, -DMSDOS for Messy-DOS, -DVMS for VMS). "make", and "make install".
  648.   
  649.   BUGS
  650.   
  651. ***************
  652. *** 94,100 ****
  653.   conform. Utilities need an extra save/restore around whole document on a
  654.   SPARCPrinter with NeWSPrint 1.0, because of bugs in the xnews server.
  655.   
  656. ! Bug fixes and suggestions to ajcd@dcs.ed.ac.uk
  657.   
  658.   NOTE
  659.   
  660. --- 109,115 ----
  661.   conform. Utilities need an extra save/restore around whole document on a
  662.   SPARCPrinter with NeWSPrint 1.0, because of bugs in the xnews server.
  663.   
  664. ! Bug fixes and suggestions to angus@harlequin.co.uk
  665.   
  666.   NOTE
  667.   
  668. ***************
  669. *** 122,127 ****
  670. --- 137,143 ----
  671.           Matthew Stier           Matthew.Stier@East.Sun.com
  672.           Gerry Pratt             cca13@seq1.kl.ac.uk
  673.           Robert Joop             rj@rainbow.in-berlin.de
  674. +     Johan Vromans        jv@mh.nl
  675.   
  676.   (Apologies to anyone who I have left out.)
  677.   
  678. ***************
  679. *** 136,138 ****
  680. --- 152,176 ----
  681.   * Epsffit can input broken %%BoundingBox comments which use real numbers.
  682.   * Should work on MSDOS and VMS machines as well as Unix.
  683.   * Accept more DSC compliant documents (Page labels are better supported).
  684. + 
  685. + Patchlevel 12 was a bug-fix release.
  686. + 
  687. + * Long standing fixmacps bug fixed.
  688. + * fixwfwps fixes WFW EPSF files as well as DSC files.
  689. + * md71_0.ps and md68_0.ps files were automatically uudecoded.
  690. + 
  691. + Patchlevel 13 contained two new scripts for resource management, and fixes to
  692. + the Makefile, page labels, and output chaining.
  693. + 
  694. + * Epsffit can output to a file as well as standard output.
  695. + * extractres takes resources out of PostScript files and saves them
  696. + * includeres puts resources from a resource library into PostScript files.
  697. + * maketext script is now used to do substitutions in Perl scripts and man pages
  698. + * page labels in psnup and pstops are now show where pages came from.
  699. + * page labels in psbook and psselect fixed.
  700. + * prologues fixed to be extractable and re-usable
  701. + * Makefile doesn't use SUFFIXES any more
  702. + * pstops and psnup output can now be chained through each other.
  703. + * psresize alters the paper size used by a document
  704. + * patchlevel.h shortened to patchlev.h as a concession to MSDOS
  705. + * psnup now has -n nup form for compatibility with other n-up programs
  706. diff -cr +new-file psutils-dist/descrip.mms psutils-next/descrip.mms
  707. *** psutils-dist/descrip.mms    Mon Nov 29 10:34:25 1993
  708. --- psutils-next/descrip.mms    Mon Nov 29 20:44:00 1993
  709. ***************
  710. *** 23,29 ****
  711.   # pstops performs general page rearrangement and merging
  712.   # psnup puts multiple logical pages on one physical page
  713.   
  714. ! all : psbook$(exe), psselect$(exe), pstops$(exe), epsffit$(exe), psnup$(exe)
  715.           @ write sys$output "PSUTILS build complete"
  716.   
  717.   epsffit$(exe) : epsffit$(obj)$(options_file)
  718. --- 23,29 ----
  719.   # pstops performs general page rearrangement and merging
  720.   # psnup puts multiple logical pages on one physical page
  721.   
  722. ! all : psbook$(exe), psselect$(exe), pstops$(exe), epsffit$(exe), psnup$(exe), psresize$(exe)
  723.           @ write sys$output "PSUTILS build complete"
  724.   
  725.   epsffit$(exe) : epsffit$(obj)$(options_file)
  726. ***************
  727. *** 32,37 ****
  728. --- 32,40 ----
  729.   psnup$(exe) :   psnup$(obj), psutil$(obj), psspec$(obj)
  730.           $(LINK)$(LFLAGS) psnup$(obj),psutil$(obj),psspec$(obj)$(linkopt)
  731.   
  732. + psresize$(exe) :   psresize$(obj), psutil$(obj), psspec$(obj)
  733. +         $(LINK)$(LFLAGS) psresize$(obj),psutil$(obj),psspec$(obj)$(linkopt)
  734. + 
  735.   psbook$(exe) :  psbook$(obj), psutil$(obj)$(options_file)
  736.           $(LINK)$(LFLAGS) psbook$(obj),psutil$(obj)$(linkopt)
  737.   
  738. ***************
  739. *** 41,60 ****
  740.   pstops$(exe) :  pstops$(obj), psutil$(obj), psspec$(obj)
  741.           $(LINK)$(LFLAGS) pstops$(obj),psutil$(obj),psspec$(obj)$(linkopt)
  742.   
  743. ! psnup$(obj)  : psnup.c, psutil.h patchlevel.h psspec.h
  744.   
  745. ! psbook$(obj) : psbook.c, psutil.h patchlevel.h
  746.   
  747. ! pstops$(obj) : pstops.c, psutil.h patchlevel.h psspec.h
  748.   
  749. ! psutil$(obj) : psutil.c, psutil.h patchlevel.h
  750.   
  751. ! psselect$(obj) : psselect.c, psutil.h patchlevel.h
  752.   
  753. ! psspec$(obj) : psspec.c, psutil.h patchlevel.h psspec.h
  754.   
  755.   clean :
  756. !         delete/log *$(obj);*,psnup$(exe);*,psbook$(exe);*,-
  757.                   psselect$(exe);*,pstops$(exe);*,epsffit$(exe);*
  758.   
  759.   
  760. --- 44,65 ----
  761.   pstops$(exe) :  pstops$(obj), psutil$(obj), psspec$(obj)
  762.           $(LINK)$(LFLAGS) pstops$(obj),psutil$(obj),psspec$(obj)$(linkopt)
  763.   
  764. ! psnup$(obj)  : psnup.c, psutil.h patchlev.h psspec.h
  765. ! 
  766. ! psresize$(obj)  : psresize.c, psutil.h patchlev.h psspec.h
  767.   
  768. ! psbook$(obj) : psbook.c, psutil.h patchlev.h
  769.   
  770. ! pstops$(obj) : pstops.c, psutil.h patchlev.h psspec.h
  771.   
  772. ! psutil$(obj) : psutil.c, psutil.h patchlev.h
  773.   
  774. ! psselect$(obj) : psselect.c, psutil.h patchlev.h
  775.   
  776. ! psspec$(obj) : psspec.c, psutil.h patchlev.h psspec.h
  777.   
  778.   clean :
  779. !         delete/log *$(obj);*,psnup$(exe);*,psresize$(exe);*,psbook$(exe);*,-
  780.                   psselect$(exe);*,pstops$(exe);*,epsffit$(exe);*
  781.   
  782.   
  783. diff -cr +new-file psutils-dist/epsffit.c psutils-next/epsffit.c
  784. *** psutils-dist/epsffit.c    Mon Nov 29 10:34:39 1993
  785. --- psutils-next/epsffit.c    Mon Nov 29 17:02:05 1993
  786. ***************
  787. *** 2,8 ****
  788.    * AJCD 6 Dec 90
  789.    * fit epsf file into constrained size
  790.    * Usage:
  791. !  *       epsffit [-c] [-r] [-a] [-s] llx lly urx ury [file]
  792.    *               -c centres the image in the bounding box given
  793.    *               -r rotates the image by 90 degrees anti-clockwise
  794.    *               -a alters the aspect ratio to fit the bounding box
  795. --- 2,8 ----
  796.    * AJCD 6 Dec 90
  797.    * fit epsf file into constrained size
  798.    * Usage:
  799. !  *       epsffit [-c] [-r] [-a] [-s] llx lly urx ury [infile [outfile]]
  800.    *               -c centres the image in the bounding box given
  801.    *               -r rotates the image by 90 degrees anti-clockwise
  802.    *               -a alters the aspect ratio to fit the bounding box
  803. ***************
  804. *** 16,22 ****
  805.   
  806.   #include <stdio.h>
  807.   #include <ctype.h>
  808. ! #include "patchlevel.h"
  809.   
  810.   #define min(x,y) ((x) > (y) ? (y) : (x))
  811.   #define max(x,y) ((x) > (y) ? (x) : (y))
  812. --- 16,22 ----
  813.   
  814.   #include <stdio.h>
  815.   #include <ctype.h>
  816. ! #include "patchlev.h"
  817.   
  818.   #define min(x,y) ((x) > (y) ? (y) : (x))
  819.   #define max(x,y) ((x) > (y) ? (x) : (y))
  820. ***************
  821. *** 26,32 ****
  822.   void usage()
  823.   {
  824.      fprintf(stderr, "%s release %d patchlevel %d\n", prog, RELEASE, PATCHLEVEL);
  825. !    fprintf(stderr, "Usage: %s [-c] [-r] [-a] [-s] llx lly urx ury [file]\n",
  826.          prog);
  827.      exit(1);
  828.   }
  829. --- 26,32 ----
  830.   void usage()
  831.   {
  832.      fprintf(stderr, "%s release %d patchlevel %d\n", prog, RELEASE, PATCHLEVEL);
  833. !    fprintf(stderr, "Usage: %s [-c] [-r] [-a] [-s] llx lly urx ury [infile [outfile]]\n",
  834.          prog);
  835.      exit(1);
  836.   }
  837. ***************
  838. *** 41,46 ****
  839. --- 41,47 ----
  840.      int showpage = 0, centre = 0, rotate = 0, aspect = 0, maximise = 0;
  841.      char buf[BUFSIZ];
  842.      FILE *input = stdin;
  843. +    FILE *output = stdout;
  844.   
  845.      prog = *argv++; argc--;
  846.   
  847. ***************
  848. *** 58,64 ****
  849.         argv++;
  850.      }
  851.   
  852. !    if (argc < 4) usage();
  853.      fllx = atoi(argv[0]);
  854.      flly = atoi(argv[1]);
  855.      furx = atoi(argv[2]);
  856. --- 59,65 ----
  857.         argv++;
  858.      }
  859.   
  860. !    if (argc < 4 || argc > 6) usage();
  861.      fllx = atoi(argv[0]);
  862.      flly = atoi(argv[1]);
  863.      furx = atoi(argv[2]);
  864. ***************
  865. *** 65,75 ****
  866.      fury = atoi(argv[3]);
  867.   
  868.      if (argc > 4) {
  869. !       if(!(input = fopen(argv[4],"r"))) {
  870. !      fprintf(stderr, "%s: Cannot open %s\n", prog, argv[4]);
  871.        exit(1);
  872.         }
  873.      }
  874.   
  875.      while (fgets(buf, BUFSIZ, input)) {
  876.         if (buf[0] == '%' && (buf[1] == '%' || buf[1] == '!')) {
  877. --- 66,82 ----
  878.      fury = atoi(argv[3]);
  879.   
  880.      if (argc > 4) {
  881. !       if(!(input = fopen(argv[4], "r"))) {
  882. !      fprintf(stderr, "%s: can't open input file %s\n", prog, argv[4]);
  883.        exit(1);
  884.         }
  885.      }
  886. +    if (argc > 5) {
  887. +       if(!(output = fopen(argv[5], "w"))) {
  888. +      fprintf(stderr, "%s: can't open output file %s\n", prog, argv[5]);
  889. +      exit(1);
  890. +       }
  891. +    }
  892.   
  893.      while (fgets(buf, BUFSIZ, input)) {
  894.         if (buf[0] == '%' && (buf[1] == '%' || buf[1] == '!')) {
  895. ***************
  896. *** 87,93 ****
  897.        } else if (!strncmp(buf, "%%EndComments", 13)) {
  898.           strcpy(buf, "\n"); /* don't repeat %%EndComments */
  899.           break;
  900. !      } else fputs(buf,stdout);
  901.         } else break;
  902.      }
  903.   
  904. --- 94,100 ----
  905.        } else if (!strncmp(buf, "%%EndComments", 13)) {
  906.           strcpy(buf, "\n"); /* don't repeat %%EndComments */
  907.           break;
  908. !      } else fputs(buf, output);
  909.         } else break;
  910.      }
  911.   
  912. ***************
  913. *** 127,133 ****
  914.           yoffset += (fheight - height)/2;
  915.        }
  916.         }
  917. !       printf("%%%%BoundingBox: %d %d %d %d\n", (int)xoffset, (int)yoffset,
  918.            (int)(xoffset+(rotate ? height : width)),
  919.            (int)(yoffset+(rotate ? width : height)));
  920.         if (rotate) {  /* compensate for original image shift */
  921. --- 134,141 ----
  922.           yoffset += (fheight - height)/2;
  923.        }
  924.         }
  925. !       fprintf(output, 
  926. !           "%%%%BoundingBox: %d %d %d %d\n", (int)xoffset, (int)yoffset,
  927.            (int)(xoffset+(rotate ? height : width)),
  928.            (int)(yoffset+(rotate ? width : height)));
  929.         if (rotate) {  /* compensate for original image shift */
  930. ***************
  931. *** 137,162 ****
  932.        xoffset -= llx * xscale;
  933.        yoffset -= lly * yscale;
  934.         }
  935. !       puts("%%EndComments");
  936.         if (showpage)
  937. !      puts("save /showpage{}def /copypage{}def /erasepage{}def");
  938.         else
  939. !      puts("%%BeginProcSet: epsffit 1 0");
  940. !       puts("gsave");
  941. !       printf("%.3lf %.3lf translate\n", xoffset, yoffset);
  942.         if (rotate)
  943. !      puts("90 rotate");
  944. !       printf("%.3lf %.3lf scale\n", xscale, yscale);
  945.         if (!showpage)
  946. !      puts("%%EndProcSet");
  947.      }
  948.      do {
  949. !       fputs(buf,stdout);
  950.      } while (fgets(buf, BUFSIZ, input));
  951.      if (bbfound) {
  952. !       puts("grestore");
  953.         if (showpage)
  954. !      puts("restore showpage"); /* just in case */
  955.      } else {
  956.         fprintf(stderr, "%s: no %%%%BoundingBox:\n", prog);
  957.         exit(1);
  958. --- 145,170 ----
  959.        xoffset -= llx * xscale;
  960.        yoffset -= lly * yscale;
  961.         }
  962. !       fputs("%%EndComments\n", output);
  963.         if (showpage)
  964. !      fputs("save /showpage{}def /copypage{}def /erasepage{}def\n", output);
  965.         else
  966. !      fputs("%%BeginProcSet: epsffit 1 0\n", output);
  967. !       fputs("gsave\n", output);
  968. !       fprintf(output, "%.3lf %.3lf translate\n", xoffset, yoffset);
  969.         if (rotate)
  970. !      fputs("90 rotate\n", output);
  971. !       fprintf(output, "%.3lf %.3lf scale\n", xscale, yscale);
  972.         if (!showpage)
  973. !      fputs("%%EndProcSet\n", output);
  974.      }
  975.      do {
  976. !       fputs(buf, output);
  977.      } while (fgets(buf, BUFSIZ, input));
  978.      if (bbfound) {
  979. !       fputs("grestore\n", output);
  980.         if (showpage)
  981. !      fputs("restore showpage\n", output); /* just in case */
  982.      } else {
  983.         fprintf(stderr, "%s: no %%%%BoundingBox:\n", prog);
  984.         exit(1);
  985. diff -cr +new-file psutils-dist/epsffit.man psutils-next/epsffit.man
  986. *** psutils-dist/epsffit.man    Mon Nov 29 10:34:25 1993
  987. --- psutils-next/epsffit.man    Sat Nov 27 14:28:24 1993
  988. ***************
  989. *** 1,4 ****
  990. ! .TH EPSFFIT 1 "PSUtils Release @REL@ Patchlevel @PL@"
  991.   .SH NAME
  992.   epsffit \- fit encapsulated PostScript file (EPSF) into constrained size
  993.   .SH SYNOPSIS
  994. --- 1,4 ----
  995. ! .TH EPSFFIT 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  996.   .SH NAME
  997.   epsffit \- fit encapsulated PostScript file (EPSF) into constrained size
  998.   .SH SYNOPSIS
  999. ***************
  1000. *** 16,23 ****
  1001.   ]
  1002.   .I "llx lly urx ury"
  1003.   [
  1004. ! .B file
  1005. ! ]
  1006.   .SH DESCRIPTION
  1007.   .I Epsffit
  1008.   fits an EPSF file (encapsulated PostScript) to a given bounding box.
  1009. --- 16,25 ----
  1010.   ]
  1011.   .I "llx lly urx ury"
  1012.   [
  1013. ! .B infile
  1014. ! [
  1015. ! .B outfile
  1016. ! ] ]
  1017.   .SH DESCRIPTION
  1018.   .I Epsffit
  1019.   fits an EPSF file (encapsulated PostScript) to a given bounding box.
  1020. ***************
  1021. *** 24,32 ****
  1022.   The coordinates of the box are given by \fB(llx,lly)\fR for the lower
  1023.   left, and \fB(urx,ury)\fR for the upper right, in PostScript units (points).
  1024.   .PP
  1025. ! If no file is specified,
  1026.   .I epsffit
  1027. ! uses the standard input. Output is always to the standard output.
  1028.   .SH OPTIONS
  1029.   .IP \fB\-c\fP 1i
  1030.   Center the image in the given bounding box.
  1031. --- 26,34 ----
  1032.   The coordinates of the box are given by \fB(llx,lly)\fR for the lower
  1033.   left, and \fB(urx,ury)\fR for the upper right, in PostScript units (points).
  1034.   .PP
  1035. ! If no input or output files are specified,
  1036.   .I epsffit
  1037. ! read from the standard input and writes to the standard output.
  1038.   .SH OPTIONS
  1039.   .IP \fB\-c\fP 1i
  1040.   Center the image in the given bounding box.
  1041. diff -cr +new-file psutils-dist/extractres.man psutils-next/extractres.man
  1042. *** psutils-dist/extractres.man
  1043. --- psutils-next/extractres.man    Sat Nov 27 14:28:29 1993
  1044. ***************
  1045. *** 0 ****
  1046. --- 1,47 ----
  1047. + .TH EXTRACTRES 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1048. + .SH NAME
  1049. + extractres \- filter to extract resources from a PostScript document
  1050. + .SH SYNOPSIS
  1051. + .B extractres 
  1052. + [
  1053. + .B \-m
  1054. + ] < 
  1055. + .I document.ps
  1056. + >
  1057. + .I output.ps
  1058. + .SH DESCRIPTION
  1059. + .I Extractres
  1060. + extracts resources (fonts, procsets, patterns, files, etc) appearing in a
  1061. + PostScript document, and puts appropriate
  1062. + .I %%IncludeResource
  1063. + comments in the document prologue. The extracted resources are written to
  1064. + files with the same name as the resource, and an appropriate extension. The
  1065. + pipeline
  1066. + .sp
  1067. + .ce
  1068. + extractres file.ps | includeres >out.ps
  1069. + .sp
  1070. + will move all resources appearing in a document to the document prologue,
  1071. + removing redundant copies. The output file can then be put through page
  1072. + re-arrangement filters such as
  1073. + .I psnup
  1074. + or 
  1075. + .I pstops
  1076. + safely.
  1077. + .PP
  1078. + The
  1079. + .B \-m
  1080. + option combines the resources of the same name into one file; this must be
  1081. + used for some programs which download fonts a bit at a time.
  1082. + .SH AUTHOR
  1083. + Angus Duggan
  1084. + .SH "SEE ALSO"
  1085. + @MAN@
  1086. + .SH TRADEMARKS
  1087. + .B PostScript
  1088. + is a trademark of Adobe Systems Incorporated.
  1089. + .SH BUGS
  1090. + .I extractres
  1091. + does not alter the
  1092. + .I %%DocumentSuppliedResources
  1093. + comments.
  1094. diff -cr +new-file psutils-dist/extractres.pl psutils-next/extractres.pl
  1095. *** psutils-dist/extractres.pl
  1096. --- psutils-next/extractres.pl    Fri Nov 19 22:14:33 1993
  1097. ***************
  1098. *** 0 ****
  1099. --- 1,97 ----
  1100. + #!@PERL@
  1101. + # extractres: extract resources from PostScript file
  1102. + #
  1103. + 
  1104. + # feed this into perl
  1105. + eval 'exec perl -S $0 "$@"'
  1106. +    if $running_under_some_shell;
  1107. + 
  1108. + $prog = ($0 =~ s=.*/==);
  1109. + 
  1110. + %resources = ();        # list of resources included
  1111. + %merge = ();            # list of resources extracted this time
  1112. + %extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns
  1113. +      "pattern", ".pat", "form", ".frm", "encoding", ".enc");
  1114. + %type = ("%%BeginFile:", "file", "%%BeginProcSet:", "procset",
  1115. +      "%%BeginFont:", "font"); # resource types
  1116. + 
  1117. + while (@ARGV) {
  1118. +    $_ = shift;
  1119. +    if (/^-m(erge)?$/) { $merge = 1; }
  1120. +    elsif (/^-/) {
  1121. +       print STDERR "Usage: $prog [-merge] [file]\n";
  1122. +       exit 1;
  1123. +    } else {
  1124. +       unshift(@ARGV, $_);
  1125. +       last;
  1126. +    }
  1127. + }
  1128. + 
  1129. + if (defined($ENV{TMPDIR})) {    # set body file name
  1130. +    $body = "$ENV{TMPDIR}/body$$.ps";
  1131. + } else {
  1132. +    $body = "body$$.ps";
  1133. + }
  1134. + 
  1135. + open(BODY, $body) && die "Temporary file $body already exists";
  1136. + open(BODY, ">$body") || die "Can't write file $body";
  1137. + 
  1138. + sub filename {            # make filename for resource in @_
  1139. +    local($name);
  1140. +    foreach (@_) {        # sanitise name
  1141. +       s/[!()\$\#*&\\\|\`\'\"\~\{\}\[\]\<\>\?]//g;
  1142. +       $name .= $_;
  1143. +    }
  1144. +    $name =~ s@.*/@@;        # drop directories
  1145. +    die "Filename not found for resource ", join(" ", @_), "\n"
  1146. +       if $name =~ /^$/;
  1147. +    $name;
  1148. + }
  1149. + 
  1150. + $output = STDOUT;        # start writing header out
  1151. + while (<>) {
  1152. +    if (/^%%BeginResource:/ || /^%%BeginFont:/ || /^%%BeginProcSet:/) {
  1153. +       local($comment, @res) = split(/\s+/); # look at resource type
  1154. +       local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res);
  1155. +       local($name) = &filename(@res, $extn{$type}); # make file name
  1156. +       $saveout = $output;
  1157. +       if (!$resources{$name}) {
  1158. +      print "%%IncludeResource: $type ", join(" ", @res), "\n";
  1159. +      if (!open(RES, $name)) {
  1160. +         open(RES, ">$name") || die "Can't write file $name";
  1161. +         $resources{$name} = $name;
  1162. +         $merge{$name} = $merge;
  1163. +         $output = RES;
  1164. +      } else {        # resource already exists
  1165. +         close(RES);
  1166. +         undef $output;
  1167. +      }
  1168. +       } elsif ($merge{$name}) {
  1169. +      open(RES, ">>$name") || die "Can't append to file $name";
  1170. +      $output = RES;
  1171. +       } else {            # resource already included
  1172. +      undef $output;
  1173. +       }
  1174. +    } elsif (/^%%EndResource/ || /^%%EndFont/ || /^%%EndProcSet/) {
  1175. +       if (defined $output) {
  1176. +      print $output $_;
  1177. +      close($output);
  1178. +       }
  1179. +       $output = $saveout;
  1180. +       next;
  1181. +    } elsif ((/^%%EndProlog/ || /^%%BeginSetup/ || /^%%Page:/)) {
  1182. +       $output = BODY;
  1183. +    }
  1184. +    print $output $_
  1185. +       if defined $output;
  1186. + }
  1187. + 
  1188. + close(BODY);            # close body output file
  1189. + 
  1190. + open(BODY, $body);        # reopen body for input
  1191. + while (<BODY>) {        # print it all
  1192. +    print $_;
  1193. + }
  1194. + close(BODY);
  1195. + 
  1196. + unlink($body);            # dispose of body file
  1197. diff -cr +new-file psutils-dist/fixdlsrps.man psutils-next/fixdlsrps.man
  1198. *** psutils-dist/fixdlsrps.man
  1199. --- psutils-next/fixdlsrps.man    Sat Nov 27 14:28:33 1993
  1200. ***************
  1201. *** 0 ****
  1202. --- 1,24 ----
  1203. + .TH FIXDLSRPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1204. + .SH NAME
  1205. + fixdlsrps \- filter to fix DviLaser/PS documents to work with PSUtils
  1206. + .SH SYNOPSIS
  1207. + .B fixdlsrps 
  1208. + < 
  1209. + .I dvilaser.ps
  1210. + >
  1211. + .I Fixed.ps
  1212. + .SH DESCRIPTION
  1213. + .I Fixdlsrps
  1214. + is a 
  1215. + .I perl 
  1216. + filter which "fixes" PostScript generated from the DviLaser/PS driver so
  1217. + that it works correctly with Angus Duggan's
  1218. + .B psutils
  1219. + package.
  1220. + .SH AUTHOR
  1221. + Angus Duggan
  1222. + .SH "SEE ALSO"
  1223. + @MAN@
  1224. + .SH TRADEMARKS
  1225. + .B PostScript
  1226. + is a trademark of Adobe Systems Incorporated.
  1227. diff -cr +new-file psutils-dist/fixdlsrps.pl psutils-next/fixdlsrps.pl
  1228. *** psutils-dist/fixdlsrps.pl
  1229. --- psutils-next/fixdlsrps.pl    Sat Nov 20 00:30:00 1993
  1230. ***************
  1231. *** 0 ****
  1232. --- 1,48 ----
  1233. + #!@PERL@
  1234. + # fixdlsrps: fix DviLaser/PS document to work with PSUtils
  1235. + 
  1236. + # feed this into perl
  1237. + eval 'exec perl -S $0 "$@"'
  1238. +    if $running_under_some_shell;
  1239. + 
  1240. + $nesting = 0;
  1241. + $page = 1;
  1242. + $infont = 0;
  1243. + 
  1244. + @fonts = ();
  1245. + 
  1246. + while (<>) {
  1247. +    if (/^XP/) {
  1248. +       print $_;
  1249. +       $infont++;
  1250. +       push(@fonts, $_);
  1251. +       $infont-- if /PXL.*RP/;
  1252. +    } elsif ($infont) {
  1253. +       print $_;
  1254. +       push(@fonts, $_);
  1255. +       $infont-- if /PXL.*RP/;
  1256. +    } elsif (/^%%EndProlog/ && !$nesting) {
  1257. +       print "\$DviLaser begin/GlobalMode{}bdef/LocalMode{}bdef\
  1258. + /RES{/Resolution xdef/PxlResolution xdef\
  1259. +   /RasterScaleFactor PxlResolution Resolution div def\
  1260. +   InitialMatrix setmatrix 72.0 Resolution div dup scale}bdef\
  1261. + /DoInitialScaling{}bdef end\n";
  1262. +       print "\$DviLaser begin /XP {} def /RP {} def end\n";
  1263. +       print $_;
  1264. +    } elsif (/^%%BeginPageSetup/ && !$nesting) {
  1265. +       print "%%Page: $page $page\n";
  1266. +       $page++;
  1267. +       print $_;
  1268. +    } elsif (/^%%EndPageSetup/ && !$nesting) {
  1269. +       print @fonts;
  1270. +       print $_;
  1271. +    } elsif (/^%%BeginDocument/ || /^%%BeginBinary/) {
  1272. +       print $_;
  1273. +       $nesting++;
  1274. +    } elsif (/^%%EndDocument/ || /^%%EndBinary/) {
  1275. +       print $_;
  1276. +       $nesting--;
  1277. +    } elsif (!/^%%PageBoundingBox:/) {
  1278. +       print $_;
  1279. +    }
  1280. + }
  1281. diff -cr +new-file psutils-dist/fixfmps.man psutils-next/fixfmps.man
  1282. *** psutils-dist/fixfmps.man    Mon Nov 29 10:34:25 1993
  1283. --- psutils-next/fixfmps.man    Sat Nov 27 14:28:36 1993
  1284. ***************
  1285. *** 1,4 ****
  1286. ! .TH FIXFMPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1287.   .SH NAME
  1288.   fixfmps \- filter to fix Framemaker documents so PSUtils work
  1289.   .SH SYNOPSIS
  1290. --- 1,4 ----
  1291. ! .TH FIXFMPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1292.   .SH NAME
  1293.   fixfmps \- filter to fix Framemaker documents so PSUtils work
  1294.   .SH SYNOPSIS
  1295. diff -cr +new-file psutils-dist/fixfmps.pl psutils-next/fixfmps.pl
  1296. *** psutils-dist/fixfmps.pl    Mon Nov 29 10:34:26 1993
  1297. --- psutils-next/fixfmps.pl    Wed Oct 27 18:07:31 1993
  1298. ***************
  1299. *** 1,5 ****
  1300.   #!@PERL@
  1301. ! # fixfmps: get conforming PostScript out of FrameMaker file
  1302.   # move all FMDEFINEFONTs to start of pages
  1303.   
  1304.   # feed this into perl
  1305. --- 1,5 ----
  1306.   #!@PERL@
  1307. ! # fixfmps: get conforming PostScript out of FrameMaker version 2 file
  1308.   # move all FMDEFINEFONTs to start of pages
  1309.   
  1310.   # feed this into perl
  1311. ***************
  1312. *** 11,17 ****
  1313.   while (<>) {
  1314.      if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
  1315.         $fonts{$1} = $_;
  1316. !    } elsif (/^[0-9]+ [0-9]+ [0-9]+ FMBEGINPAGE$/) {
  1317.         print $_, join('',values(%fonts));
  1318.      } else {
  1319.         print $_;
  1320. --- 11,17 ----
  1321.   while (<>) {
  1322.      if (/^([0-9]+) [0-9]+ .* FMDEFINEFONT$/) {
  1323.         $fonts{$1} = $_;
  1324. !    } elsif (/^[0-9.]+ [0-9.]+ [0-9]+ FMBEGINPAGE$/) {
  1325.         print $_, join('',values(%fonts));
  1326.      } else {
  1327.         print $_;
  1328. diff -cr +new-file psutils-dist/fixmacps.man psutils-next/fixmacps.man
  1329. *** psutils-dist/fixmacps.man    Mon Nov 29 10:34:27 1993
  1330. --- psutils-next/fixmacps.man    Sat Nov 27 14:28:40 1993
  1331. ***************
  1332. *** 1,4 ****
  1333. ! .TH FIXMACPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1334.   .SH NAME
  1335.   fixmacps \- filter to fix Macintosh documents with saner version of md
  1336.   .SH SYNOPSIS
  1337. --- 1,4 ----
  1338. ! .TH FIXMACPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1339.   .SH NAME
  1340.   fixmacps \- filter to fix Macintosh documents with saner version of md
  1341.   .SH SYNOPSIS
  1342. ***************
  1343. *** 15,20 ****
  1344. --- 15,23 ----
  1345.   that it works correctly with Angus Duggan's
  1346.   .B psutils
  1347.   package.
  1348. + .SH FILES
  1349. + @INCLUDE@/md68_0.ps, @INCLUDE@/md71_0.ps - sanitised versions of the md
  1350. + prologue.
  1351.   .SH AUTHOR
  1352.   Angus Duggan
  1353.   .SH "SEE ALSO"
  1354. diff -cr +new-file psutils-dist/fixmacps.pl psutils-next/fixmacps.pl
  1355. *** psutils-dist/fixmacps.pl    Mon Nov 29 10:34:27 1993
  1356. --- psutils-next/fixmacps.pl    Wed Oct 27 18:07:36 1993
  1357. ***************
  1358. *** 27,34 ****
  1359.         if (! $line) {
  1360.        print;
  1361.         }
  1362. !    } elsif (/^%%BeginProcSet: "?\(AppleDict md\)"? ([0-9]+) ([0-9]+)$/) {
  1363. !       local($mdv, $mdr) = ($1, $2);
  1364.         if (open(SANE, "<$dir/$prefix${mdv}_$mdr.ps") ||
  1365.         open(SANE, "<$dir/$default")) {
  1366.        $sane = <SANE>;
  1367. --- 27,34 ----
  1368.         if (! $line) {
  1369.        print;
  1370.         }
  1371. !    } elsif (/^%%(Begin|Include)ProcSet: "?\(AppleDict md\)"? ([0-9]+) ([0-9]+)$/) {
  1372. !       local($inc, $mdv, $mdr) = ($1, $2, $3);
  1373.         if (open(SANE, "<$dir/$prefix${mdv}_$mdr.ps") ||
  1374.         open(SANE, "<$dir/$default")) {
  1375.        $sane = <SANE>;
  1376. ***************
  1377. *** 35,41 ****
  1378.        local($snv, $snr) =
  1379.           $sane =~ /^%%BeginProcSet: \(AppleDict md\) ([0-9]+) ([0-9]+)$/;
  1380.        if ($mdv == $snv && $mdr == $snr) {
  1381. !         $ignore = 1;
  1382.        } else {
  1383.           print STDERR "Unrecognised AppleDict version $mdv $mdr\n";
  1384.           print "%!\n" if !$line;
  1385. --- 35,52 ----
  1386.        local($snv, $snr) =
  1387.           $sane =~ /^%%BeginProcSet: \(AppleDict md\) ([0-9]+) ([0-9]+)$/;
  1388.        if ($mdv == $snv && $mdr == $snr) {
  1389. !          if ( $inc eq "Include" ) {
  1390. !          print STDERR "Inserting ProcSet \"(AppleDict md)\" $snv $snr\n";
  1391. !          print $sane;
  1392. !          while(<SANE>) {
  1393. !              print;
  1394. !          }
  1395. !          close(SANE);
  1396. !          }
  1397. !          else {
  1398. !          print STDERR "Substituting ProcSet \"(AppleDict md)\" $snv $snr\n";
  1399. !          $ignore = 1;
  1400. !          }
  1401.        } else {
  1402.           print STDERR "Unrecognised AppleDict version $mdv $mdr\n";
  1403.           print "%!\n" if !$line;
  1404. diff -cr +new-file psutils-dist/fixpsditps.man psutils-next/fixpsditps.man
  1405. *** psutils-dist/fixpsditps.man    Mon Nov 29 10:34:28 1993
  1406. --- psutils-next/fixpsditps.man    Sat Nov 27 14:28:44 1993
  1407. ***************
  1408. *** 1,4 ****
  1409. ! .TH FIXPSDITPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1410.   .SH NAME
  1411.   fixpsditps \- filter to fix Transcript psdit documents so PSUtils work
  1412.   .SH SYNOPSIS
  1413. --- 1,4 ----
  1414. ! .TH FIXPSDITPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1415.   .SH NAME
  1416.   fixpsditps \- filter to fix Transcript psdit documents so PSUtils work
  1417.   .SH SYNOPSIS
  1418. diff -cr +new-file psutils-dist/fixpspps.man psutils-next/fixpspps.man
  1419. *** psutils-dist/fixpspps.man    Mon Nov 29 10:34:29 1993
  1420. --- psutils-next/fixpspps.man    Sat Nov 27 14:28:47 1993
  1421. ***************
  1422. *** 1,4 ****
  1423. ! .TH FIXPSPPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1424.   .SH NAME
  1425.   fixpspps \- filter to fix PSPrint PostScript so PSUtils work
  1426.   .SH SYNOPSIS
  1427. --- 1,4 ----
  1428. ! .TH FIXPSPPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1429.   .SH NAME
  1430.   fixpspps \- filter to fix PSPrint PostScript so PSUtils work
  1431.   .SH SYNOPSIS
  1432. diff -cr +new-file psutils-dist/fixtpps.man psutils-next/fixtpps.man
  1433. *** psutils-dist/fixtpps.man    Mon Nov 29 10:34:29 1993
  1434. --- psutils-next/fixtpps.man    Sat Nov 27 14:28:51 1993
  1435. ***************
  1436. *** 1,4 ****
  1437. ! .TH FIXTPPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1438.   .SH NAME
  1439.   fixtpps \- filter to fix Tpscript documents to work with PSUtils
  1440.   .SH SYNOPSIS
  1441. --- 1,4 ----
  1442. ! .TH FIXTPPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1443.   .SH NAME
  1444.   fixtpps \- filter to fix Tpscript documents to work with PSUtils
  1445.   .SH SYNOPSIS
  1446. diff -cr +new-file psutils-dist/fixwfwps.man psutils-next/fixwfwps.man
  1447. *** psutils-dist/fixwfwps.man    Mon Nov 29 10:34:30 1993
  1448. --- psutils-next/fixwfwps.man    Sat Nov 27 14:28:55 1993
  1449. ***************
  1450. *** 1,4 ****
  1451. ! .TH FIXWFWPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1452.   .SH NAME
  1453.   fixwfwps \- filter to fix Word for Windows documents so PSUtils work
  1454.   .SH SYNOPSIS
  1455. --- 1,4 ----
  1456. ! .TH FIXWFWPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1457.   .SH NAME
  1458.   fixwfwps \- filter to fix Word for Windows documents so PSUtils work
  1459.   .SH SYNOPSIS
  1460. diff -cr +new-file psutils-dist/fixwfwps.pl psutils-next/fixwfwps.pl
  1461. *** psutils-dist/fixwfwps.pl    Mon Nov 29 10:34:31 1993
  1462. --- psutils-next/fixwfwps.pl    Tue Nov  9 22:57:05 1993
  1463. ***************
  1464. *** 5,22 ****
  1465.   eval 'exec perl -S $0 "$@"'
  1466.      if $running_under_some_shell;
  1467.   
  1468.   while (<>) {
  1469. !    tr/\000-\011\013-\037//d;
  1470. !    s!/SVDoc\s+save\s+def!!g;
  1471. !    s!SVDoc\s+restore!!g;
  1472. !    if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/) {
  1473. !       print "$1\n";
  1474. !       $wfwepsf = 1;
  1475. !    } elsif (/^SS\s*$/ && $wfwepsf) {
  1476. !       print "%%Page: $wfwepsf $wfwepsf\n";
  1477. !       $wfwepsf++;
  1478. !       print $_;
  1479. !    } elsif (! /^%%BoundingBox/) {
  1480. !       print $_;
  1481.      }
  1482.   }
  1483. --- 5,33 ----
  1484.   eval 'exec perl -S $0 "$@"'
  1485.      if $running_under_some_shell;
  1486.   
  1487. + $nesting = 0;
  1488.   while (<>) {
  1489. !    tr/\000-\010\012-\014\016-\037//d;
  1490. !    foreach (grep($_ ne "", split("\015"))) {
  1491. !       s!/SVDoc\s+save\s+def!!g;
  1492. !       s!SVDoc\s+restore!!g;
  1493. !       if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/ && !$nesting) {
  1494. !      print "$1\n";
  1495. !      $wfwepsf = 1;
  1496. !       } elsif (/^SS\s*$/ && $wfwepsf) {
  1497. !      print "%%Page: $wfwepsf $wfwepsf\n";
  1498. !      $wfwepsf++;
  1499. !      print "$_\n";
  1500. !       } elsif (/^%MSEPS Preamble/) {
  1501. !      print "%%BeginDocument: (Included EPSF)\n";
  1502. !      print "$_\n";
  1503. !      $nesting++;
  1504. !       } elsif (/^%MSEPS Trailer/) {
  1505. !      $nesting--;
  1506. !      print "$_\n";
  1507. !      print "%%EndDocument\n";
  1508. !       } elsif (! /^%%BoundingBox/) {
  1509. !      print "$_\n";
  1510. !       }
  1511.      }
  1512.   }
  1513. diff -cr +new-file psutils-dist/fixwpps.man psutils-next/fixwpps.man
  1514. *** psutils-dist/fixwpps.man    Mon Nov 29 10:34:31 1993
  1515. --- psutils-next/fixwpps.man    Sat Nov 27 14:28:59 1993
  1516. ***************
  1517. *** 1,4 ****
  1518. ! .TH FIXWPPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1519.   .SH NAME
  1520.   fixwpps \- filter to fix WP documents so PSUtils work
  1521.   .SH SYNOPSIS
  1522. --- 1,4 ----
  1523. ! .TH FIXWPPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1524.   .SH NAME
  1525.   fixwpps \- filter to fix WP documents so PSUtils work
  1526.   .SH SYNOPSIS
  1527. diff -cr +new-file psutils-dist/fixwwps.man psutils-next/fixwwps.man
  1528. *** psutils-dist/fixwwps.man    Mon Nov 29 10:34:32 1993
  1529. --- psutils-next/fixwwps.man    Sat Nov 27 14:29:03 1993
  1530. ***************
  1531. *** 1,4 ****
  1532. ! .TH FIXWWPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1533.   .SH NAME
  1534.   fixwwps \- filter to fix Windows Write documents so PSUtils work
  1535.   .SH SYNOPSIS
  1536. --- 1,4 ----
  1537. ! .TH FIXWWPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1538.   .SH NAME
  1539.   fixwwps \- filter to fix Windows Write documents so PSUtils work
  1540.   .SH SYNOPSIS
  1541. diff -cr +new-file psutils-dist/getafm.man psutils-next/getafm.man
  1542. *** psutils-dist/getafm.man    Mon Nov 29 10:34:33 1993
  1543. --- psutils-next/getafm.man    Sat Nov 27 14:29:07 1993
  1544. ***************
  1545. *** 1,4 ****
  1546. ! .TH GETAFM 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1547.   .SH NAME
  1548.   getafm \- create an AFM file for a PostScript font.
  1549.   .SH SYNOPSIS
  1550. --- 1,4 ----
  1551. ! .TH GETAFM 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1552.   .SH NAME
  1553.   getafm \- create an AFM file for a PostScript font.
  1554.   .SH SYNOPSIS
  1555. ***************
  1556. *** 5,11 ****
  1557.   .B getafm 
  1558.   .I FontName
  1559.   >
  1560. ! .I fontname.afm
  1561.   .SH DESCRIPTION
  1562.   .I Getafm
  1563.   generates a PostScript file which prints an AFM file for a font to the
  1564. --- 5,11 ----
  1565.   .B getafm 
  1566.   .I FontName
  1567.   >
  1568. ! .I output.ps
  1569.   .SH DESCRIPTION
  1570.   .I Getafm
  1571.   generates a PostScript file which prints an AFM file for a font to the
  1572. diff -cr +new-file psutils-dist/includeres.man psutils-next/includeres.man
  1573. *** psutils-dist/includeres.man
  1574. --- psutils-next/includeres.man    Sat Nov 27 14:29:11 1993
  1575. ***************
  1576. *** 0 ****
  1577. --- 1,42 ----
  1578. + .TH INCLUDERES 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1579. + .SH NAME
  1580. + includeres \- filter to include resources in a PostScript document
  1581. + .SH SYNOPSIS
  1582. + .B includeres 
  1583. + < 
  1584. + .I document.ps
  1585. + >
  1586. + .I output.ps
  1587. + .SH DESCRIPTION
  1588. + .I Includeres
  1589. + includes resources (fonts, procsets, patterns, files, etc) in place of
  1590. + .I %%IncludeResource
  1591. + comments in a PostScript document. The resources are searched for in the
  1592. + current directory and the system default directory under the resource name,
  1593. + and with an appropriate extension.
  1594. + The pipeline
  1595. + .sp
  1596. + .ce
  1597. + extractres file.ps | includeres >out.ps
  1598. + .sp
  1599. + will move all resources appearing in a document to the document prologue,
  1600. + removing redundant copies. The output file can then be put through page
  1601. + re-arrangement filters such as
  1602. + .I psnup
  1603. + or 
  1604. + .I pstops
  1605. + safely.
  1606. + .SH FILES
  1607. + @INCLUDE@ - system resource directory.
  1608. + .SH AUTHOR
  1609. + Angus Duggan
  1610. + .SH "SEE ALSO"
  1611. + @MAN@
  1612. + .SH TRADEMARKS
  1613. + .B PostScript
  1614. + is a trademark of Adobe Systems Incorporated.
  1615. + .SH BUGS
  1616. + .I includeres
  1617. + does not alter the
  1618. + .I %%DocumentNeededResources
  1619. + comments.
  1620. diff -cr +new-file psutils-dist/includeres.pl psutils-next/includeres.pl
  1621. *** psutils-dist/includeres.pl
  1622. --- psutils-next/includeres.pl    Fri Nov 19 21:10:43 1993
  1623. ***************
  1624. *** 0 ****
  1625. --- 1,47 ----
  1626. + #!@PERL@
  1627. + # includeres: include resources in PostScript file
  1628. + #
  1629. + 
  1630. + # feed this into perl
  1631. + eval 'exec perl -S $0 "$@"'
  1632. +    if $running_under_some_shell;
  1633. + 
  1634. + $prog = ($0 =~ s=.*/==);
  1635. + 
  1636. + %extn = ("font", ".pfa", "file", ".ps", "procset", ".ps", # resource extns
  1637. +      "pattern", ".pat", "form", ".frm", "encoding", ".enc");
  1638. + %type = ("%%BeginFile:", "file", "%%BeginProcSet:", "procset",
  1639. +      "%%BeginFont:", "font"); # resource types
  1640. + 
  1641. + sub filename {            # make filename for resource in @_
  1642. +    local($name);
  1643. +    foreach (@_) {        # sanitise name
  1644. +       s/[!()\$\#*&\\\|\`\'\"\~\{\}\[\]\<\>\?]//g;
  1645. +       $name .= $_;
  1646. +    }
  1647. +    $name =~ s@.*/@@;        # drop directories
  1648. +    die "Filename not found for resource ", join(" ", @_), "\n"
  1649. +       if $name =~ /^$/;
  1650. +    $name;
  1651. + }
  1652. + 
  1653. + while (<>) {
  1654. +    if (/^%%IncludeResource:/ || /^%%IncludeFont:/ || /^%%IncludeProcSet:/) {
  1655. +       local($comment, @res) = split(/\s+/);
  1656. +       local($type) = defined($type{$comment}) ? $type{$comment} : shift(@res);
  1657. +       local($name) = &filename(@res);
  1658. +       local($inc) = "@INCLUDE@"; # system include directory
  1659. +       if (open(RES, $name) || open(RES, "$name$extn{$type}") ||
  1660. +       open(RES, "$inc/$name") || open(RES, "$inc/$name$extn{$type}")) {
  1661. +      while (<RES>) {
  1662. +         print $_;
  1663. +      }
  1664. +      close(RES);
  1665. +       } else {
  1666. +      print "%%IncludeResource: ", join(" ", $type, @res), "\n";
  1667. +      print STDERR "Resource $name not found\n";
  1668. +       }
  1669. +    } else {
  1670. +       print $_;
  1671. +    }
  1672. + }
  1673. diff -cr +new-file psutils-dist/maketext psutils-next/maketext
  1674. *** psutils-dist/maketext
  1675. --- psutils-next/maketext    Mon Nov 29 17:02:24 1993
  1676. ***************
  1677. *** 0 ****
  1678. --- 1,32 ----
  1679. + 
  1680. + eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  1681. +    & eval 'exec perl -S $0 $argv:q'
  1682. +    if 0;
  1683. + 
  1684. + # maketext: perl filter to substitute names in scripts and man pages.
  1685. + 
  1686. + %change = ();            # names -> substitutions
  1687. + 
  1688. + # get release and patchlevel for all scripts
  1689. + open(H, "patchlev.h") || die "can't open patchlev.h";
  1690. + while(<H>) {
  1691. +    $change{$1} = $2 if /^\#define\s*(\S*)\s*(\S*)/;
  1692. + }
  1693. + close(H);
  1694. + 
  1695. + foreach (@ARGV) {
  1696. +    if (/MAN=(.*)/) {        # name.ext name.ext -> name(ext), name(ext)
  1697. +       local(@man) = split(' ', $1);
  1698. +       $change{MAN} = join(", ", grep(s/\.(.)/($1)/, @man));
  1699. +    } elsif (/(.*)=(.*)/) {    # substitute name for value
  1700. +       $change{$1} = $2;
  1701. +    } else {            # open file and substitute
  1702. +       local(@change) = keys %change;
  1703. +       open(FILE, $_) || die "can't open $_";
  1704. +       while ($line = <FILE>) {
  1705. +      grep($line =~ s/@$_@/$change{$_}/g, @change);
  1706. +      print $line;
  1707. +       }
  1708. +       close(FILE);
  1709. +    }
  1710. + }
  1711. diff -cr +new-file psutils-dist/md68_0.ps psutils-next/md68_0.ps
  1712. *** psutils-dist/md68_0.ps    Mon Nov 29 10:34:44 1993
  1713. --- psutils-next/md68_0.ps    Wed Oct 27 18:08:15 1993
  1714. ***************
  1715. *** 81,88 ****
  1716.   2t astore pop/pnsh xdf/pnsv xdf gw
  1717.   /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap
  1718.   setlinewidth setgray moveto}bdf
  1719. ! /fc{save vmstatus exch sub 50000 lt
  1720. ! {(%%[|0|]%%)=print flush}if pop restore}bdf
  1721.   /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  1722.   /3a [0 0 0] def
  1723.   /2t 2 array def
  1724. --- 81,87 ----
  1725.   2t astore pop/pnsh xdf/pnsv xdf gw
  1726.   /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap
  1727.   setlinewidth setgray moveto}bdf
  1728. ! /fc{}bdf
  1729.   /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  1730.   /3a [0 0 0] def
  1731.   /2t 2 array def
  1732. diff -cr +new-file psutils-dist/md71_0.ps psutils-next/md71_0.ps
  1733. *** psutils-dist/md71_0.ps    Mon Nov 29 10:34:46 1993
  1734. --- psutils-next/md71_0.ps    Wed Oct 27 18:08:47 1993
  1735. ***************
  1736. *** 84,91 ****
  1737.   astore pop 2t astore pop/pnsh xdf/pnsv xdf gw
  1738.   /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap 
  1739.   setlinewidth 4colors{mysetcmykcolor}{setrgbcolor}ifelse moveto}bdf
  1740. ! /fc{save vmstatus exch sub 50000 lt
  1741. ! {(%%[|0|]%%)=print flush}if pop restore}bdf
  1742.   /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  1743.   /3a [0 0 0] def
  1744.   /2t 2 array def
  1745. --- 84,90 ----
  1746.   astore pop 2t astore pop/pnsh xdf/pnsv xdf gw
  1747.   /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap 
  1748.   setlinewidth 4colors{mysetcmykcolor}{setrgbcolor}ifelse moveto}bdf
  1749. ! /fc{}bdf
  1750.   /tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
  1751.   /3a [0 0 0] def
  1752.   /2t 2 array def
  1753. diff -cr +new-file psutils-dist/patchlev.h psutils-next/patchlev.h
  1754. *** psutils-dist/patchlev.h
  1755. --- psutils-next/patchlev.h    Wed Oct 27 18:09:11 1993
  1756. ***************
  1757. *** 0 ****
  1758. --- 1,2 ----
  1759. + #define RELEASE 1
  1760. + #define PATCHLEVEL 13
  1761. diff -cr +new-file psutils-dist/patchlevel.h psutils-next/patchlevel.h
  1762. *** psutils-dist/patchlevel.h    Mon Nov 29 10:34:33 1993
  1763. --- psutils-next/patchlevel.h
  1764. ***************
  1765. *** 1,2 ****
  1766. - #define RELEASE 1
  1767. - #define PATCHLEVEL 12
  1768. --- 0 ----
  1769. diff -cr +new-file psutils-dist/psbook.c psutils-next/psbook.c
  1770. *** psutils-dist/psbook.c    Mon Nov 29 10:34:34 1993
  1771. --- psutils-next/psbook.c    Mon Nov 29 17:02:42 1993
  1772. ***************
  1773. *** 7,13 ****
  1774.    */
  1775.   
  1776.   #include "psutil.h"
  1777. ! #include "patchlevel.h"
  1778.   
  1779.   void usage()
  1780.   {
  1781. --- 7,13 ----
  1782.    */
  1783.   
  1784.   #include "psutil.h"
  1785. ! #include "patchlev.h"
  1786.   
  1787.   void usage()
  1788.   {
  1789. ***************
  1790. *** 72,78 ****
  1791.   
  1792.      /* rearrange pages */
  1793.      writeheader(maxpage);
  1794. !    writeprolog("");
  1795.      for (currentpg = 0; currentpg < maxpage; currentpg++) {
  1796.         int actualpg = currentpg - currentpg%signature;
  1797.         switch(currentpg%4) {
  1798. --- 72,79 ----
  1799.   
  1800.      /* rearrange pages */
  1801.      writeheader(maxpage);
  1802. !    writeprolog();
  1803. !    writesetup();
  1804.      for (currentpg = 0; currentpg < maxpage; currentpg++) {
  1805.         int actualpg = currentpg - currentpg%signature;
  1806.         switch(currentpg%4) {
  1807. diff -cr +new-file psutils-dist/psbook.man psutils-next/psbook.man
  1808. *** psutils-dist/psbook.man    Mon Nov 29 10:34:34 1993
  1809. --- psutils-next/psbook.man    Sat Nov 27 14:29:17 1993
  1810. ***************
  1811. *** 1,4 ****
  1812. ! .TH PSBOOK 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1813.   .SH NAME
  1814.   psbook \- rearrange pages in PostScript file into signatures
  1815.   .SH SYNOPSIS
  1816. --- 1,4 ----
  1817. ! .TH PSBOOK 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1818.   .SH NAME
  1819.   psbook \- rearrange pages in PostScript file into signatures
  1820.   .SH SYNOPSIS
  1821. diff -cr +new-file psutils-dist/psnup.c psutils-next/psnup.c
  1822. *** psutils-dist/psnup.c    Mon Nov 29 10:34:40 1993
  1823. --- psutils-next/psnup.c    Mon Nov 29 17:23:21 1993
  1824. ***************
  1825. *** 4,10 ****
  1826.    *
  1827.    * Usage:
  1828.    *      psnup [-q] [-w<dim>] [-h<dim>] [-ppaper] [-b<dim>] [-m<dim>]
  1829. !  *            [-l] [-c] [-f] [-sscale] [-d] [-nup] [in [out]]
  1830.    *              -w<dim> sets the paper width
  1831.    *              -h<dim> sets the paper height
  1832.    *              -ppaper sets the paper size (width and height) by name
  1833. --- 4,10 ----
  1834.    *
  1835.    * Usage:
  1836.    *      psnup [-q] [-w<dim>] [-h<dim>] [-ppaper] [-b<dim>] [-m<dim>]
  1837. !  *            [-l] [-c] [-f] [-sscale] [-d<wid>] [-nup] [in [out]]
  1838.    *              -w<dim> sets the paper width
  1839.    *              -h<dim> sets the paper height
  1840.    *              -ppaper sets the paper size (width and height) by name
  1841. ***************
  1842. *** 15,26 ****
  1843.    *              -r      used if pages are in seascape orientation (rot right)
  1844.    *         -c    for column-major layout
  1845.    *        -f    for flipped (wider than tall) pages
  1846. !  *         -d    to draw the page boundaries
  1847.    */
  1848.   
  1849.   #include "psutil.h"
  1850.   #include "psspec.h"
  1851. ! #include "patchlevel.h"
  1852.   
  1853.   void usage()
  1854.   {
  1855. --- 15,26 ----
  1856.    *              -r      used if pages are in seascape orientation (rot right)
  1857.    *         -c    for column-major layout
  1858.    *        -f    for flipped (wider than tall) pages
  1859. !  *         -d<wid>    to draw the page boundaries
  1860.    */
  1861.   
  1862.   #include "psutil.h"
  1863.   #include "psspec.h"
  1864. ! #include "patchlev.h"
  1865.   
  1866.   void usage()
  1867.   {
  1868. diff -cr +new-file psutils-dist/psnup.man psutils-next/psnup.man
  1869. *** psutils-dist/psnup.man    Mon Nov 29 10:34:35 1993
  1870. --- psutils-next/psnup.man    Mon Nov 29 20:52:03 1993
  1871. ***************
  1872. *** 1,4 ****
  1873. ! .TH PSNUP 1 "PSUtils Release @REL@ Patchlevel @PL@"
  1874.   .SH NAME
  1875.   psnup \- multiple pages per sheet
  1876.   .SH SYNOPSIS
  1877. --- 1,4 ----
  1878. ! .TH PSNUP 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  1879.   .SH NAME
  1880.   psnup \- multiple pages per sheet
  1881.   .SH SYNOPSIS
  1882. ***************
  1883. *** 110,116 ****
  1884.   tries to optimise the layout so that the minimum amount of space is wasted. If
  1885.   .I psnup
  1886.   cannot find a layout within its tolerance limit, it will abort with an error
  1887. ! message.
  1888.   .PP
  1889.   .I Psnup
  1890.   normally prints the page numbers of the pages re-arranged; the
  1891. --- 110,118 ----
  1892.   tries to optimise the layout so that the minimum amount of space is wasted. If
  1893.   .I psnup
  1894.   cannot find a layout within its tolerance limit, it will abort with an error
  1895. ! message. The alternative form
  1896. ! .I \i \fInup\fR
  1897. ! can also be used, for compatibility with other n-up programs.
  1898.   .PP
  1899.   .I Psnup
  1900.   normally prints the page numbers of the pages re-arranged; the
  1901. diff -cr +new-file psutils-dist/psresize.c psutils-next/psresize.c
  1902. *** psutils-dist/psresize.c
  1903. --- psutils-next/psresize.c    Mon Nov 29 20:19:18 1993
  1904. ***************
  1905. *** 0 ****
  1906. --- 1,183 ----
  1907. + /* psresize.c
  1908. +  * AJCD 29/11/93
  1909. +  * alter pagesize of document
  1910. +  *
  1911. +  * Usage:
  1912. +  *      psresize [-q] [-w<dim>] [-h<dim>] [-ppaper] [-W<dim>] [-H<dim>]
  1913. +  *            [-Ppaper] [in [out]]
  1914. +  *              -w<dim> sets the output paper width
  1915. +  *              -h<dim> sets the output paper height
  1916. +  *              -ppaper sets the output paper size (width and height) by name
  1917. +  *              -W<dim> sets the input paper width
  1918. +  *              -H<dim> sets the input paper height
  1919. +  *              -Ppaper sets the input paper size (width and height) by name
  1920. +  */
  1921. + 
  1922. + #include "psutil.h"
  1923. + #include "psspec.h"
  1924. + #include "patchlev.h"
  1925. + 
  1926. + void usage()
  1927. + {
  1928. +    fprintf(stderr, "%s release %d patchlevel %d\n", prog, RELEASE, PATCHLEVEL);
  1929. +    fprintf(stderr, "Usage: %s [-q] [-wwidth] [-hheight] [-ppaper] [-Wwidth] [-Hheight] [-Ppaper] [infile [outfile]]\n",
  1930. +        prog);
  1931. +    fflush(stderr);
  1932. +    exit(1);
  1933. + }
  1934. + 
  1935. + void argerror()
  1936. + {
  1937. +    fprintf(stderr, "%s: bad dimension\n", prog);
  1938. +    fflush(stderr);
  1939. +    exit(1);
  1940. + }
  1941. + 
  1942. + #define min(x,y) ((x) > (y) ? (y) : (x))
  1943. + #define max(x,y) ((x) > (y) ? (x) : (y))
  1944. + 
  1945. + main(argc, argv)
  1946. +      int argc;
  1947. +      char *argv[];
  1948. + {
  1949. +    double scale, rscale;            /* page scale */
  1950. +    double waste, rwaste;            /* amount wasted */
  1951. +    double vshift, hshift;            /* page centring shifts */
  1952. +    int rotate;
  1953. +    double inwidth = -1;
  1954. +    double inheight = -1;
  1955. +    struct papersize *paper;
  1956. +    struct pagespec *specs;
  1957. + 
  1958. + #ifdef PAPER
  1959. +    if (paper = findpaper(PAPER)) {
  1960. +       inwidth = width = (double)paper->width;
  1961. +       inheight = height = (double)paper->height;
  1962. +    }
  1963. + #endif
  1964. + 
  1965. +    vshift = hshift = 0;
  1966. +    rotate = 0;
  1967. + 
  1968. +    infile = stdin;
  1969. +    outfile = stdout;
  1970. +    verbose = 1;
  1971. +    for (prog = *argv++; --argc; argv++) {
  1972. +       if (argv[0][0] == '-') {
  1973. +      switch (argv[0][1]) {
  1974. +      case 'q':    /* quiet */
  1975. +         verbose = 0;
  1976. +         break;
  1977. +      case 'w':    /* page width */
  1978. +         width = singledimen(*argv+2);
  1979. +         break;
  1980. +      case 'h':    /* page height */
  1981. +         height = singledimen(*argv+2);
  1982. +         break;
  1983. +      case 'p':    /* paper type */
  1984. +         if (paper = findpaper(*argv+2)) {
  1985. +            width = (double)paper->width;
  1986. +            height = (double)paper->height;
  1987. +         } else {
  1988. +            fprintf(stderr, "%s: paper size '%s' not recognised\n",
  1989. +                prog, *argv+2);
  1990. +            fflush(stderr);
  1991. +            exit(1);
  1992. +         }
  1993. +         break;
  1994. +      case 'W':    /* input page width */
  1995. +         inwidth = singledimen(*argv+2);
  1996. +         break;
  1997. +      case 'H':    /* input page height */
  1998. +         inheight = singledimen(*argv+2);
  1999. +         break;
  2000. +      case 'P':    /* input paper type */
  2001. +         if (paper = findpaper(*argv+2)) {
  2002. +            inwidth = (double)paper->width;
  2003. +            inheight = (double)paper->height;
  2004. +         } else {
  2005. +            fprintf(stderr, "%s: paper size '%s' not recognised\n",
  2006. +                prog, *argv+2);
  2007. +            fflush(stderr);
  2008. +            exit(1);
  2009. +         }
  2010. +         break;
  2011. +      case 'v':    /* version */
  2012. +      default:
  2013. +         usage();
  2014. +      }
  2015. +       } else if (infile == stdin) {
  2016. +      if ((infile = fopen(*argv, "r")) == NULL) {
  2017. +         fprintf(stderr, "%s: can't open input file %s\n", prog, *argv);
  2018. +         fflush(stderr);
  2019. +         exit(1);
  2020. +      }
  2021. +       } else if (outfile == stdout) {
  2022. +      if ((outfile = fopen(*argv, "w")) == NULL) {
  2023. +         fprintf(stderr, "%s: can't open output file %s\n", prog, *argv);
  2024. +         fflush(stderr);
  2025. +         exit(1);
  2026. +      }
  2027. +       } else usage();
  2028. +    }
  2029. +    if ((infile=seekable(infile))==NULL) {
  2030. +       fprintf(stderr, "%s: can't seek input\n", prog);
  2031. +       fflush(stderr);
  2032. +       exit(1);
  2033. +    }
  2034. + 
  2035. +    if (width <= 0 || height <= 0) {
  2036. +       fprintf(stderr, "%s: output page width and height must be set\n", prog);
  2037. +       fflush(stderr);
  2038. +       exit(1);
  2039. +    }
  2040. + 
  2041. +    if (inwidth <= 0 || inheight <= 0) {
  2042. +       fprintf(stderr, "%s: input page width and height must be set\n", prog);
  2043. +       fflush(stderr);
  2044. +       exit(1);
  2045. +    }
  2046. + 
  2047. +    /* try normal orientation first */
  2048. +    scale = min(width/inwidth, height/inheight);
  2049. +    waste = (width-scale*inwidth)*(width-scale*inwidth) +
  2050. +       (height-scale*inheight)*(height-scale*inheight);
  2051. +    hshift = (width - inwidth*scale)/2;
  2052. +    vshift = (height - inheight*scale)/2;
  2053. + 
  2054. +    /* try rotated orientation */
  2055. +    rscale = min(height/inwidth, width/inheight);
  2056. +    rwaste = (height-scale*inwidth)*(height-scale*inwidth) +
  2057. +       (width-scale*inheight)*(width-scale*inheight);
  2058. +    if (rwaste < waste) {
  2059. +       double tmp = width;
  2060. +       scale = rscale;
  2061. +       hshift = (width + inheight*scale)/2;
  2062. +       vshift = (height - inwidth*scale)/2;
  2063. +       rotate = 1;
  2064. +       width = height;
  2065. +       height = tmp;
  2066. +    }
  2067. + 
  2068. +    width /= scale;
  2069. +    height /= scale;
  2070. + 
  2071. +    /* now construct specification list and run page rearrangement procedure */
  2072. +    specs = newspec();
  2073. + 
  2074. +    if (rotate) {
  2075. +       specs->rotate = 90;
  2076. +       specs->flags |= ROTATE;
  2077. +    }
  2078. +    specs->pageno = 0;
  2079. +    specs->scale = scale;
  2080. +    specs->flags |= SCALE;
  2081. +    specs->xoff = hshift;
  2082. +    specs->yoff = vshift;
  2083. +    specs->flags |= OFFSET;
  2084. +       
  2085. +    pstops(1, 1, 0, specs, 0.0);        /* do page rearrangement */
  2086. + 
  2087. +    exit(0);
  2088. + }
  2089. + 
  2090. diff -cr +new-file psutils-dist/psresize.man psutils-next/psresize.man
  2091. *** psutils-dist/psresize.man
  2092. --- psutils-next/psresize.man    Mon Nov 29 20:28:44 1993
  2093. ***************
  2094. *** 0 ****
  2095. --- 1,81 ----
  2096. + .TH PSRESIZE 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  2097. + .SH NAME
  2098. + psresize \- multiple pages per sheet
  2099. + .SH SYNOPSIS
  2100. + .B psresize
  2101. + [
  2102. + .B \-w\fIwidth\fR
  2103. + ] [
  2104. + .B \-h\fIheight\fR
  2105. + ] [
  2106. + .B \-p\fIpaper\fR
  2107. + ] [
  2108. + .B \-W\fIwidth\fR
  2109. + ] [
  2110. + .B \-H\fIheight\fR
  2111. + ] [
  2112. + .B \-P\fIpaper\fR
  2113. + ] [
  2114. + .B \-q
  2115. + ] [
  2116. + .I infile
  2117. + [
  2118. + .I outfile
  2119. + ] ]
  2120. + .SH DESCRIPTION
  2121. + .I Psresize
  2122. + rescales and centres a document on a different size of paper.
  2123. + The input PostScript file should follow the Adobe Document Structuring
  2124. + Conventions.
  2125. + .PP
  2126. + The
  2127. + .I \-w
  2128. + option gives the output paper width, and the
  2129. + .I \-h
  2130. + option gives the output paper height, normally specified in
  2131. + .B "cm"
  2132. + or
  2133. + .B "in"
  2134. + to convert 
  2135. + PostScript's points (1/72 of an inch)
  2136. + to centimeters or inches.
  2137. + The 
  2138. + .I \-p
  2139. + option can be used as an alternative, to set the output paper size to
  2140. + .B a3, a4, a5, b5, letter, legal, tabloid, statement, executive, folio, quarto
  2141. + or
  2142. + .B 10x14.
  2143. + The default output paper size is
  2144. + .B @PAPER@.
  2145. + .PP
  2146. + The
  2147. + .I \-W
  2148. + option gives the input paper width, and the
  2149. + .I \-H
  2150. + option gives the input paper height.
  2151. + The 
  2152. + .I \-P
  2153. + option can be used as an alternative, to set the input paper size.
  2154. + The default input paper size is
  2155. + .B @PAPER@.
  2156. + .PP
  2157. + .I Psresize
  2158. + normally prints the page numbers of the pages output; the
  2159. + .I \-q
  2160. + option suppresses this.
  2161. + .SH EXAMPLES
  2162. + The following command can be used to convert a document on A4 size paper to
  2163. + letter size paper:
  2164. + .sp
  2165. + psresize -PA4 -pletter in.ps out.ps
  2166. + .sp
  2167. + .SH AUTHOR
  2168. + Angus Duggan
  2169. + .SH "SEE ALSO"
  2170. + @MAN@
  2171. + .SH TRADEMARKS
  2172. + .B PostScript
  2173. + is a trademark of Adobe Systems Incorporated.
  2174. + .SH BUGS
  2175. + .I Psresize
  2176. + does not accept all DSC comments.
  2177. diff -cr +new-file psutils-dist/psselect.c psutils-next/psselect.c
  2178. *** psutils-dist/psselect.c    Mon Nov 29 10:34:41 1993
  2179. --- psutils-next/psselect.c    Mon Nov 29 17:03:13 1993
  2180. ***************
  2181. *** 7,13 ****
  2182.    */
  2183.   
  2184.   #include "psutil.h"
  2185. ! #include "patchlevel.h"
  2186.   
  2187.   void usage()
  2188.   {
  2189. --- 7,13 ----
  2190.    */
  2191.   
  2192.   #include "psutil.h"
  2193. ! #include "patchlev.h"
  2194.   
  2195.   void usage()
  2196.   {
  2197. ***************
  2198. *** 167,173 ****
  2199.      for (pass = 0; pass < 2; pass++) {
  2200.         if (pass) {                           /* write header on second pass */
  2201.        writeheader(maxpage);
  2202. !      writeprolog("");
  2203.         }
  2204.         if (pagerange) {
  2205.        range *r;
  2206. --- 167,174 ----
  2207.      for (pass = 0; pass < 2; pass++) {
  2208.         if (pass) {                           /* write header on second pass */
  2209.        writeheader(maxpage);
  2210. !      writeprolog();
  2211. !      writesetup();
  2212.         }
  2213.         if (pagerange) {
  2214.        range *r;
  2215. diff -cr +new-file psutils-dist/psselect.man psutils-next/psselect.man
  2216. *** psutils-dist/psselect.man    Mon Nov 29 10:34:35 1993
  2217. --- psutils-next/psselect.man    Sat Nov 27 14:29:29 1993
  2218. ***************
  2219. *** 1,4 ****
  2220. ! .TH PSSELECT 1 "PSUtils Release @REL@ Patchlevel @PL@"
  2221.   .SH NAME
  2222.   psselect \- select pages from a PostScript file
  2223.   .SH SYNOPSIS
  2224. --- 1,4 ----
  2225. ! .TH PSSELECT 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  2226.   .SH NAME
  2227.   psselect \- select pages from a PostScript file
  2228.   .SH SYNOPSIS
  2229. diff -cr +new-file psutils-dist/psspec.c psutils-next/psspec.c
  2230. *** psutils-dist/psspec.c    Mon Nov 29 10:34:41 1993
  2231. --- psutils-next/psspec.c    Mon Nov 29 20:18:09 1993
  2232. ***************
  2233. *** 5,11 ****
  2234.   
  2235.   #include "psutil.h"
  2236.   #include "psspec.h"
  2237. ! #include "patchlevel.h"
  2238.   
  2239.   double width = -1;
  2240.   double height = -1;
  2241. --- 5,11 ----
  2242.   
  2243.   #include "psutil.h"
  2244.   #include "psspec.h"
  2245. ! #include "patchlev.h"
  2246.   
  2247.   double width = -1;
  2248.   double height = -1;
  2249. ***************
  2250. *** 99,104 ****
  2251. --- 99,144 ----
  2252.      return (num);
  2253.   }
  2254.   
  2255. + static char *prologue[] = { /* PStoPS procset */
  2256. + #ifndef SHOWPAGE_LOAD
  2257. +    "userdict begin",
  2258. +    "[/showpage/erasepage/copypage]{dup where{pop dup load",    /* prevent */
  2259. +    " type/operatortype eq{1 array cvx dup 0 3 index cvx put",    /* binding */
  2260. +    " bind def}{pop}ifelse}{pop}ifelse}forall",            /* in prolog */
  2261. + #else
  2262. +    "[/showpage/copypage/erasepage]{dup 10 string cvs dup",
  2263. +    " length 6 add string dup 0 (PStoPS) putinterval dup",
  2264. +    " 6 4 -1 roll putinterval 2 copy cvn dup where",
  2265. +    " {pop pop pop}{exch load def}ifelse cvx cvn 1 array cvx",
  2266. +    " dup 0 4 -1 roll put def}forall",
  2267. + #endif
  2268. +    "[/letter/legal/executivepage/a4/a4small/b5/com10envelope",    /* nullify */
  2269. +    " /monarchenvelope/c5envelope/dlenvelope/lettersmall/note",    /* paper */
  2270. +    " /folio/quarto/a5]{dup where{dup wcheck{exch{}put}",    /* operators */
  2271. +    " {pop{}def}ifelse}{pop}ifelse}forall",
  2272. +    "/PStoPSmatrix matrix currentmatrix def",
  2273. +    "/PStoPSxform matrix def/PStoPSclip{clippath}def",
  2274. +    "/defaultmatrix{PStoPSmatrix exch PStoPSxform exch concatmatrix}bind def",
  2275. +    "/initmatrix{matrix defaultmatrix setmatrix}bind def",
  2276. +    "/initclip[{matrix currentmatrix PStoPSmatrix setmatrix",
  2277. +    " [{currentpoint}stopped{$error/newerror false put{newpath}}",
  2278. +    " {/newpath cvx 3 1 roll/moveto cvx 4 array astore cvx}ifelse]",
  2279. +    " {[/newpath cvx{/moveto cvx}{/lineto cvx}",
  2280. +    " {/curveto cvx}{/closepath cvx}pathforall]cvx exch pop}",
  2281. +    " stopped{$error/errorname get/invalidaccess eq{cleartomark",
  2282. +    " $error/newerror false put cvx exec}{stop}ifelse}if}bind aload pop",
  2283. +    " /initclip dup load dup type dup/operatortype eq{pop exch pop}",
  2284. +    " {dup/arraytype eq exch/packedarraytype eq or",
  2285. +    "  {dup xcheck{exch pop aload pop}{pop cvx}ifelse}",
  2286. +    "  {pop cvx}ifelse}ifelse",
  2287. +    " {newpath PStoPSclip clip newpath exec setmatrix} bind aload pop]cvx def",
  2288. +    "/initgraphics{initmatrix newpath initclip 1 setlinewidth",
  2289. +    " 0 setlinecap 0 setlinejoin []0 setdash 0 setgray",
  2290. +    " 10 setmiterlimit}bind def",
  2291. +    "end",
  2292. +    NULL
  2293. +    };
  2294. + 
  2295.   void pstops(modulo, pps, nobind, specs, draw)
  2296.        int modulo, pps, nobind;
  2297.        double draw;
  2298. ***************
  2299. *** 106,111 ****
  2300. --- 146,152 ----
  2301.   {
  2302.      int thispg, maxpage;
  2303.      int pageindex = 0;
  2304. +    char **pro;
  2305.   
  2306.      scanpages();
  2307.   
  2308. ***************
  2309. *** 113,175 ****
  2310.   
  2311.      /* rearrange pages: doesn't cope properly with loaded definitions */
  2312.      writeheader((maxpage/modulo)*pps);
  2313. -    writestring("%%BeginProcSet: pstops");
  2314. -    if (width > 0 && height > 0)
  2315. -       writestring("-clip");
  2316. -    if (nobind)
  2317. -       writestring("-nobind");
  2318. - #ifdef SHOWPAGE_LOAD
  2319. -    writestring("-spload");
  2320. - #endif
  2321. -    writestring(" 1 0\n");
  2322.   #ifndef SHOWPAGE_LOAD
  2323. !    writestring("[/showpage/erasepage/copypage]{dup where{pop dup load\n");
  2324. !    writestring(" type/operatortype eq{1 array cvx dup 0 3 index cvx put\n");
  2325. !    writestring(" bind def}{pop}ifelse}{pop}ifelse}forall\n");
  2326.   #else
  2327. !    writestring("[/showpage/copypage/erasepage]{dup 10 string cvs dup\n");
  2328. !    writestring(" length 6 add string dup 0 (pstops) putinterval dup\n");
  2329. !    writestring(" 6 4 -1 roll putinterval 2 copy cvn dup where\n");
  2330. !    writestring(" {pop pop pop}{exch load def}ifelse cvx cvn 1 array cvx\n");
  2331. !    writestring(" dup 0 4 -1 roll put def}forall\n");
  2332.   #endif
  2333. !    writestring("[/letter/legal/executivepage/a4/a4small/b5/com10envelope\n");
  2334. !    writestring(" /monarchenvelope/c5envelope/dlenvelope/lettersmall/note\n");
  2335. !    writestring(" /folio/quarto/a5]{dup where{dup wcheck{exch{}put}\n");
  2336. !    writestring(" {pop{}def}ifelse}{pop}ifelse}forall\n");
  2337. !    writestring("/lcvx{dup load dup type dup/operatortype eq{pop exch pop}\n");
  2338. !    writestring(" {/arraytype eq{dup xcheck{exch pop aload pop}\n");
  2339. !    writestring(" {pop cvx}ifelse}{pop cvx}ifelse}ifelse}bind def\n");
  2340. !    writestring("/pstopsmatrix matrix currentmatrix def\n");
  2341. !    writestring("/pstopsxform matrix def\n");
  2342. !    writestring("/defaultmatrix{pstopsmatrix exch pstopsxform exch concatmatrix}bind def\n");
  2343. !    writestring("/initmatrix{matrix defaultmatrix setmatrix}bind def\n");
  2344. !    writestring("/pathtoproc{[{currentpoint}stopped{$error/newerror false\n");
  2345. !    writestring(" put{newpath}}{/newpath cvx 3 1 roll/moveto cvx 4 array\n");
  2346. !    writestring(" astore cvx}ifelse]{[/newpath cvx{/moveto cvx}{/lineto cvx}\n");
  2347. !    writestring(" {/curveto cvx}{/closepath cvx}pathforall]cvx exch pop}\n");
  2348. !    writestring(" stopped{$error/errorname get/invalidaccess eq{cleartomark\n");
  2349. !    writestring(" $error/newerror false put cvx exec}{stop}ifelse}if}def\n");
  2350. !    if (width > 0 && height > 0) {
  2351. !       char buffer[BUFSIZ];
  2352. !       writestring("/initclip[/matrix lcvx/currentmatrix lcvx/pstopsmatrix cvx/setmatrix lcvx\n");
  2353. !       writestring(" /pathtoproc lcvx/initclip lcvx/newpath lcvx\n");
  2354. !       writestring(" 0 0 /moveto lcvx");
  2355. !       sprintf(buffer,
  2356. !           " %lf 0/rlineto lcvx\n 0 %lf/rlineto lcvx -%lf 0/rlineto lcvx\n",
  2357. !           width, height, width);
  2358. !       writestring(buffer);
  2359. !       writestring(" /closepath lcvx/clip lcvx\n");
  2360. !       writestring(" /newpath lcvx/exec lcvx/setmatrix lcvx]cvx def\n");
  2361.      }
  2362. -    writestring("/initgraphics{initmatrix newpath initclip 1 setlinewidth\n");
  2363. -    writestring(" 0 setlinecap 0 setlinejoin []0 setdash 0 setgray\n");
  2364. -    writestring(" 10 setmiterlimit}bind def\n");
  2365.      if (nobind) /* desperation measures */
  2366.         writestring("/bind{}def\n");
  2367.      writestring("%%EndProcSet\n");
  2368.      /* save transformation from original to current matrix */
  2369. !    writeprolog("/pstopsxform pstopsmatrix matrix currentmatrix matrix invertmatrix matrix concatmatrix matrix invertmatrix store\n");
  2370.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  2371.         int add_last = 0;
  2372.         struct pagespec *ps;
  2373. --- 154,181 ----
  2374.   
  2375.      /* rearrange pages: doesn't cope properly with loaded definitions */
  2376.      writeheader((maxpage/modulo)*pps);
  2377.   #ifndef SHOWPAGE_LOAD
  2378. !    writestring("%%BeginProcSet: PStoPS");
  2379.   #else
  2380. !    writestring("%%BeginProcSet: PStoPS-spload");
  2381.   #endif
  2382. !    if (nobind)
  2383. !       writestring("-nobind");
  2384. !    writestring(" 1 13\n");
  2385. !    for (pro = prologue; *pro; pro++) {
  2386. !       writestring(*pro);
  2387. !       writestring("\n");
  2388.      }
  2389.      if (nobind) /* desperation measures */
  2390.         writestring("/bind{}def\n");
  2391.      writestring("%%EndProcSet\n");
  2392.      /* save transformation from original to current matrix */
  2393. !    if (writepartprolog()) {
  2394. !       writestring("userdict/PStoPSxform PStoPSmatrix matrix currentmatrix\n");
  2395. !       writestring(" matrix invertmatrix matrix concatmatrix\n");
  2396. !       writestring(" matrix invertmatrix put\n");
  2397. !    }
  2398. !    writesetup();
  2399.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  2400.         int add_last = 0;
  2401.         struct pagespec *ps;
  2402. ***************
  2403. *** 182,194 ****
  2404.           actualpg = thispg+ps->pageno;
  2405.        if (actualpg < pages)
  2406.           seekpage(actualpg);
  2407. !      if (!add_last) {
  2408. !         writepageheader("pstops", ++pageindex);
  2409.        }
  2410. !      writestring("/pstopssaved save def\n");
  2411.        if (ps->flags & GSAVE) {
  2412.           char buffer[BUFSIZ];
  2413. !         writestring("pstopsmatrix setmatrix\n");
  2414.           if (ps->flags & OFFSET) {
  2415.              sprintf(buffer, "%lf %lf translate\n", ps->xoff, ps->yoff);
  2416.              writestring(buffer);
  2417. --- 188,213 ----
  2418.           actualpg = thispg+ps->pageno;
  2419.        if (actualpg < pages)
  2420.           seekpage(actualpg);
  2421. !      if (!add_last) {    /* page label contains original pages */
  2422. !         struct pagespec *np = ps;
  2423. !         char *eob = pagelabel;
  2424. !         char sep = '(';
  2425. !         do {
  2426. !            *eob++ = sep;
  2427. !            if (np->reversed)
  2428. !           sprintf(eob, "%d", maxpage-thispg-modulo+np->pageno);
  2429. !            else
  2430. !           sprintf(eob, "%d", thispg+np->pageno);
  2431. !            eob = eob + strlen(eob);
  2432. !            sep = ',';
  2433. !         } while ((np->flags & ADD_NEXT) && (np = np->next));
  2434. !         strcpy(eob, ")");
  2435. !         writepageheader(pagelabel, ++pageindex);
  2436.        }
  2437. !      writestring("userdict/PStoPSsaved save put\n");
  2438.        if (ps->flags & GSAVE) {
  2439.           char buffer[BUFSIZ];
  2440. !         writestring("PStoPSmatrix setmatrix\n");
  2441.           if (ps->flags & OFFSET) {
  2442.              sprintf(buffer, "%lf %lf translate\n", ps->xoff, ps->yoff);
  2443.              writestring(buffer);
  2444. ***************
  2445. *** 201,228 ****
  2446.              sprintf(buffer, "%lf dup scale\n", ps->scale);
  2447.              writestring(buffer);
  2448.           }
  2449.           if (width > 0 && height > 0) {
  2450. !            writestring("/pstopsmatrix matrix currentmatrix def\n");
  2451. !            writestring("initclip\n");
  2452.              if (draw > 0) {
  2453.             sprintf(buffer, "gsave clippath 0 setgray %lf setlinewidth stroke grestore\n", draw);
  2454.             writestring(buffer);
  2455.              }
  2456.           }
  2457. -         writestring("pstopsxform concat\n");
  2458.        }
  2459.        if (add_next) {
  2460.   #ifndef SHOWPAGE_LOAD
  2461.           writestring("/showpage{}def/copypage{}def/erasepage{}def\n");
  2462.   #else
  2463. !         writestring("/pstopsshowpage{}def/pstopscopypage{}def/pstopserasepage{}def\n");
  2464.   #endif
  2465.        }
  2466. !      if (actualpg < pages)
  2467.           writepagebody(actualpg);
  2468. !      else
  2469.           writestring("showpage\n");
  2470. !      writestring("pstopssaved restore\n");
  2471.        add_last = add_next;
  2472.         }
  2473.      }
  2474. --- 220,253 ----
  2475.              sprintf(buffer, "%lf dup scale\n", ps->scale);
  2476.              writestring(buffer);
  2477.           }
  2478. +         writestring("userdict/PStoPSmatrix matrix currentmatrix put\n");
  2479.           if (width > 0 && height > 0) {
  2480. !            char buffer[BUFSIZ];
  2481. !            writestring("userdict/PStoPSclip{0 0 moveto\n");
  2482. !            sprintf(buffer, " %lf 0 rlineto 0 %lf rlineto -%lf 0 rlineto\n",
  2483. !                width, height, width);
  2484. !            writestring(buffer);
  2485. !            writestring(" closepath}put initclip\n");
  2486.              if (draw > 0) {
  2487.             sprintf(buffer, "gsave clippath 0 setgray %lf setlinewidth stroke grestore\n", draw);
  2488.             writestring(buffer);
  2489.              }
  2490.           }
  2491.        }
  2492.        if (add_next) {
  2493.   #ifndef SHOWPAGE_LOAD
  2494.           writestring("/showpage{}def/copypage{}def/erasepage{}def\n");
  2495.   #else
  2496. !         writestring("/PStoPSshowpage{}store/PStoPScopypage{}store/PStoPSerasepage{}store\n");
  2497.   #endif
  2498.        }
  2499. !      if (actualpg < pages) {
  2500. !         writepagesetup();
  2501. !         writestring("PStoPSxform concat\n");
  2502.           writepagebody(actualpg);
  2503. !      } else
  2504.           writestring("showpage\n");
  2505. !      writestring("PStoPSsaved restore\n");
  2506.        add_last = add_next;
  2507.         }
  2508.      }
  2509. diff -cr +new-file psutils-dist/pstops.c psutils-next/pstops.c
  2510. *** psutils-dist/pstops.c    Mon Nov 29 10:34:42 1993
  2511. --- psutils-next/pstops.c    Mon Nov 29 17:03:47 1993
  2512. ***************
  2513. *** 8,14 ****
  2514.   
  2515.   #include "psutil.h"
  2516.   #include "psspec.h"
  2517. ! #include "patchlevel.h"
  2518.   
  2519.   void usage()
  2520.   {
  2521. --- 8,14 ----
  2522.   
  2523.   #include "psutil.h"
  2524.   #include "psspec.h"
  2525. ! #include "patchlev.h"
  2526.   
  2527.   void usage()
  2528.   {
  2529. diff -cr +new-file psutils-dist/pstops.man psutils-next/pstops.man
  2530. *** psutils-dist/pstops.man    Mon Nov 29 10:34:37 1993
  2531. --- psutils-next/pstops.man    Sat Nov 27 14:09:59 1993
  2532. ***************
  2533. *** 1,4 ****
  2534. ! .TH PSTOPS 1 "PSUtils Release @REL@ Patchlevel @PL@"
  2535.   .SH NAME
  2536.   pstops \- shuffle pages in a PostScript file
  2537.   .SH SYNOPSIS
  2538. --- 1,4 ----
  2539. ! .TH PSTOPS 1 "PSUtils Release @RELEASE@ Patchlevel @PATCHLEVEL@"
  2540.   .SH NAME
  2541.   pstops \- shuffle pages in a PostScript file
  2542.   .SH SYNOPSIS
  2543. diff -cr +new-file psutils-dist/psutil.c psutils-next/psutil.c
  2544. *** psutils-dist/psutil.c    Mon Nov 29 10:34:42 1993
  2545. --- psutils-next/psutil.c    Mon Nov 29 19:39:51 1993
  2546. ***************
  2547. *** 13,19 ****
  2548.    */
  2549.   #define LOCAL
  2550.   #include "psutil.h"
  2551. ! #include "patchlevel.h"
  2552.   
  2553.   #ifdef VMS
  2554.   #include <file.h>
  2555. --- 13,19 ----
  2556.    */
  2557.   #define LOCAL
  2558.   #include "psutil.h"
  2559. ! #include "patchlev.h"
  2560.   
  2561.   #ifdef VMS
  2562.   #include <file.h>
  2563. ***************
  2564. *** 31,36 ****
  2565. --- 31,38 ----
  2566.   static long pagescmt = 0;
  2567.   static long headerpos = 0;
  2568.   static long endsetup = 0;
  2569. + static long beginprocset = 0;        /* start of pstops procset */
  2570. + static long endprocset = 0;
  2571.   static int outputpage = 0;
  2572.   static int maxpages = 100;
  2573.   static long *pageptr;
  2574. ***************
  2575. *** 119,124 ****
  2576. --- 121,127 ----
  2577.   #endif
  2578.   }
  2579.   
  2580. + 
  2581.   /* copy input file from current position upto new position to output file */
  2582.   static int fcopy(upto)
  2583.        long upto;
  2584. ***************
  2585. *** 176,181 ****
  2586. --- 179,190 ----
  2587.              nesting--;
  2588.           else if (nesting == 0 && iscomment(comment, "EndSetup"))
  2589.              endsetup = record;
  2590. +         else if (nesting == 0 &&
  2591. +                iscomment(comment, "BeginProcSet: PStoPS"))
  2592. +            beginprocset = record;
  2593. +         else if (beginprocset && !endprocset &&
  2594. +              iscomment(comment, "EndProcSet"))
  2595. +            endprocset = ftell(infile);
  2596.           else if (nesting == 0 && iscomment(comment, "Trailer")) {
  2597.              fseek(infile, record, 0);
  2598.              break;
  2599. ***************
  2600. *** 217,222 ****
  2601. --- 226,232 ----
  2602.         } else
  2603.        for (end = start; !isspace(*end); end++);
  2604.         strncpy(pagelabel, start, end-start);
  2605. +       pagelabel[end-start] = '\0';
  2606.         pageno = atoi(end);
  2607.      } else {
  2608.         fprintf(stderr, "%s: I/O error seeking page %d\n", prog, p);
  2609. ***************
  2610. *** 234,239 ****
  2611. --- 244,250 ----
  2612.      bytes += strlen(s);
  2613.   }
  2614.   
  2615. + /* write page comment */
  2616.   void writepageheader(label, page)
  2617.        char *label;
  2618.        int page;
  2619. ***************
  2620. *** 246,251 ****
  2621. --- 257,288 ----
  2622.      writestring(buffer);
  2623.   }
  2624.   
  2625. + /* search for page setup */
  2626. + void writepagesetup()
  2627. + {
  2628. +    char buffer[BUFSIZ];
  2629. +    if (beginprocset) {
  2630. +       for (;;) {
  2631. +      if (fgets(buffer, BUFSIZ, infile) == NULL) {
  2632. +         fprintf(stderr, "%s: I/O error reading page setup %d\n", prog,
  2633. +             outputpage);
  2634. +         fflush(stderr);
  2635. +         exit(1);
  2636. +      }
  2637. +      if (!strncmp(buffer, "PStoPSxform", 11))
  2638. +         break;
  2639. +      if (fputs(buffer, outfile) == EOF) {
  2640. +         fprintf(stderr, "%s: I/O error writing page setup %d\n", prog,
  2641. +             outputpage);
  2642. +         fflush(stderr);
  2643. +         exit(1);
  2644. +      }
  2645. +      bytes += strlen(buffer);
  2646. +       }
  2647. +    }
  2648. + }
  2649. + 
  2650. + /* write the body of a page */
  2651.   void writepagebody(p)
  2652.        int p;
  2653.   {
  2654. ***************
  2655. *** 256,261 ****
  2656. --- 293,299 ----
  2657.      }
  2658.   }
  2659.   
  2660. + /* write a whole page */
  2661.   void writepage(p)
  2662.        int p;
  2663.   {
  2664. ***************
  2665. *** 264,269 ****
  2666. --- 302,308 ----
  2667.      writepagebody(p);
  2668.   }
  2669.   
  2670. + /* write from start of file to end of header comments */
  2671.   void writeheader(p)
  2672.        int p;
  2673.   {
  2674. ***************
  2675. *** 284,292 ****
  2676.      }
  2677.   }
  2678.   
  2679.   
  2680. ! void writeprolog(setup)
  2681. !      char *setup;
  2682.   {
  2683.      if (!fcopy(endsetup)) {
  2684.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  2685. --- 323,344 ----
  2686.      }
  2687.   }
  2688.   
  2689. + /* write prologue to end of setup section excluding PStoPS procset */
  2690. + int writepartprolog()
  2691. + {
  2692. +    if (beginprocset && !fcopy(beginprocset)) {
  2693. +       fprintf(stderr, "%s: I/O error in prologue\n", prog);
  2694. +       fflush(stderr);
  2695. +       exit(1);
  2696. +    }
  2697. +    if (endprocset)
  2698. +       fseek(infile, endprocset, 0);
  2699. +    writeprolog();
  2700. +    return !beginprocset;
  2701. + }
  2702.   
  2703. ! /* write prologue up to end of setup section */
  2704. ! void writeprolog()
  2705.   {
  2706.      if (!fcopy(endsetup)) {
  2707.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  2708. ***************
  2709. *** 293,299 ****
  2710.         fflush(stderr);
  2711.         exit(1);
  2712.      }
  2713. !    writestring(setup);
  2714.      if (!fcopy(pageptr[0])) {
  2715.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  2716.         fflush(stderr);
  2717. --- 345,355 ----
  2718.         fflush(stderr);
  2719.         exit(1);
  2720.      }
  2721. ! }
  2722. ! 
  2723. ! /* write from end of setup to start of pages */
  2724. ! void writesetup()
  2725. ! {
  2726.      if (!fcopy(pageptr[0])) {
  2727.         fprintf(stderr, "%s: I/O error in prologue\n", prog);
  2728.         fflush(stderr);
  2729. ***************
  2730. *** 331,337 ****
  2731.      pos += len;
  2732.   }
  2733.   
  2734. ! 
  2735.   void writeemptypage()
  2736.   {
  2737.      if (verbose)
  2738. --- 387,393 ----
  2739.      pos += len;
  2740.   }
  2741.   
  2742. ! /* write a page with nothing on it */
  2743.   void writeemptypage()
  2744.   {
  2745.      if (verbose)
  2746. diff -cr +new-file psutils-dist/psutil.h psutils-next/psutil.h
  2747. *** psutils-dist/psutil.h    Mon Nov 29 10:34:37 1993
  2748. --- psutils-next/psutil.h    Sat Nov 27 13:19:14 1993
  2749. ***************
  2750. *** 32,40 ****
  2751. --- 32,43 ----
  2752.   LOCAL void writepage();
  2753.   LOCAL void seekpage();
  2754.   LOCAL void writepageheader();
  2755. + LOCAL void writepagesetup();
  2756.   LOCAL void writepagebody();
  2757.   LOCAL void writeheader();
  2758. + LOCAL int writepartprolog();
  2759.   LOCAL void writeprolog();
  2760. + LOCAL void writesetup();
  2761.   LOCAL void writetrailer();
  2762.   LOCAL void writeemptypage();
  2763.   LOCAL void scanpages();
  2764.  
  2765. exit 0 # Just in case...
  2766.