home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume24 / psroff3.0 / patch4 < prev    next >
Text File  |  1991-10-09  |  58KB  |  2,180 lines
  1. Subject:  v24i118:  psroff, Troff to PostScript filter, Patch4
  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 118
  7. Archive-name: psroff3.0/patch4
  8.  
  9.     This is official patch 04 for Psroff 3.0.
  10.     Please apply it by:
  11.     cd <psroff source directory>
  12.     patch -N -p < <this file>
  13.  
  14. Major changes:
  15.     1) WARNING!!!  Keep the psroff.S shell script from previous
  16.        patch.  The changes to psroff.S in this patch drastically
  17.        change the way the main pipeline is formed.  It is
  18.        possible that this will break on some shells.  If this
  19.        one blows up, revert to the patch 3 version and LET ME KNOW
  20.        THAT THIS HAPPENED!  With diagnostic output if possible.
  21.        [The reason for the change is to permit automatic emulation
  22.        of some limited ditroff features without having to have perl.
  23.        More good stuff will happen here in a later patch]
  24.     2) ditroff output for feeding to xtroff and psdit sometimes
  25.        got a little screwed up.  This is because of an odd interaction
  26.        between C/A/T troff -> ditroff generation and an optimization
  27.        technique used by xtroff and psdit.  This patch introduces
  28.        proper optimization ("w" separators) in ditroff output, and
  29.        xtroff and psdit output should work perfectly now.
  30.        This will not affect anyone particularly, unless they've
  31.        specified -Z in the t2arg in psrofflib.S, and troff2ps
  32.        can't find the width tables - now troff2ps aborts instead
  33.        of silently not optimizing.  See INSTALL and troff2ps -n
  34.        option for further info.
  35.     3) The uuencode I used for the PK fonts may cause problems
  36.        with some versions of uudecode.  There is now a workaround
  37.        in "make unpackljfonts" to avoid this.
  38.  
  39. ./man/Makefile        Minor nits.
  40. ./man/psroff.1.S    Spelling mistakes
  41. ./man/troff2ps.1.S    -n (see ditroff above)
  42. ./lib/ps.fonts        nits
  43. ./lib/psrofflib.S    nits
  44. ./widths/Makefile    nits
  45. ./utils/Makefile    nits (perl config)
  46. ./utils/calcfonts.S    perl config
  47. ./utils/catconv.S    perl config
  48. ./utils/hpinterp.c    hp2pbm inspired nits
  49. ./utils/psxlate.c    nits
  50. ./dt.c            optimizer for xtroff/psdit (see ditroff above)
  51. ./ps.c            nits
  52. ./dit.c            nits
  53. ./troff2.c        nits + -n parsing
  54. ./MISC            Note for NeXT installation
  55. ./defs.h        Patch level
  56. ./INSTALL        several misc items and -n
  57. ./Makefile        PERL config & buggy uudecode bypass
  58. ./audit.S        nits
  59. ./utils.c        nits
  60. ./psroff.S        major pipeline rewrite
  61. ./opt.c            -n (see ditroff above)
  62. Index: ./man/Makefile
  63. *** /tmp/PATCHold/./man/Makefile    Tue Oct  1 23:20:27 1991
  64. --- ./man/Makefile    Tue Oct  1 23:20:28 1991
  65. ***************
  66. *** 1,4 ****
  67. ! # 2.5 91/07/20
  68.   
  69.   MANPAGES = troff2ps.1 psroff.1 cat.5 pk2sfp.1 dumpft.1 hpinterp.1 \
  70.       asc2ps.1 psxlate.1
  71. --- 1,4 ----
  72. ! # 2.6 91/07/29
  73.   
  74.   MANPAGES = troff2ps.1 psroff.1 cat.5 pk2sfp.1 dumpft.1 hpinterp.1 \
  75.       asc2ps.1 psxlate.1
  76. ***************
  77. *** 34,38 ****
  78.       else \
  79.           echo "Can't figure out where to install cat.5 - do it yourself." ; \
  80.           echo "(install cat.5 in the directory where your manual page system" ; \
  81. !         echo "stores file format manual pages" ; \
  82.       fi
  83. --- 34,38 ----
  84.       else \
  85.           echo "Can't figure out where to install cat.5 - do it yourself." ; \
  86.           echo "(install cat.5 in the directory where your manual page system" ; \
  87. !         echo "stores file format manual pages)" ; \
  88.       fi
  89. Index: ./man/psroff.1.S
  90. *** /tmp/PATCHold/./man/psroff.1.S    Tue Oct  1 23:20:36 1991
  91. --- ./man/psroff.1.S    Tue Oct  1 23:20:38 1991
  92. ***************
  93. *** 1,4 ****
  94. ! .\"Copyright 1988 by Chris Lewis 2.7 91/03/26
  95.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  96.   .SH NAME
  97.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  98. --- 1,4 ----
  99. ! .\"Copyright 1988 by Chris Lewis 2.8 91/10/01
  100.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  101.   .SH NAME
  102.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  103. ***************
  104. *** 119,125 ****
  105.   in a 8.5 inch page.
  106.   The value for the "\-O" option can take any form allowed by the "\-rL"
  107.   option in
  108. ! .IR troffps .
  109.   This is not implemented as "\-rO", because troff itself isn't supposed
  110.   to know about it.
  111.   The real line offset on a sheet of paper is the sum of the \-O and
  112. --- 119,125 ----
  113.   in a 8.5 inch page.
  114.   The value for the "\-O" option can take any form allowed by the "\-rL"
  115.   option in
  116. ! .IR troff .
  117.   This is not implemented as "\-rO", because troff itself isn't supposed
  118.   to know about it.
  119.   The real line offset on a sheet of paper is the sum of the \-O and
  120. ***************
  121. *** 268,274 ****
  122.   Unfortunately, the only way to get that to the back end from troff
  123.   that I have found so far is to embed the 'M<string>' in a ``.tm'' troff
  124.   directive.
  125. ! The ``.tm'' puts it's string to stderr, so psroff has been modified to
  126.   merge the stdout (CAT codes using \-t option to troff) and stderr (.tm
  127.   directives) together.
  128.   .PP
  129. --- 268,274 ----
  130.   Unfortunately, the only way to get that to the back end from troff
  131.   that I have found so far is to embed the 'M<string>' in a ``.tm'' troff
  132.   directive.
  133. ! The ``.tm'' puts its string to stderr, so psroff has been modified to
  134.   merge the stdout (CAT codes using \-t option to troff) and stderr (.tm
  135.   directives) together.
  136.   .PP
  137. Index: ./man/troff2ps.1.S
  138. *** /tmp/PATCHold/./man/troff2ps.1.S    Tue Oct  1 23:20:48 1991
  139. --- ./man/troff2ps.1.S    Tue Oct  1 23:20:50 1991
  140. ***************
  141. *** 1,4 ****
  142. ! .\"Copyright 1988 by Chris Lewis 2.12 91/04/26
  143.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  144.   .SH NAME
  145.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  146. --- 1,4 ----
  147. ! .\"Copyright 1988 by Chris Lewis 2.13 91/08/03
  148.   .TH TROFF2PS %%MANEXT%% "Psroff %%T2VERSION%%"
  149.   .SH NAME
  150.   troff2ps, troff2lj, troff2xx \- convert troff output to Postscript, HP etc.
  151. ***************
  152. *** 15,20 ****
  153. --- 15,21 ----
  154.   .BI "[\-W" directory "]"
  155.   .B "[\-N]"
  156.   .B "[\-Z]"
  157. + .B "[\-n]"
  158.   .B "[\-V]"
  159.   .B "[\-M]"
  160.   .B "[\-S]"
  161. ***************
  162. *** 39,45 ****
  163.   input instead of CAT
  164.   .IR troff .
  165.   (NOTE: if you wish to use ditroff, you have to make sure that the
  166. ! ditroff widths are installed in the proper directory (/usr/lib/font/devxxx)
  167.   for ditroff to find, and that
  168.   .B \-d
  169.   option is set correctly to the appropriate name (same as the dev suffix)
  170. --- 40,46 ----
  171.   input instead of CAT
  172.   .IR troff .
  173.   (NOTE: if you wish to use ditroff, you have to make sure that the
  174. ! ditroff widths are installed in the proper directory (%%FONTDIR%%/devxxx)
  175.   for ditroff to find, and that
  176.   .B \-d
  177.   option is set correctly to the appropriate name (same as the dev suffix)
  178. ***************
  179. *** 150,164 ****
  180.   draws words by positioning each letter separately.
  181.   The optimizer can reduce the size of the output file by factors of 3 or
  182.   more, and printer speeds similarly, particularly in Postscript.
  183. - This option is disabled in ditroff-output-mode - it's up to the
  184. - ditroff filter to optimize.
  185.   This option should only be used on printers that scale their fonts,
  186. ! rather than those that have individual fonts downloaded.
  187.   This is because individual fonts often do not scale very well.
  188.   The
  189.   .BI \-W directory
  190.   allows you to specify where the width tables are, by default they
  191. ! are "/usr/lib/font/\fItype\fP", where \fItype\fP is the driver
  192.   type specified by the
  193.   .B \-T
  194.   option.
  195. --- 151,164 ----
  196.   draws words by positioning each letter separately.
  197.   The optimizer can reduce the size of the output file by factors of 3 or
  198.   more, and printer speeds similarly, particularly in Postscript.
  199.   This option should only be used on printers that scale their fonts,
  200. ! rather than those that have individual fonts downloaded, unless the
  201. ! fonts are all precisely scaled.
  202.   This is because individual fonts often do not scale very well.
  203.   The
  204.   .BI \-W directory
  205.   allows you to specify where the width tables are, by default they
  206. ! are ``%%FONTDIR%%/\fItype\fP'', where \fItype\fP is the driver
  207.   type specified by the
  208.   .B \-T
  209.   option.
  210. ***************
  211. *** 173,180 ****
  212.   .B \-Z
  213.   is specified.
  214.   .PP
  215. ! The optimizer is quite good provided that the fonts scale uniformly.
  216.   .PP
  217.   The \-S option indicates that Postscript jobs should be terminated
  218.   with the directive "stop" instead of a control-D.
  219.   .PP
  220. --- 173,213 ----
  221.   .B \-Z
  222.   is specified.
  223.   .PP
  224. ! Ditroff output is a special case with respect to optimization.
  225. ! The optimal form for emitting characters in ditroff is something
  226. ! like ``\f3c\f2CnnCnnCnnC\f3w\f1'',
  227. ! ``C'' is a character in the word, ``nn'' is the horizontal motion, and ``w'' denotes
  228. ! the end of a word.
  229. ! Some ditroff filters will ignore the ``nn'' in ``nnC'' directives, and
  230. ! will coalesce the characters into strings and rely on the word separator
  231. ! (``w'') for spacing.
  232. ! Without optimization, \f3troff2\f2xx\f1's ditroff output does not emit ``w''.
  233. ! There are two specific ditroff backends where the results are somewhat
  234. ! suboptimal: xtroff and psdit.
  235.   .PP
  236. + If
  237. + .B \-Z
  238. + is specified,
  239. + but
  240. + .B \-n
  241. + is not, ``words'' are emitted as ``\f3c\f2CnnCnnICnnC\f3w\f1''.
  242. + This is conformant with ``standard'' ditroff and should work
  243. + with any ditroff backend.
  244. + If both
  245. + .B \-Z
  246. + and
  247. + .B \-n
  248. + are specified, ``words'' are emitted as ``\f3t\f2CCCCC\f1'', which
  249. + is accepted by
  250. + .B groff 
  251. + and
  252. + .BR xtroff:
  253. + this is a Berkeley ditroff convention.
  254. + Setting the
  255. + .B \-n
  256. + option also implies
  257. + .BR \-Z .
  258. + .PP
  259.   The \-S option indicates that Postscript jobs should be terminated
  260.   with the directive "stop" instead of a control-D.
  261.   .PP
  262. ***************
  263. *** 454,459 ****
  264. --- 487,494 ----
  265.   %%LIBDIR%%/lib/*.fonts    Font tables.
  266.   .br
  267.   %%LIBDIR%%/lib/*.lib    Prefix libraries for output.
  268. + .br
  269. + %%FONTDIR%%/*/ft*    Width tables for optimizer
  270.   .br
  271.   etc.
  272.   .SH BUGS
  273. Index: ./lib/ps.fonts
  274. *** /tmp/PATCHold/./lib/ps.fonts    Tue Oct  1 23:21:04 1991
  275. --- ./lib/ps.fonts    Tue Oct  1 23:21:05 1991
  276. ***************
  277. *** 1,4 ****
  278. ! #@(#)ps.fonts 2.4 91/03/15
  279.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  280.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  281.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  282. --- 1,4 ----
  283. ! #@(#)ps.fonts 2.5 91/08/29
  284.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  285.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  286.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  287. ***************
  288. *** 30,37 ****
  289.   HO    Helvetica-Oblique
  290.   HX    Helvetica-BoldOblique
  291.   Hb    Helvetica-Narrow-Bold
  292. ! Hn    Helvetica-Narrow
  293. ! Ho    Helvetica-Narrow-Oblique
  294.   Hx    Helvetica-Narrow-BoldOblique
  295.   NB    NewCenturySchlbk-Bold
  296.   NI    NewCenturySchlbk-Italic
  297. --- 30,37 ----
  298.   HO    Helvetica-Oblique
  299.   HX    Helvetica-BoldOblique
  300.   Hb    Helvetica-Narrow-Bold
  301. ! Hr    Helvetica-Narrow
  302. ! Hi    Helvetica-Narrow-Oblique
  303.   Hx    Helvetica-Narrow-BoldOblique
  304.   NB    NewCenturySchlbk-Bold
  305.   NI    NewCenturySchlbk-Italic
  306. Index: ./lib/psrofflib.S
  307. *** /tmp/PATCHold/./lib/psrofflib.S    Tue Oct  1 23:21:13 1991
  308. --- ./lib/psrofflib.S    Tue Oct  1 23:21:15 1991
  309. ***************
  310. *** 1,4 ****
  311. ! #    2.19 91/07/27
  312.   #    This file controls psroff, you can insert additional printer
  313.   #    types here.  These are eval'd *late* in processing, so that
  314.   #    you can insert $copies etc.
  315. --- 1,4 ----
  316. ! #    2.20 91/08/03
  317.   #    This file controls psroff, you can insert additional printer
  318.   #    types here.  These are eval'd *late* in processing, so that
  319.   #    you can insert $copies etc.
  320. ***************
  321. *** 178,185 ****
  322.   #    Patch 10 is recommended.  If you have an earlier one, define
  323.   #    NOCHATTER in defs.h.  Try -Txtfull too and see if it improves things.
  324.   
  325. ! xt    width=ps t2arg='-Tdt -dpsc' lparg='| xtroff'
  326. ! xtfull    width=ps t2arg='-Tdt -dpsc' lparg='| xtroff -full'
  327.   
  328.   #    Adobe Transcript psdit - this appears to work, but I've not
  329.   #    set a workable lparg.  A number of characters are missing:
  330. --- 178,185 ----
  331.   #    Patch 10 is recommended.  If you have an earlier one, define
  332.   #    NOCHATTER in defs.h.  Try -Txtfull too and see if it improves things.
  333.   
  334. ! xt    width=ps t2arg='-Tdt -dpsc -Z -W%%FONTDIR%%/ps' lparg='| xtroff'
  335. ! xtfull    width=ps t2arg='-Tdt -dpsc -Z -W%%FONTDIR%%/ps' lparg='| xtroff -full'
  336.   
  337.   #    Adobe Transcript psdit - this appears to work, but I've not
  338.   #    set a workable lparg.  A number of characters are missing:
  339. ***************
  340. *** 186,192 ****
  341.   #    @, ^, ff, ffi, ffl (ligatures are off by default anyways),
  342.   #    \(bs displays as a heart.
  343.   
  344. ! psd    width=ps t2arg='-Tdt -dpsc' lparg='| psdit | something'
  345.   
  346.   #    AT&T ditroff previewer on 3b2's - using supplied ps width tables.
  347.   #    Using otroff (CAT troff on these machines) to drive.
  348. --- 186,192 ----
  349.   #    @, ^, ff, ffi, ffl (ligatures are off by default anyways),
  350.   #    \(bs displays as a heart.
  351.   
  352. ! psd    width=ps t2arg='-Tdt -dpsc -Z -W%%FONTDIR%%/ps' lparg='| psdit | something'
  353.   
  354.   #    AT&T ditroff previewer on 3b2's - using supplied ps width tables.
  355.   #    Using otroff (CAT troff on these machines) to drive.
  356. Index: ./widths/Makefile
  357. *** /tmp/PATCHold/./widths/Makefile    Tue Oct  1 23:21:26 1991
  358. --- ./widths/Makefile    Tue Oct  1 23:21:27 1991
  359. ***************
  360. *** 4,10 ****
  361.   #    See the LICENSE file for a full description of the restrictions
  362.   #    under which this software is provided.
  363.   #
  364. ! #2.18 91/04/05
  365.   SCRIPTS    = gfnttab genext installdit
  366.   TD    = testdir
  367.   PSW    = \
  368. --- 4,10 ----
  369.   #    See the LICENSE file for a full description of the restrictions
  370.   #    under which this software is provided.
  371.   #
  372. ! #2.19 91/07/31
  373.   SCRIPTS    = gfnttab genext installdit
  374.   TD    = testdir
  375.   PSW    = \
  376. ***************
  377. *** 217,231 ****
  378.   
  379.   install:
  380.   
  381. ! installwidths:    installdit
  382.       @$(IGNORESH) \
  383. !     test -w $(FONTDIR) || (echo "Install as root" ; exit 1 ; ) ; \
  384.       for i in width* ; \
  385.       do \
  386.           base=`echo $$i | sed -e 's/.*width//'` ; \
  387.           test -d $(FONTDIR)/$$base || mkdir $(FONTDIR)/$$base ; \
  388. -         test -w $(FONTDIR)/$$base || \
  389. -         (echo "Install as root" ; exit 1 ; ) ; \
  390.           files=`echo width$$base/ft*` ; \
  391.           if [ "$$files" = "width$$base"'/ft*' ] ; \
  392.           then \
  393. --- 217,234 ----
  394.   
  395.   install:
  396.   
  397. ! ../myuid:
  398. !     @echo 'Execute "cd ../ ; make myuid" first'
  399. !     @exit 1
  400. ! 
  401. ! installwidths:    installdit ../myuid
  402.       @$(IGNORESH) \
  403. !     test "`../myuid`" = 0 || (echo "ERROR: You must be root to install" ; \
  404. !         exit 1 ; ) ; \
  405.       for i in width* ; \
  406.       do \
  407.           base=`echo $$i | sed -e 's/.*width//'` ; \
  408.           test -d $(FONTDIR)/$$base || mkdir $(FONTDIR)/$$base ; \
  409.           files=`echo width$$base/ft*` ; \
  410.           if [ "$$files" = "width$$base"'/ft*' ] ; \
  411.           then \
  412. Index: ./utils/Makefile
  413. *** /tmp/PATCHold/./utils/Makefile    Tue Oct  1 23:21:36 1991
  414. --- ./utils/Makefile    Tue Oct  1 23:21:37 1991
  415. ***************
  416. *** 4,10 ****
  417.   #    See the LICENSE file for a full description of the restrictions
  418.   #    under which this software is provided.
  419.   #
  420. ! #2.7 91/03/23
  421.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  422.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  423.       asc2ps
  424. --- 4,10 ----
  425.   #    See the LICENSE file for a full description of the restrictions
  426.   #    under which this software is provided.
  427.   #
  428. ! #2.8 91/09/27
  429.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  430.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  431.       asc2ps
  432. ***************
  433. *** 117,129 ****
  434.   
  435.   buildfonts:    $(NEWFONTS) calcfonts buildcmtrf pk2sfp
  436.       $(IGNORESH) test -z "$(PKFONTS)" || \
  437. !         perl ./calcfonts -f$(NEWFONTS) -s$(SFP2PK) $(PKFONTS)
  438.   
  439.   #    Use real cmtrf from $(PKFONTS) rather than fonts/cmtrf*.sfp
  440.   buildSfonts:    calcfonts pk2sfp
  441.       rm -f buildcmtrf fonts/cmtrf*.sfp
  442.       $(IGNORESH) test -z "$(PKFONTS)" || \
  443. !         perl ./calcfonts -S -f../fonts.lj -s$(SFP2PK) $(PKFONTS)
  444.   
  445.   #    This code is for demonstration purposes w.r.t. PK/SFP merging.
  446.   #    sfp2pk comes from Rick Richardson's jetroff, and the hyphens
  447. --- 117,129 ----
  448.   
  449.   buildfonts:    $(NEWFONTS) calcfonts buildcmtrf pk2sfp
  450.       $(IGNORESH) test -z "$(PKFONTS)" || \
  451. !         ./calcfonts -f$(NEWFONTS) -s$(SFP2PK) $(PKFONTS)
  452.   
  453.   #    Use real cmtrf from $(PKFONTS) rather than fonts/cmtrf*.sfp
  454.   buildSfonts:    calcfonts pk2sfp
  455.       rm -f buildcmtrf fonts/cmtrf*.sfp
  456.       $(IGNORESH) test -z "$(PKFONTS)" || \
  457. !         ./calcfonts -S -f../fonts.lj -s$(SFP2PK) $(PKFONTS)
  458.   
  459.   #    This code is for demonstration purposes w.r.t. PK/SFP merging.
  460.   #    sfp2pk comes from Rick Richardson's jetroff, and the hyphens
  461. Index: ./utils/calcfonts.S
  462. *** /tmp/PATCHold/./utils/calcfonts.S    Tue Oct  1 23:21:46 1991
  463. --- ./utils/calcfonts.S    Tue Oct  1 23:21:47 1991
  464. ***************
  465. *** 1,5 ****
  466. ! #!/usr/bin/perl
  467. ! eval "exec /usr/bin/perl -S $0 $*"
  468.       if $running_under_some_shell;
  469.   #    Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis
  470.   #        All Rights Reserved
  471. --- 1,5 ----
  472. ! #! %%PERL%%
  473. ! eval "exec %%PERL%% -S $0 $*"
  474.       if $running_under_some_shell;
  475.   #    Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis
  476.   #        All Rights Reserved
  477. ***************
  478. *** 7,13 ****
  479.   #    See the LICENSE file for a full description of the restrictions
  480.   #    under which this software is provided.
  481.   #
  482. ! #Copyright 1991/02/20 Chris Lewis 2.2
  483.   
  484.   #    Set to path of sfp2pk if you have it, otherwise NULL.
  485.   $sfp2pk    = '';
  486. --- 7,13 ----
  487.   #    See the LICENSE file for a full description of the restrictions
  488.   #    under which this software is provided.
  489.   #
  490. ! #Copyright 1991/09/27 Chris Lewis 2.3
  491.   
  492.   #    Set to path of sfp2pk if you have it, otherwise NULL.
  493.   $sfp2pk    = '';
  494. Index: ./utils/catconv.S
  495. *** /tmp/PATCHold/./utils/catconv.S    Tue Oct  1 23:21:55 1991
  496. --- ./utils/catconv.S    Tue Oct  1 23:21:57 1991
  497. ***************
  498. *** 1,10 ****
  499. ! #! /usr/bin/perl
  500. ! eval "exec  /usr/bin/perl -S $0 $*"
  501.       if $running_under_some_shell;
  502.   
  503. - #    NOTE: some perl's don't get installed in /usr/bin/perl - you
  504. - #    may have to fix the above lines to suit your installation.
  505. - 
  506.   #    Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis
  507.   #        All Rights Reserved
  508.   #
  509. --- 1,7 ----
  510. ! #! %%PERL%%
  511. ! eval "exec  %%PERL%% -S $0 $*"
  512.       if $running_under_some_shell;
  513.   
  514.   #    Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991 Chris Lewis
  515.   #        All Rights Reserved
  516.   #
  517. ***************
  518. *** 13,19 ****
  519.   #
  520.   #    This does a very simpleminded conversion of ditroff-only-isms
  521.   #    (such as graphics) into something handleable by CAT troff.
  522. ! #    1.7 91/05/30
  523.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  524.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  525.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  526. --- 10,16 ----
  527.   #
  528.   #    This does a very simpleminded conversion of ditroff-only-isms
  529.   #    (such as graphics) into something handleable by CAT troff.
  530. ! #    1.8 91/09/27
  531.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  532.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  533.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  534. Index: ./utils/hpinterp.c
  535. *** /tmp/PATCHold/./utils/hpinterp.c    Tue Oct  1 23:22:07 1991
  536. --- ./utils/hpinterp.c    Tue Oct  1 23:22:09 1991
  537. ***************
  538. *** 10,16 ****
  539.   
  540.   #ifndef    lint
  541.   static char SCCSID[] =
  542. !     "@(#)hpinterp.c 2.4 Copyright 91/03/13 22:44:30 Chris Lewis";
  543.   #endif
  544.   
  545.   /*    To install:
  546. --- 10,16 ----
  547.   
  548.   #ifndef    lint
  549.   static char SCCSID[] =
  550. !     "@(#)hpinterp.c 2.7 Copyright 91/08/29 18:22:29 Chris Lewis";
  551.   #endif
  552.   
  553.   /*    To install:
  554. ***************
  555. *** 124,129 ****
  556. --- 124,130 ----
  557.       uchar f3;
  558.       uchar f4;
  559.       uchar dl_orientation;
  560. +     uchar f5;
  561.       short dl_leftoffset;
  562.       short dl_topoffset;
  563.       short dl_charwidth;
  564. ***************
  565. *** 182,193 ****
  566.       FUNC exec;
  567.   } intlist[] = {
  568.       {"&lO",    "Orientation"},
  569. !     {"(sP",    "Spacing", spcont, spset},
  570. !     {"(sH",    "Pitch"},
  571. !     {"(sV",    "Point Size", NULL, psset},
  572. !     {"(sS",    "Style", stcont, styset},
  573. !     {"(sB",    "Stroke", NULL, strset},
  574. !     {"(sT",    "Typeface", tfcont, tfset},
  575.       {"&lP",    "Page Length"},
  576.       {"&lE",    "Top Margin"},
  577.       {"&lF",    "Text Length"},
  578. --- 183,200 ----
  579.       FUNC exec;
  580.   } intlist[] = {
  581.       {"&lO",    "Orientation"},
  582. !     {"(sP",    "Primary Spacing", spcont, spset},
  583. !     {"(sH",    "Primary Pitch"},
  584. !     {"(sV",    "Primary Point Size", NULL, psset},
  585. !     {"(sS",    "Primary Style", stcont, styset},
  586. !     {"(sB",    "Primary Stroke", NULL, strset},
  587. !     {"(sT",    "Primary Typeface", tfcont, tfset},
  588. !     {")sP",    "Secondary Spacing", spcont, spset},
  589. !     {")sH",    "Secondary Pitch"},
  590. !     {")sV",    "Secondary Point Size", NULL, psset},
  591. !     {")sS",    "Secondary Style", stcont, styset},
  592. !     {")sB",    "Secondary Stroke", NULL, strset},
  593. !     {")sT",    "Secondary Typeface", tfcont, tfset},
  594.       {"&lP",    "Page Length"},
  595.       {"&lE",    "Top Margin"},
  596.       {"&lF",    "Text Length"},
  597. ***************
  598. *** 564,570 ****
  599.           return;
  600.       case ')':
  601.           c = GETCHAR();
  602. !         if (isdigit(c)) {
  603.           v = 0;
  604.           while(isdigit(c)) {
  605.               v = v * 10 + c - '0';
  606. --- 571,577 ----
  607.           return;
  608.       case ')':
  609.           c = GETCHAR();
  610. !         if (isdigit(c) || c == 'X' || c == '@') {
  611.           v = 0;
  612.           while(isdigit(c)) {
  613.               v = v * 10 + c - '0';
  614. ***************
  615. *** 586,592 ****
  616.           return;
  617.       case '(':
  618.           c = GETCHAR();
  619. !         if (isdigit(c)) {
  620.           v = 0;
  621.           while(isdigit(c)) {
  622.               v = v * 10 + c - '0';
  623. --- 593,599 ----
  624.           return;
  625.       case '(':
  626.           c = GETCHAR();
  627. !         if (isdigit(c) || c == 'X' || c == '@') {
  628.           v = 0;
  629.           while(isdigit(c)) {
  630.               v = v * 10 + c - '0';
  631. ***************
  632. *** 678,702 ****
  633.   
  634.   movex(num)
  635.   double num; {
  636. !     curX = num;
  637.       endemit();
  638.   }
  639.   
  640.   movey(num)
  641.   double num; {
  642. !     curY = num;
  643.       endemit();
  644.   }
  645.   
  646.   movedx(num)
  647.   double num; {
  648. !     curX = num * 720 / 300;
  649.       endemit();
  650.   }
  651.   
  652.   movedy(num)
  653.   double num; {
  654. !     curY = num * 720 / 300;
  655.       endemit();
  656.   }
  657.   
  658. --- 685,709 ----
  659.   
  660.   movex(num)
  661.   double num; {
  662. !     curX = num * 300 / 720;
  663.       endemit();
  664.   }
  665.   
  666.   movey(num)
  667.   double num; {
  668. !     curY = num * 300 / 720;
  669.       endemit();
  670.   }
  671.   
  672.   movedx(num)
  673.   double num; {
  674. !     curX = num;
  675.       endemit();
  676.   }
  677.   
  678.   movedy(num)
  679.   double num; {
  680. !     curY = num;
  681.       endemit();
  682.   }
  683.   
  684. ***************
  685. *** 709,715 ****
  686.       selchar();
  687.   
  688.       if (!emitting)
  689. !     printf("%g %g M(", curX/10, (72 * 11) - (curY/10));
  690.   
  691.       emitting = 1;
  692.   
  693. --- 716,722 ----
  694.       selchar();
  695.   
  696.       if (!emitting)
  697. !     printf("%g %g M(", curX * 72 / 300, (72 * 11) - (curY * 72 / 300));
  698.   
  699.       emitting = 1;
  700.   
  701. Index: ./utils/psxlate.c
  702. *** /tmp/PATCHold/./utils/psxlate.c    Tue Oct  1 23:22:24 1991
  703. --- ./utils/psxlate.c    Tue Oct  1 23:22:26 1991
  704. ***************
  705. *** 23,29 ****
  706.    */
  707.   #ifndef    lint
  708.   static char SCCSid[] =
  709. !     "@(#)psxlate.c: 2.15 Copyright 91/07/24 23:17:49 Chris Lewis";
  710.   #endif
  711.   
  712.   #ifdef    ALONE
  713. --- 23,29 ----
  714.    */
  715.   #ifndef    lint
  716.   static char SCCSid[] =
  717. !     "@(#)psxlate.c: 2.16 Copyright 91/09/30 16:29:20 Chris Lewis";
  718.   #endif
  719.   
  720.   #ifdef    ALONE
  721. ***************
  722. *** 455,461 ****
  723.       p[i+mid] = pageidx[i * 2 + 1];
  724.       }
  725.   
  726. !     memcpy(pageidx, p, sizeof(struct pagedesc) * pagecnt);
  727.       free(p);
  728.   }
  729.   
  730. --- 455,461 ----
  731.       p[i+mid] = pageidx[i * 2 + 1];
  732.       }
  733.   
  734. !     memcpy((char *) pageidx, p, sizeof(struct pagedesc) * pagecnt);
  735.       free(p);
  736.   }
  737.   
  738. ***************
  739. *** 512,518 ****
  740.       p[i] = pageidx[i - mid + 1];
  741.       p[i+1] = pageidx[end-1];
  742.       }
  743. !     memcpy(pageidx, p, sizeof(struct pagedesc) * pagecnt);
  744.       free(p);
  745.   
  746.   }
  747. --- 512,518 ----
  748.       p[i] = pageidx[i - mid + 1];
  749.       p[i+1] = pageidx[end-1];
  750.       }
  751. !     memcpy((char *) pageidx, p, sizeof(struct pagedesc) * pagecnt);
  752.       free(p);
  753.   
  754.   }
  755. Index: ./dt.c
  756. *** /tmp/PATCHold/./dt.c    Tue Oct  1 23:22:38 1991
  757. --- ./dt.c    Tue Oct  1 23:22:41 1991
  758. ***************
  759. *** 12,18 ****
  760.   
  761.   #ifndef    lint
  762.   static char SCCSid[] =
  763. !     "@(#)dt.c: 2.7 Copyright 91/05/30 01:46:37 Chris Lewis";
  764.   #endif
  765.   
  766.   /*    These two tables are always included so that we have the
  767. --- 12,18 ----
  768.   
  769.   #ifndef    lint
  770.   static char SCCSid[] =
  771. !     "@(#)dt.c: 2.10 Copyright 91/09/27 15:10:19 Chris Lewis";
  772.   #endif
  773.   
  774.   /*    These two tables are always included so that we have the
  775. ***************
  776. *** 296,301 ****
  777. --- 296,305 ----
  778.   
  779.   int dtresolution = DTRESOLUTION;
  780.   
  781. + #ifdef DTOPT
  782. + int neednl = 0;
  783. + #endif /* DTOPT */
  784. + 
  785.   dtPage() {
  786.       pagePending = 1;
  787.   }
  788. ***************
  789. *** 302,316 ****
  790. --- 306,338 ----
  791.   
  792.   static
  793.   doPageStart() {
  794. + 
  795. + #ifdef DTOPT
  796. +     checknl();
  797. + #endif /* DTOPT */
  798. + 
  799.       currentPage++;
  800.       pagePending = 0;
  801.       printf("p%d\n", currentPage);
  802.   }
  803.   
  804. + #ifdef DTOPT
  805. + checknl() {
  806. +     if (neednl) {
  807. +     putchar('\n');
  808. +     neednl = 0;
  809. +     }
  810. + }
  811. + #endif /* DTOPT */
  812.   
  813.   dtSetFont(font, points)
  814.   int font, points; {
  815.       if (lastPoints != points || font != lastFont) {
  816. + 
  817. + #ifdef DTOPT
  818. +     checknl();
  819. + #endif /* DTOPT */
  820. + 
  821.       if (!(fonttable[font].flags)&USED)
  822.           printf("x font %d %s\n", font+1, fonttable[font].troffName);
  823.       fonttable[font].flags |= USED;
  824. ***************
  825. *** 321,326 ****
  826. --- 343,382 ----
  827.       }
  828.   }
  829.   
  830. + #ifdef DTOPT
  831. + static
  832. + putseq(flag, width, seq)
  833. + int flag, width;
  834. + char **seq; {
  835. +     if (**seq == '\\') {
  836. +     if (*((*seq)+1) == '(') {
  837. +         if (flag)
  838. +         printf("h%d\n", width);
  839. +         printf("C%c%c\n", *((*seq)+2), *((*seq)+3));
  840. +         (*seq) += 4;
  841. +         return;
  842. +     }
  843. +     (*seq)++;
  844. +     }
  845. + 
  846. +     if (flag)
  847. +     if (width < 100)
  848. +         printf("%02d", width);
  849. +     else
  850. +         printf("h%d\nc", width);
  851. +     else
  852. +     putchar('c');
  853. + 
  854. +     
  855. +     flag = **seq;
  856. + 
  857. +     (*seq)++;
  858. + 
  859. +     putchar(flag);
  860. + 
  861. + }
  862. + #endif /* DTOPT */
  863. + 
  864.   dtChar(x, y, font, points, troffChar, sequence)
  865.   long x, y;
  866.   int font, points, troffChar;
  867. ***************
  868. *** 327,332 ****
  869. --- 383,393 ----
  870.   char *sequence; {
  871.       register int nx = TROFF2DTX(x), ny = TROFF2DTY(y);
  872.       register struct troff2befont *rp;
  873. + 
  874. + #ifdef DTOPT
  875. +     int optimizing = 0;
  876. + #endif /* DTOPT */
  877. + 
  878.       if (pagePending) {
  879.       resetState();
  880.       doPageStart();
  881. ***************
  882. *** 370,375 ****
  883. --- 431,440 ----
  884.   
  885.       if (!sequence)
  886.       sequence = rp->t2b_charseq;
  887. + #ifdef DTOPT
  888. +     else
  889. +     optimizing = 1;
  890. + #endif /* DTOPT */
  891.   
  892.       if (!sequence) {
  893.       fprintf(stderr, "No coding for %d\n", troffChar);
  894. ***************
  895. *** 384,394 ****
  896.       if (rp->t2b_yc) ny += points * (.01 * rp->t2b_yc);
  897.   
  898.       dtSetFont(font, points);
  899. ! #ifdef    NOTYET
  900. !     if (rp->t2b_font == D)
  901. !     printf("H%d\nV%d\nc%s\n", nx, ny, sequence);
  902. !     else {
  903. ! #endif
  904.       /* print an nnc sequence if we can...may even be able to avoid
  905.          the newline. */
  906.   
  907. --- 449,495 ----
  908.       if (rp->t2b_yc) ny += points * (.01 * rp->t2b_yc);
  909.   
  910.       dtSetFont(font, points);
  911. ! 
  912. ! #ifndef DTOPT
  913. !     {
  914. ! #else /* DTOPT */
  915. ! 
  916. !     if (optimizing) {
  917. ! 
  918. !     checknl();
  919. !     if (lastYPos != ny) {
  920. !         printf("V%d\n", ny);
  921. !         lastYPos = ny;
  922. !     }
  923. ! 
  924. !     printf("H%d\n", nx);
  925. !     if (dtopt) {
  926. ! 
  927. !         /* Berkeley "t" */
  928. !         printf("t%s\n", sequence);
  929. ! 
  930. !     } else {
  931. ! 
  932. !         /* emit cCnnCnnCnnCw */
  933. !         int i;
  934. !         extern short optloc[];
  935. ! 
  936. !         putseq(0, 0, &sequence);
  937. ! 
  938. !         for (i = 1; *sequence; i++)
  939. !         putseq(1, TROFF2DTX(optloc[i]) - TROFF2DTX(optloc[i-1]),
  940. !             &sequence);
  941. ! 
  942. !         printf("w\n");
  943. !     }
  944. ! 
  945. !     /* force X absolute reposition afterwards */
  946. !     lastXPos = -1;
  947. ! 
  948. !     } else {
  949. ! 
  950. ! #endif /* DTOPT */
  951. ! 
  952.       /* print an nnc sequence if we can...may even be able to avoid
  953.          the newline. */
  954.   
  955. ***************
  956. *** 397,406 ****
  957.           lastXPos != -1 &&
  958.           (nx - lastXPos) > 0 && (nx - lastXPos) < 100) {
  959.   
  960. !         printf("%02d%c\n",(nx - lastXPos), sequence[0]);
  961.   
  962.       } else {
  963.   
  964.           printf("H%d\n", nx);
  965.   
  966.           if (lastYPos != ny) {
  967. --- 498,516 ----
  968.           lastXPos != -1 &&
  969.           (nx - lastXPos) > 0 && (nx - lastXPos) < 100) {
  970.   
  971. ! #ifndef DTOPT
  972. !         printf("%02d%c\n", (nx - lastXPos), sequence[0]);
  973. ! #else /* DTOPT */
  974. !         printf("%02d%c", (nx - lastXPos), sequence[0]);
  975. !         neednl = 1;
  976. ! #endif /* DTOPT */
  977.   
  978.       } else {
  979.   
  980. + #ifdef DTOPT
  981. +         checknl();
  982. + #endif /* DTOPT */
  983. + 
  984.           printf("H%d\n", nx);
  985.   
  986.           if (lastYPos != ny) {
  987. ***************
  988. *** 407,421 ****
  989.           printf("V%d\n", ny);
  990.           lastYPos = ny;
  991.           }
  992. !         if (sequence[1])
  993.           printf("C%s\n", sequence);
  994. !         else
  995.           printf("c%s\n", sequence);
  996.       }
  997.       lastXPos = nx;
  998. - #ifdef    NOTYET
  999.       }
  1000. - #endif
  1001.   }
  1002.   
  1003.   dtProlog() {
  1004. --- 517,541 ----
  1005.           printf("V%d\n", ny);
  1006.           lastYPos = ny;
  1007.           }
  1008. ! 
  1009. !         if (sequence[1]) {
  1010.           printf("C%s\n", sequence);
  1011. ! #ifndef DTOPT
  1012. !         } else
  1013.           printf("c%s\n", sequence);
  1014. + #else /* DTOPT */
  1015. + 
  1016. +         } else {
  1017. +         putchar('c');
  1018. +         putchar(*sequence);
  1019. +         neednl = 1;
  1020. +         }
  1021. + 
  1022. + #endif /* DTOPT */
  1023. + 
  1024.       }
  1025.       lastXPos = nx;
  1026.       }
  1027.   }
  1028.   
  1029.   dtProlog() {
  1030. ***************
  1031. *** 425,434 ****
  1032. --- 545,558 ----
  1033.       extern char *device;
  1034.       char buffer[30];
  1035.       long curtime;
  1036. + 
  1037.   #ifdef    OPT
  1038.       extern int optimize;
  1039.   
  1040. + #ifndef DTOPT
  1041.       optimize = 0;
  1042. + #endif    /* DTOPT */
  1043. + 
  1044.   #endif
  1045.   
  1046.       currentPage = 0;
  1047. ***************
  1048. *** 441,453 ****
  1049.       getnodename();
  1050.   
  1051.   #ifndef    NOCHATTER
  1052.       printf("#Title: (stdin)\n");
  1053.       printf("#Creator: %s %s\n", progname, shortversion);
  1054.       printf("#PsroffVersion: %s\n", version);
  1055.       printf("#CreationDate: %s\n", buffer);
  1056. !     printf("#For: %s\n", username);
  1057.       printf("#Pages: (atend)\n");
  1058. -     printf("#DocumentFonts: (atend)\n");
  1059.       printf("#EndComments\n");
  1060.   #endif
  1061.       printf("x T %s\n", device);
  1062. --- 565,577 ----
  1063.       getnodename();
  1064.   
  1065.   #ifndef    NOCHATTER
  1066. +     printf("#!DT-1.0\n");
  1067.       printf("#Title: (stdin)\n");
  1068.       printf("#Creator: %s %s\n", progname, shortversion);
  1069.       printf("#PsroffVersion: %s\n", version);
  1070.       printf("#CreationDate: %s\n", buffer);
  1071. !     printf("#For: %s@%s\n", username, nodename);
  1072.       printf("#Pages: (atend)\n");
  1073.       printf("#EndComments\n");
  1074.   #endif
  1075.       printf("x T %s\n", device);
  1076. ***************
  1077. *** 459,470 ****
  1078. --- 583,605 ----
  1079.   
  1080.   dtPassthru(s)
  1081.   register char *s; {
  1082. + #ifdef DTOPT
  1083. +     checknl();
  1084. + #endif /* DTOPT */
  1085.       printf("!%s\n", s);
  1086.   }
  1087.   
  1088.   dtEpilog() {
  1089. + 
  1090. + #ifdef DTOPT
  1091. +     checknl();
  1092. + #endif /* DTOPT */
  1093. + 
  1094.       printf("x trailer\n");
  1095.       printf("x stop\n");
  1096. + #ifndef    NOCHATTER
  1097. +     printf("#Pages: %d\n", currentPage);
  1098. + #endif
  1099.   }
  1100.   
  1101.   #ifdef    INSPECIAL
  1102. ***************
  1103. *** 473,478 ****
  1104. --- 608,617 ----
  1105.   register char *s; {
  1106.       register int temp, t2;
  1107.       DBP((D_CAT, "dtDraw: (%d,%d): %s\n", origX, origY, s));
  1108. + 
  1109. + #ifdef DTOPT
  1110. +     checknl();
  1111. + #endif /* DTOPT */
  1112.   
  1113.       printf("H%d\n", TROFF2DTX(origX));
  1114.       printf("V%d\n", TROFF2DTY(origY));
  1115. Index: ./ps.c
  1116. *** /tmp/PATCHold/./ps.c    Tue Oct  1 23:22:57 1991
  1117. --- ./ps.c    Tue Oct  1 23:22:59 1991
  1118. ***************
  1119. *** 15,21 ****
  1120.   
  1121.   #ifndef    lint
  1122.   static char SCCSid[] =
  1123. !     "@(#)ps.c: 2.12 Copyright 91/03/25 23:20:43 Chris Lewis";
  1124.   #endif
  1125.   
  1126.   /*    ps.c will generate some additional "print" commands to cause
  1127. --- 15,21 ----
  1128.   
  1129.   #ifndef    lint
  1130.   static char SCCSid[] =
  1131. !     "@(#)ps.c: 2.14 Copyright 91/08/18 03:27:46 Chris Lewis";
  1132.   #endif
  1133.   
  1134.   /*    ps.c will generate some additional "print" commands to cause
  1135. ***************
  1136. *** 536,542 ****
  1137.       printf("flush\n");
  1138.   #endif
  1139.       printf("usertime /btime exch def\n");
  1140. !     psXlate(library);
  1141.       doprologs();
  1142.       printf("%%%%EndProlog\n");
  1143.       fclose(library);
  1144. --- 536,542 ----
  1145.       printf("flush\n");
  1146.   #endif
  1147.       printf("usertime /btime exch def\n");
  1148. !     psXlate(library, "lib.ps");
  1149.       doprologs();
  1150.       printf("%%%%EndProlog\n");
  1151.       fclose(library);
  1152. ***************
  1153. *** 570,578 ****
  1154.   #endif
  1155.   }
  1156.   
  1157. ! psXlate(library)
  1158. ! FILE *library; {
  1159.       char buf[512];
  1160.       while (fgets(buf, sizeof(buf), library))
  1161.       if (0 == strncmp(buf, "%%%", 3))
  1162.           interp(&buf[3], psXlate, "ps");
  1163. --- 570,580 ----
  1164.   #endif
  1165.   }
  1166.   
  1167. ! psXlate(library, libname)
  1168. ! FILE *library;
  1169. ! char *libname; {
  1170.       char buf[512];
  1171. +     printf("%%%%BeginDocument: %s\n", libname);
  1172.       while (fgets(buf, sizeof(buf), library))
  1173.       if (0 == strncmp(buf, "%%%", 3))
  1174.           interp(&buf[3], psXlate, "ps");
  1175. ***************
  1176. *** 583,588 ****
  1177. --- 585,591 ----
  1178.           fputs(&buf[1], stdout);
  1179.           } else
  1180.           fputs(buf, stdout);
  1181. +     printf("%%%%EndDocument\n");
  1182.   }
  1183.   
  1184.   psOverlay(overlay)
  1185. Index: ./dit.c
  1186. *** /tmp/PATCHold/./dit.c    Tue Oct  1 23:23:27 1991
  1187. --- ./dit.c    Tue Oct  1 23:23:29 1991
  1188. ***************
  1189. *** 12,18 ****
  1190.   
  1191.   #ifndef    lint
  1192.   static char SCCSid[] =
  1193. !     "@(#)dit.c: 91/05/30 Copyright 91/05/30 01:45:57 Chris Lewis";
  1194.   #endif
  1195.   
  1196.   extern struct cattab tabN[], tabS[], *extidx;
  1197. --- 12,18 ----
  1198.   
  1199.   #ifndef    lint
  1200.   static char SCCSid[] =
  1201. !     "@(#)dit.c: Copyright 91/09/30 16:29:42 Chris Lewis";
  1202.   #endif
  1203.   
  1204.   extern struct cattab tabN[], tabS[], *extidx;
  1205. ***************
  1206. *** 70,76 ****
  1207.           if (extcount > 0 && !(extcount%EXTCHUNK)) {
  1208.               spctab = (struct cattab **) realloc(spctab,
  1209.               sizeof(struct cattab *) * (extcount + EXTCHUNK + 1));
  1210. !             clrarray(&spctab[extcount], sizeof(struct cattab *) *
  1211.               (EXTCHUNK+1));
  1212.           }
  1213.           spctab[extcount++] = p;
  1214. --- 70,77 ----
  1215.           if (extcount > 0 && !(extcount%EXTCHUNK)) {
  1216.               spctab = (struct cattab **) realloc(spctab,
  1217.               sizeof(struct cattab *) * (extcount + EXTCHUNK + 1));
  1218. !             clrarray((char *) (&spctab[extcount]),
  1219. !             sizeof(struct cattab *) *
  1220.               (EXTCHUNK+1));
  1221.           }
  1222.           spctab[extcount++] = p;
  1223. ***************
  1224. *** 220,231 ****
  1225.   #ifdef    OPT
  1226.               canonflush();
  1227.   #endif
  1228. !             while((ch = getchar()) != EOF && isspace(ch));
  1229. !             if (ch == EOF)
  1230. !             break;
  1231. !             ubuf[i++] = ch;
  1232.               while((ch = getchar()) != EOF && !isspace(ch))
  1233.               ubuf[i++] = ch;
  1234.               p = dittab[ubuf[0]&0xff];
  1235.               if (!p)
  1236.               ditemit(xpos, ypos, font, points, 0, ubuf);
  1237. --- 221,230 ----
  1238.   #ifdef    OPT
  1239.               canonflush();
  1240.   #endif
  1241. !             i = 0;
  1242.               while((ch = getchar()) != EOF && !isspace(ch))
  1243.               ubuf[i++] = ch;
  1244. +             ubuf[i] = '\0';
  1245.               p = dittab[ubuf[0]&0xff];
  1246.               if (!p)
  1247.               ditemit(xpos, ypos, font, points, 0, ubuf);
  1248. ***************
  1249. *** 236,241 ****
  1250. --- 235,241 ----
  1251.               else
  1252.               ditemit(xpos, ypos, p->ch_set == N ? font: symidx,
  1253.                   points, 0, ubuf);
  1254. +             break;
  1255.           }
  1256.           case 'C':
  1257.           i = 0;
  1258. Index: ./troff2.c
  1259. *** /tmp/PATCHold/./troff2.c    Tue Oct  1 23:23:40 1991
  1260. --- ./troff2.c    Tue Oct  1 23:23:42 1991
  1261. ***************
  1262. *** 12,18 ****
  1263.   
  1264.   #ifndef    lint
  1265.   static char SCCSid[] =
  1266. !     "@(#)troff2.c: 2.18 Copyright 91/05/30 01:46:09 Chris Lewis";
  1267.   #endif
  1268.   
  1269.   #define    ESC    0x80
  1270. --- 12,18 ----
  1271.   
  1272.   #ifndef    lint
  1273.   static char SCCSid[] =
  1274. !     "@(#)troff2.c: 2.21 Copyright 91/08/29 18:22:41 Chris Lewis";
  1275.   #endif
  1276.   
  1277.   #define    ESC    0x80
  1278. ***************
  1279. *** 92,98 ****
  1280.   
  1281.   extern char *realloc();
  1282.   
  1283. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNSG:"
  1284.   
  1285.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  1286.       two extra longs on the stack between the stack frame and
  1287. --- 92,98 ----
  1288.   
  1289.   extern char *realloc();
  1290.   
  1291. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNnSG:"
  1292.   
  1293.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  1294.       two extra longs on the stack between the stack frame and
  1295. ***************
  1296. *** 214,219 ****
  1297. --- 214,222 ----
  1298.               progname);
  1299.               exit(1);
  1300.   #endif
  1301. +         case 'n':
  1302. +             dtopt = 1;
  1303. +             break;
  1304.           case 'N':
  1305.   #ifdef    DIT
  1306.               ditroff = 1;
  1307. ***************
  1308. *** 261,266 ****
  1309. --- 264,274 ----
  1310.               usage();
  1311.               exit(1);
  1312.           }
  1313. +     
  1314. + #ifdef    OPT
  1315. +     if (dtopt)
  1316. +         optimize = 1;
  1317. + #endif
  1318.   
  1319.       getdriver(driver);
  1320.   
  1321. ***************
  1322. *** 367,374 ****
  1323.               /*    Find the C/A/T code */
  1324.               if (half == UPPER) {
  1325.                   if (c > 46) {
  1326. !                 fprintf(stderr, "%s: Illegal upper flash: %d\n",
  1327. !                     progname, c);
  1328.                   exit(1);
  1329.                   }
  1330.                   nc = c + 62;
  1331. --- 375,382 ----
  1332.               /*    Find the C/A/T code */
  1333.               if (half == UPPER) {
  1334.                   if (c > 46) {
  1335. !                 fprintf(stderr, "%s: Illegal upper flash: %d%s\n",
  1336. !                     progname, c, " - try -F option to psroff");
  1337.                   exit(1);
  1338.                   }
  1339.                   nc = c + 62;
  1340. ***************
  1341. *** 663,671 ****
  1342. --- 671,690 ----
  1343.       char buffer[512];
  1344.       register struct cattab *p;
  1345.       extern struct cattab *ditsearch();
  1346. +     static inpass = 0;
  1347.   
  1348.       buffer[0] = '\0';
  1349.   
  1350. +     if (inpass) {
  1351. +     if (string[0] == '.' && string[1] == '\0') {
  1352. +         inpass = 0;
  1353. +         return;
  1354. +     }
  1355. +     buffer[0] = '!';
  1356. +     strcpy(&buffer[1], string);
  1357. +     string = buffer;
  1358. +     }
  1359. + 
  1360.       DBP((D_SPEC,"Dospecial: (%d) %s\n", strlen(string), string));
  1361.       while (*string)
  1362.       switch(*string) {
  1363. ***************
  1364. *** 739,744 ****
  1365. --- 758,765 ----
  1366.           *string = '\0';
  1367.           return;
  1368.   
  1369. +         case '%':
  1370. +         inpass = 1;
  1371.           case '!':
  1372.           case 'p':
  1373.           case 'P':
  1374. ***************
  1375. *** 759,769 ****
  1376.           return;
  1377.   
  1378.           case 'S':
  1379. !         system(string+1);
  1380. !         /* reset driver state! */
  1381. !         resetState();
  1382. !         *string = '\0';
  1383. !         return;
  1384.   
  1385.           case 'F':
  1386.           if (be->befontsel)
  1387. --- 780,805 ----
  1388.           return;
  1389.   
  1390.           case 'S':
  1391. !         {
  1392. !             FILE *f;
  1393. !             char buf[512];
  1394. !             int n;
  1395. ! 
  1396. !             if ((f = popen(string+1, "r")) == NULL) {
  1397. !             fprintf(stderr, "%s: .sy %s failed\n",
  1398. !                 progname, string+1);
  1399. !             exit(1);
  1400. !             }
  1401. ! 
  1402. !             while((n = fread(buf, sizeof(char), sizeof(buf), f)) > 0)
  1403. !             fwrite(buf, sizeof(char), n, stdout);
  1404. !             pclose(f);
  1405. ! 
  1406. !             /* reset driver state! */
  1407. !             resetState();
  1408. !             *string = '\0';
  1409. !             return;
  1410. !         }
  1411.   
  1412.           case 'F':
  1413.           if (be->befontsel)
  1414. Index: ./MISC
  1415. *** /tmp/PATCHold/./MISC    Tue Oct  1 23:23:59 1991
  1416. --- ./MISC    Tue Oct  1 23:24:01 1991
  1417. ***************
  1418. *** 1,5 ****
  1419.           Miscellaneous Tuning/Customization
  1420. !             2.13 91/07/23
  1421.   
  1422.       - Vertical bars in eqn may not be vertical.  This is a botch
  1423.         in some versions of eqn - namely, eqn is asking for "|"
  1424. --- 1,5 ----
  1425.           Miscellaneous Tuning/Customization
  1426. !             2.15 91/08/29
  1427.   
  1428.       - Vertical bars in eqn may not be vertical.  This is a botch
  1429.         in some versions of eqn - namely, eqn is asking for "|"
  1430. ***************
  1431. *** 21,26 ****
  1432. --- 21,43 ----
  1433.         to the appropriate *.fonts file.  Then all "|" will be
  1434.         from the Times-Roman font.  Ugly, but the only way to
  1435.         fix eqn vertical bars.
  1436. +     
  1437. +     - NeXT: NeXT's previewer fouls up on the built-in support
  1438. +       for previewing on DPS and Ghostscript.  If you're
  1439. +       going to preview on NeXT, edit ps.lib.S and change
  1440. +       the line:
  1441. + 
  1442. +     /DPS? systemdict /viewclip known def
  1443. + 
  1444. +       to:
  1445. + 
  1446. +     /DPS? false def
  1447. + 
  1448. +       If you need to support NeXT previewing as well as DPS
  1449. +       and Ghostscript, you should copy ps.lib to next.lib (making
  1450. +       the above change to next.lib) and ps.fonts to next.fonts,
  1451. +       make a new psrofflib entry called "next", and add "-pnext"
  1452. +       to lpargs for the "next" entry.
  1453.   
  1454.       - Broken Makes: There are two things that could be wrong
  1455.         with your version of make.  One is that it doesn't support
  1456. ***************
  1457. *** 28,35 ****
  1458.         line in the Makefile that contains the sed script.  The
  1459.         other thing is that older versions of make (eg: vanilla
  1460.         BSD, Sony) don't understand some of the additional features
  1461. !       of the System V Extended Make.  If you have the latter, do
  1462. !       the following to build psroff:
  1463.   
  1464.           1) Edit Makefile/defs.h/psrofflib.S to suit
  1465.           2) Type:
  1466. --- 45,53 ----
  1467.         line in the Makefile that contains the sed script.  The
  1468.         other thing is that older versions of make (eg: vanilla
  1469.         BSD, Sony) don't understand some of the additional features
  1470. !       of the System V Extended Make (this can also be a problem
  1471. !       with the shell).  If you have the latter, do the following to
  1472. !       build psroff:
  1473.   
  1474.           1) Edit Makefile/defs.h/psrofflib.S to suit
  1475.           2) Type:
  1476. Index: ./defs.h
  1477. *** /tmp/PATCHold/./defs.h    Tue Oct  1 23:24:18 1991
  1478. --- ./defs.h    Tue Oct  1 23:24:20 1991
  1479. ***************
  1480. *** 9,15 ****
  1481.    */
  1482.   
  1483.   /*    Official Release and Patch level:    */
  1484. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/07/23 Chris Lewis - R3 PL3"
  1485.   
  1486.   /*    Configuration parameters:
  1487.    */
  1488. --- 9,15 ----
  1489.    */
  1490.   
  1491.   /*    Official Release and Patch level:    */
  1492. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/09/27 Chris Lewis - R3 PL4"
  1493.   
  1494.   /*    Configuration parameters:
  1495.    */
  1496. ***************
  1497. *** 167,172 ****
  1498. --- 167,177 ----
  1499.                  systems that don't have UUCP.  You can always
  1500.                  use "echo <nodename>" if necessary */
  1501.   
  1502. + #define    DTOPT    1    /* undef to turn off ditroff output optimization.
  1503. +                Do so only if your ditroff output looks wierd.  If
  1504. +                you have to do this, please contact me with the
  1505. +                particulars of the problem and your configuration */
  1506. + 
  1507.   /*    Edit no more .... */
  1508.   
  1509.   #define    MAXDLFONTS (MDLF - PRELOAD)    /* # fonts troff2ps can download */
  1510. ***************
  1511. *** 196,201 ****
  1512. --- 201,210 ----
  1513.   #include    "Can't define SFP without PK"
  1514.   #endif
  1515.   
  1516. + #if    !defined(LJ) || !defined(PK)
  1517. + #include    "Sorry, can't compile without LJ and PK (for now)"
  1518. + #endif
  1519. + 
  1520.   #include <stdio.h>
  1521.   #include <ctype.h>
  1522.   
  1523. ***************
  1524. *** 342,347 ****
  1525. --- 351,357 ----
  1526.   extern int pageyoffset;
  1527.   extern int pagelength;
  1528.   extern int pagePending;
  1529. + int dtopt;
  1530.   
  1531.   #ifdef    OPT
  1532.   extern char *widthtables;
  1533. Index: ./INSTALL
  1534. *** /tmp/PATCHold/./INSTALL    Tue Oct  1 23:24:31 1991
  1535. --- ./INSTALL    Tue Oct  1 23:24:33 1991
  1536. ***************
  1537. *** 1,5 ****
  1538.           Psroff 3.0 Installation Instructions
  1539. !             2.14 91/07/20
  1540.   
  1541.   Please see the TROUBLE file if you have difficulties.
  1542.   The README file does provide a bit more background on some
  1543. --- 1,5 ----
  1544.           Psroff 3.0 Installation Instructions
  1545. !             2.16 91/08/29
  1546.   
  1547.   Please see the TROUBLE file if you have difficulties.
  1548.   The README file does provide a bit more background on some
  1549. ***************
  1550. *** 40,48 ****
  1551.         If you have to alter any other files, please contact me and
  1552.         tell me where I've goofed.
  1553.   
  1554. !     - If you have problems with the makefiles, you'll have to
  1555. !       find a System 5 make.  Many systems have them squirrelled
  1556. !       away in odd places.
  1557.   
  1558.         On Ultrix, for a successful build, you MUST modify the Makefile
  1559.         and set SHELL to /usr/bin/sh5 (or ksh), and MAKE to /usr/bin/s5make.
  1560. --- 40,53 ----
  1561.         If you have to alter any other files, please contact me and
  1562.         tell me where I've goofed.
  1563.   
  1564. !     - Psroff is built with the System V version of make in mind.
  1565. !       Most systems have System V make somewhere.  For Ultrix,
  1566. !       see below.  If you do not have a version of System V make,
  1567. !       or your make blows up in the widths subdirectory, please
  1568. !       consult the discussion in MISC about "broken makes".  This
  1569. !       applies to "pure" (old) BSD systems (e: 4.1 & 4.2), Sony,
  1570. !       and possibly Domain O/S.  The "zap" shell script should permit
  1571. !       you to bypass the problems with the make files.
  1572.   
  1573.         On Ultrix, for a successful build, you MUST modify the Makefile
  1574.         and set SHELL to /usr/bin/sh5 (or ksh), and MAKE to /usr/bin/s5make.
  1575. ***************
  1576. *** 103,108 ****
  1577. --- 108,116 ----
  1578.         can invoke:
  1579.           make fixperms
  1580.         on the upper level makefile.
  1581. + 
  1582. +     - Note: if you are going to be using the NeXT previewer,
  1583. +       see the note on "NeXT" in the MISC file.
  1584.   
  1585.       - type "make unpackljfonts"  This will uudecode the font
  1586.         files I've supplied and remove the .UU files.  This
  1587. Index: ./Makefile
  1588. *** /tmp/PATCHold/./Makefile    Tue Oct  1 23:24:45 1991
  1589. --- ./Makefile    Tue Oct  1 23:24:47 1991
  1590. ***************
  1591. *** 7,13 ****
  1592.   #    Function: Upper level makefile; configuration options.
  1593.   #
  1594.   #
  1595. ! #ident  "@(#)Makefile: 2.20 Copyright 91/07/24 23:12:28 Chris Lewis"
  1596.   
  1597.   #    If you're not sure whether you have a System V make, leave
  1598.   #    this alone, and run the make anyways.  If it dies horribly
  1599. --- 7,13 ----
  1600.   #    Function: Upper level makefile; configuration options.
  1601.   #
  1602.   #
  1603. ! #ident  "@(#)Makefile: 2.24 Copyright 91/10/01 23:19:27 Chris Lewis"
  1604.   
  1605.   #    If you're not sure whether you have a System V make, leave
  1606.   #    this alone, and run the make anyways.  If it dies horribly
  1607. ***************
  1608. *** 140,145 ****
  1609. --- 140,152 ----
  1610.   #    files not created by this process.
  1611.   MAKEDEV    = /u/clewis/src/mkfont/mkfont
  1612.   
  1613. + #    If you have perl, make sure that this is the full pathname
  1614. + #    for it.  If you don't have perl, you won't be able to use
  1615. + #    catconv or calcfonts.  Which is normally no big deal unless
  1616. + #    you're trying to emulate \D with C/A/T troff OR build Laserjet
  1617. + #    fonts from a TeX heirarchy.
  1618. + PERL    = /usr/bin/perl
  1619. + 
  1620.   #    Dinna touch from here on
  1621.   
  1622.   .SUFFIXES: .S .S~
  1623. ***************
  1624. *** 187,198 ****
  1625.                -e 's;%%NEWFONTS%%;$(NEWFONTS);' \
  1626.                -e 's;%%T2DIR%%;$(T2DIR);' \
  1627.                -e 's;%%MAKEDEV%%;$(MAKEDEV);' \
  1628.                -e 's^%%IGNORESH%%^$(IGNORESH)^' \
  1629.                -e 's;%%RTMACDIR%%;$(RTMACDIR);g'"
  1630.   
  1631.   CFLAGS    = $(DEFINES)
  1632.   
  1633. ! all:    troff2ps subst.done makeincl psroff README TROUBLE LASERFONTS \
  1634.       MISC DITROFF INSTALL LICENSE LJIII zap submakes
  1635.   
  1636.   subst.done:    sedscript
  1637. --- 194,206 ----
  1638.                -e 's;%%NEWFONTS%%;$(NEWFONTS);' \
  1639.                -e 's;%%T2DIR%%;$(T2DIR);' \
  1640.                -e 's;%%MAKEDEV%%;$(MAKEDEV);' \
  1641. +              -e 's;%%PERL%%;$(PERL);' \
  1642.                -e 's^%%IGNORESH%%^$(IGNORESH)^' \
  1643.                -e 's;%%RTMACDIR%%;$(RTMACDIR);g'"
  1644.   
  1645.   CFLAGS    = $(DEFINES)
  1646.   
  1647. ! all:    troff2ps myuid subst.done makeincl psroff README TROUBLE LASERFONTS \
  1648.       MISC DITROFF INSTALL LICENSE LJIII zap submakes
  1649.   
  1650.   subst.done:    sedscript
  1651. ***************
  1652. *** 220,226 ****
  1653.       @rm -f $(@) ; ./sedscript < $@.S > T ; chmod 555 T ; mv T $@
  1654.   
  1655.   unpackljfonts:
  1656. !     @ $(IGNORESH) find . -name '*.UU' -print | \
  1657.       while read i ; \
  1658.       do \
  1659.           ft=`echo $$i | sed -e 's/.UU//'` ; \
  1660. --- 228,234 ----
  1661.       @rm -f $(@) ; ./sedscript < $@.S > T ; chmod 555 T ; mv T $@
  1662.   
  1663.   unpackljfonts:
  1664. !     @$(IGNORESH) find . -name '*.UU' -print | \
  1665.       while read i ; \
  1666.       do \
  1667.           ft=`echo $$i | sed -e 's/.UU//'` ; \
  1668. ***************
  1669. *** 231,236 ****
  1670. --- 239,250 ----
  1671.           else \
  1672.           rm -f $$ft ; \
  1673.           echo "uudecoding $$i -> $$ft" ; \
  1674. +         if grep '^table' $$i > /dev/null 2>&1 ; \
  1675. +         then \
  1676. +             rm -f tempfile ; \
  1677. +             sed -e '1,3d' $$i > tempfile ; \
  1678. +             mv tempfile $$i ; \
  1679. +         fi ; \
  1680.           uudecode < $$i ; \
  1681.           if [ ! -s $$ft ] ; \
  1682.           then \
  1683. ***************
  1684. *** 247,253 ****
  1685.       cd lib ; $(MAKE) lj.fonts lj.lib
  1686.       cd utils ; $(MAKE) buildfonts
  1687.   
  1688. ! installljfonts:
  1689.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  1690.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  1691.       test -d $(LIBDIR)/lib/lj || mkdir $(LIBDIR)/lib/lj
  1692. --- 261,274 ----
  1693.       cd lib ; $(MAKE) lj.fonts lj.lib
  1694.       cd utils ; $(MAKE) buildfonts
  1695.   
  1696. ! myuid:
  1697. !     echo 'main() { printf("%d\\n", getuid()); exit(0); }' > myuid.c
  1698. !     $(CC) -o myuid myuid.c
  1699. !     rm -f myuid.c
  1700. ! 
  1701. ! installljfonts:    myuid
  1702. !     test "`./myuid`" = 0 || \
  1703. !         ( echo "ERROR: You must be root to install" ; exit 1 )
  1704.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  1705.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  1706.       test -d $(LIBDIR)/lib/lj || mkdir $(LIBDIR)/lib/lj
  1707. ***************
  1708. *** 273,284 ****
  1709.       cd widths ; $(MAKE) ljwidths widths
  1710.       @echo "Now su to root and type 'make installwidths'"
  1711.   
  1712. ! installwidths:    makeincl
  1713.       cd widths; $(MAKE) installwidths
  1714.   
  1715. ! install:    makeincl
  1716.       test -d $(BINDIR) || mkdir $(BINDIR)
  1717. !     test -d $(MANDIR) || echo "No MANDIR directory.  Have you got MANDIR right?"
  1718.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  1719.       test -d $(LIBDIR)/adapters || mkdir $(LIBDIR)/adapters
  1720.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  1721. --- 294,308 ----
  1722.       cd widths ; $(MAKE) ljwidths widths
  1723.       @echo "Now su to root and type 'make installwidths'"
  1724.   
  1725. ! installwidths:    makeincl myuid
  1726.       cd widths; $(MAKE) installwidths
  1727.   
  1728. ! install:    makeincl myuid
  1729. !     test "`./myuid`" = 0 || \
  1730. !         ( echo "ERROR: You must be root to install" ; exit 1 )
  1731.       test -d $(BINDIR) || mkdir $(BINDIR)
  1732. !     test -d $(MANDIR) || \
  1733. !         echo "No MANDIR directory.  Have you got MANDIR right?"
  1734.       test -d $(LIBDIR) || mkdir $(LIBDIR)
  1735.       test -d $(LIBDIR)/adapters || mkdir $(LIBDIR)/adapters
  1736.       test -d $(LIBDIR)/lib || mkdir $(LIBDIR)/lib
  1737. ***************
  1738. *** 285,294 ****
  1739.       test -d $(RTMACDIR) || mkdir $(RTMACDIR)
  1740.       test -d $(FONTDIR) || mkdir $(FONTDIR)
  1741.       rm -f $(BINDIR)/psroff.old
  1742. !     -cp $(BINDIR)/psroff $(BINDIR)/psroff.old
  1743.       cp psroff $(BINDIR)/psroff
  1744.       rm -f $(LIBDIR)/troff2ps.old
  1745. !     -cp $(LIBDIR)/troff2ps $(LIBDIR)/troff2ps.old
  1746.       cp troff2ps $(LIBDIR)/troff2ps
  1747.       chmod 755 $(LIBDIR)/troff2ps $(BINDIR)/psroff
  1748.       cd lib ; $(MAKE) install
  1749. --- 309,318 ----
  1750.       test -d $(RTMACDIR) || mkdir $(RTMACDIR)
  1751.       test -d $(FONTDIR) || mkdir $(FONTDIR)
  1752.       rm -f $(BINDIR)/psroff.old
  1753. !     -cp $(BINDIR)/psroff $(BINDIR)/psroff.old 2> /dev/null
  1754.       cp psroff $(BINDIR)/psroff
  1755.       rm -f $(LIBDIR)/troff2ps.old
  1756. !     -cp $(LIBDIR)/troff2ps $(LIBDIR)/troff2ps.old 2> /dev/null
  1757.       cp troff2ps $(LIBDIR)/troff2ps
  1758.       chmod 755 $(LIBDIR)/troff2ps $(BINDIR)/psroff
  1759.       cd lib ; $(MAKE) install
  1760. ***************
  1761. *** 332,338 ****
  1762.   
  1763.   
  1764.   clean:    makeincl
  1765. !     rm -f core *.o troff2ps psroff diagnostics audit
  1766.       rm -fr mon.out output.lint TEST* DITTEST AUDITP AUDITP.c
  1767.       rm -fr FONTS
  1768.       cd adapters ; $(MAKE) clean
  1769. --- 356,362 ----
  1770.   
  1771.   
  1772.   clean:    makeincl
  1773. !     rm -f core *.o troff2ps psroff diagnostics audit myuid
  1774.       rm -fr mon.out output.lint TEST* DITTEST AUDITP AUDITP.c
  1775.       rm -fr FONTS
  1776.       cd adapters ; $(MAKE) clean
  1777. ***************
  1778. *** 437,442 ****
  1779.           echo "IGNORESH set correctly" ; \
  1780.       fi
  1781.   
  1782. ! fixperms:
  1783.       find $(LIBDIR) -type f -exec chmod +r '{}' ';'
  1784.       find $(LIBDIR) $(FONTDIR) -type d -exec chmod +rx '{}' ';'
  1785. --- 461,468 ----
  1786.           echo "IGNORESH set correctly" ; \
  1787.       fi
  1788.   
  1789. ! fixperms:    myuid
  1790. !     test "`./myuid`" = 0 || \
  1791. !         ( echo "ERROR: You must be root to fixperms" ; exit 1 )
  1792.       find $(LIBDIR) -type f -exec chmod +r '{}' ';'
  1793.       find $(LIBDIR) $(FONTDIR) -type d -exec chmod +rx '{}' ';'
  1794. Index: ./audit.S
  1795. *** /tmp/PATCHold/./audit.S    Tue Oct  1 23:24:59 1991
  1796. --- ./audit.S    Tue Oct  1 23:25:00 1991
  1797. ***************
  1798. *** 6,12 ****
  1799.   #    under which this software is provided.
  1800.   #
  1801.   #
  1802. ! #    Psroff checking script 2.10 91/07/20
  1803.   chkinst=false
  1804.   for i
  1805.   do
  1806. --- 6,12 ----
  1807.   #    under which this software is provided.
  1808.   #
  1809.   #
  1810. ! #    Psroff checking script 2.11 91/08/18
  1811.   chkinst=false
  1812.   for i
  1813.   do
  1814. ***************
  1815. *** 223,229 ****
  1816.       echo "      Troff on your system.  Without it, I can't test HEADERSIZE"
  1817.   else
  1818.       hdrsize=`sed -n \
  1819. !     -e 's/^#define[     ]*HEADERSIZE[     ]*\([0-9]*\).*/\1/p' defs.h`
  1820.       echo "INFO: You have HEADERSIZE defined as $hdrsize"
  1821.       bytecount=`wc -c $FONTDIR/ftR | sed -e 's/^[     ]*//g' -e 's/[     ].*//`
  1822.       case $bytecount in
  1823. --- 223,230 ----
  1824.       echo "      Troff on your system.  Without it, I can't test HEADERSIZE"
  1825.   else
  1826.       hdrsize=`sed -n \
  1827. !     -e 's/^#define[     ]*HEADERSIZE[     ]*\([0-9]*\).*/\1/p' defs.h |
  1828. !     tail -1`
  1829.       echo "INFO: You have HEADERSIZE defined as $hdrsize"
  1830.       bytecount=`wc -c $FONTDIR/ftR | sed -e 's/^[     ]*//g' -e 's/[     ].*//`
  1831.       case $bytecount in
  1832. Index: ./utils.c
  1833. *** /tmp/PATCHold/./utils.c    Tue Oct  1 23:25:13 1991
  1834. --- ./utils.c    Tue Oct  1 23:25:15 1991
  1835. ***************
  1836. *** 12,18 ****
  1837.   
  1838.   #ifndef    lint
  1839.   static char SCCSid[] =
  1840. !     "@(#)utils.c: 2.16 Copyright 91/07/13 03:08:46 Chris Lewis";
  1841.   #endif
  1842.   
  1843.   #ifndef    HEADERSIZE
  1844. --- 12,18 ----
  1845.   
  1846.   #ifndef    lint
  1847.   static char SCCSid[] =
  1848. !     "@(#)utils.c: 2.19 Copyright 91/09/30 16:29:32 Chris Lewis";
  1849.   #endif
  1850.   
  1851.   #ifndef    HEADERSIZE
  1852. ***************
  1853. *** 96,102 ****
  1854.           while ((binary = fread(token, 1, sizeof(token), inc)) > 0)
  1855.               fwrite(token, 1, binary, stdout);
  1856.           else
  1857. !         (*xlator)(inc);
  1858.           fclose(inc);
  1859.       }
  1860.       }
  1861. --- 96,102 ----
  1862.           while ((binary = fread(token, 1, sizeof(token), inc)) > 0)
  1863.               fwrite(token, 1, binary, stdout);
  1864.           else
  1865. !         (*xlator)(inc, token);
  1866.           fclose(inc);
  1867.       }
  1868.       }
  1869. ***************
  1870. *** 227,235 ****
  1871.                       realloc((char *) extidx,
  1872.                           (extcount + EXTCHUNK + 1) *
  1873.                           sizeof(struct cattab));
  1874. !                     clrarray(&extchars[extcount],
  1875.                       EXTCHUNK * sizeof(struct troff2befont));
  1876. !                     clrarray(&extidx[extcount],
  1877.                       EXTCHUNK * sizeof(struct cattab));
  1878.                   }
  1879.                   }
  1880. --- 227,235 ----
  1881.                       realloc((char *) extidx,
  1882.                           (extcount + EXTCHUNK + 1) *
  1883.                           sizeof(struct cattab));
  1884. !                     clrarray((char *) (&extchars[extcount]),
  1885.                       EXTCHUNK * sizeof(struct troff2befont));
  1886. !                     clrarray((char *) (&extidx[extcount]),
  1887.                       EXTCHUNK * sizeof(struct cattab));
  1888.                   }
  1889.                   }
  1890. ***************
  1891. *** 493,500 ****
  1892.   struct fonttable *p; {
  1893.       FILE *f;
  1894.       int c;
  1895. !     if ((int) p->widthtable == 1)
  1896.       return;
  1897.       p->widthtable = mustmalloc(224, "widthtable");
  1898.       strcpy(widthptr, "ft");
  1899.       strcat(widthptr, p->troffName);
  1900. --- 493,502 ----
  1901.   struct fonttable *p; {
  1902.       FILE *f;
  1903.       int c;
  1904. ! 
  1905. !     if ((int) p->widthtable == 1 || !optimize)
  1906.       return;
  1907. + 
  1908.       p->widthtable = mustmalloc(224, "widthtable");
  1909.       strcpy(widthptr, "ft");
  1910.       strcat(widthptr, p->troffName);
  1911. ***************
  1912. *** 520,525 ****
  1913. --- 522,531 ----
  1914.       DBP((D_SPEC, "Failed to open widthtable %s\n", widthtables));
  1915.       free(p->widthtable);
  1916.       p->widthtable = (char *) 1;
  1917. +     fprintf(stderr, "%s: failed to open width table %s\n",
  1918. +         progname, widthtables);
  1919. +     fprintf(stderr, "\trecheck -W option\n");
  1920. +     exit(1);
  1921.       }
  1922.   }
  1923.   
  1924. Index: ./psroff.S
  1925. *** /tmp/PATCHold/./psroff.S    Tue Oct  1 23:25:26 1991
  1926. --- ./psroff.S    Tue Oct  1 23:25:27 1991
  1927. ***************
  1928. *** 7,13 ****
  1929.   #
  1930.   #    Specs:        troff2ps driver
  1931.   #
  1932. ! #ident  "@(#)psroff.sh: 2.15 Copyright 91/03/26 00:13:16 Chris Lewis"
  1933.   
  1934.   LIBDIR="%%LIBDIR%%"
  1935.   FONTDIR="%%FONTDIR%%"
  1936. --- 7,13 ----
  1937.   #
  1938.   #    Specs:        troff2ps driver
  1939.   #
  1940. ! #ident  "@(#)psroff.sh: 2.16 Copyright 91/09/28 00:08:35 Chris Lewis"
  1941.   
  1942.   LIBDIR="%%LIBDIR%%"
  1943.   FONTDIR="%%FONTDIR%%"
  1944. ***************
  1945. *** 52,58 ****
  1946.       -n*)
  1947.           copies=`echo $i | sed -e 's/-n//'`
  1948.           ;;
  1949. !     -D* | -M | -R* | -O* | -P* | -Z)
  1950.           extraargs="$extraargs $i"
  1951.           ;;
  1952.       -m* | -c*)
  1953. --- 52,58 ----
  1954.       -n*)
  1955.           copies=`echo $i | sed -e 's/-n//'`
  1956.           ;;
  1957. !     -D* | -M | -R* | -O* | -P* | -Z | -Y* )
  1958.           extraargs="$extraargs $i"
  1959.           ;;
  1960.       -m* | -c*)
  1961. ***************
  1962. *** 72,77 ****
  1963. --- 72,80 ----
  1964.           extraargs="$extraargs -l$length$prec"
  1965.           args="$args $i"
  1966.           ;;
  1967. +     -rrL*)
  1968. +         args="$args `echo $i | sed -e 's/-rr/-r/'`"
  1969. +         ;;
  1970.       -*)
  1971.           args="$args $i"
  1972.           ;;
  1973. ***************
  1974. *** 280,317 ****
  1975.       ml="$ml $LIBDIR/adapters/cmn.dit"
  1976.   fi
  1977.   
  1978.   #    Okay, let's DO it!
  1979.   
  1980. ! if $fail
  1981. ! then
  1982. !     $troff $otroff $widtharg $args $ml $files > /dev/null
  1983. !     rc=$?
  1984. ! elif $term
  1985.   then
  1986. !     if [ -n "$otroff" ]
  1987.       then
  1988. !     ( $troff $otroff $widtharg $args $ml $files 2>&1 ) | $t2 $t2arg
  1989. !     rc=$?
  1990.       else
  1991. !     $troff $widtharg $args $ml $files | $t2 $t2arg
  1992. !     rc=$?
  1993.       fi
  1994.   else
  1995.       if [ -n "$otroff" ]
  1996.       then
  1997. !     if [ -n "$v" ]
  1998. !     then
  1999. !         eval "( cat $files | %%LIBDIR%%/catconv |
  2000. !         $troff $otroff $widtharg $args $ml - 2>&1 ) | $t2 $t2arg $lparg"
  2001. !         rc=$?
  2002. !     else
  2003. !         eval "( $troff $otroff $widtharg $args $ml $files 2>&1 ) |
  2004. !         $t2 $t2arg $lparg"
  2005. !     fi
  2006. !     rc=$?
  2007.       else
  2008. !     eval "$troff $widtharg $args $ml $files 2>&1 | $t2 $t2arg $lparg"
  2009. !     rc=$?
  2010. !     fi
  2011.   fi
  2012.   exit $rc
  2013. --- 283,326 ----
  2014.       ml="$ml $LIBDIR/adapters/cmn.dit"
  2015.   fi
  2016.   
  2017. + if $term
  2018. + then
  2019. +     lparg='| cat'
  2020. + fi
  2021. + 
  2022.   #    Okay, let's DO it!
  2023.   
  2024. ! #    First if collects input files and does preprocessing.
  2025. ! 
  2026. ! if [ -n "$otroff" ]
  2027.   then
  2028. ! 
  2029. !     cat $files |
  2030. ! 
  2031. !     if [ -f "$PERL" ]
  2032.       then
  2033. !     %%LIBDIR%%/catconv
  2034.       else
  2035. !     sed -e 's/^\\!\(.*\)/.sR "\1"/'
  2036.       fi
  2037.   else
  2038. +     cat $files
  2039. + fi |
  2040. + 
  2041. + #    Second if figgers out what to do with the result
  2042. + 
  2043. + if $fail
  2044. + then
  2045. +     $troff $otroff $widtharg $args $ml $files > /dev/null
  2046. +     rc=$?
  2047. + else
  2048.       if [ -n "$otroff" ]
  2049.       then
  2050. !     $troff $otroff $widtharg $args $ml - 2>&1
  2051.       else
  2052. !     $troff $widtharg $args $ml -
  2053. !     fi | eval "$t2 $t2arg $lparg"
  2054. !     rc=$?
  2055. ! 
  2056.   fi
  2057.   exit $rc
  2058. Index: ./opt.c
  2059. *** /tmp/PATCHold/./opt.c    Tue Oct  1 23:25:36 1991
  2060. --- ./opt.c    Tue Oct  1 23:25:37 1991
  2061. ***************
  2062. *** 16,22 ****
  2063.   #ifdef    OPT
  2064.   #ifndef    lint
  2065.   static char SCCSid[] =
  2066. !     "@(#)opt.c: 2.4 Copyright 91/02/20 09:02:37 Chris Lewis";
  2067.   #endif
  2068.   
  2069.   struct insbuf {
  2070. --- 16,22 ----
  2071.   #ifdef    OPT
  2072.   #ifndef    lint
  2073.   static char SCCSid[] =
  2074. !     "@(#)opt.c: 2.6 Copyright 91/08/12 23:52:41 Chris Lewis";
  2075.   #endif
  2076.   
  2077.   struct insbuf {
  2078. ***************
  2079. *** 183,188 ****
  2080. --- 183,190 ----
  2081.   int optxpos, optypos;
  2082.   int optfont, optpoints, optnc, origxpos;
  2083.   char optbuffer[OPTSIZ];
  2084. + short optloc[OPTSIZ];
  2085. + short *optloci;
  2086.   char *optp = optbuffer;
  2087.   
  2088.   optflush() {
  2089. ***************
  2090. *** 195,200 ****
  2091. --- 197,203 ----
  2092.           optbuffer);
  2093.       optbuffer[0] = '\0';
  2094.       optp = optbuffer;
  2095. +     optloci = optloc;
  2096.   }
  2097.   
  2098.   optinsert(xpos, ypos, font, points, nc)
  2099. ***************
  2100. *** 206,211 ****
  2101. --- 209,215 ----
  2102.       struct cattab *ct;
  2103.       register char *from;
  2104.       int cantcache;
  2105. +     static int ditind = 0;
  2106.   
  2107.       if (!optimize) {
  2108.       if (be->beputchar)
  2109. ***************
  2110. *** 213,218 ****
  2111. --- 217,228 ----
  2112.       return;
  2113.       }
  2114.   
  2115. +     if (!ditind)
  2116. +     if (strcmp(be->bename, "dt") == 0)
  2117. +         ditind = 1;
  2118. +     else
  2119. +         ditind = -1;
  2120. + 
  2121.       DBP((D_CHAR, "OLD: x,y,f,p,c = %d,%d,%d,%d,%d\n",
  2122.       optxpos, optypos, optfont, optpoints, optnc));
  2123.       DBP((D_CHAR, "NEW: x,y,f,p,c = %d,%d,%d,%d,%d\n",
  2124. ***************
  2125. *** 242,247 ****
  2126. --- 252,259 ----
  2127.       if (bp->t2b_xc || bp->t2b_yc || bp->t2b_scale || cantcache)
  2128.       optflush();
  2129.   
  2130. +     DBP((D_CAT, "opt: font: %d/%d xpos: %d/%d\n",
  2131. +     optfont, font, optxpos, xpos));
  2132.       if (optxpos != xpos)    /* handle spaces one day... */
  2133.       optflush();
  2134.   
  2135. ***************
  2136. *** 260,270 ****
  2137.       return;
  2138.       }
  2139.   
  2140.       optxpos += ((wp[ct->ch_wididx]) * points + 3) / 6;
  2141.       DBP((D_CAT, "optxpos: %d\n", optxpos));
  2142.   
  2143. !     for (from = bp->t2b_charseq; *from;)
  2144.       *optp++ = *from++;
  2145.       *optp = '\0';
  2146.   }
  2147.   #endif
  2148. --- 272,295 ----
  2149.       return;
  2150.       }
  2151.   
  2152. +     *optloci++ = optxpos;
  2153.       optxpos += ((wp[ct->ch_wididx]) * points + 3) / 6;
  2154.       DBP((D_CAT, "optxpos: %d\n", optxpos));
  2155.   
  2156. !     from = bp->t2b_charseq;
  2157. !     if (ditind == 1) {
  2158. !     if (*from == '\\')
  2159. !         *optp++ = '\\';
  2160. !     else if (*(from+1)) {
  2161. !         *optp++ = '\\';
  2162. !         *optp++ = '(';
  2163. !         *optp++ = *from++;
  2164. !     }
  2165.       *optp++ = *from++;
  2166. +         
  2167. +     } else
  2168. +     for (; *from;)
  2169. +         *optp++ = *from++;
  2170.       *optp = '\0';
  2171.   }
  2172.   #endif
  2173.  
  2174. -- 
  2175. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  2176. Psroff 3.0 is in comp.sources.unix NOW!  YAHOO!!!!!!!
  2177. Ferret mailing list: ferret-request@ferret.ocunix.on.ca
  2178.  
  2179. exit 0 # Just in case...
  2180.