home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume7 / thack.p2 < prev    next >
Text File  |  1989-07-30  |  3KB  |  115 lines
  1. Newsgroups: comp.sources.misc
  2. from: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  3. subject: v07i111: Official Patch to thack (troff -> ps filter) #2
  4. Reply-To: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  5.  
  6. Posting-number: Volume 7, Issue 111
  7. Submitted-by: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  8. Archive-name: thack.p2
  9.  
  10. Please find enclosed the 2nd Official Set of Patches to thack, a troff
  11. to postscript filter, recently posted to comp.sources.misc. These
  12. patches are the work of David R. Kaelbling (drk@twinkie.Rational.COM)
  13. and attempt to make the postscript produced Adobe-conformant. Thanks
  14. David.
  15.  
  16. Phill Everson
  17. Medical Imaging
  18. Dept Comp Sci
  19. University of Bristol, UK
  20.  
  21. *** README.orig    Fri Jul 28 13:48:51 1989
  22. --- README    Fri Jul 28 13:50:02 1989
  23. ***************
  24. *** 1,6 ****
  25.   
  26.   Enclosed please find thack, a Troff C/A/T to Postscript filter, written
  27. ! by a colleague of mine, Gareth Waddell.
  28.   
  29.   Sample usage of thack is, say:
  30.   
  31. --- 1,7 ----
  32.   
  33.   Enclosed please find thack, a Troff C/A/T to Postscript filter, written
  34. ! by a colleague of mine, Gareth Waddell. Attempt to make output 
  35. ! Adobe-conformant Postscript by David R. Kaelbling (drk@twinkie.Rational.COM)
  36.   
  37.   Sample usage of thack is, say:
  38.   
  39. *** thack.c.orig    Fri Jul 28 13:30:01 1989
  40. --- thack.c    Fri Jul 28 13:48:26 1989
  41. ***************
  42. *** 1,5 ****
  43. --- 1,6 ----
  44.   #include "th.h"
  45.   
  46. + int npages;
  47.   int xpos, ypos, cx, cy;
  48.   int font, cfont, size, csize, tfont, tsize;
  49.   char *pstr, *cstr();
  50. ***************
  51. *** 408,413 ****
  52. --- 409,415 ----
  53.       }
  54.       if (sflag)
  55.           endpage();
  56. +     epilog();
  57.   }
  58.   
  59.   tprint()
  60. ***************
  61. *** 514,524 ****
  62. --- 516,540 ----
  63.   
  64.   newpage()
  65.   {
  66. +     printf("%%%%Page: %d %d\n", npages, ++npages);
  67.       printf("save\n");
  68.   }
  69.   
  70.   prolog()
  71.   {
  72. +     long clock = time(0);
  73. +       
  74. +     printf("%%!PS-Adobe-\n");
  75. +     printf("%%%%Creator: (thack - contact <everson@cs.bris.ac.uk>)\n");
  76. +     printf("%%%%Title: unknown\n");
  77. +     printf("%%%%CreationDate: %s", asctime (localtime (&clock)));
  78. +     printf("%%%%Pages: (atend)\n");
  79. +     printf("%%%%DocumentFonts: Times-Roman Times-Italic Times-Bold \
  80. +                 Symbol Helvetica Helvetica-Oblique Helvetica-Bold Courier \
  81. +             Courier-Oblique Courier-Bold Times-BoldItalic Helvetica-BoldOblique \
  82. +             Courier-BoldOblique\n");
  83. +     printf("%%%%EndComments\n");
  84. + 
  85.       printf("/P {moveto show} def\n");
  86.       printf("/X {currentpoint exch pop moveto show} def\n");
  87.       printf("/F {findfont exch scalefont setfont} def\n");
  88. ***************
  89. *** 536,541 ****
  90. --- 552,560 ----
  91.       printf("/HBO /Helvetica-BoldOblique def\n");
  92.       printf("/CBO /Courier-BoldOblique def\n");
  93.       printf("1 6 div dup scale\n");
  94. + 
  95. +     printf("%%%%EndProlog\n");
  96. +         npages = 0;
  97.   }
  98.   
  99.   endpage()
  100. ***************
  101. *** 543,546 ****
  102. --- 562,571 ----
  103.       printf("showpage\n");
  104.       printf("restore\n");
  105.       cfont = csize = -1;    /* Doing this will cause a new font message */
  106. + }
  107. + 
  108. + epilog()
  109. + {
  110. +   printf("%%%%Trailer\n");
  111. +   printf("%%%%Pages: %d\n", npages);
  112.   }
  113.  
  114.  
  115.