home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume10 / thack.p6 < prev    next >
Encoding:
Text File  |  1990-01-08  |  18.6 KB  |  789 lines
  1. Newsgroups: comp.sources.misc
  2. from: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  3. subject: v10i004: Official Patch #6 to thack (troff->ps filter)
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 10, Issue 4
  7. Submitted-by: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  8. Archive-name: thack.p6
  9.  
  10. This is to introduce official patch #6 (it might be #7 by now, I seem
  11. to have lost count) to thack, a troff to postscript filter.
  12. [It's #6.  ++bsa]
  13.  
  14. I would appreicate it if anyone who makes modifications to this or any other 
  15. program would send me the output of a 'diff -c' with a known version of the 
  16. software rather a full copy from which I have to extract your modifications
  17. myself. We can reduce network traffic and also make official patch creation
  18. easier when there is more than one group working on the code at the same time. 
  19.  
  20. Here are the changes:
  21.  
  22. --------------------------------------------------------------------------
  23.  
  24. I got thack to work under OpenWindows 1.0 as part of a manual page previewer.
  25. Here are some changes to thack that I found needed or helpful.
  26.  
  27.     Permit 'thack filename'; this is required if we want to use thack in
  28.     Sun's 'man -t' command by setting the environment variable TCAT to
  29.     'thack'.
  30.  
  31.     Upgrade to (my limited understanding of) PS-Adobe-2.0 EPSF-2.0 format.
  32.  
  33.     Put 'thack: ' in the front of error messages.
  34.     (It isolates them better in a pipeline.)
  35.  
  36.     Keep better track of errors for thack's exit status.
  37.  
  38.     Fix minor spacing and font problems in man page.
  39.  
  40. -- Paul Eggert <eggert@twinsun.com>
  41.  
  42. --------------------------------------------------------------------------
  43.  
  44. The main fix is to generate smaller output; on a large computer science paper
  45. ("Eli: A Complete, Flexible Compiler Construction System") the new output is
  46. 28% smaller than the old.  On the thack man page itself, the savings is only
  47. 21% because the output is so small.  The savings comes from outputting smaller
  48. numbers, and from eliminating some unneeded newlines, turning some blanks into
  49. newlines so that no long lines are generated.  For example, where the old thack
  50. generated
  51.  
  52.     60 TR F
  53.     (T)270 4533 P
  54.     (H)307 X
  55.     (A)350 X
  56.     (C)393 X
  57.     (K)433 X
  58.  
  59. the new thack generates
  60.  
  61.     60 TR(T)270 1511
  62.     P(H)37
  63.     X(A)43
  64.     X(C)43
  65.     X(K)40
  66.     X
  67.  
  68. A minor fix: npages is now unsigned.
  69.  
  70. -- Paul Eggert <eggert@twinsun.com>
  71.  
  72. ----------------------------------------------------------------------------
  73.  
  74. Here is a patch to thack that adds support for the characters circle, 1/4, 1/2,
  75. 3/4, and Bell System logo.  For the logo, I use the same character that Adobe
  76. TranScript uses; it displays as an Apple logo on our LaserWriter (and on Sun's
  77. OpenWindows 1.0).  Also, the square is patched to look more like a square.
  78. While I was at it I put the prolog text into a table; this should make things a
  79. tad smaller and/or faster.
  80.  
  81. -- Paul Eggert <eggert@twinsun.com>
  82.  
  83.  
  84.  
  85. Thanks
  86.  
  87. Phillip G. Everson
  88. ----------------------------------------------------------------------------
  89. Medical Imaging                      Senior Software Engineer
  90. Dept Comp Sci                        Philips Radiotherapy Systems
  91. University of Bristol, UK            Horfield Road, Bristol, UK
  92.  
  93. *** README    Mon Jan  8 08:49:53 1990
  94. --- README.orig    Mon Jan  8 08:35:08 1990
  95. ***************
  96. *** 14,21 ****
  97.   
  98.   It does not claim to be perfect, but I personally have used it for
  99.   printing many documents in the past, especially manual pages and found
  100. ! it very useful. It has also been used under OpenWindows1.0 aspart of a 
  101. ! manual page previewer.
  102.   
  103.   It was written under SunOS3.5, but has been run on a 3B2 running System V
  104.   and produces particularly nice output under SunOS4.0 or later as Sun
  105. --- 14,20 ----
  106.   
  107.   It does not claim to be perfect, but I personally have used it for
  108.   printing many documents in the past, especially manual pages and found
  109. ! it very useful.
  110.   
  111.   It was written under SunOS3.5, but has been run on a 3B2 running System V
  112.   and produces particularly nice output under SunOS4.0 or later as Sun
  113. *** thack.1    Mon Jan  8 08:45:52 1990
  114. --- thack.1.orig    Mon Jan  8 08:35:08 1990
  115. ***************
  116. *** 1,5 ****
  117.   .\" .TH name section cent-foot
  118. ! .TH THACK 1 "8 January 1990"
  119.   .SH NAME
  120.   .\" name \- function
  121.   thack \- hack about with TROFF output
  122. --- 1,5 ----
  123.   .\" .TH name section cent-foot
  124. ! .TH THACK 1 "28 August 1987"
  125.   .SH NAME
  126.   .\" name \- function
  127.   thack \- hack about with TROFF output
  128. ***************
  129. *** 6,14 ****
  130.   .SH SYNOPSIS
  131.   .\" Bold keywords, Italic variables, [] options, | alternatives.
  132.   .B thack
  133. - [
  134. - .IR filename .\|.\|.
  135. - ]
  136.   .SH DESCRIPTION
  137.   .\" Italic files, commands, IR manual-entry (manual-section)
  138.   .I Thack
  139. --- 6,11 ----
  140. ***************
  141. *** 15,21 ****
  142.   is a hack to
  143.   convert
  144.   .IR troff (1)
  145. ! output into
  146.   postscript.
  147.   The postscript it
  148.   produces is not highly
  149. --- 12,18 ----
  150.   is a hack to
  151.   convert
  152.   .IR troff (1)
  153. ! output into 
  154.   postscript.
  155.   The postscript it
  156.   produces is not highly
  157. ***************
  158. *** 37,45 ****
  159.   that an uncatered for code has been
  160.   sent (24 have yet to be identified).
  161.   More interesting messages such
  162. ! as `Sequence Bell Logo is not allowed'
  163. ! are also printed.  There are five of these
  164. ! cases.  However, some illegal sequences are
  165.   intercepted and used
  166.   as additional font information.
  167.   .SH BUGS
  168. --- 34,42 ----
  169.   that an uncatered for code has been
  170.   sent (24 have yet to be identified).
  171.   More interesting messages such
  172. ! as 'Sequence Bell Logo is not allowed'
  173. ! are also printed. There are five of these
  174. ! cases. However, some illegal sequences are 
  175.   intercepted and used
  176.   as additional font information.
  177.   .SH BUGS
  178. ***************
  179. *** 50,56 ****
  180.   .br
  181.   Many Special characters are Wrong.
  182.   .br
  183. ! .IR Eqn (1)
  184. ! and
  185. ! .IR tbl (1)
  186. ! are not 100% compatible.
  187. --- 47,50 ----
  188.   .br
  189.   Many Special characters are Wrong.
  190.   .br
  191. ! Eqn(1) & Tbl(1) are not 100% compatible.
  192. *** thack.c    Mon Jan  8 08:37:29 1990
  193. --- thack.c.orig    Mon Jan  8 08:35:08 1990
  194. ***************
  195. *** 1,8 ****
  196.   #include "th.h"
  197.   
  198. ! int error;
  199. ! unsigned npages;
  200. ! int xpos, ypos, cx, cy;
  201.   int font, cfont, size, csize, tfont, tsize;
  202.   char *pstr, *cstr();
  203.   
  204. --- 1,7 ----
  205.   #include "th.h"
  206.   
  207. ! int npages;
  208. ! int xpos, ypos, cy;
  209.   int font, cfont, size, csize, tfont, tsize;
  210.   char *pstr, *cstr();
  211.   
  212. ***************
  213. *** 21,50 ****
  214.   #define Y_INITIAL ((int)(PAGELENGTH*144 + 0.5))
  215.   #endif
  216.   
  217. ! #define POINTS_PER_INCH 72
  218. ! 
  219. ! int
  220. ! main(argc, argv)
  221. ! int argc;
  222. ! char **argv;
  223.   {
  224. -     if (argc <= 1)
  225. -         thack();
  226. -     else {
  227. -         char **a = argv;
  228. -         while (*++a)
  229. -             if (freopen(*a, "r", stdin))
  230. -                 thack();
  231. -             else {
  232. -                 fprintf(stderr, "thack: %s: cannot open\n", *a);
  233. -                 error = 1;
  234. -             }
  235. -     }
  236. -     return error || ferror(stdout);
  237. - }
  238. - 
  239. - thack()
  240. - {
  241.       int c;
  242.       int sflag;
  243.       int hdist, vdist;
  244. --- 20,27 ----
  245.   #define Y_INITIAL ((int)(PAGELENGTH*144 + 0.5))
  246.   #endif
  247.   
  248. ! main()
  249.   {
  250.       int c;
  251.       int sflag;
  252.       int hdist, vdist;
  253. ***************
  254. *** 57,63 ****
  255.       tsize = size = 12;
  256.       esc = lead = 1;
  257.       cy = ypos = Y_INITIAL;
  258. !     cx = xpos = 0;
  259.       sflag = 0;
  260.       prolog();
  261.       newpage();
  262. --- 34,40 ----
  263.       tsize = size = 12;
  264.       esc = lead = 1;
  265.       cy = ypos = Y_INITIAL;
  266. !     xpos = 0;
  267.       sflag = 0;
  268.       prolog();
  269.       newpage();
  270. ***************
  271. *** 91,108 ****
  272.                                   pstr = "\\320";
  273.                                   break;    /* \(em */
  274.                               case 28:
  275. !                                 pstr = " (1)(4)R";
  276.                                   break;    /* \(14 */
  277.                               case 30:
  278. !                                 pstr = " (1)(2)R";
  279.                                   break;    /* \(12 */
  280.                               case 38:
  281. !                                 pstr = " (3)(4)R";
  282.                                   break;    /* \(34 */
  283.                               default:
  284. !                                 fprintf(stderr, "thack: >>>>> L%d/%d\n", font, c & 0x3f);
  285.                                   pstr = "?";
  286. -                                 error = 1;
  287.                               }
  288.                           else
  289.                               switch (c & 0x3f) {
  290. --- 68,84 ----
  291.                                   pstr = "\\320";
  292.                                   break;    /* \(em */
  293.                               case 28:
  294. !                                 illegal("1/4");
  295.                                   break;    /* \(14 */
  296.                               case 30:
  297. !                                 illegal("1/2");
  298.                                   break;    /* \(12 */
  299.                               case 38:
  300. !                                 illegal("3/4");
  301.                                   break;    /* \(34 */
  302.                               default:
  303. !                                 fprintf(stderr, ">>>>> L%d/%d\n", font, c & 0x3f);
  304.                                   pstr = "?";
  305.                               }
  306.                           else
  307.                               switch (c & 0x3f) {
  308. ***************
  309. *** 146,157 ****
  310.                                   fontps(3, size, "\\323");
  311.                                   break;    /* c'right */
  312.                               case 44:
  313. !                                 pstr = "  SQ";
  314. !                                 break;    /* square */
  315.                               default:
  316. !                                 fprintf(stderr, "thack: >>>>> U%d/%d\n", font, c & 0x3f);
  317.                                   pstr = "?";
  318. -                                 error = 1;
  319.                               }
  320.                       else if (fh == 0)
  321.                           switch (c & 0x3f) {
  322. --- 122,132 ----
  323.                                   fontps(3, size, "\\323");
  324.                                   break;    /* c'right */
  325.                               case 44:
  326. !                                 pstr = "\\250";
  327. !                                 break;    /* square ? */
  328.                               default:
  329. !                                 fprintf(stderr, ">>>>> U%d/%d\n", font, c & 0x3f);
  330.                                   pstr = "?";
  331.                               }
  332.                       else if (fh == 0)
  333.                           switch (c & 0x3f) {
  334. ***************
  335. *** 177,183 ****
  336.                               fontps(0, size, "\\\\");
  337.                               break;    /* Backslash ! */
  338.                           case 35:
  339. !                             pstr = "\\360";
  340.                               break;    /* Bell Logo */
  341.                           case 36:
  342.                               pstr = "\\245";
  343. --- 152,158 ----
  344.                               fontps(0, size, "\\\\");
  345.                               break;    /* Backslash ! */
  346.                           case 35:
  347. !                             illegal("Bell Logo");
  348.                               break;    /* Bell Logo */
  349.                           case 36:
  350.                               pstr = "\\245";
  351. ***************
  352. *** 222,230 ****
  353.                               pstr = "\\273";
  354.                               break;    /* ~= */
  355.                           default:
  356. !                             fprintf(stderr, "thack: >>>>> L%d/%d\n", font, c & 0x3f);
  357.                               pstr = "?";
  358. -                             error = 1;
  359.                           }
  360.                       else
  361.                           switch (c & 0x3f) {
  362. --- 197,204 ----
  363.                               pstr = "\\273";
  364.                               break;    /* ~= */
  365.                           default:
  366. !                             fprintf(stderr, ">>>>> L%d/%d\n", font, c & 0x3f);
  367.                               pstr = "?";
  368.                           }
  369.                       else
  370.                           switch (c & 0x3f) {
  371. ***************
  372. *** 316,322 ****
  373.                               pstr = "\\315";
  374.                               break;    /* impr. subset */
  375.                           case 41:
  376. !                             pstr = "  O";
  377.                               break;    /* circle */
  378.                           case 44:
  379.                               pstr = "\\256";
  380. --- 290,296 ----
  381.                               pstr = "\\315";
  382.                               break;    /* impr. subset */
  383.                           case 41:
  384. !                             illegal("circle");
  385.                               break;    /* circle */
  386.                           case 44:
  387.                               pstr = "\\256";
  388. ***************
  389. *** 325,333 ****
  390.                               fontps(0, size, "\\247");
  391.                               break;    /* section */
  392.                           default:
  393. !                             fprintf(stderr, "thack: >>>>> U%d/%d\n", font, c & 0x3f);
  394.                               pstr = "?";
  395. -                             error = 1;
  396.                           }
  397.                   }
  398.                   else {
  399. --- 299,306 ----
  400.                               fontps(0, size, "\\247");
  401.                               break;    /* section */
  402.                           default:
  403. !                             fprintf(stderr, ">>>>> U%d/%d\n", font, c & 0x3f);
  404.                               pstr = "?";
  405.                           }
  406.                   }
  407.                   else {
  408. ***************
  409. *** 394,401 ****
  410.                   size = 36;
  411.                   break;
  412.               default:
  413. !                 fprintf(stderr, "thack: Size: %x\n", c & 0x0f);
  414. !                 error = 1;
  415.               }
  416.               crsize(csize, size);
  417.               tsize = size;
  418. --- 367,373 ----
  419.                   size = 36;
  420.                   break;
  421.               default:
  422. !                 fprintf(stderr, "Size: %x\n", c & 0x0f);
  423.               }
  424.               crsize(csize, size);
  425.               tsize = size;
  426. ***************
  427. *** 403,409 ****
  428.           else if ((c & 0xf0) == 0x40) {
  429.               c &= 0xf;
  430.               switch (c) {
  431. !             case 0:/* fputs("thack: INIT\n", stderr); error = 1; */
  432.                   break;
  433.               case 1:
  434.                   font &= 30;
  435. --- 375,381 ----
  436.           else if ((c & 0xf0) == 0x40) {
  437.               c &= 0xf;
  438.               switch (c) {
  439. !             case 0:/* fprintf(stderr,"INIT\n"); */
  440.                   break;
  441.               case 1:
  442.                   font &= 30;
  443. ***************
  444. *** 429,435 ****
  445.               case 8:
  446.                   esc = -1;
  447.                   break;
  448. !             case 9:/* fputs("thack: STOP\n", stderr); error = 1; */
  449.                   break;
  450.               case 10:
  451.                   lead = 1;
  452. --- 401,407 ----
  453.               case 8:
  454.                   esc = -1;
  455.                   break;
  456. !             case 9:/* fprintf(stderr,"STOP\n"); */
  457.                   break;
  458.               case 10:
  459.                   lead = 1;
  460. ***************
  461. *** 444,451 ****
  462.                   font &= 27;
  463.                   break;
  464.               default:
  465. !                 fputs( "thack: ILLEGAL\n", stderr );
  466. !                 error = 1;
  467.                   break;
  468.               }
  469.               tfont = font;
  470. --- 416,422 ----
  471.                   font &= 27;
  472.                   break;
  473.               default:
  474. !                 fputs( "ILLEGAL\n", stderr );
  475.                   break;
  476.               }
  477.               tfont = font;
  478. ***************
  479. *** 454,535 ****
  480.       if (sflag)
  481.           endpage();
  482.       epilog();
  483.   }
  484.   
  485.   tprint()
  486.   {
  487.       if (font != cfont || size != csize) {
  488. !         char *fontname;
  489.           switch (font) {
  490.           case 0:
  491. !             fontname = "TR";
  492.               break;
  493.           case 1:
  494. !             fontname = "TI";
  495.               break;
  496.           case 2:
  497. !             fontname = "TB";
  498.               break;
  499.           case 3:
  500. !             fontname = "S";
  501.               break;
  502.           case 8:
  503. !             fontname = "H";
  504.               break;
  505.           case 9:
  506. !             fontname = "HO";
  507.               break;
  508.           case 10:
  509. !             fontname = "HB";
  510.               break;
  511.           case 11:
  512. !             fontname = "S";
  513.               break;
  514.           case 16:
  515. !             fontname = "C";
  516.               break;
  517.           case 17:
  518. !             fontname = "CO";
  519.               break;
  520.           case 18:
  521. !             fontname = "CB";
  522.               break;
  523.           case 19:
  524. !             fontname = "S";
  525.               break;
  526.           case 24:
  527. !             fontname = "TBI";
  528.               break;
  529.           case 25:
  530. !             fontname = "HBO";
  531.               break;
  532.           case 26:
  533. !             fontname = "CBO";
  534.               break;
  535.           case 27:
  536. !             fontname = "S";
  537.               break;
  538.           default:
  539. !             fprintf(stderr, "thack: Illegal Font %d\n", font);
  540. !             error = 1;
  541. !             fontname = "TR";
  542.           }
  543. !         printf("\n%d %s", size * 6, fontname);
  544.           cfont = font;
  545.           csize = size;
  546.       }
  547. !     if (*pstr == ' ')
  548. !         printf(" %d %d\nM%s", xpos, ypos, pstr+1);
  549. !     else if (ypos != cy)
  550. !         printf("(%s)%d %d\nP", pstr, xpos, ypos);
  551. !     else {
  552. !         int dx = xpos - cx;
  553. !         if (dx < 0)
  554. !             printf("(%s)%d\nx", pstr, -dx);
  555. !         else
  556. !             printf("(%s)%d\nX", pstr, dx);
  557. !     }
  558. !     cx = xpos;
  559.       cy = ypos;
  560.   }
  561.   
  562. --- 425,498 ----
  563.       if (sflag)
  564.           endpage();
  565.       epilog();
  566. +     return 0;
  567.   }
  568.   
  569.   tprint()
  570.   {
  571.       if (font != cfont || size != csize) {
  572. !         printf("%d ", size * 6);
  573.           switch (font) {
  574.           case 0:
  575. !             fputs("TR", stdout);
  576.               break;
  577.           case 1:
  578. !             fputs("TI", stdout);
  579.               break;
  580.           case 2:
  581. !             fputs("TB", stdout);
  582.               break;
  583.           case 3:
  584. !             fputs("S", stdout);
  585.               break;
  586.           case 8:
  587. !             fputs("H", stdout);
  588.               break;
  589.           case 9:
  590. !             fputs("HO", stdout);
  591.               break;
  592.           case 10:
  593. !             fputs("HB", stdout);
  594.               break;
  595.           case 11:
  596. !             fputs("S", stdout);
  597.               break;
  598.           case 16:
  599. !             fputs("C", stdout);
  600.               break;
  601.           case 17:
  602. !             fputs("CO", stdout);
  603.               break;
  604.           case 18:
  605. !             fputs("CB", stdout);
  606.               break;
  607.           case 19:
  608. !             fputs("S", stdout);
  609.               break;
  610.           case 24:
  611. !             fputs("TBI", stdout);
  612.               break;
  613.           case 25:
  614. !             fputs("HBO", stdout);
  615.               break;
  616.           case 26:
  617. !             fputs("CBO", stdout);
  618.               break;
  619.           case 27:
  620. !             fputs("S", stdout);
  621.               break;
  622.           default:
  623. !             fprintf(stderr, "Illegal Font %d\n", font);
  624. !             fputs("TR", stdout);
  625.           }
  626. !         fputs(" F\n", stdout);
  627.           cfont = font;
  628.           csize = size;
  629.       }
  630. !     if (ypos == cy)
  631. !         printf("(%s)%d X\n", pstr, xpos);
  632. !     else
  633. !         printf("(%s)%d %d P\n", pstr, xpos, 3 * ypos);
  634.       cy = ypos;
  635.   }
  636.   
  637. ***************
  638. *** 541,546 ****
  639. --- 504,516 ----
  640.       font = f1;
  641.   }
  642.   
  643. + illegal(s)
  644. + char *s;
  645. + {
  646. +     pstr = s;
  647. +     fprintf(stderr, "Sequence \\(%s is not allowed\n", s);
  648. + }
  649. + 
  650.   crsize(old, new)
  651.   {
  652.       if ((old == 16 || old >= 20) && (new != 16 && new < 20))
  653. ***************
  654. *** 562,637 ****
  655.   newpage()
  656.   {
  657.       ++npages;
  658. !     printf("\n%%%%Page: %u %u\nsave", npages, npages);
  659.   }
  660.   
  661. - static char *prolog_text[] = {
  662. -     "%%Title: troff output",
  663. -     "%%Creator: (thack - contact <everson@cs.bris.ac.uk>)",
  664. -     "%%Pages: (atend)",
  665. -     "%%DocumentFonts: Times-Roman Times-Italic Times-Bold \
  666. - Symbol Helvetica Helvetica-Oblique Helvetica-Bold Courier \
  667. - Courier-Oblique Courier-Bold Times-BoldItalic Helvetica-BoldOblique \
  668. - Courier-BoldOblique",
  669. -     "%%EndComments",
  670. - 
  671. -     "/M{3 mul moveto}bind def",
  672. -     "/P{M gsave show grestore}bind def",
  673. -     "/X{0 rmoveto gsave show grestore}bind def",
  674. -     "/x{neg X}bind def",
  675. -     "/F{findfont exch scalefont setfont}bind def",
  676. -     "/TR{/Times-Roman F}bind def",
  677. -     "/TI{/Times-Italic F}bind def",
  678. -     "/TB{/Times-Bold F}bind def",
  679. -     "/S{/Symbol F}bind def",
  680. -     "/H{/Helvetica F}bind def",
  681. -     "/HO{/Helvetica-Oblique F}bind def",
  682. -     "/HB{/Helvetica-Bold F}bind def",
  683. -     "/C{/Courier F}bind def",
  684. -     "/CO{/Courier-Oblique F}bind def",
  685. -     "/CB{/Courier-Bold F}bind def",
  686. -     "/TBI{/Times-BoldItalic F}bind def",
  687. -     "/HBO{/Helvetica-BoldOblique F}bind def",
  688. -     "/CBO{/Courier-BoldOblique F}bind def",
  689. -     "/MR[.65 0 0 .6 0 0]def",
  690. -     "/1H{gsave newpath 0 0 moveto(1)true charpath flattenpath pathbbox",
  691. -     " 4 1 roll pop pop pop grestore}bind def",
  692. -     "/DR{gsave 1H 18 div setlinewidth currentpoint translate}bind def",
  693. -     "/Z{0 0 transform exch round exch round itransform moveto}bind def",
  694. -     "/O{DR newpath 1H 2 div dup dup 0 360 arc stroke grestore}bind def",
  695. -     "/SQ{DR Z newpath 0 0 moveto 1H 0 rlineto 0 1H rlineto 1H neg 0 rlineto",
  696. -     " closepath stroke grestore}bind def",
  697. -     "/R{gsave 0 1H .4 mul 2 copy rmoveto currentfont dup MR makefont dup",
  698. -     " setfont exch 6 -1 roll show setfont 3 1 roll neg rmoveto(\\244)show",
  699. -     " setfont show grestore}bind def",
  700. -     "1 6 div dup scale",
  701. -     "%%EndProlog",
  702. -     0
  703. - };
  704. - 
  705.   prolog()
  706.   {
  707.       time_t clock = time((time_t *)0);
  708. !     char **p;
  709.   
  710. !     printf("%s%s%s%g\n",
  711. !         "%!PS-Adobe-2.0 EPSF-2.0\n%%CreationDate: ", asctime(localtime(&clock)),
  712. !         "%%BoundingBox: 0 0 542.88 ", PAGELENGTH*POINTS_PER_INCH
  713. !     );
  714.   
  715. !     for (p = prolog_text;  *p;  p++)
  716. !         puts(*p);
  717. ! 
  718. !     npages = 0;
  719.   }
  720.   
  721.   endpage()
  722.   {
  723. !     printf("\nshowpage\nrestore");
  724.       cfont = csize = -1;    /* Doing this will cause a new font message */
  725.   }
  726.   
  727.   epilog()
  728.   {
  729. !     printf("\n%%%%Trailer\n%%%%Pages: %u\n", npages);
  730.   }
  731. --- 532,587 ----
  732.   newpage()
  733.   {
  734.       ++npages;
  735. !     printf("%%%%Page: %d %d\n", npages, npages);
  736. !     printf("save\n");
  737.   }
  738.   
  739.   prolog()
  740.   {
  741.       time_t clock = time((time_t *)0);
  742. !       
  743. !     printf("%%!PS-Adobe-\n");
  744. !     printf("%%%%Creator: (thack - contact <everson@cs.bris.ac.uk>)\n");
  745. !     printf("%%%%Title: unknown\n");
  746. !     printf("%%%%CreationDate: %s", asctime (localtime (&clock)));
  747. !     printf("%%%%Pages: (atend)\n");
  748. !     printf("%%%%DocumentFonts: Times-Roman Times-Italic Times-Bold \
  749. ! Symbol Helvetica Helvetica-Oblique Helvetica-Bold Courier \
  750. ! Courier-Oblique Courier-Bold Times-BoldItalic Helvetica-BoldOblique \
  751. ! Courier-BoldOblique\n");
  752. !     printf("%%%%EndComments\n");
  753.   
  754. !     printf("/P {moveto show} bind def\n");
  755. !     printf("/X {currentpoint exch pop moveto show} bind def\n");
  756. !     printf("/F {findfont exch scalefont setfont} bind def\n");
  757. !     printf("/TR /Times-Roman def\n");
  758. !     printf("/TI /Times-Italic def\n");
  759. !     printf("/TB /Times-Bold def\n");
  760. !     printf("/S /Symbol def\n");
  761. !     printf("/H /Helvetica def\n");
  762. !     printf("/HO /Helvetica-Oblique def\n");
  763. !     printf("/HB /Helvetica-Bold def\n");
  764. !     printf("/C /Courier def\n");
  765. !     printf("/CO /Courier-Oblique def\n");
  766. !     printf("/CB /Courier-Bold def\n");
  767. !     printf("/TBI /Times-BoldItalic def\n");
  768. !     printf("/HBO /Helvetica-BoldOblique def\n");
  769. !     printf("/CBO /Courier-BoldOblique def\n");
  770. !     printf("1 6 div dup scale\n");
  771.   
  772. !     printf("%%%%EndProlog\n");
  773. !         npages = 0;
  774.   }
  775.   
  776.   endpage()
  777.   {
  778. !     printf("showpage\n");
  779. !     printf("restore\n");
  780.       cfont = csize = -1;    /* Doing this will cause a new font message */
  781.   }
  782.   
  783.   epilog()
  784.   {
  785. !   printf("%%%%Trailer\n");
  786. !   printf("%%%%Pages: %d\n", npages);
  787.   }
  788.  
  789.