home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume29 / psutils / patch02 next >
Text File  |  1992-04-15  |  15KB  |  437 lines
  1. Newsgroups: comp.sources.misc
  2. From: ajcd@dcs.ed.ac.uk (Angus Duggan)
  3. Subject:  v29i077:  psutils - Postscript document manipulation tools, Patch02
  4. Message-ID: <1992Apr16.032058.26805@sparky.imd.sterling.com>
  5. X-Md4-Signature: 5d49c11419f668f19875a3488dec3934
  6. Date: Thu, 16 Apr 1992 03:20:58 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: ajcd@dcs.ed.ac.uk (Angus Duggan)
  10. Posting-number: Volume 29, Issue 77
  11. Archive-name: psutils/patch02
  12. Environment: UNIX
  13. Patch-To: psutils: Volume 22, Issue 87-88
  14.  
  15. Here's a minor bugfix patch to my PostScript utilities package (volumes 22 
  16. and 23). A new script is included, fixwpps, which fixes WordPerfect documents 
  17. so that they can be used with the package (I don't know if this script will 
  18. work in all cases - it was tested on one example document), and also fixes 
  19. pstops so that it accepts negative offsets.
  20.  
  21. A statement of the status of this software has also been included, to clarify
  22. the position for people wanting to include any of it in other packages.
  23.  
  24. a.
  25. --
  26. Angus Duggan, Department of Computer Science,    | I'm pink, therefore I'm Spam.
  27. University of Edinburgh, JCMB,            | JANET:  ajcd@uk.ac.ed.dcs
  28. The King's Buildings, Mayfield Road,        | VOICE:  (UK) 031 650 5126
  29. Edinburgh, EH9 3JZ, Scotland.         | OR: ajcd%dcs.ed.ac.uk@nsfnet-relay.ac.uk
  30.  
  31. diff -crN psutils.old/LICENSE psutils/LICENSE
  32. *** psutils.old/LICENSE
  33. --- psutils/LICENSE    Wed Mar 25 15:04:55 1992
  34. ***************
  35. *** 0 ****
  36. --- 1,36 ----
  37. + 
  38. +                         PS Utilities Package
  39. + 
  40. + The constituent files of this package listed below are copyright (C) 1991,1992
  41. + Angus J. C. Duggan.
  42. + 
  43. + Makefile        README          buffer.c        epsffit.c       fixfmps
  44. + fixmacps        fixpspps        getafm          magic.c         psbook.1
  45. + psbook.c        psnup           psnup.1         psselect.1      psselect.c
  46. + pstops.1        pstops.c        psutil.c        psutil.h        showchar
  47. + 
  48. + They may be copied and used for any purpose (including distribution as part of
  49. + a for-profit product), provided:
  50. + 
  51. + 1) The original attribution of the programs is clearly displayed in the product
  52. +    and/or documentation, even if the programs are modified and/or renamed as
  53. +    part of the product.
  54. + 
  55. + 2) The original source code of the programs is provided free of charge (except
  56. +    for reasonable distribution costs). For a definition of reasonable
  57. +    distribution costs, see the Gnu General Public License or Larry Wall's
  58. +    Artistic License (provided with the Perl 4 kit). The GPL and Artistic
  59. +    License in NO WAY affect this license; they are merely used as examples of
  60. +    the spirit in which it is intended.
  61. + 
  62. + 3) These programs are provided "as-is". No warranty or guarantee of their
  63. +    fitness for any particular task is provided. Use of these programs is
  64. +    completely at your own risk.
  65. + 
  66. + Basically, I don't mind how you use the programs so long as you acknowledge
  67. + the author, and give people the originals if they want them.
  68. + 
  69. + The included files appledict.ps, and appledict.ps.uue are (to the best of my
  70. + knowledge) copyright Apple Computer, Inc.
  71. + 
  72. +                                                                 AJCD 25/3/92
  73. diff -crN psutils.old/README psutils/README
  74. *** psutils.old/README    Wed Apr  8 10:32:25 1992
  75. --- psutils/README    Wed Apr  8 10:37:23 1992
  76. ***************
  77. *** 1,4 ****
  78. ! PostScript Utilities            Angus Duggan        3 September 1991
  79.   
  80.   This shar file contains some utilities for manipulating PostScript documents.
  81.   Page selection and rearrangement are supported, including arrangement into
  82. --- 1,4 ----
  83. ! PostScript Utilities            Angus Duggan                7 April 1992
  84.   
  85.   This shar file contains some utilities for manipulating PostScript documents.
  86.   Page selection and rearrangement are supported, including arrangement into
  87. ***************
  88. *** 12,38 ****
  89.   FILES
  90.   
  91.   The files contained are:
  92.   
  93. - -rw-r--r--  1 ajcd          643 Jul 12 10:34 Makefile
  94. - -rw-r--r--  1 ajcd         2819 Sep  3 10:35 README
  95. - -rw-r--r--  1 ajcd        42765 Sep  3 10:07 appledict.ps.uue
  96. - -rw-r--r--  1 ajcd         3673 Jul 12 10:34 epsffit.c
  97. - -rwxr-xr-x  1 ajcd          359 Jul 16 15:21 fixfmps
  98. - -rwxr-xr-x  1 ajcd         1042 Jul 16 15:21 fixmacps
  99. - -rwxr-xr-x  1 ajcd         1165 Jul 16 15:21 fixpspps
  100. - -rwxr-xr-x  1 ajcd         4706 Sep  3 10:22 getafm
  101. - -rw-r--r--  1 ajcd         1066 Jul 12 10:34 psbook.1
  102. - -rw-r--r--  1 ajcd         1990 Jul 12 10:34 psbook.c
  103. - -rwxr-xr-x  1 ajcd         2113 Jul 12 10:34 psnup
  104. - -rw-r--r--  1 ajcd         2146 Jul 12 10:34 psnup.1
  105. - -rw-r--r--  1 ajcd         1509 Jul 12 10:34 psselect.1
  106. - -rw-r--r--  1 ajcd         4621 Jul 12 10:34 psselect.c
  107. - -rw-r--r--  1 ajcd         3227 Jul 12 10:34 pstops.1
  108. - -rw-r--r--  1 ajcd         9273 Jul 12 10:34 pstops.c
  109. - -rw-r--r--  1 ajcd         5220 Jul 12 10:34 psutil.c
  110. - -rw-r--r--  1 ajcd          663 Jul 12 10:34 psutil.h
  111. - -rwxr-xr-x  1 ajcd         2472 Sep  3 10:38 showchar
  112. - 
  113.   PROGRAMS
  114.   
  115.   psbook          rearranges pages into signatures
  116. --- 12,39 ----
  117.   FILES
  118.   
  119.   The files contained are:
  120. + -rw-r--r--  1 ajcd         1665 Mar 25 15:04 LICENSE
  121. + -rw-r--r--  1 ajcd          643 Apr  7 19:13 Makefile
  122. + -rw-r--r--  1 ajcd         3044 Apr  8 10:36 README
  123. + -rw-r--r--  1 ajcd        31017 Jul 16  1991 appledict.ps
  124. + -rw-r--r--  1 ajcd         3673 Jul 12  1991 epsffit.c
  125. + -rwxr-xr-x  1 ajcd          362 Apr  7 19:51 fixfmps
  126. + -rwxr-xr-x  1 ajcd         1082 Apr  7 19:51 fixmacps
  127. + -rwxr-xr-x  1 ajcd         1165 Jul 16  1991 fixpspps
  128. + -rwxr-xr-x  1 ajcd          525 Apr  7 19:52 fixwpps
  129. + -rwxr-xr-x  1 ajcd         4706 Sep  3  1991 getafm
  130. + -rw-r--r--  1 ajcd         1066 Jul 12  1991 psbook.1
  131. + -rw-r--r--  1 ajcd         1990 Jul 12  1991 psbook.c
  132. + -rwxr-xr-x  1 ajcd         2113 Jul 12  1991 psnup
  133. + -rw-r--r--  1 ajcd         2152 Sep  5  1991 psnup.1
  134. + -rw-r--r--  1 ajcd         1509 Jul 12  1991 psselect.1
  135. + -rw-r--r--  1 ajcd         4621 Jul 12  1991 psselect.c
  136. + -rw-r--r--  1 ajcd         3209 Mar 23 09:48 pstops.1
  137. + -rw-r--r--  1 ajcd         9416 Apr  7 19:27 pstops.c
  138. + -rw-r--r--  1 ajcd         5270 Apr  7 19:01 psutil.c
  139. + -rw-r--r--  1 ajcd          682 Sep  5  1991 psutil.h
  140. + -rwxr-xr-x  1 ajcd         2552 Sep  5  1991 showchar
  141.   
  142.   PROGRAMS
  143.   
  144.   psbook          rearranges pages into signatures
  145. ***************
  146. *** 50,67 ****
  147.   getafm   (sh)   outputs PostScript to retrieve AFM file from printer
  148.   showchar (sh)   outputs PostScript to draw a character with metric info
  149.   fixfmps  (perl) filter to fix framemaker documents so that psselect etc. work
  150.   fixmacps (perl) filter to fix Macintosh documents with saner version of md
  151.   fixpspps (perl) filter to fix PSPrint PostScript so that psselect etc. work
  152.   
  153.   INSTALLATION
  154.   
  155. ! UUdecode appledict.ps.uue, edit Makefile to put in required CFLAGS (SYSV for
  156. ! System V machines), "make", and install files in appropriate places.
  157.   
  158.   BUGS
  159.   
  160.   The utilities don't check for PS-Adobe-?.? conformance; they assume documents
  161.   conform. Utilities need an extra save/restore around whole document on a
  162. ! SPARCPrinter, because of bugs in the xnews server.
  163.   
  164.   Bug fixes and suggestions to ajcd@dcs.ed.ac.uk
  165. --- 51,70 ----
  166.   getafm   (sh)   outputs PostScript to retrieve AFM file from printer
  167.   showchar (sh)   outputs PostScript to draw a character with metric info
  168.   fixfmps  (perl) filter to fix framemaker documents so that psselect etc. work
  169. + fixwpps  (perl) filter to fix WordPerfect documents so that psselect etc. work
  170.   fixmacps (perl) filter to fix Macintosh documents with saner version of md
  171.   fixpspps (perl) filter to fix PSPrint PostScript so that psselect etc. work
  172.   
  173.   INSTALLATION
  174.   
  175. ! UUdecode appledict.ps.uue (if supplied encoded), edit Makefile to put in
  176. ! required CFLAGS (SYSV for System V machines), "make", and install files in
  177. ! appropriate places.
  178.   
  179.   BUGS
  180.   
  181.   The utilities don't check for PS-Adobe-?.? conformance; they assume documents
  182.   conform. Utilities need an extra save/restore around whole document on a
  183. ! SPARCPrinter with NeWSPrint 1.0, because of bugs in the xnews server.
  184.   
  185.   Bug fixes and suggestions to ajcd@dcs.ed.ac.uk
  186. diff -crN psutils.old/fixfmps psutils/fixfmps
  187. *** psutils.old/fixfmps    Wed Apr  8 10:32:26 1992
  188. --- psutils/fixfmps    Tue Apr  7 19:51:26 1992
  189. ***************
  190. *** 1,5 ****
  191.   #!/usr/local/bin/perl
  192. ! # fmps: get conforming PostScript out of FrameMaker file
  193.   # move all FMDEFINEFONTs to start of pages
  194.   
  195.   %fonts=();
  196. --- 1,5 ----
  197.   #!/usr/local/bin/perl
  198. ! # fixfmps: get conforming PostScript out of FrameMaker file
  199.   # move all FMDEFINEFONTs to start of pages
  200.   
  201.   %fonts=();
  202. diff -crN psutils.old/fixmacps psutils/fixmacps
  203. *** psutils.old/fixmacps    Wed Apr  8 10:32:27 1992
  204. --- psutils/fixmacps    Tue Apr  7 19:51:59 1992
  205. ***************
  206. *** 1,4 ****
  207. --- 1,5 ----
  208.   #!/usr/local/bin/perl
  209. + # fixmacps: swap to sanitised appledict
  210.   
  211.   $line = 0;            # keep line count
  212.   $sane = "appledict.ps";
  213. diff -crN psutils.old/fixwpps psutils/fixwpps
  214. *** psutils.old/fixwpps
  215. --- psutils/fixwpps    Tue Apr  7 19:52:23 1992
  216. ***************
  217. *** 0 ****
  218. --- 1,22 ----
  219. + #!/usr/local/bin/perl
  220. + # fixwpps: get semi-conforming PostScript out of WordPerfect 5.0 file
  221. + 
  222. + $page = 1;
  223. + while (<>) {
  224. +    s/(_[a-zA-Z]+)([0-9]+)/\1 \2/g;
  225. +    if (/^_bp/) {
  226. +       print STDOUT "%%Page: $page $page\n";
  227. +       print STDOUT $_;
  228. +       $page++;
  229. +    } elsif (/^([^\/].*\S.*)(_bp.*)/) {
  230. +       print STDOUT "$1\n";
  231. +       print STDOUT "%%Page: $page $page\n";
  232. +       print STDOUT "$2\n";
  233. +       $page++;
  234. +    } elsif (/^_ed/) {
  235. +       print STDOUT "%%Trailer:\n";
  236. +       print STDOUT $_;
  237. +    } else {
  238. +       print STDOUT $_;
  239. +    }
  240. + }
  241. diff -crN psutils.old/pstops.1 psutils/pstops.1
  242. *** psutils.old/pstops.1    Wed Apr  8 10:32:28 1992
  243. --- psutils/pstops.1    Mon Mar 23 09:48:13 1992
  244. ***************
  245. *** 1,6 ****
  246.   .TH PSTOPS 1
  247.   .SH NAME
  248. ! pstops \- select pages from a PostScript file
  249.   .SH SYNOPSIS
  250.   .B pstops
  251.   [
  252. --- 1,6 ----
  253.   .TH PSTOPS 1
  254.   .SH NAME
  255. ! pstops \- shuffle pages in a PostScript file
  256.   .SH SYNOPSIS
  257.   .B pstops
  258.   [
  259. ***************
  260. *** 60,66 ****
  261.   .I xoff
  262.   and
  263.   .I yoff
  264. ! shift the page by the specified (positive) amount.
  265.   .I xoff
  266.   and
  267.   .I yoff
  268. --- 60,66 ----
  269.   .I xoff
  270.   and
  271.   .I yoff
  272. ! shift the page by the specified amount.
  273.   .I xoff
  274.   and
  275.   .I yoff
  276. ***************
  277. *** 116,122 ****
  278.   sheet (of A4 paper), the pagespec to use is:
  279.   .sp
  280.   .ce
  281. ! 2:0L@0.7(21cm,0)+1L@0.7(21cm,14.85cm)
  282.   .sp
  283.   To select all of the odd pages in reverse order, use:
  284.   .sp
  285. --- 116,122 ----
  286.   sheet (of A4 paper), the pagespec to use is:
  287.   .sp
  288.   .ce
  289. ! 2:0L@.7(21cm,0)+1L@.7(21cm,14.85cm)
  290.   .sp
  291.   To select all of the odd pages in reverse order, use:
  292.   .sp
  293. ***************
  294. *** 126,137 ****
  295.   To re-arrange pages for printing 2-up booklets, use
  296.   .sp
  297.   .ce
  298. ! 4:-3L@0.7(21cm,0)+0L@0.7(21cm,14.85cm)
  299.   .sp
  300.   for the front sides, and
  301.   .sp
  302.   .ce
  303. ! 4:1L@0.7(21cm,0)+-2L@0.7(21cm,14.85cm)
  304.   .sp
  305.   for the reverse sides (or join them with a comma for duplex printing).
  306.   .SH AUTHOR
  307. --- 126,137 ----
  308.   To re-arrange pages for printing 2-up booklets, use
  309.   .sp
  310.   .ce
  311. ! 4:-3L@.7(21cm,0)+0L@.7(21cm,14.85cm)
  312.   .sp
  313.   for the front sides, and
  314.   .sp
  315.   .ce
  316. ! 4:1L@.7(21cm,0)+-2L@.7(21cm,14.85cm)
  317.   .sp
  318.   for the reverse sides (or join them with a comma for duplex printing).
  319.   .SH AUTHOR
  320. diff -crN psutils.old/pstops.c psutils/pstops.c
  321. *** psutils.old/pstops.c    Wed Apr  8 10:32:29 1992
  322. --- psutils/pstops.c    Tue Apr  7 19:27:33 1992
  323. ***************
  324. *** 70,79 ****
  325.   double parsedouble(sp)
  326.        char **sp;
  327.   {
  328. !    int n = parseint(sp);
  329.      char *s = *sp;
  330.      int d = 0, frac = 1;
  331.   
  332.      if (*s == '.') {
  333.         *sp = ++s;
  334.         for (; isdigit(*s); s++) {
  335. --- 70,85 ----
  336.   double parsedouble(sp)
  337.        char **sp;
  338.   {
  339. !    int n = 0, neg = 1;
  340.      char *s = *sp;
  341.      int d = 0, frac = 1;
  342.   
  343. +    if (*s == '-') {
  344. +       neg = -1;
  345. +       *sp = ++s;
  346. +    }
  347. +    for (;isdigit(*s); s++)
  348. +       n = n*10 + (*s-'0');
  349.      if (*s == '.') {
  350.         *sp = ++s;
  351.         for (; isdigit(*s); s++) {
  352. ***************
  353. *** 80,89 ****
  354.        d = d*10 + (*s-'0');
  355.        frac *= 10;
  356.         }
  357. -       if (*sp == s) specusage();
  358.      }
  359.      *sp = s;
  360. !    return ((double)n+(double)d/frac);
  361.   }
  362.   
  363.   double parsedimen(sp)
  364. --- 86,95 ----
  365.        d = d*10 + (*s-'0');
  366.        frac *= 10;
  367.         }
  368.      }
  369. +    if (*sp == s) specusage();
  370.      *sp = s;
  371. !    return (neg*((double)n+(double)d/frac));
  372.   }
  373.   
  374.   double parsedimen(sp)
  375. ***************
  376. *** 269,275 ****
  377.      writestring(" bind def}{pop}ifelse}{pop}ifelse}forall\n");
  378.      writestring("[/letter/legal/executivepage/a4/a4small/b5/com10envelope\n");
  379.      writestring(" /monarchenvelope/c5envelope/dlenvelope/lettersmall/note\n");
  380. !    writestring(" /folio/quarto/a5]{dup where{exch{}put}{pop}ifelse}forall\n");
  381.      writestring("/lcvx{dup load dup type dup/operatortype eq{pop exch pop}\n");
  382.      writestring(" {/arraytype eq{dup xcheck{exch pop aload pop}\n");
  383.      writestring(" {pop cvx}ifelse}{pop cvx}ifelse}ifelse}bind def\n");
  384. --- 275,282 ----
  385.      writestring(" bind def}{pop}ifelse}{pop}ifelse}forall\n");
  386.      writestring("[/letter/legal/executivepage/a4/a4small/b5/com10envelope\n");
  387.      writestring(" /monarchenvelope/c5envelope/dlenvelope/lettersmall/note\n");
  388. !    writestring(" /folio/quarto/a5]{dup where{dup wcheck{exch{}put}\n");
  389. !    writestring(" {pop{}def}ifelse}{pop}ifelse}forall\n");
  390.      writestring("/lcvx{dup load dup type dup/operatortype eq{pop exch pop}\n");
  391.      writestring(" {/arraytype eq{dup xcheck{exch pop aload pop}\n");
  392.      writestring(" {pop cvx}ifelse}{pop cvx}ifelse}ifelse}bind def\n");
  393. ***************
  394. *** 302,310 ****
  395.      writestring("%%EndProcSet\n");
  396.      writeprolog();
  397.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  398. !       int ppp, add_last = 0;
  399.         struct pagespec *ps;
  400. !       for (ppp = 0, ps = specs; ps != NULL; ppp++, ps = ps->next) {
  401.        int actualpg;
  402.        int add_next = ((ps->flags & ADD_NEXT) != 0);
  403.        if (ps->reversed)
  404. --- 309,317 ----
  405.      writestring("%%EndProcSet\n");
  406.      writeprolog();
  407.      for (thispg = 0; thispg < maxpage; thispg += modulo) {
  408. !       int add_last = 0;
  409.         struct pagespec *ps;
  410. !       for (ps = specs; ps != NULL; ps = ps->next) {
  411.        int actualpg;
  412.        int add_next = ((ps->flags & ADD_NEXT) != 0);
  413.        if (ps->reversed)
  414. diff -crN psutils.old/psutil.c psutils/psutil.c
  415. *** psutils.old/psutil.c    Wed Apr  8 10:32:30 1992
  416. --- psutils/psutil.c    Tue Apr  7 19:01:46 1992
  417. ***************
  418. *** 110,116 ****
  419.           }
  420.        } else if (headerlen == 0 && buffer[1] != '!')
  421.           headerlen = ftell(infile)-strlen(buffer);
  422. !       }
  423.      pageptr[pages] = ftell(infile);
  424.   }
  425.   
  426. --- 110,117 ----
  427.           }
  428.        } else if (headerlen == 0 && buffer[1] != '!')
  429.           headerlen = ftell(infile)-strlen(buffer);
  430. !       } else if (headerlen == 0)
  431. !      headerlen = ftell(infile)-strlen(buffer);
  432.      pageptr[pages] = ftell(infile);
  433.   }
  434.   
  435.  
  436. exit 0 # Just in case...
  437.