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