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