home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume24 / psroff3.0 / patch1 < prev    next >
Encoding:
Internet Message Format  |  1991-10-09  |  28.3 KB
  1. Subject:  v24i115:  psroff, troff to PostScript filter, Patch1
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4.  
  5. Submitted-by: Chris Lewis <clewis@ferret.ocunix.on.ca>
  6. Posting-number: Volume 24, Issue 115
  7. Archive-name: psroff3.0/patch1
  8.  
  9.     This is official patch 01 for Psroff 3.0.
  10.     Please apply it by:
  11.     cd <psroff source directory>
  12.     patch -N -p < <this file>
  13.  
  14. Fixes:
  15.     - My Post Office decided to go commercial only, so I had to
  16.       change my address to the new one.  Grrrrr.  Second change
  17.       in 6 months.
  18.     - Implemented -Gs (troff2ps.1.S, troff2.c, dit.c, DITROFF,
  19.       psrofflib.S) to handle groff sizescale stuff.
  20.     - Dumb mistake in declarations in psxlate.c (why didn't AIX 3.1
  21.       catch it?)
  22.     - Omitted array subscript in asc2ps.c
  23.     - Remark about eqn/"|" botch in TROUBLE and MISC.
  24.  
  25. Index: ./man/troff2ps.1.S
  26. *** /tmp/PATCHold/./man/troff2ps.1.S    Fri May 10 03:13:20 1991
  27. --- ./man/troff2ps.1.S    Fri May 10 03:13:23 1991
  28. ***************
  29. *** 1,4 ****
  30. ! .\"Copyright 1988 by Chris Lewis 2.11 91/03/26
  31.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  32.   .SH NAME
  33.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  34. --- 1,4 ----
  35. ! .\"Copyright 1988 by Chris Lewis 2.12 91/04/26
  36.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  37.   .SH NAME
  38.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  39. ***************
  40. *** 18,23 ****
  41. --- 18,24 ----
  42.   .B "[\-V]"
  43.   .B "[\-M]"
  44.   .B "[\-S]"
  45. + .BI "[\-G" ss "]"
  46.   .SH DESCRIPTION
  47.   .I Troff2ps
  48.   takes
  49. ***************
  50. *** 172,184 ****
  51.   .B \-Z
  52.   is specified.
  53.   .PP
  54. ! The optimizer is quite good, but it is known that columns of text separated
  55. ! by a leader made up of periods can fool it.
  56. ! At the present time, it is unknown whether it's a width table or
  57. ! printer or troff wierdness.
  58.   .PP
  59.   The \-S option indicates that Postscript jobs should be terminated
  60.   with the directive "stop" instead of a control-D.
  61.   .SH "SPECIAL REQUESTS"
  62.   .BI troff2 xx
  63.   supports a number of additional features over and above bare
  64. --- 173,186 ----
  65.   .B \-Z
  66.   is specified.
  67.   .PP
  68. ! The optimizer is quite good provided that the fonts scale uniformly.
  69.   .PP
  70.   The \-S option indicates that Postscript jobs should be terminated
  71.   with the directive "stop" instead of a control-D.
  72. + .PP
  73. + If you are using \f3groff\fP to drive troff2ps
  74. + use the \-Gss option to specify the sizescale value from the groff
  75. + DESC files.
  76.   .SH "SPECIAL REQUESTS"
  77.   .BI troff2 xx
  78.   supports a number of additional features over and above bare
  79. Index: ./lib/psrofflib.S
  80. *** /tmp/PATCHold/./lib/psrofflib.S    Fri May 10 03:13:37 1991
  81. --- ./lib/psrofflib.S    Fri May 10 03:13:39 1991
  82. ***************
  83. *** 1,4 ****
  84. ! #    2.17 91/04/05
  85.   #    This file controls psroff, you can insert additional printer
  86.   #    types here.  These are eval'd *late* in processing, so that
  87.   #    you can insert $copies etc.
  88. --- 1,4 ----
  89. ! #    2.18 91/04/25
  90.   #    This file controls psroff, you can insert additional printer
  91.   #    types here.  These are eval'd *late* in processing, so that
  92.   #    you can insert $copies etc.
  93. ***************
  94. *** 44,49 ****
  95. --- 44,52 ----
  96.   #                Some postscript printers differ in location.
  97.   #        -N        The troff is actually ditroff.  (You have to
  98.   #                have ditroff widths installed for this!)
  99. + #        -G<sizescale>    If you're driving with groff, and the sizescale
  100. + #                parameter is specified in the DESC file, you
  101. + #                have to supply the sizescale parameter here.
  102.   #        -Z        optimizer
  103.   #        -S        Use "stop" to terminate Postscript instead
  104.   #                of control-D
  105. Index: ./widths/dit2catwid.c
  106. *** /tmp/PATCHold/./widths/dit2catwid.c    Fri May 10 03:13:50 1991
  107. --- ./widths/dit2catwid.c    Fri May 10 03:13:51 1991
  108. ***************
  109. *** 10,16 ****
  110.   
  111.   #ifndef    lint
  112.   static char SCCSID[] =
  113. !     "@(#)dit2catwid.c 2.7 Copyright 91/02/20 09:33:05 Chris Lewis";
  114.   #endif
  115.   
  116.   #include <stdio.h>
  117. --- 10,16 ----
  118.   
  119.   #ifndef    lint
  120.   static char SCCSID[] =
  121. !     "@(#)dit2catwid.c 2.8 Copyright 91/04/25 17:29:41 Chris Lewis";
  122.   #endif
  123.   
  124.   #include <stdio.h>
  125. ***************
  126. *** 73,79 ****
  127.       FILE *in1, *in2, *out;
  128.       char *fin1, *fin2, *fout;
  129.   
  130. !     progname = argv[0];
  131.   
  132.       while ((c = getopt(argc, argv, "evsr:u:chH:")) != EOF)
  133.       switch(c) {
  134. --- 73,83 ----
  135.       FILE *in1, *in2, *out;
  136.       char *fin1, *fin2, *fout;
  137.   
  138. !     progname = strrchr(argv[0], '/');
  139. !     if (progname)
  140. !     progname++;
  141. !     else
  142. !     progname = argv[0];
  143.   
  144.       while ((c = getopt(argc, argv, "evsr:u:chH:")) != EOF)
  145.       switch(c) {
  146. ***************
  147. *** 393,403 ****
  148.       exit(1);
  149.       }
  150.       while(fgets(buffer, sizeof(buffer), f)) {
  151. !     char str[3];
  152.       if (commentsok && buffer[0] == '#')
  153.           continue;
  154.       if (strlen(buffer) > 1 && buffer[0] == '#' && !isspace(buffer[1]))
  155.           continue;
  156.       commentsok = 0;
  157.   #ifdef    DEBUG
  158.       printf("buffer: %s\n", buffer);
  159. --- 397,411 ----
  160.       exit(1);
  161.       }
  162.       while(fgets(buffer, sizeof(buffer), f)) {
  163. !     char str[31];
  164.       if (commentsok && buffer[0] == '#')
  165.           continue;
  166.       if (strlen(buffer) > 1 && buffer[0] == '#' && !isspace(buffer[1]))
  167.           continue;
  168. + 
  169. +     sv = strchr(buffer, '\n');
  170. +     if (sv) *sv = '\0';
  171. +     
  172.       commentsok = 0;
  173.   #ifdef    DEBUG
  174.       printf("buffer: %s\n", buffer);
  175. ***************
  176. *** 405,414 ****
  177.       tok = gettoken(buffer, NULL);
  178.       if (!tok)
  179.           continue;
  180. !     if (strlen(tok) > 2) {
  181. !         fprintf(stderr, "%s: %s bad format on line %s\n",
  182. !         progname, filename, buffer);
  183. !         exit(1);
  184.       }
  185.       strcpy(str, tok);
  186.       tok = gettoken(buffer, 1);
  187. --- 413,422 ----
  188.       tok = gettoken(buffer, NULL);
  189.       if (!tok)
  190.           continue;
  191. !     if (strlen(tok) > 30) {
  192. !         if (verbose)
  193. !         printf("%s: %s skipping entry %s\n",
  194. !             progname, filename, buffer);
  195.       }
  196.       strcpy(str, tok);
  197.       tok = gettoken(buffer, 1);
  198. ***************
  199. *** 426,434 ****
  200. --- 434,447 ----
  201.           widval = oldwidval;
  202.           eval = oldeval;
  203.       } else {
  204. +         /* atoi will truncate tok if it contains non-numeric characters.
  205. +            Which is just fine for groff's wid,a,b,c,... format */
  206.           widval = ((double) TROFFUWID * TROFFRESOLUTION * atoi(tok) /
  207.           (unitwid * res)) + .5;
  208.           widval = max(widval, 1);
  209. +         if (widval > 63)
  210. +         printf("%s: width value too big for %s (%d)\n",
  211. +             progname, str, widval);
  212.           tok = gettoken(buffer, 1);
  213.           if (!tok) {
  214.           fprintf(stderr, "%s: %s bad format on line %s\n",
  215. Index: ./widths/genext.S
  216. *** /tmp/PATCHold/./widths/genext.S    Fri May 10 03:14:04 1991
  217. --- ./widths/genext.S    Fri May 10 03:14:05 1991
  218. ***************
  219. *** 5,11 ****
  220.   #    See the LICENSE file for a full description of the restrictions
  221.   #    under which this software is provided.
  222.   #
  223. ! #    2.6 91/03/10 Generate extension list of characters for troff2ps.
  224.   if [ $# != 1 ]
  225.   then
  226.       echo "usage: genext <ditroff font width directory>" >&2
  227. --- 5,11 ----
  228.   #    See the LICENSE file for a full description of the restrictions
  229.   #    under which this software is provided.
  230.   #
  231. ! #    2.7 91/04/25 Generate extension list of characters for troff2ps.
  232.   if [ $# != 1 ]
  233.   then
  234.       echo "usage: genext <ditroff font width directory>" >&2
  235. ***************
  236. *** 47,80 ****
  237.       catcodes[ch] = 1
  238.       next
  239.       }
  240.   $1 ~ /^name/ {
  241.       curfont = $2
  242.       next
  243.       }
  244. ! /faked/    { next }
  245. ! NF >= 4 && $2 ~ /^[0-9]*$/ && $3 ~ /^[0-9]*$/    {
  246. !     if (catcodes[$1] || $1 == "\\|" || $1 == "\\^")
  247.           next
  248.       if (seen[$1]) {
  249. !         if (seen[$1] != $4)
  250.           printf "Duplicate %s, but different codes! (%s/%s)\n", \
  251. !             $1, seen[$1], $4 > "/tmp/errors"
  252.           next
  253.       }
  254. !     seen[$1] = $4
  255.       if (curfont == "S")
  256.           flag = "S"
  257. !     else if (curfont == "S2")
  258.           flag = 4
  259.       else
  260.           flag = "N"
  261.       code = $4
  262.       if (length(code) > 3)
  263.           code = substr(code, length(code) - 2, 3)
  264.       while(length(code) < 3) {
  265.           code = "0" code
  266.       }
  267. !     printf("%s    %s    \\%s\n", $1, flag, code)
  268.       }
  269.   
  270.   ' ../utils/ljtab.c $files
  271. --- 47,115 ----
  272.       catcodes[ch] = 1
  273.       next
  274.       }
  275. + 
  276.   $1 ~ /^name/ {
  277.       curfont = $2
  278.       next
  279.       }
  280. ! 
  281. ! /charset/ {
  282. !     incharset = 1
  283. !     }
  284. ! 
  285. ! NF == 2 && $2 == "\"" {
  286. !     if (catcodes[$1] || $1 == "\\|" || $1 == "\\^" || $1 == "---")
  287.           next
  288.       if (seen[$1]) {
  289. !         if (seen[$1] != code)
  290.           printf "Duplicate %s, but different codes! (%s/%s)\n", \
  291. !             $1, seen[$1], code > "/tmp/errors"
  292.           next
  293.       }
  294. ! 
  295. !     seen[$1] = code
  296.       if (curfont == "S")
  297.           flag = "S"
  298. !     else if (curfont ~ /S[0-9]/)
  299.           flag = 4
  300.       else
  301.           flag = "N"
  302. + 
  303. +     printf("%s    %s    %s\n", $1, flag, code);
  304. +     }
  305. +     
  306. + /faked/    { next }
  307. + NF >= 4 && $2 ~ /^[0-9,]*$/ && $3 ~ /^[0-9]*$/    {
  308. +     if (!incharset)
  309. +         next
  310. +     if (catcodes[$1] || $1 == "\\|" || $1 == "\\^" || $1 == "---")
  311. +         next
  312. + 
  313.       code = $4
  314.       if (length(code) > 3)
  315.           code = substr(code, length(code) - 2, 3)
  316. + 
  317.       while(length(code) < 3) {
  318.           code = "0" code
  319.       }
  320. ! 
  321. !     code = "\\" code
  322. !     if (seen[$1]) {
  323. !         if (seen[$1] != code)
  324. !         printf "Duplicate %s, but different codes! (%s/%s)\n", \
  325. !             $1, seen[$1], code > "/tmp/errors"
  326. !         next
  327. !     }
  328. ! 
  329. !     seen[$1] = code
  330. ! 
  331. !     if (curfont == "S")
  332. !         flag = "S"
  333. !     else if (curfont ~ /S[0-9]/)
  334. !         flag = 4
  335. !     else
  336. !         flag = "N"
  337. !     printf("%s    %s    %s\n", $1, flag, code)
  338.       }
  339.   
  340.   ' ../utils/ljtab.c $files
  341. Index: ./widths/gfnttab.S
  342. *** /tmp/PATCHold/./widths/gfnttab.S    Fri May 10 03:14:14 1991
  343. --- ./widths/gfnttab.S    Fri May 10 03:14:16 1991
  344. ***************
  345. *** 5,11 ****
  346.   #    See the LICENSE file for a full description of the restrictions
  347.   #    under which this software is provided.
  348.   #
  349. ! #@(#)gfnttab.sh 2.7 91/04/02
  350.   #    Set this to something non-null in the Makefile if you need
  351.   #    a.out.h/COFF headers on your width files, and the COFF/HEADERSIZE
  352.   #    defines cause dit2catwid to generate width tables that
  353. --- 5,11 ----
  354.   #    See the LICENSE file for a full description of the restrictions
  355.   #    under which this software is provided.
  356.   #
  357. ! #@(#)gfnttab.sh 2.8 91/04/25
  358.   #    Set this to something non-null in the Makefile if you need
  359.   #    a.out.h/COFF headers on your width files, and the COFF/HEADERSIZE
  360.   #    defines cause dit2catwid to generate width tables that
  361. ***************
  362. *** 45,52 ****
  363.   rm -f /tmp/S
  364.   if [ ! -r R ]
  365.   then
  366. !     echo "Creating Dummy R font width table"
  367. !     touch R
  368.   fi
  369.   if [ -r S ]
  370.   then
  371. --- 45,59 ----
  372.   rm -f /tmp/S
  373.   if [ ! -r R ]
  374.   then
  375. !     if [ -r TR ]
  376. !     then
  377. !     R=TR
  378. !     else
  379. !     echo "Creating Dummy R font width table"
  380. !     touch R
  381. !     fi
  382. ! else
  383. !     R=R
  384.   fi
  385.   if [ -r S ]
  386.   then
  387. ***************
  388. *** 72,77 ****
  389. --- 79,91 ----
  390.       echo "WARNING: no 'res' command in DESC - assuming 300"
  391.       res="-r 300"
  392.       else
  393. +     ss=`sed -n \
  394. +         -e 's/^[     ]*sizescale[     ][     ]*\([0-9][0-9]*\).*/\1/p' $DESC`
  395. +     if [ -n "$ss" ]
  396. +     then
  397. +         echo "INFO: Found sizescale of $ss (probably groff)"
  398. +         res=`expr $res / $ss`
  399. +     fi
  400.       res="-r $res"
  401.       fi
  402.       unit=`sed -n -e 's/^[     ]*unitwidth[     ][     ]*\([0-9][0-9]*\).*/\1/p' $DESC`
  403. ***************
  404. *** 105,114 ****
  405.       esac
  406.       case $i in
  407.       S)
  408. !         args="-s R /tmp/S"
  409.           ;;
  410.       SU)
  411. !         args="-s R $i"
  412.           ;;
  413.       S[0-9] | SI | ST )
  414.           continue
  415. --- 119,128 ----
  416.       esac
  417.       case $i in
  418.       S)
  419. !         args="-s $R /tmp/S"
  420.           ;;
  421.       SU)
  422. !         args="-s $R $i"
  423.           ;;
  424.       S[0-9] | SI | ST )
  425.           continue
  426. Index: ./utils/psxlate.c
  427. *** /tmp/PATCHold/./utils/psxlate.c    Fri May 10 03:14:27 1991
  428. --- ./utils/psxlate.c    Fri May 10 03:14:30 1991
  429. ***************
  430. *** 23,29 ****
  431.    */
  432.   #ifndef    lint
  433.   static char SCCSid[] =
  434. !     "@(#)psxlate.c: 2.11 Copyright 91/03/26 00:13:16 Chris Lewis";
  435.   #endif
  436.   
  437.   #ifdef    ALONE
  438. --- 23,29 ----
  439.    */
  440.   #ifndef    lint
  441.   static char SCCSid[] =
  442. !     "@(#)psxlate.c: 2.13 Copyright 91/04/24 22:07:02 Chris Lewis";
  443.   #endif
  444.   
  445.   #ifdef    ALONE
  446. ***************
  447. *** 33,41 ****
  448.   #include "defs.h"
  449.   #endif
  450.   
  451. ! int    xlate = 0;
  452. ! extern int    italic = 0;
  453. ! int    needd = 0;
  454.   #define    BUFFERSIZE    512
  455.   
  456.   int    half = 0;    /*    Controls emitter, 0: whole file, 1: first half,
  457. --- 33,41 ----
  458.   #include "defs.h"
  459.   #endif
  460.   
  461. ! int    xlate;
  462. ! int    italic;
  463. ! int    needd;
  464.   #define    BUFFERSIZE    512
  465.   
  466.   int    half = 0;    /*    Controls emitter, 0: whole file, 1: first half,
  467. ***************
  468. *** 220,225 ****
  469. --- 220,226 ----
  470.       long offset;
  471.       int state = PROLOG;
  472.       int seen;
  473. +     int nest = 0;
  474.   
  475.       magicstr = malloc(strlen(buffer) + 1);
  476.       strcpy(magicstr, buffer);
  477. ***************
  478. *** 232,244 ****
  479.   
  480.       if (!buffer)
  481.           seen = S_EOF;
  482. !     else if (buffer[0] == '%') {
  483. !         if (strncmp(buffer, "%%Page:", 7) == 0)
  484.           seen = S_PAGE;
  485. !         else if (strncmp(buffer, "%%Trailer", 9) == 0)
  486.           seen = S_EPI;
  487. !         else
  488.           seen = S_NONE;
  489.       } else
  490.           seen = S_NONE;
  491.       switch(seen) {
  492. --- 233,254 ----
  493.   
  494.       if (!buffer)
  495.           seen = S_EOF;
  496. !     else if (buffer[0] == '%' && buffer[1] == '%') {
  497. !         if (!nest && strncmp(buffer, "%%Page:", 7) == 0)
  498.           seen = S_PAGE;
  499. !         else if (!nest && isspace(buffer[9]) &&
  500. !         strncmp(buffer, "%%Trailer", 9) == 0)
  501.           seen = S_EPI;
  502. !         else {
  503. ! 
  504. !         if (strncmp(buffer, "%%BeginDocument:", 16) == 0)
  505. !             nest++;
  506. !         else if (isspace(buffer[13]) &&
  507. !             strncmp(buffer, "%%EndDocument", 13) == 0)
  508. !             nest--;
  509. ! 
  510.           seen = S_NONE;
  511. +         }
  512.       } else
  513.           seen = S_NONE;
  514.       switch(seen) {
  515. ***************
  516. *** 295,300 ****
  517. --- 305,314 ----
  518.           break;
  519.       }
  520.       }
  521. +     if (nest) {
  522. +     fprintf(stderr, "%s: misnested BeginDocument/EndDocument\n",
  523. +         progname);
  524. +     }
  525.   }
  526.   
  527.   cleanup() {
  528. ***************
  529. *** 501,507 ****
  530.       thru *count;
  531.    */
  532.   #define    CHUNK    512
  533. ! char *mygets(in, out, count)
  534.   FILE *in, *out; long *count; {
  535.       static char *buffer = NULL;
  536.       static long buflimit;
  537. --- 515,522 ----
  538.       thru *count;
  539.    */
  540.   #define    CHUNK    512
  541. ! char *
  542. ! mygets(in, out, count)
  543.   FILE *in, *out; long *count; {
  544.       static char *buffer = NULL;
  545.       static long buflimit;
  546. Index: ./utils/asc2ps.c
  547. *** /tmp/PATCHold/./utils/asc2ps.c    Fri May 10 03:14:43 1991
  548. --- ./utils/asc2ps.c    Fri May 10 03:14:45 1991
  549. ***************
  550. *** 14,20 ****
  551.   
  552.   #ifndef    lint
  553.   static char SCCSid[] =
  554. !     "@(#)asc2ps.c: 2.3 Copyright 91/03/26 20:46:04 Chris Lewis";
  555.   #endif
  556.   
  557.   #include "defs.h"
  558. --- 14,20 ----
  559.   
  560.   #ifndef    lint
  561.   static char SCCSid[] =
  562. !     "@(#)asc2ps.c: 2.4 Copyright 91/04/10 19:48:00 Chris Lewis";
  563.   #endif
  564.   
  565.   #include "defs.h"
  566. ***************
  567. *** 369,375 ****
  568.           if    (outbufs[NORMAL][linepos] == *buffer) {
  569.               outbufs[BOLD][linepos] = *buffer;
  570.               maxpos[BOLD] = max(maxpos[BOLD], linepos+1);
  571. !         } else if (*buffer == '_' && outbufs[NORMAL] != ' ' ||
  572.               outbufs[NORMAL][linepos] == '_') {
  573.   
  574.               if (*buffer != '_')
  575. --- 369,376 ----
  576.           if    (outbufs[NORMAL][linepos] == *buffer) {
  577.               outbufs[BOLD][linepos] = *buffer;
  578.               maxpos[BOLD] = max(maxpos[BOLD], linepos+1);
  579. !         } else if (*buffer == '_' &&
  580. !             outbufs[NORMAL][linepos] != ' ' ||
  581.               outbufs[NORMAL][linepos] == '_') {
  582.   
  583.               if (*buffer != '_')
  584. Index: ./tests/testtab.m
  585. *** /tmp/PATCHold/./tests/testtab.m    Fri May 10 03:14:56 1991
  586. --- ./tests/testtab.m    Fri May 10 03:14:57 1991
  587. ***************
  588. *** 1,4 ****
  589. ! .\" 2.3 91/03/25
  590.   .po .25i
  591.   .in 0
  592.   .fp 1 R
  593. --- 1,4 ----
  594. ! .\" 2.5 91/05/03
  595.   .po .25i
  596.   .in 0
  597.   .fp 1 R
  598. ***************
  599. *** 9,19 ****
  600.   .vs 14
  601.   .sp |.3i
  602.   .ce 4
  603. ! PSROFF TEST SHEET (2.3)
  604.   .br
  605. ! Please fill out and mail to: BOX 13215
  606.   .br
  607. ! Kanata PO, Kanata, Ontario, Canada K2K 1X4
  608.   .br
  609.   \*(2d \*(2v \*(pt
  610.   .ps 10
  611. --- 9,19 ----
  612.   .vs 14
  613.   .sp |.3i
  614.   .ce 4
  615. ! PSROFF TEST SHEET (2.5)
  616.   .br
  617. ! Please fill out and mail to: Chris Lewis
  618.   .br
  619. ! P.O. Box 124, Dunrobin, Ontario, Canada K0A 1T0
  620.   .br
  621.   \*(2d \*(2v \*(pt
  622.   .ps 10
  623. Index: ./dit.c
  624. *** /tmp/PATCHold/./dit.c    Fri May 10 03:15:11 1991
  625. --- ./dit.c    Fri May 10 03:15:13 1991
  626. ***************
  627. *** 12,18 ****
  628.   
  629.   #ifndef    lint
  630.   static char SCCSid[] =
  631. !     "@(#)dit.c: 91/03/26 Copyright 91/03/26 00:13:12 Chris Lewis";
  632.   #endif
  633.   
  634.   extern struct cattab tabN[], tabS[], *extidx;
  635. --- 12,18 ----
  636.   
  637.   #ifndef    lint
  638.   static char SCCSid[] =
  639. !     "@(#)dit.c: 91/04/24 Copyright 91/04/24 21:48:46 Chris Lewis";
  640.   #endif
  641.   
  642.   extern struct cattab tabN[], tabS[], *extidx;
  643. ***************
  644. *** 132,137 ****
  645. --- 132,139 ----
  646.   }
  647.   
  648.   #ifdef    DIT
  649. + 
  650. + int sizescale = 1;
  651.   int indtres;
  652.   
  653.   int points, font, ch, i;
  654. ***************
  655. *** 150,155 ****
  656. --- 152,158 ----
  657.           goto finish;
  658.           case 's':
  659.           points = getnum();
  660. +         points /= sizescale;
  661.           DBP((D_CAT, "Pointsize %d\n", points));
  662.           break;
  663.           case 'f':
  664. Index: ./README
  665. *** /tmp/PATCHold/./README    Fri May 10 03:15:27 1991
  666. --- ./README    Fri May 10 03:15:32 1991
  667. ***************
  668. *** 1,4 ****
  669. !         PSROFF RELEASE 3.0 README 2.17 91/04/02
  670.   
  671.               Feb 19, 1991
  672.               Chris Lewis
  673. --- 1,4 ----
  674. !         PSROFF RELEASE 3.0 README 2.19 91/04/24
  675.   
  676.               Feb 19, 1991
  677.               Chris Lewis
  678. ***************
  679. *** 149,159 ****
  680.         gfnttab (discussed later).
  681.   
  682.       - The ditroff *input* handler is quite new, and hasn't been
  683. !       tested all that extensively.  Preliminary results seem to
  684. !       suggest that it does work, but documentation is scanty,
  685. !       and there's not much in the way of automated install or
  686. !       configuration checking for real ditroff.  See the DITROFF
  687. !       file for additional information.
  688.   
  689.       - Fonts:
  690.       - postscript driving - psroff uses what's on the printer - the
  691. --- 149,159 ----
  692.         gfnttab (discussed later).
  693.   
  694.       - The ditroff *input* handler is quite new, and hasn't been
  695. !       tested all that extensively.  See the DITROFF file for
  696. !       additional information.
  697. !     
  698. !     - This software should work with groff, see the DITROFF file for
  699. !       further details.
  700.   
  701.       - Fonts:
  702.       - postscript driving - psroff uses what's on the printer - the
  703. ***************
  704. *** 432,443 ****
  705.   
  706.       Chris Lewis
  707.       Elegant Communications Inc.
  708. !     Box 13215, Kanata PO
  709. !     Kanata, Ontario, K2K 1X4
  710.       Voice Phone: Canada (613) 832-0541
  711.       Userid's for e-mail contact:
  712.       Psroff enquiries/help: psroff-request
  713.       Non-psroff mail only: clewis
  714. !     UUCP routing: uunet!mitel!cunews!latour!ecicrl!<userid>
  715. !     Possible internet routing: <userid>@ferret.ocunix.on.ca
  716.       Alternate: <user>@eci386.uucp
  717. --- 432,444 ----
  718.   
  719.       Chris Lewis
  720.       Elegant Communications Inc.
  721. !     P.O. Box 124
  722. !     Dunrobin, Ontario,
  723. !     Canada K0A 1T0
  724.       Voice Phone: Canada (613) 832-0541
  725.       Userid's for e-mail contact:
  726.       Psroff enquiries/help: psroff-request
  727.       Non-psroff mail only: clewis
  728. !     Address: <userid>@ferret.ocunix.on.ca
  729. !     Alternate UUCP routing: uunet!mnetor!lsuc!eci386!ecicrl!<userid>
  730.       Alternate: <user>@eci386.uucp
  731. Index: ./troff2.c
  732. *** /tmp/PATCHold/./troff2.c    Fri May 10 03:15:49 1991
  733. --- ./troff2.c    Fri May 10 03:15:51 1991
  734. ***************
  735. *** 12,18 ****
  736.   
  737.   #ifndef    lint
  738.   static char SCCSid[] =
  739. !     "@(#)troff2.c: 2.15 Copyright 91/03/25 23:20:47 Chris Lewis";
  740.   #endif
  741.   
  742.   #define    ESC    0x80
  743. --- 12,18 ----
  744.   
  745.   #ifndef    lint
  746.   static char SCCSid[] =
  747. !     "@(#)troff2.c: 2.17 Copyright 91/05/03 10:41:03 Chris Lewis";
  748.   #endif
  749.   
  750.   #define    ESC    0x80
  751. ***************
  752. *** 86,94 ****
  753.   int optimize = 0;
  754.   #endif
  755.   
  756.   extern char *realloc();
  757.   
  758. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNS"
  759.   
  760.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  761.       two extra longs on the stack between the stack frame and
  762. --- 86,98 ----
  763.   int optimize = 0;
  764.   #endif
  765.   
  766. + #ifdef    DIT
  767. + int    sizescale;
  768. + #endif
  769. + 
  770.   extern char *realloc();
  771.   
  772. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNSG:"
  773.   
  774.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  775.       two extra longs on the stack between the stack frame and
  776. ***************
  777. *** 214,220 ****
  778. --- 218,228 ----
  779.   #ifdef    DIT
  780.               ditroff = 1;
  781.               break;
  782. +         case 'G':
  783. +             sizescale = atoi(optarg);
  784. +             break;
  785.   #else
  786. +         case 'S':
  787.               fprintf(stderr, "%s: ditroff frontend not configured\n");
  788.               exit(1);
  789.   #endif
  790. Index: ./MISC
  791. *** /tmp/PATCHold/./MISC    Fri May 10 03:16:04 1991
  792. --- ./MISC    Fri May 10 03:16:06 1991
  793. ***************
  794. *** 1,6 ****
  795.           Miscellaneous Tuning/Customization
  796. !             2.9 91/03/26
  797.   
  798.       - Postscript spooling:  Theoretically speaking, it is better
  799.         to have psxlate in your Postscript printer spooler interface
  800.         than as a pipeline in psroff.  For System V, you might want
  801. --- 1,26 ----
  802.           Miscellaneous Tuning/Customization
  803. !             2.10 91/05/10
  804.   
  805. +     - Vertical bars in eqn may not be vertical.  This is a botch
  806. +       in some versions of eqn - namely, eqn is asking for "|"
  807. +       in italic.  You see this by:
  808. + 
  809. +     .EQ
  810. +     left nothing {d f(x)} over {d x} right |
  811. +     .EN
  812. + 
  813. +       Which may (depending on your eqn) look like:
  814. +     df(x) /
  815. +     ----- /
  816. +     dx    /
  817. + 
  818. +       Fix by appending:
  819. +     normal
  820. +     | 0
  821. + 
  822. +       to the appropriate *.lib file.  Then all "|" will be
  823. +       from the Times-Roman font.  Ugly, but the only way to
  824. +       fix eqn vertical bars.
  825.       - Postscript spooling:  Theoretically speaking, it is better
  826.         to have psxlate in your Postscript printer spooler interface
  827.         than as a pipeline in psroff.  For System V, you might want
  828. Index: ./defs.h
  829. *** /tmp/PATCHold/./defs.h    Fri May 10 03:16:18 1991
  830. --- ./defs.h    Fri May 10 03:16:22 1991
  831. ***************
  832. *** 9,15 ****
  833.    */
  834.   
  835.   /*    Official Release and Patch level:    */
  836. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/03/25 Chris Lewis - R3 PL0"
  837.   
  838.   /*    Configuration parameters:
  839.    */
  840. --- 9,15 ----
  841.    */
  842.   
  843.   /*    Official Release and Patch level:    */
  844. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/04/26 Chris Lewis - R3 PL1"
  845.   
  846.   /*    Configuration parameters:
  847.    */
  848. Index: ./TROUBLE
  849. *** /tmp/PATCHold/./TROUBLE    Fri May 10 03:16:34 1991
  850. --- ./TROUBLE    Fri May 10 03:16:36 1991
  851. ***************
  852. *** 1,4 ****
  853. !         Psroff 3.0 Trouble Shooting.... 2.11 91/04/02
  854.   
  855.   (psroff 1.0 users can use this to a certain extent.  This is relatively
  856.   unchanged from Psroff 2.0 except for the ditroff input capability)
  857. --- 1,4 ----
  858. !         Psroff 3.0 Trouble Shooting.... 2.13 91/05/10
  859.   
  860.   (psroff 1.0 users can use this to a certain extent.  This is relatively
  861.   unchanged from Psroff 2.0 except for the ditroff input capability)
  862. ***************
  863. *** 22,28 ****
  864.   you run "make check" first and correct any "ERROR"'s it reports
  865.   that apply to the configuration (driver/printer) you wish to use.
  866.   If you encounter problems you cannot solve and wish to ask me for
  867. ! help, I will want you to send me a copy of "make check"'s output....
  868.   
  869.   Definitions:
  870.       - LIBDIR - default /usr/lib/troff2 (config option in Makefile)
  871. --- 22,29 ----
  872.   you run "make check" first and correct any "ERROR"'s it reports
  873.   that apply to the configuration (driver/printer) you wish to use.
  874.   If you encounter problems you cannot solve and wish to ask me for
  875. ! help, I will want you to send me a copy of "make check"'s output.
  876. ! But don't send it to me unless I ask for it.
  877.   
  878.   Definitions:
  879.       - LIBDIR - default /usr/lib/troff2 (config option in Makefile)
  880. ***************
  881. *** 228,233 ****
  882. --- 229,238 ----
  883.       Run psroff debug.  Check for and correct troff error messages (eg:
  884.       line too long) in your document.  This could even be troff not being
  885.       able to find a file you specified to psroff.
  886. + 
  887. + Vertical lines in EQN are made up of slashes rather than a vertical line.
  888. + 
  889. +     See MISC file for details.
  890.   
  891.   Character widths wildly and inconsistently off:
  892.   
  893. Index: ./DITROFF
  894. *** /tmp/PATCHold/./DITROFF    Fri May 10 03:16:54 1991
  895. --- ./DITROFF    Fri May 10 03:16:56 1991
  896. ***************
  897. *** 1,8 ****
  898. !         Ditroff input configuration notes
  899. !             2.3 91/02/20
  900.   
  901.   This document attempts to describe some of the issues of using
  902. ! psroff with ditroff instead of CAT troff.
  903.   
  904.   The heart of the whole issue is the use of the -N option
  905.   to troff2ps (see lib/psrofflib.S).  Which permits the translation
  906. --- 1,10 ----
  907. !         Ditroff/Groff input configuration notes
  908. !             2.4 91/04/17
  909.   
  910.   This document attempts to describe some of the issues of using
  911. ! psroff with ditroff or groff instead of CAT troff.  Some of the
  912. ! general issues about ditroff apply to groff as well.  There is,
  913. ! however, a groff specific section at the end of this file.
  914.   
  915.   The heart of the whole issue is the use of the -N option
  916.   to troff2ps (see lib/psrofflib.S).  Which permits the translation
  917. ***************
  918. *** 31,36 ****
  919. --- 33,40 ----
  920.   only installs CAT-compatible width tables in FONTDIR/<widthname>/ft*,
  921.   yet, ditroff will insist upon a FONTDIR/dev<widthname>/*.out format.
  922.   
  923. + Groff width tables are somewhat different - see the end of this file.
  924. + 
  925.   The supplied lj3 and ps widths (widths/width???) files are designed to
  926.   operate with full ditroff.  To use them, copy widths/widthlj3/[A-Z]* to
  927.   FONTDIR/devlj3 or widths/widthps/[A-Z]* to FONTDIR/devpsc.  Then,
  928. ***************
  929. *** 61,67 ****
  930.   Macro Adapters & Page offsets:
  931.   -----------------------------
  932.   
  933. ! When you specify "-mm", tsroff goes and looks for a file called
  934.   "tmac.m" in the macro library area, namely, /usr/lib/tmac.
  935.   In order to support CAT troff, psroff looks in LIBDIR/adapters
  936.   for a file called tmac.m, which includes LIBDIR/adapters/cmn.pre
  937. --- 65,71 ----
  938.   Macro Adapters & Page offsets:
  939.   -----------------------------
  940.   
  941. ! When you specify "-mm", psroff goes and looks for a file called
  942.   "tmac.m" in the macro library area, namely, /usr/lib/tmac.
  943.   In order to support CAT troff, psroff looks in LIBDIR/adapters
  944.   for a file called tmac.m, which includes LIBDIR/adapters/cmn.pre
  945. ***************
  946. *** 85,87 ****
  947. --- 89,135 ----
  948.   Also, you'll probably want to override the default 1/2 inch offset
  949.   that troff2ps implements by specifying -O0 in the t2arg entry of
  950.   lib/psrofflib.S.
  951. + 
  952. + You should test this stuff first, because the -N option overrides
  953. + part of the adapter file search.
  954. + 
  955. + Groff
  956. + -----
  957. + 
  958. + Groff is a complete implementation of ditroff, plus several different
  959. + output drivers (Postscript, tty, DVI).  Generally speaking, you
  960. + won't need psroff if you have groff, but there are a few places
  961. + where groff and psroff can be used together to advantage.
  962. + 
  963. + First of all, groff doesn't support HP Laserjet or LJIII output.
  964. + In this case, you can drive troff2ps -N with gtroff output.  For
  965. + width tables, you would copy the psroff's
  966. + widthps/width[lj,lj3,lj3u]*/[A-Z]* files to the appropriate
  967. + places in /usr/lib/font/dev<type> and modify the groff shell
  968. + script to call troff2ps (you will need to specify the -N option,
  969. + plus set the -p and -T values).  You will probably have to build
  970. + up a proper DESC file for widthlj if you aren't driving a LJ3.
  971. + 
  972. + Secondly, if you want to drive DVI interfaces from CAT troff, you
  973. + can use the ditroff-2-dvi converter with psroff's ditroff output
  974. + option (-Tdt).  I'm not entirely sure why you'd want to do this
  975. + if you have all of groff loaded - but it might be useful.
  976. + 
  977. + The fundamental differences between ditroff and groff (as far as
  978. + *we* are concerned) is the differing width table format.  First,
  979. + groff does not need to compile the width table format into
  980. + a binary format - the ASCII versions are used in the
  981. + /usr/lib/font/dev<type> directory directly.  Psroff doesn't
  982. + copy these files (eg: R, I, B, S etc.) into this directory,
  983. + so you'll have to do it yourself, tho, groff installation
  984. + probably has already done that.  Secondly, there is the
  985. + "sizescale" DESC parameter, which prescales the unitwidth
  986. + and character widths values, as well as the point size selection
  987. + in the gtroff output.  At present, troff2ps does not support
  988. + a sizescale other than 1 (psroff will try to emit glyphs
  989. + sizescale times larger than actually desired).
  990. + 
  991. + The width tables that come with psroff should work with groff.
  992. + The groff width tables can also be used with psroff, but this
  993. + should not be necessary - unless you're trying to use groff's
  994. + tty or dvi output filters.
  995. Index: ./LICENSE
  996. *** /tmp/PATCHold/./LICENSE    Fri May 10 03:17:08 1991
  997. --- ./LICENSE    Fri May 10 03:17:09 1991
  998. ***************
  999. *** 1,5 ****
  1000. !             Psroff 3.0 Licensing Information
  1001. !                 2.2 91/02/20
  1002.   
  1003.    1) All code, except where noted, is:
  1004.       Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis,
  1005. --- 1,5 ----
  1006. !             Psroff 3.0 Licensing Information
  1007. !                 2.3 91/04/24
  1008.   
  1009.    1) All code, except where noted, is:
  1010.       Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis,
  1011. ***************
  1012. *** 12,19 ****
  1013.       a non-source package in their software releases should contact me:
  1014.   
  1015.       Chris Lewis
  1016. !     Box 13215, Kanata PO
  1017. !     Kanata, Ontario, K2K 1X4
  1018.       Voice Phone: Canada (613) 832-0541
  1019.   
  1020.    2) psdtwid and some of the character drawing and spacing
  1021. --- 12,20 ----
  1022.       a non-source package in their software releases should contact me:
  1023.   
  1024.       Chris Lewis
  1025. !     P.O. Box 124
  1026. !     Dunrobin, Ontario,
  1027. !     Canada K0A 1T0
  1028.       Voice Phone: Canada (613) 832-0541
  1029.   
  1030.    2) psdtwid and some of the character drawing and spacing
  1031.  
  1032. -- 
  1033. Chris Lewis, Phone: (613) 832-0541, Domain: clewis@ferret.ocunix.on.ca
  1034. UUCP: ...!cunews!latour!ecicrl!clewis; Ferret Mailing List:
  1035. ferret-request@eci386; Psroff (not Adobe Transcript) enquiries:
  1036. psroff-request@eci386 or Canada 416-832-0541.  Psroff 3.0 in c.s.u soon!
  1037.  
  1038.  
  1039. exit 0 # Just in case...
  1040.