home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / psroff3.0 / patch6 < prev    next >
Encoding:
Internet Message Format  |  1991-12-12  |  30.6 KB
  1. Subject: v25i033: psroff 3.0 patch 6
  2. Newsgroups: comp.sources.unix
  3. Approved: vixie@pa.dec.com
  4.  
  5. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  6. Posting-Number: Volume 25, Issue 33
  7. Archive-Name: psroff3.0/patch6
  8.  
  9.     This is official patch 06 for Psroff 3.0.
  10.     Please apply it by:
  11.     cd <psroff source directory>
  12.     patch -N -p < <this file>
  13.  
  14. This is a moderately important patch:
  15.     1) \X emulation was busted, so you couldn't use psfig.
  16.     2) catconv enabling was a bit confused and buggy.
  17.     3) you couldn't feed troff2ps ditroff output back into
  18.        psroff troff2ps input. Ie: after previewing ditroff
  19.        on xtroff, you pass the file to psroff to print on
  20.        postscript, and if you selected a font past position 9
  21.        in the *.fonts file.  (you would have gotten spurious
  22.        "increase INTFONTS" messages)
  23.     4) \D didn't work with ditroff output.
  24.     5) psrofflib.S wasn't taking advantage of %%FONTDIR%%
  25.     6) Improved documentation on lparg setting and catconv
  26.        enabling (and why you'd want catconv)
  27.  
  28. You are likely to get a number of rejects on psrofflib.S.
  29. Please take the time to merge the changes with your configuration.
  30. There were several places where the build procedure wouldn't
  31. substitute in properly.  Also, for your enjoyment, I have
  32. turned on optimization in the Postscript driver by default, which
  33. should have been done years ago.
  34.  
  35. ./lib/psrofflib.S    documentation/config/-Tps optimizer
  36. ./utils/catconv.S    \X busted.
  37. ./utils/hpinterp.c    fixed missing argument for font dumps
  38. ./dt.c            (3) & (4)
  39. ./utils.c        (3)
  40. ./ps.c            \D't..' (line thickness) didn't work.
  41. ./dit.c            Rewrote misleading error message.
  42. ./README        Futures/hp2pbm/contact info
  43. ./defs.h        patch level
  44. ./Makefile        documentation re perl/catconv.
  45. ./psroff.S        catconv invocation.
  46. ./makeincl.S        PERL substitution botch.
  47.  
  48. Patchwrapped: 911207025223
  49.  
  50. Index: ./lib/psrofflib.S
  51. *** /tmp/PATCHold/./lib/psrofflib.S    Sat Dec  7 02:48:55 1991
  52. --- ./lib/psrofflib.S    Sat Dec  7 02:48:59 1991
  53. ***************
  54. *** 1,8 ****
  55. ! #    2.20 91/08/03
  56.   #    This file controls psroff, you can insert additional printer
  57.   #    types here.  These are eval'd *late* in processing, so that
  58.   #    you can insert $copies etc.
  59.   #
  60.   #    Syntax:
  61.   #
  62.   # troff=<path to troff>
  63. --- 1,17 ----
  64. ! #    2.22 91/12/07
  65.   #    This file controls psroff, you can insert additional printer
  66.   #    types here.  These are eval'd *late* in processing, so that
  67.   #    you can insert $copies etc.
  68.   #
  69. + #    This file contains a couple lines that specify the parameters
  70. + #    for each different -T<xx> option to psroff.  The -T<xx> options
  71. + #    for psroff select which psroff configuration/printer method you
  72. + #    wish to use.  Most people won't have to change anything except
  73. + #    "trofftype" and lparg.  The former once, the latter for each -T
  74. + #    option that is applicable to you.  Each entry is commented
  75. + #    with an english description of the configuration.  Find the one[s]
  76. + #    closest to what you want, and modify as necessary.
  77. + #
  78.   #    Syntax:
  79.   #
  80.   # troff=<path to troff>
  81. ***************
  82. *** 19,27 ****
  83.   #        recommended if you have printers with different character
  84.   #        widths.  Psroff will complain.  See trofftype assignment below.
  85.   #
  86. ! #    name: name of config (eg: xt for ditroff->xtroff).
  87.   #    width: name of width files (eg: "ps" for %%FONTDIR%%/ps/ftXX).
  88. ! #    ptr: default physical printer id (eg: "lp -d$ptr")
  89.   #
  90.   #    Useful troff2ps args:
  91.   #        -T<type>    driver type (ps, lj, dt)
  92. --- 28,38 ----
  93.   #        recommended if you have printers with different character
  94.   #        widths.  Psroff will complain.  See trofftype assignment below.
  95.   #
  96. ! #    name: name of config (eg: xt for ditroff->xtroff).  The name
  97. ! #        is used by psroff to select the configuration via -T<name>.
  98.   #    width: name of width files (eg: "ps" for %%FONTDIR%%/ps/ftXX).
  99. ! @        This is what troff is told, not necessarily troff2ps.
  100. ! #    ptr: default physical printer name (eg: "lp -d$ptr")
  101.   #
  102.   #    Useful troff2ps args:
  103.   #        -T<type>    driver type (ps, lj, dt)
  104. ***************
  105. *** 28,36 ****
  106.   #        -p<printer>    printer-specific initializations - eg:
  107.   #                prefix for *.lib and *.fonts files.
  108.   #                (defaults to <type>).  Should be set
  109. ! #                *before* -T.
  110.   #        -d<device>    x T <device> for ditroff drivers.
  111. ! #                (defaults to alw)
  112.   #        -R<num>        ditroff resolution to use.  Default 300
  113.   #        -O<pageoffset>    offset to be applied *bypassing* troff.
  114.   #                Default "-O.5i".  Set to 0 to get this
  115. --- 39,49 ----
  116.   #        -p<printer>    printer-specific initializations - eg:
  117.   #                prefix for *.lib and *.fonts files.
  118.   #                (defaults to <type>).  Should be set
  119. ! #                *after* -T.
  120.   #        -d<device>    x T <device> for ditroff drivers.
  121. ! #                (defaults to alw)  Normally is same
  122. ! #                as width parameter.  Only matters if you're
  123. ! #                driving some other ditroff drivers.
  124.   #        -R<num>        ditroff resolution to use.  Default 300
  125.   #        -O<pageoffset>    offset to be applied *bypassing* troff.
  126.   #                Default "-O.5i".  Set to 0 to get this
  127. ***************
  128. *** 62,67 ****
  129. --- 75,109 ----
  130.   #        print spool invocation manually simply by changing lparg
  131.   #        to "cat".
  132.   #
  133. + #        On BSDish systems (eg: SunOS, Ultrix etc.) that have lpr
  134. + #        you want:
  135. + #            lparg='lpr -#$copies -P$ptr'
  136. + #        On System V systems with "lp" you want:
  137. + #            lparg='lp -n$copies -d$ptr'
  138. + #
  139. + #        Warning: HP Laserjet output needs a 8-bit path without
  140. + #        any newline or tab expansion.  You will have to examine
  141. + #        your print spooler interface script or documentation to
  142. + #        see how to invoke it.  On many System V systems it's "-og"
  143. + #        (graphics) which leads to a lparg setting of:
  144. + #            lparg='lp -og -n$copies -d$ptr'
  145. + #
  146. + #        Some systems have environment variables that can be
  147. + #        used to default the printer in lp[r].  Your best bet is to
  148. + #        simply leave the "-?$ptr" option out.  However, you
  149. + #        should be cautious about this - a single environment
  150. + #        variable won't be sufficient when you're using multiple
  151. + #        psroff -T's.  For example, if you have a Laserjet and
  152. + #        Postscript printer, the environment variable would
  153. + #        have to change for -Tlj versus -Tps.  Often it's
  154. + #        the same physical printer but different logical names.
  155. + #
  156. + #    One further option: if you add "v=1" to the entry, catconv will
  157. + #    be invoked.  This will enable the ditroff emulation facilities
  158. + #    so that \X'...' (eg: psfig), \D'...' (drawing commands), and the
  159. + #    extended character set will be enabled.  You MUST have perl to have
  160. + #    this work.  This isn't needed for ditroff.
  161. + #    
  162.   #    Use single quotes for all strings that have embedded blanks or
  163.   #    other metacharacters.  (This delays the variable replacement until
  164.   #    the correct point).  Lines can be continued by prepending the
  165. ***************
  166. *** 68,88 ****
  167.   #    continuation lines with the "name" followed by whitespace.
  168.   #
  169.   #    psroff will use the last assignments to troff and trofftype
  170. ! #    ditroff prior to the matching name.
  171. ! #
  172. ! #    There is one additional magic flag, "v".  If you specify
  173. ! #    "v=1" (as in cdps entry below), psroff will arrange to run
  174. ! #    catconv on the (it has to be CAT) troff input.  This will
  175. ! #    permit you to do the extended character set and drawing routine
  176. ! #    stuff without having to manually invoke catconv.  HOWEVER,
  177. ! #    before trying this, you have to have Perl, and make sure that
  178. ! #    Perl will start it up properly (see MISC regarding catconv).
  179.   #
  180.   #    Note: for the automatic ditroff width table installer to work,
  181.   #    the width parameter, -N and -W (if present) options must be
  182.   #    on the same line.
  183.   
  184. - 
  185.   troff=''
  186.   trofftype='-T$width'
  187.   #    Uncomment the following if you're a Sun or Ultrix -F troff.
  188. --- 110,121 ----
  189.   #    continuation lines with the "name" followed by whitespace.
  190.   #
  191.   #    psroff will use the last assignments to troff and trofftype
  192. ! #    prior to the matching name.
  193.   #
  194.   #    Note: for the automatic ditroff width table installer to work,
  195.   #    the width parameter, -N and -W (if present) options must be
  196.   #    on the same line.
  197.   
  198.   troff=''
  199.   trofftype='-T$width'
  200.   #    Uncomment the following if you're a Sun or Ultrix -F troff.
  201. ***************
  202. *** 92,98 ****
  203.   #    turned on.
  204.   #trofftype='-F%%FONTDIR%%/$width/ftXX'
  205.   
  206. ! #    psroff generating postscript directly.
  207.   #    The clause "| $LIBDIR/psxlate -r" is there to reverse the pages
  208.   #    for some Postscript printers (eg: the ones that print the first
  209.   #    page face up and then drop the second page face up on top of the
  210. --- 125,131 ----
  211.   #    turned on.
  212.   #trofftype='-F%%FONTDIR%%/$width/ftXX'
  213.   
  214. ! #    psroff generating postscript directly from CAT troff.
  215.   #    The clause "| $LIBDIR/psxlate -r" is there to reverse the pages
  216.   #    for some Postscript printers (eg: the ones that print the first
  217.   #    page face up and then drop the second page face up on top of the
  218. ***************
  219. *** 103,118 ****
  220.   #    details.  Or, you could do psxlate and the print spooler manually.
  221.   #    In that case simply change lparg to be lparg='cat'.
  222.   #
  223. ! ps    width=ps t2arg=-Tps lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies'
  224.   ps    ptr='gate!AppleLaser'
  225. ! #    Example optimizer entry.
  226. ! ops    width=ps t2arg='-Tps -Z -W/usr/lib/font/ps'
  227. ! ops    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies' ptr='gate!AppleLaser'
  228.   #    For testing new width tables without clobbering real one.
  229. ! tps    width=tps t2arg='-Tps -Z -W/usr/lib/font/tps'
  230.   tps    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies' ptr='gate!AppleLaser'
  231.   
  232.   #    System V'ish LJ printing to printer called laser.
  233.   #    (Your lp filter script should support -og (8 bit, no filtering))
  234.   
  235.   lj    width=lj t2arg=-Tlj lparg='| lp -d$ptr -og -n$copies' ptr=laser
  236. --- 136,151 ----
  237.   #    details.  Or, you could do psxlate and the print spooler manually.
  238.   #    In that case simply change lparg to be lparg='cat'.
  239.   #
  240. ! ps    width=ps t2arg='-Tps -Z -W%%FONTDIR%%/ps'
  241. ! ps    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies'
  242.   ps    ptr='gate!AppleLaser'
  243. ! 
  244.   #    For testing new width tables without clobbering real one.
  245. ! tps    width=tps t2arg='-Tps -Z -W%%FONTDIR%%/tps'
  246.   tps    lparg='| $LIBDIR/psxlate -r | rlp -d$ptr -n$copies' ptr='gate!AppleLaser'
  247.   
  248.   #    System V'ish LJ printing to printer called laser.
  249. + #    Don't use this for Laserjet III's - see the *lj3* entries below.
  250.   #    (Your lp filter script should support -og (8 bit, no filtering))
  251.   
  252.   lj    width=lj t2arg=-Tlj lparg='| lp -d$ptr -og -n$copies' ptr=laser
  253. ***************
  254. *** 192,198 ****
  255.   #    Using otroff (CAT troff on these machines) to drive.
  256.   #
  257.   #    You should probably run xproof's devpsc ditroff width tables
  258. ! #    through gfttab ("cd widths; gfnttab /usr/lib/font/devpsc psc" ?)
  259.   #    and change width to psc.  Special note: xproof keeps each symbol
  260.   #    character/pointsize in a separate file, and counts as a separate font.
  261.   #    The limit appears to be 50 fonts, so testtab.m won't print completely.
  262. --- 225,231 ----
  263.   #    Using otroff (CAT troff on these machines) to drive.
  264.   #
  265.   #    You should probably run xproof's devpsc ditroff width tables
  266. ! #    through gfttab ("cd widths; gfnttab %%FONTDIR%%/devpsc psc" ?)
  267.   #    and change width to psc.  Special note: xproof keeps each symbol
  268.   #    character/pointsize in a separate file, and counts as a separate font.
  269.   #    The limit appears to be 50 fonts, so testtab.m won't print completely.
  270. ***************
  271. *** 220,222 ****
  272. --- 253,263 ----
  273.   troff=/usr/local/bin/otroff
  274.   cdps    v=1 width=ps t2arg='-Tps -S -Z'
  275.   cdps    lparg="> /tmp/dps$$; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  276. + 
  277. + #    Using groff (gtroff actually) and driving LJ3:
  278. + #    You have to copy widths/widthlj3/[A-Z]* to gtroff's
  279. + #    width directories/devlj3 for this to work.
  280. + troff=gtroff
  281. + trofftype='-T$width'
  282. + glj3    width=lj3 t2args='-Tlj -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  283. + glj3    lparg='lp -og -d$ptr -n$copies' ptr=laser
  284. Index: ./utils/catconv.S
  285. *** /tmp/PATCHold/./utils/catconv.S    Sat Dec  7 02:49:29 1991
  286. --- ./utils/catconv.S    Sat Dec  7 02:49:30 1991
  287. ***************
  288. *** 10,16 ****
  289.   #
  290.   #    This does a very simpleminded conversion of ditroff-only-isms
  291.   #    (such as graphics) into something handleable by CAT troff.
  292. ! #    1.8 91/09/27
  293.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  294.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  295.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  296. --- 10,16 ----
  297.   #
  298.   #    This does a very simpleminded conversion of ditroff-only-isms
  299.   #    (such as graphics) into something handleable by CAT troff.
  300. ! #    1.9 91/11/22
  301.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  302.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  303.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  304. ***************
  305. *** 72,78 ****
  306.       }
  307.       print "$line\n";
  308.       while($index) {
  309. !     print ".rr" . $regpref . $regnames[--$index] . "\n";
  310.       }
  311.   }
  312.   
  313. --- 72,78 ----
  314.       }
  315.       print "$line\n";
  316.       while($index) {
  317. !     print ".rr " . $regpref . $regnames[--$index] . "\n";
  318.       }
  319.   }
  320.   
  321. ***************
  322. *** 161,172 ****
  323.       $newy = '';
  324.       $newx = '';
  325.   
  326. !     if ($arglist =~ /[-0-9]+/) {
  327.           if ($arglist =~ '-') {
  328.           $arglist = "0$arglist";
  329.           }
  330.           $num = $regpref . $regnames[$index];
  331. !         $predefs = ".nr $num $arglist\n";
  332.           $newargs = "\\(ts\\n($num";
  333.           $index++;
  334.       } else {
  335. --- 161,172 ----
  336.       $newy = '';
  337.       $newx = '';
  338.   
  339. !     if ($arglist =~ /\\/) {        # has arithmetic in it
  340.           if ($arglist =~ '-') {
  341.           $arglist = "0$arglist";
  342.           }
  343.           $num = $regpref . $regnames[$index];
  344. !         $predefs .= ".nr $num $arglist\n";
  345.           $newargs = "\\(ts\\n($num";
  346.           $index++;
  347.       } else {
  348. Index: ./utils/hpinterp.c
  349. *** /tmp/PATCHold/./utils/hpinterp.c    Sat Dec  7 02:49:40 1991
  350. --- ./utils/hpinterp.c    Sat Dec  7 02:49:42 1991
  351. ***************
  352. *** 10,16 ****
  353.   
  354.   #ifndef    lint
  355.   static char SCCSID[] =
  356. !     "@(#)hpinterp.c 2.7 Copyright 91/08/29 18:22:29 Chris Lewis";
  357.   #endif
  358.   
  359.   /*    To install:
  360. --- 10,16 ----
  361.   
  362.   #ifndef    lint
  363.   static char SCCSID[] =
  364. !     "@(#)hpinterp.c 2.8 Copyright 91/11/22 03:23:36 Chris Lewis";
  365.   #endif
  366.   
  367.   /*    To install:
  368. ***************
  369. *** 645,651 ****
  370.       ta.a[1] = 0x02;
  371.       smallend = ((ta.b&0xff) == 0x01);
  372.   #endif
  373. !     while((c = getopt(argc, argv, "dpv")) != EOF)
  374.       switch(c) {
  375.           case 'p':
  376.           genps++;
  377. --- 645,651 ----
  378.       ta.a[1] = 0x02;
  379.       smallend = ((ta.b&0xff) == 0x01);
  380.   #endif
  381. !     while((c = getopt(argc, argv, "dpvc")) != EOF)
  382.       switch(c) {
  383.           case 'p':
  384.           genps++;
  385. ***************
  386. *** 652,657 ****
  387. --- 652,661 ----
  388.           break;
  389.           case 'v':
  390.           verbose++;
  391. +         break;
  392. +         case 'c':
  393. +         chars++;
  394. +         verbose=chars;
  395.           break;
  396.           case 'd':
  397.           debug++;
  398. Index: ./dt.c
  399. *** /tmp/PATCHold/./dt.c    Sat Dec  7 02:49:58 1991
  400. --- ./dt.c    Sat Dec  7 02:50:00 1991
  401. ***************
  402. *** 12,18 ****
  403.   
  404.   #ifndef    lint
  405.   static char SCCSid[] =
  406. !     "@(#)dt.c: 2.10 Copyright 91/09/27 15:10:19 Chris Lewis";
  407.   #endif
  408.   
  409.   /*    These two tables are always included so that we have the
  410. --- 12,18 ----
  411.   
  412.   #ifndef    lint
  413.   static char SCCSid[] =
  414. !     "@(#)dt.c: 2.13 Copyright 91/11/22 03:55:58 Chris Lewis";
  415.   #endif
  416.   
  417.   /*    These two tables are always included so that we have the
  418. ***************
  419. *** 292,299 ****
  420.   #ifdef    DT
  421.   #include "dt.h"
  422.   
  423. - #define    USED    01
  424. - 
  425.   int dtresolution = DTRESOLUTION;
  426.   
  427.   #ifdef DTOPT
  428. --- 292,297 ----
  429. ***************
  430. *** 325,348 ****
  431.   }
  432.   #endif /* DTOPT */
  433.   
  434. - dtSetFont(font, points)
  435. - int font, points; {
  436. -     if (lastPoints != points || font != lastFont) {
  437. - 
  438. - #ifdef DTOPT
  439. -     checknl();
  440. - #endif /* DTOPT */
  441. - 
  442. -     if (!(fonttable[font].flags)&USED)
  443. -         printf("x font %d %s\n", font+1, fonttable[font].troffName);
  444. -     fonttable[font].flags |= USED;
  445. -     printf("f%d\n", font+1);
  446. -     printf("s%d\n", points);
  447. -     lastPoints = points;
  448. -     lastFont = font;
  449. -     }
  450. - }
  451. - 
  452.   #ifdef DTOPT
  453.   static
  454.   putseq(flag, width, seq)
  455. --- 323,328 ----
  456. ***************
  457. *** 383,388 ****
  458. --- 363,369 ----
  459.   char *sequence; {
  460.       register int nx = TROFF2DTX(x), ny = TROFF2DTY(y);
  461.       register struct troff2befont *rp;
  462. +     int pfont;
  463.   
  464.   #ifdef DTOPT
  465.       int optimizing = 0;
  466. ***************
  467. *** 408,431 ****
  468.       /* Only fonts with "N" are subject to font translation */
  469.       case N:
  470.           if (font == symidx)
  471. !         font = 0;    /* Special chars are Courier */
  472.           else {
  473.           DBP((D_BEND, "dtSetChar %d->%s (%s)\n", font,
  474.               xlatetable[font]->troffName,
  475.               xlatetable[font]->fontName));
  476. !         font = xlatetable[font] - fonttable;
  477.           }
  478.           break;
  479.       case S:
  480. !         font = 3;
  481. !         break;
  482. !     case D:
  483.           break;
  484.       default:
  485.       /* Typically used when the R and S fonts don't have the
  486.          character desired, so select the font via the index
  487.          in the fonts.?? file */
  488. !         font = rp->t2b_font;
  489.           break;
  490.       }
  491.   
  492. --- 389,410 ----
  493.       /* Only fonts with "N" are subject to font translation */
  494.       case N:
  495.           if (font == symidx)
  496. !         pfont = 0;    /* Special chars are Courier */
  497.           else {
  498.           DBP((D_BEND, "dtSetChar %d->%s (%s)\n", font,
  499.               xlatetable[font]->troffName,
  500.               xlatetable[font]->fontName));
  501. !         pfont = xlatetable[font] - fonttable;
  502.           }
  503.           break;
  504.       case S:
  505. !         pfont = 3;
  506.           break;
  507.       default:
  508.       /* Typically used when the R and S fonts don't have the
  509.          character desired, so select the font via the index
  510.          in the fonts.?? file */
  511. !         pfont = rp->t2b_font;
  512.           break;
  513.       }
  514.   
  515. ***************
  516. *** 448,454 ****
  517.       if (rp->t2b_xc) nx += points * (.01 * rp->t2b_xc);
  518.       if (rp->t2b_yc) ny += points * (.01 * rp->t2b_yc);
  519.   
  520. !     dtSetFont(font, points);
  521.   
  522.   #ifndef DTOPT
  523.       {
  524. --- 427,454 ----
  525.       if (rp->t2b_xc) nx += points * (.01 * rp->t2b_xc);
  526.       if (rp->t2b_yc) ny += points * (.01 * rp->t2b_yc);
  527.   
  528. ! 
  529. !     if (!(fonttable[pfont].flags&MOUNTED)) {
  530. ! #ifdef DTOPT
  531. !     checknl();
  532. ! #endif /* DTOPT */
  533. !     printf("x font %d %s\n", font+1, fonttable[pfont].troffName);
  534. !     fonttable[pfont].flags |= MOUNTED;
  535. !     lastFont = 9999;
  536. !     }
  537. ! 
  538. !     if (lastPoints != points || font != lastFont) {
  539. ! 
  540. ! #ifdef DTOPT
  541. !     checknl();
  542. ! #endif /* DTOPT */
  543. ! 
  544. !     fonttable[pfont].flags |= USED;
  545. !     printf("f%d\n", font+1);
  546. !     printf("s%d\n", points);
  547. !     lastPoints = points;
  548. !     lastFont = font;
  549. !     }
  550.   
  551.   #ifndef DTOPT
  552.       {
  553. ***************
  554. *** 603,612 ****
  555.   }
  556.   
  557.   #ifdef    INSPECIAL
  558. ! dtDraw(origX, origY, s)
  559.   int origX, origY;
  560.   register char *s; {
  561. !     register int temp, t2;
  562.       DBP((D_CAT, "dtDraw: (%d,%d): %s\n", origX, origY, s));
  563.   
  564.   #ifdef DTOPT
  565. --- 603,617 ----
  566.   }
  567.   
  568.   #ifdef    INSPECIAL
  569. ! dtDraw(origX, origY, opcode, ctindex, numbers, s)
  570.   int origX, origY;
  571. + int opcode;
  572. + int ctindex;
  573. + short *numbers;
  574.   register char *s; {
  575. !     register int i;
  576. !     extern int indtres;
  577. ! 
  578.       DBP((D_CAT, "dtDraw: (%d,%d): %s\n", origX, origY, s));
  579.   
  580.   #ifdef DTOPT
  581. ***************
  582. *** 620,645 ****
  583.       return;
  584.   
  585.       putchar('D');
  586. !     putchar(*s);
  587. !     s++;
  588.       /* We just pass these thru, scaling them to output resolution */
  589. !     for (;*s;s++) {
  590. !     if (isspace(*s))
  591. !         putchar(' ');
  592. !     else if (!isdigit(*s))
  593. !         putchar(*s);
  594. !     else {
  595. !         extern int indtres;
  596. !         temp = *s - '0';
  597. ! 
  598. !         while(isdigit(*(s+1)))
  599. !         temp = temp * 10 + (*++s - '0');
  600.   
  601. !         t2 = temp * dtresolution / (ditroff? indtres:
  602. !         TROFFRESOLUTION);
  603. !         DBP((D_CAT, "dtDraw (scale): %d -> %d\n", temp, t2));
  604. !         printf("%d", t2);
  605. !     }
  606.       }
  607.       putchar('\n');
  608.   }
  609. --- 625,641 ----
  610.       return;
  611.   
  612.       putchar('D');
  613. !     putchar(opcode);
  614.       /* We just pass these thru, scaling them to output resolution */
  615. !     if (opcode == 'f' || opcode == 't')
  616.   
  617. !     printf(" %d", numbers[0]);
  618. ! 
  619. !     else {
  620. ! 
  621. !     for (i = 0; i < ctindex; i++)
  622. !         printf(" %d", numbers[i] * dtresolution / TROFFRESOLUTION);
  623. ! 
  624.       }
  625.       putchar('\n');
  626.   }
  627. Index: ./utils.c
  628. *** /tmp/PATCHold/./utils.c    Sat Dec  7 02:50:29 1991
  629. --- ./utils.c    Sat Dec  7 02:50:32 1991
  630. ***************
  631. *** 12,18 ****
  632.   
  633.   #ifndef    lint
  634.   static char SCCSid[] =
  635. !     "@(#)utils.c: 2.20 Copyright 91/10/18 16:32:49 Chris Lewis";
  636.   #endif
  637.   
  638.   #ifndef    HEADERSIZE
  639. --- 12,18 ----
  640.   
  641.   #ifndef    lint
  642.   static char SCCSid[] =
  643. !     "@(#)utils.c: 2.21 Copyright 91/11/22 03:21:21 Chris Lewis";
  644.   #endif
  645.   
  646.   #ifndef    HEADERSIZE
  647. ***************
  648. *** 435,440 ****
  649. --- 435,444 ----
  650.   
  651.       for (p = fonttable; p->troffName; p++)
  652.       if (strcmp(p->troffName, to) == 0) {
  653. + 
  654. +         if (xlatetable[intfont]->flags)
  655. +         xlatetable[intfont]->flags &= ~MOUNTED;
  656. + 
  657.           xlatetable[intfont] = p;
  658.           break;
  659.       }
  660. Index: ./ps.c
  661. *** /tmp/PATCHold/./ps.c    Sat Dec  7 02:50:50 1991
  662. --- ./ps.c    Sat Dec  7 02:50:52 1991
  663. ***************
  664. *** 15,21 ****
  665.   
  666.   #ifndef    lint
  667.   static char SCCSid[] =
  668. !     "@(#)ps.c: 2.15 Copyright 91/11/13 00:29:48 Chris Lewis";
  669.   #endif
  670.   
  671.   /*    ps.c will generate some additional "print" commands to cause
  672. --- 15,21 ----
  673.   
  674.   #ifndef    lint
  675.   static char SCCSid[] =
  676. !     "@(#)ps.c: 2.17 Copyright 91/11/22 03:56:10 Chris Lewis";
  677.   #endif
  678.   
  679.   /*    ps.c will generate some additional "print" commands to cause
  680. ***************
  681. *** 28,35 ****
  682.   static char Overlay[100] = {""};
  683.   #endif
  684.   
  685. - #define    USED    01
  686. - 
  687.   struct troff2befont psStdFont[108] = {
  688.   
  689.   /*    Note on X-shift, Y-shift and point scale factor:
  690. --- 28,33 ----
  691. ***************
  692. *** 622,628 ****
  693.   
  694.       int i, fill = 0;
  695.       static float curfill = 0;
  696. !     int curthick = 1;
  697.   
  698.       /* map absolute beginning position. */
  699.       origX = TROFF2PSX(origX);
  700. --- 620,626 ----
  701.   
  702.       int i, fill = 0;
  703.       static float curfill = 0;
  704. !     static int curthick = 1;
  705.   
  706.       /* map absolute beginning position. */
  707.       origX = TROFF2PSX(origX);
  708. Index: ./dit.c
  709. *** /tmp/PATCHold/./dit.c    Sat Dec  7 02:51:08 1991
  710. --- ./dit.c    Sat Dec  7 02:51:09 1991
  711. ***************
  712. *** 12,18 ****
  713.   
  714.   #ifndef    lint
  715.   static char SCCSid[] =
  716. !     "@(#)dit.c: Copyright 91/10/17 11:58:18 Chris Lewis";
  717.   #endif
  718.   
  719.   extern struct cattab tabN[], tabS[], *extidx;
  720. --- 12,18 ----
  721.   
  722.   #ifndef    lint
  723.   static char SCCSid[] =
  724. !     "@(#)dit.c: Copyright 91/11/22 03:53:18 Chris Lewis";
  725.   #endif
  726.   
  727.   extern struct cattab tabN[], tabS[], *extidx;
  728. ***************
  729. *** 160,166 ****
  730.           font = getnum();
  731.           if (font < 0 || font >= INTFONTS) {
  732.               fprintf(stderr,
  733. !             "%s: font number %d too high - make INTFONTS bigger\n",
  734.               progname, font);
  735.               font = 1;
  736.           } else if (font == 0)
  737. --- 160,166 ----
  738.           font = getnum();
  739.           if (font < 0 || font >= INTFONTS) {
  740.               fprintf(stderr,
  741. !             "%s: font number %d too high - get help from Chris!\n",
  742.               progname, font);
  743.               font = 1;
  744.           } else if (font == 0)
  745. Index: ./README
  746. *** /tmp/PATCHold/./README    Sat Dec  7 02:51:22 1991
  747. --- ./README    Sat Dec  7 02:51:26 1991
  748. ***************
  749. *** 1,4 ****
  750. !         PSROFF RELEASE 3.0 README 2.21 91/10/11
  751.   
  752.               Feb 19, 1991
  753.               Chris Lewis
  754. --- 1,4 ----
  755. !         PSROFF RELEASE 3.0 README 2.22 91/12/07
  756.   
  757.               Feb 19, 1991
  758.               Chris Lewis
  759. ***************
  760. *** 389,413 ****
  761.   
  762.   Future directions:
  763.   
  764. ! They are two-fold: replacing the ".tm/.sR" mechanism for communication
  765. ! with the backend.  There is a new method, using a FSA to recognize
  766. ! a special sequence of bell symbols (see catconv).  I haven't converted
  767. ! over to it, because under some not-yet-understood situations, it
  768. ! doesn't work.  Hence, psfig and drawing commands occasionally misbehave.
  769. ! Once this is reliable, all special commands (eg: the .fp fakeouts) will
  770. ! be converted over to the FSA mechanism.
  771.   
  772.   You may have noticed a compile flag called "OPT" which is defined in
  773.   the distributed version of defs.h.  If enabled (via -Z/W), this enables the
  774.   optimizer.  It works well with Postscript output, but not with laserjet
  775. ! unless the fonts you use are VERY good.  It's disabled by default.  The
  776. ! optimizer does two things: it emits as many characters as it can as one
  777.   print directive, rather than one CAT code per print.  On postscript and
  778.   HPLJ's this is a BIG win (printer execution speeds 3 or more times faster),
  779. ! but it won't work with ditroff.  The optimizer requires access to the CAT
  780. ! troff width tables (even when used with ditroff), and if troff2ps can't find
  781. ! them, it simply doesn't optimize.
  782.   
  783.   Psroff limitations:
  784.       - With the use of catconv and CAT troff, psroff supports:
  785.       - all drawing commands (including the newer \D'fn' (set fill),
  786. --- 389,418 ----
  787.   
  788.   Future directions:
  789.   
  790. ! Replacing the ".tm/.sR" mechanism for communication with the backend.
  791. ! There is a new method, using a FSA to recognize a special sequence of
  792. ! bell symbols (see catconv).  I haven't converted over to it, because
  793. ! under some not-yet-understood situations, it doesn't work.  Hence, psfig
  794. ! and drawing commands occasionally misbehave.  Once this is reliable, all
  795. ! special commands (eg: the .fp fakeouts) will be converted over to the FSA
  796. ! mechanism.
  797.   
  798.   You may have noticed a compile flag called "OPT" which is defined in
  799.   the distributed version of defs.h.  If enabled (via -Z/W), this enables the
  800.   optimizer.  It works well with Postscript output, but not with laserjet
  801. ! unless the fonts you use are VERY good.  It's enabled by default for ps.
  802. ! The optimizer does two things: it emits as many characters as it can as one
  803.   print directive, rather than one CAT code per print.  On postscript and
  804.   HPLJ's this is a BIG win (printer execution speeds 3 or more times faster),
  805. ! and is essential with ditroff output to psdit and xtroff.  The optimizer
  806. ! requires access to the CAT troff width tables (even when used with ditroff),
  807. ! and if troff2ps can't find them, it will abort.
  808.   
  809. + Hpinterp was borrowed and converted into a general HP LJ to PBM
  810. + converter.  This permits the output of psroff to be printed on
  811. + just about ANY printer.  The new version of hpinterp (now called
  812. + hp2pbm) will eventually be reintegrated back into psroff.
  813. + 
  814.   Psroff limitations:
  815.       - With the use of catconv and CAT troff, psroff supports:
  816.       - all drawing commands (including the newer \D'fn' (set fill),
  817. ***************
  818. *** 437,442 ****
  819. --- 442,452 ----
  820.       Dunrobin, Ontario,
  821.       Canada K0A 1T0
  822.       Voice Phone: Canada (613) 832-0541
  823. +     [Please note: I will not return LD phone calls.  Even collect.
  824. +     If you catch me in, no problem.  If you get the answering machine,
  825. +     you're best off calling back later.  Email is usually more
  826. +     convenient.  Between 7 and 10pm EST (5 hours behind GMT) is
  827. +     probably the best time.]
  828.       Userid's for e-mail contact:
  829.       Psroff enquiries/help: psroff-request
  830.       Non-psroff mail only: clewis
  831. Index: ./defs.h
  832. *** /tmp/PATCHold/./defs.h    Sat Dec  7 02:51:42 1991
  833. --- ./defs.h    Sat Dec  7 02:51:43 1991
  834. ***************
  835. *** 9,15 ****
  836.    */
  837.   
  838.   /*    Official Release and Patch level:    */
  839. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/11/02 Chris Lewis - R3 PL5"
  840.   
  841.   /*    Configuration parameters:
  842.    */
  843. --- 9,15 ----
  844.    */
  845.   
  846.   /*    Official Release and Patch level:    */
  847. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/11/22 Chris Lewis - R3 PL6"
  848.   
  849.   /*    Configuration parameters:
  850.    */
  851. ***************
  852. *** 292,297 ****
  853. --- 292,300 ----
  854.   };
  855.   
  856.   #define    MAXFONTS    50
  857. + 
  858. + #define    USED        01
  859. + #define    MOUNTED        02
  860.   
  861.   struct fonttable {
  862.       char *tab[4];
  863. Index: ./Makefile
  864. *** /tmp/PATCHold/./Makefile    Sat Dec  7 02:51:55 1991
  865. --- ./Makefile    Sat Dec  7 02:51:57 1991
  866. ***************
  867. *** 7,13 ****
  868.   #    Function: Upper level makefile; configuration options.
  869.   #
  870.   #
  871. ! #ident  "@(#)Makefile: 2.26 Copyright 91/10/18 16:32:33 Chris Lewis"
  872.   
  873.   #    If you're not sure whether you have a System V make, leave
  874.   #    this alone, and run the make anyways.  If it dies horribly
  875. --- 7,13 ----
  876.   #    Function: Upper level makefile; configuration options.
  877.   #
  878.   #
  879. ! #ident  "@(#)Makefile: 2.28 Copyright 91/12/07 02:20:15 Chris Lewis"
  880.   
  881.   #    If you're not sure whether you have a System V make, leave
  882.   #    this alone, and run the make anyways.  If it dies horribly
  883. ***************
  884. *** 144,152 ****
  885.   
  886.   #    If you have perl, make sure that this is the full pathname
  887.   #    for it.  If you don't have perl, you won't be able to use
  888. ! #    catconv or calcfonts.  Which is normally no big deal unless
  889. ! #    you're trying to emulate \D with C/A/T troff OR build Laserjet
  890. ! #    fonts from a TeX heirarchy.
  891.   PERL    = /usr/bin/perl
  892.   
  893.   #    Dinna touch from here on
  894. --- 144,156 ----
  895.   
  896.   #    If you have perl, make sure that this is the full pathname
  897.   #    for it.  If you don't have perl, you won't be able to use
  898. ! #    catconv or calcfonts.  This is normally no big deal unless
  899. ! #    you're trying to emulate \D or \X with C/A/T troff OR build Laserjet
  900. ! #    fonts from a TeX heirarchy.  To enable catconv, you must also alter
  901. ! #    the appropriate psrofflib.S entries to have the "v=1" option. 
  902. ! #    (catconv is a filter that will be run *before* troff to mangle
  903. ! #    ditroffisms to CAT troffisms.  \D is drawing commands.  \X is
  904. ! #    special directives (eg: you want to use psfig))
  905.   PERL    = /usr/bin/perl
  906.   
  907.   #    Dinna touch from here on
  908. ***************
  909. *** 372,378 ****
  910.   
  911.   #    Yes, this is a little wierd, but in this way I can figure
  912.   #    out what you are...
  913. ! TEST:    Makefile defs.h tests/testtab.m tests/exttab.m makeincl
  914.       cd lib ; $(MAKE)
  915.       rm -f TEST1 TEST2
  916.       PATH=.:$(LIBDIR):$$PATH \
  917. --- 376,382 ----
  918.   
  919.   #    Yes, this is a little wierd, but in this way I can figure
  920.   #    out what you are...
  921. ! TEST:    Makefile defs.h sedscript tests/testtab.m tests/exttab.m makeincl
  922.       cd lib ; $(MAKE)
  923.       rm -f TEST1 TEST2
  924.       PATH=.:$(LIBDIR):$$PATH \
  925. Index: ./psroff.S
  926. *** /tmp/PATCHold/./psroff.S    Sat Dec  7 02:52:08 1991
  927. --- ./psroff.S    Sat Dec  7 02:52:10 1991
  928. ***************
  929. *** 7,13 ****
  930.   #
  931.   #    Specs:        troff2ps driver
  932.   #
  933. ! #ident  "@(#)psroff.sh: 2.17 Copyright 91/11/13 00:30:44 Chris Lewis"
  934.   
  935.   LIBDIR="%%LIBDIR%%"
  936.   FONTDIR="%%FONTDIR%%"
  937. --- 7,13 ----
  938.   #
  939.   #    Specs:        troff2ps driver
  940.   #
  941. ! #ident  "@(#)psroff.sh: 2.18 Copyright 91/11/22 03:21:09 Chris Lewis"
  942.   
  943.   LIBDIR="%%LIBDIR%%"
  944.   FONTDIR="%%FONTDIR%%"
  945. ***************
  946. *** 163,169 ****
  947.   #    If -N in t2arg, then this is ditroff.
  948.   teststring=`echo "$t2arg" | sed -n -e '/-N/p'`
  949.   if [ -n "$teststring" ]
  950. - ]
  951.   then
  952.       otroff=
  953.       widtharg="-T$width"
  954. --- 163,168 ----
  955. ***************
  956. *** 299,308 ****
  957.   
  958.       cat $files |
  959.   
  960. !     if [ -f "$PERL" ]
  961.       then
  962.       %%LIBDIR%%/catconv
  963.       else
  964.       sed -e 's/^\\!\(.*\)/.sR "\1"/'
  965.       fi
  966.   else
  967. --- 298,308 ----
  968.   
  969.       cat $files |
  970.   
  971. !     if [ -f "%%PERL%%" -a -z "$v" ]
  972.       then
  973.       %%LIBDIR%%/catconv
  974.       else
  975. +     # you only get \! emulation
  976.       sed -e 's/^\\!\(.*\)/.sR "\1"/'
  977.       fi
  978.   else
  979. Index: ./makeincl.S
  980. *** /tmp/PATCHold/./makeincl.S    Sat Dec  7 02:52:18 1991
  981. --- ./makeincl.S    Sat Dec  7 02:52:19 1991
  982. ***************
  983. *** 4,10 ****
  984.   #    See the LICENSE file for a full description of the restrictions
  985.   #    under which this software is provided.
  986.   #
  987. ! #    Makefile overrides 2.5 91/03/25
  988.   CC    = %%CC%%
  989.   CFLAGS    = %%CCFLAGS%% -I../
  990.   FONTDIR = %%FONTDIR%%
  991. --- 4,10 ----
  992.   #    See the LICENSE file for a full description of the restrictions
  993.   #    under which this software is provided.
  994.   #
  995. ! #    Makefile overrides 2.6 91/11/22
  996.   CC    = %%CC%%
  997.   CFLAGS    = %%CCFLAGS%% -I../
  998.   FONTDIR = %%FONTDIR%%
  999. ***************
  1000. *** 20,25 ****
  1001. --- 20,26 ----
  1002.   IGNORESH = %%IGNORESH%%
  1003.   T2DIR = %%T2DIR%%
  1004.   MAKEDEV = %%MAKEDEV%%
  1005. + PERL = %%PERL%%
  1006.   
  1007.   #    This override is because apparently a .s suffix on a file will
  1008.   #    cause make to not select a ".S:" rule when the target is .s
  1009.  
  1010. -- 
  1011. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  1012. Psroff 3.0 info: psroff-request@ferret.ocunix.on.ca
  1013. Moderator of the ferret list: ferret-request@ferret.ocunix.on.ca
  1014. **** NEVER let something mechanical know you're in a hurry. ****
  1015.