home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume7 / thack.p3 < prev    next >
Encoding:
Text File  |  1989-08-05  |  5.4 KB  |  220 lines
  1. Newsgroups: comp.sources.misc
  2. from: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  3. subject: v07i119: Official patch to thack (troff -> ps) #3
  4. Reply-To: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  5.  
  6. Posting-number: Volume 7, Issue 119
  7. Submitted-by: everson%compsci.bristol.ac.uk@NSFnet-Relay.AC.UK
  8. Archive-name: thack.p3
  9.  
  10. [Also posted to comp.bugs.misc]
  11.  
  12. Most of the following patches are due to Paul Eggert
  13. <eggert@twinsun.com> and should help with using thack on non-Sun
  14. machines, also a font handling bugfix and a couple of font fixes,
  15. notably the long dashes which looked so bad in manual pages.
  16.  
  17. Phill Everson
  18. Medical Imaging
  19. Dept Comp Sci
  20. University of Bristol, UK
  21.  
  22. *** README.orig    Sat Aug  5 17:02:43 1989
  23. --- README    Sat Aug  5 17:06:15 1989
  24. ***************
  25. *** 1,7 ****
  26.   
  27.   Enclosed please find thack, a Troff C/A/T to Postscript filter, written
  28.   by a colleague of mine, Gareth Waddell. Attempt to make output 
  29. ! Adobe-conformant Postscript by David R. Kaelbling (drk@twinkie.Rational.COM)
  30.   
  31.   Sample usage of thack is, say:
  32.   
  33. --- 1,8 ----
  34.   
  35.   Enclosed please find thack, a Troff C/A/T to Postscript filter, written
  36.   by a colleague of mine, Gareth Waddell. Attempt to make output 
  37. ! Adobe-conformant Postscript by David R. Kaelbling (drk@twinkie.Rational.COM).
  38. ! Thanks to Paul Eggert <eggert@twinsun.com> for fixing a number of bugs.
  39.   
  40.   Sample usage of thack is, say:
  41.   
  42. ***************
  43. *** 20,26 ****
  44.   on an Apple Laserwriter I and an Apple Laserwriter IINTX. It can also
  45.   be previewed under Sunview with the Rutherford Postscript Interpreter.
  46.   
  47. ! If you're using US paper check you have -GUSPAPERLENGTH set in the
  48.   Makefile, then just make.
  49.   
  50.   Phill Everson
  51. --- 21,27 ----
  52.   on an Apple Laserwriter I and an Apple Laserwriter IINTX. It can also
  53.   be previewed under Sunview with the Rutherford Postscript Interpreter.
  54.   
  55. ! If you're using US paper check you have -DUSPAPERLENGTH set in the
  56.   Makefile, then just make.
  57.   
  58.   Phill Everson
  59. *** th.h.orig    Sat Aug  5 16:57:13 1989
  60. --- th.h    Sat Aug  5 16:57:17 1989
  61. ***************
  62. *** 1,4 ****
  63. --- 1,9 ----
  64.   #include <stdio.h>
  65. + #include <sys/types.h>
  66. + #include <time.h>
  67. + 
  68. + time_t time();
  69. + 
  70.   char *table[2][2]=
  71.       { /* FONT 0,1,2,4,5,6,7 */
  72.        " htnmlizsdbxfjuk p ; a_c`e'o r v-wq/.g ,&y % QTOHNMLRGIPCVEZDBSY",
  73. *** thack.c.orig    Sat Aug  5 16:57:07 1989
  74. --- thack.c    Sat Aug  5 17:01:56 1989
  75. ***************
  76. *** 5,13 ****
  77.   int font, cfont, size, csize, tfont, tsize;
  78.   char *pstr, *cstr();
  79.   
  80.   main()
  81.   {
  82. !     int c, i;
  83.       int sflag;
  84.       int hdist, vdist;
  85.       int esc, lead;
  86. --- 5,28 ----
  87.   int font, cfont, size, csize, tfont, tsize;
  88.   char *pstr, *cstr();
  89.   
  90. + #ifndef Y_INITIAL
  91. + #ifndef PAGELENGTH
  92. + #ifdef USPAGELENGTH
  93. + #ifdef sun
  94. + #define PAGELENGTH 11.1875
  95. + #else
  96. + #define PAGELENGTH 11
  97. + #endif
  98. + #else
  99. + #define PAGELENGTH 11.75
  100. + #endif
  101. + #endif
  102. + #define Y_INITIAL ((int)(PAGELENGTH*144 + 0.5))
  103. + #endif
  104. + 
  105.   main()
  106.   {
  107. !     int c;
  108.       int sflag;
  109.       int hdist, vdist;
  110.       int esc, lead;
  111. ***************
  112. *** 18,28 ****
  113.       tfont = font = 0;
  114.       tsize = size = 12;
  115.       esc = lead = 1;
  116. ! #ifdef USPAGELENGTH
  117. !     cy = ypos = 1584; /* represents 11 inches in troff vertical units */
  118. ! #else
  119. !     cy = ypos = 1692; /* represents 11.5 inches in troff vertical units */
  120. ! #endif
  121.       cx = xpos = 0;
  122.       sflag = 0;
  123.       prolog();
  124. --- 33,39 ----
  125.       tfont = font = 0;
  126.       tsize = size = 12;
  127.       esc = lead = 1;
  128. !     cy = ypos = Y_INITIAL;
  129.       cx = xpos = 0;
  130.       sflag = 0;
  131.       prolog();
  132. ***************
  133. *** 71,77 ****
  134.                           else
  135.                               switch (c & 0x3f) {
  136.                               case 19:
  137. !                                 pstr = "\\320";
  138.                                   break;    /* \- */
  139.                               case 20:
  140.                                   pstr = "\\256";
  141. --- 82,88 ----
  142.                           else
  143.                               switch (c & 0x3f) {
  144.                               case 19:
  145. !                                 pstr = "\\261";
  146.                                   break;    /* \- */
  147.                               case 20:
  148.                                   pstr = "\\256";
  149. ***************
  150. *** 483,490 ****
  151.   fontps(f1, ps, str)
  152.   char *str;
  153.   {
  154. !     tfont = cfont;
  155. !     tsize = csize;
  156.       pstr = str;
  157.       size = ps;
  158.       font = f1;
  159. --- 494,501 ----
  160.   fontps(f1, ps, str)
  161.   char *str;
  162.   {
  163. !     tfont = font;
  164. !     tsize = size;
  165.       pstr = str;
  166.       size = ps;
  167.       font = f1;
  168. ***************
  169. *** 516,528 ****
  170.   
  171.   newpage()
  172.   {
  173. !     printf("%%%%Page: %d %d\n", npages, ++npages);
  174.       printf("save\n");
  175.   }
  176.   
  177.   prolog()
  178.   {
  179. !     long clock = time(0);
  180.         
  181.       printf("%%!PS-Adobe-\n");
  182.       printf("%%%%Creator: (thack - contact <everson@cs.bris.ac.uk>)\n");
  183. --- 527,540 ----
  184.   
  185.   newpage()
  186.   {
  187. !     ++npages;
  188. !     printf("%%%%Page: %d %d\n", npages, npages);
  189.       printf("save\n");
  190.   }
  191.   
  192.   prolog()
  193.   {
  194. !     time_t clock = time((time_t *)0);
  195.         
  196.       printf("%%!PS-Adobe-\n");
  197.       printf("%%%%Creator: (thack - contact <everson@cs.bris.ac.uk>)\n");
  198. ***************
  199. *** 530,538 ****
  200.       printf("%%%%CreationDate: %s", asctime (localtime (&clock)));
  201.       printf("%%%%Pages: (atend)\n");
  202.       printf("%%%%DocumentFonts: Times-Roman Times-Italic Times-Bold \
  203. !                 Symbol Helvetica Helvetica-Oblique Helvetica-Bold Courier \
  204. !             Courier-Oblique Courier-Bold Times-BoldItalic Helvetica-BoldOblique \
  205. !             Courier-BoldOblique\n");
  206.       printf("%%%%EndComments\n");
  207.   
  208.       printf("/P {moveto show} def\n");
  209. --- 542,550 ----
  210.       printf("%%%%CreationDate: %s", asctime (localtime (&clock)));
  211.       printf("%%%%Pages: (atend)\n");
  212.       printf("%%%%DocumentFonts: Times-Roman Times-Italic Times-Bold \
  213. ! Symbol Helvetica Helvetica-Oblique Helvetica-Bold Courier \
  214. ! Courier-Oblique Courier-Bold Times-BoldItalic Helvetica-BoldOblique \
  215. ! Courier-BoldOblique\n");
  216.       printf("%%%%EndComments\n");
  217.   
  218.       printf("/P {moveto show} def\n");
  219.  
  220.