home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / unix / volume26 / psroff30 / patch15 < prev    next >
Encoding:
Text File  |  1993-05-01  |  100.1 KB  |  3,968 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v26i207: psroff 3.0, Patch15
  4. Sender: unix-sources-moderator@efficacy.home.vix.com
  5. Approved: WhoAmI@efficacy.home.vix.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 26, Issue 207
  9. Archive-Name: psroff3.0/patch15
  10.  
  11. Archive-name: psroff3.0/Patch.15
  12. Submitted-by: clewis@ferret.ocunix.on.ca (Chris Lewis)
  13.  
  14.     This is official patch 15 for Psroff 3.0.
  15.     Please apply it by:
  16.     cd <psroff source directory>
  17.     patch -N -p < <this file>
  18.     
  19.     The base release of psroff3.0 and first four patches were in
  20.     comp.sources.unix volume 24.
  21.  
  22. This is a monster.  Sorry.  Lots of teensy little changes, plus one
  23. major functionality upgrade and LJ-critical bug fix.  If this is truncated
  24. at your site, please let me know.
  25.  
  26. This is probably going to be the last feature upgrade before Psroff 4.0.
  27. Subsequent patches to 3.0 are only going to be bug fixes.  The only
  28. thing currently scheduled for Psroff 4.0 is some cleanup and hp2pbm
  29. integration.  If you have any other feature suggestions for Psroff 4.0
  30. please email me.
  31.  
  32. These patches will also be available on ftp.cs.toronto.edu in
  33. pub/psroff-3.0.  A fully patched set of shars will be available
  34. on ftp.uunet.ca in distrib/chris_lewis/psroff3.0pl15.
  35.  
  36. Changes:
  37.     1) Now supports landscape/simplex/duplex/page feed/spooler
  38.        passthru options with LJ and PS.  See psroff(1) for details.
  39.        Note Makefile config for PAPER and ORIENTATION.
  40.        Thanks to Dave Wexelblat for pestering me enough to do it.
  41.     2) Bug fix to prevent dumping on some machines when LJ fonts
  42.        are on-the-fly scaled.
  43.     3) Resolved malloc typing for once and all.  See MALLRET in
  44.        defs.h.
  45.     4) Many niggly doc fixes.
  46.     5) Fixed cmtt.ROMAN8 so that buildljfonts/calcfonts/pk2sfp-created
  47.        Courier fonts have digits.
  48.     6) Fixed pk.c rounding bug in point size whilst reading SFP
  49.        (results in bad widths generated from SFPs - especially
  50.        via calcfonts without sfp2pk)
  51.     7) \(ss support in LJ personalities (widths probably off)
  52.     8) Numerous build and install nigglies.
  53.     9) -man macros should now support -rL<length> hack.
  54.  
  55. Patchwrapped: 930113022141
  56.  
  57. Index: ./man/pk2sfp.1.S
  58. *** /tmp/PATCHold/./man/pk2sfp.1.S    Wed Jan 13 01:55:15 1993
  59. --- ./man/pk2sfp.1.S    Wed Jan 13 01:55:23 1993
  60. ***************
  61. *** 1,4 ****
  62. ! .\"Copyright 1988 by Chris Lewis 92/05/19
  63.   .TH PK2SFP %%MANEXT%% "Psroff %%T2VERSION%%"
  64.   .SH NAME
  65.   pk2sfp,pk2ditwid,pktype,pk2ps \- PK/SFP format font file handling utilities
  66. --- 1,4 ----
  67. ! .\"Copyright 1988 by Chris Lewis 92/12/05
  68.   .TH PK2SFP %%MANEXT%% "Psroff %%T2VERSION%%"
  69.   .SH NAME
  70.   pk2sfp,pk2ditwid,pktype,pk2ps \- PK/SFP format font file handling utilities
  71. ***************
  72. *** 233,239 ****
  73.   Right?
  74.   .PP
  75.   Well, not always.
  76. ! Not only to the formats change from one font format to another, but
  77.   .B encodings
  78.   do too.
  79.   If you simply converted Knuth's fonts in PK format to SFP and used them
  80. --- 233,239 ----
  81.   Right?
  82.   .PP
  83.   Well, not always.
  84. ! Not only do the formats change from one font format to another, but
  85.   .B encodings
  86.   do too.
  87.   If you simply converted Knuth's fonts in PK format to SFP and used them
  88. Index: ./man/psroff.1.S
  89. *** /tmp/PATCHold/./man/psroff.1.S    Wed Jan 13 01:55:56 1993
  90. --- ./man/psroff.1.S    Wed Jan 13 01:56:02 1993
  91. ***************
  92. *** 1,4 ****
  93. ! .\"Copyright 1988 by Chris Lewis 2.8 91/10/01
  94.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  95.   .SH NAME
  96.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  97. --- 1,4 ----
  98. ! .\"Copyright 1988 by Chris Lewis 2.11 93/01/10
  99.   .TH PSROFF %%MANEXT%% "Psroff %%T2VERSION%%"
  100.   .SH NAME
  101.   psroff,ljroff,xxroff,catconv \- troff to PostScript or other printers
  102. ***************
  103. *** 8,18 ****
  104. --- 8,21 ----
  105.   .BI "[\-d" ptr "]"
  106.   .BI "[\-rL" length "]"
  107.   .BI "[\-P" prologs "]"
  108. + .BI "[\-l" lpargs "]"
  109.   .BI "[\-D" deb "]"
  110.   [\-X] [\-M] [\-F]
  111.   .BI "[\-R" nn "]"
  112.   .BI "[\-O" off "]"
  113.   .BI "[\-Y" off "]"
  114. + .BI "[\-pO" orientation "]"
  115. + .BI "[\-pS" paper "]"
  116.   .BI [ troffopts ]
  117.   files ...
  118.   .sp
  119. ***************
  120. *** 29,35 ****
  121.   can be any of the normal
  122.   .I troff
  123.   arguments, in particular \-m directives for specifying macro package.
  124. ! Note that the semantics of "\-t" are changed - it means send the Postscript
  125.   (or HP Laserjet) output to stdout rather than the printer.
  126.   .PP
  127.   Most of the options you shouldn't need to use, except for
  128. --- 32,38 ----
  129.   can be any of the normal
  130.   .I troff
  131.   arguments, in particular \-m directives for specifying macro package.
  132. ! Note that the semantics of ``\-t'' are changed - it means send the Postscript
  133.   (or HP Laserjet) output to stdout rather than the printer.
  134.   .PP
  135.   Most of the options you shouldn't need to use, except for
  136. ***************
  137. *** 63,69 ****
  138. --- 66,163 ----
  139.   .IR troff ,
  140.   and
  141.   must be invoked *after* \-T if \-T is used.
  142. + .SH "PAPER AND PRINT SPOOLER CONTROL"
  143.   .PP
  144. + The ``\-pO'' option allows you to specify the paper orientation.
  145. + Possible values are
  146. + .B landscape
  147. + and
  148. + .BR portrait .
  149. + Default is
  150. + .BR %%ORIENTATION%% .
  151. + .PP
  152. + The ``\-pS'' option allows you to specify the size of paper.
  153. + Legal values are: 
  154. + .BR letter ,
  155. + .BR legal ,
  156. + .BR executive ,
  157. + .BR a4 ,
  158. + .BR com ,
  159. + .BR monarch ,
  160. + .BR c5 ,
  161. + and
  162. + .BR dl .
  163. + The default is
  164. + .BR %%PAPER%% .
  165. + .PP
  166. + Both paper and orientation can be shortened to minimum distinguishing
  167. + length.
  168. + Eg: ``\-pOlet'' specifies letter.
  169. + .PP
  170. + .B "IMPORTANT NOTE:"
  171. + Specifying orientation or paper size does
  172. + .B NOT
  173. + tell
  174. + .I troff
  175. + itself anything about text geometry.
  176. + It just tells the backends what commands to issue to get the paper in the
  177. + correct orientation, and how large the text areas could possibly be.
  178. + You have to tell
  179. + .I troff
  180. + yourself what the page length or width should be.
  181. + For example, with the
  182. + .B "\-mm"
  183. + macros, specifying "\-rL8.5i" to psroff will do the right thing when you're
  184. + trying to do landscape on ``letter'' size paper.
  185. + The adapter libraries may also make this work with other macro packages
  186. + (especially 
  187. + .BR "-man" "),"
  188. + but
  189. + if not, you're on your own.
  190. + With the
  191. + .B ME
  192. + macros try specifying a ``.pl''.
  193. + .PP
  194. + The ``\-P'' option is especially useful here using an ``X'' suffix.
  195. + Each different printer type supports additional features such as
  196. + duplex, simplex, envelope feed and so on.
  197. + Consult the
  198. + .IB type ".lib"
  199. + file for precise details of what is available.
  200. + However, 
  201. + .BR lj ,
  202. + .BR lj3 ,
  203. + .BR lj3u
  204. + and
  205. + .B ps
  206. + all support ``duplex_short'' (short side binding), ``duplex_long'' (long
  207. + side binding) and ``simplex'' plus various bin control codes.
  208. + You can, for example, print landscape duplex with:
  209. + .BR "``\-pOland \-PXduplex_short''" .
  210. + .PP
  211. + NOTE: the control codes are implemented using HP's PCL and
  212. + PostScript extensions (ie: ``settumble'' and ``setdumplexmode'').
  213. + A given PCL or PostScript printer may not implement these features
  214. + at all, or implement them in a different way.
  215. + Theoretically, if your printer doesn't support these features, the
  216. + mode selects will be ignored.
  217. + .PP
  218. + Details of how this is done, and enough hints to extend it yourself
  219. + can be seen in the appropriate
  220. + .IB type ".lib"
  221. + file.
  222. + .PP
  223. + The ``\-l'' option passes its argument through to the print spooler.
  224. + Eg: \-l'\-onobanner' passes ``\-onobanner'' through to the print spooler.
  225. + Consult your print spooler's manual page (probably
  226. + .B lp
  227. + or
  228. + .BR lpr )
  229. + for further details of what options can be used.
  230. + With
  231. + .B lp
  232. + you may have to consult the printer interface file under /usr/spool/lp/interface.
  233. + .PP
  234.   .I Psroff
  235.   can be made to generate several different printer output formats.
  236.   If the environment variable PSROFF is set, it is used.
  237. ***************
  238. *** 84,89 ****
  239. --- 178,185 ----
  240.   understands ``ps'' (postscript), ``tp'' (ditroff\(->tpscript also postscript),
  241.   ``jt'' (ditroff\(->jetroff (HP PCL)),
  242.   ``lj'' (HP PCL),
  243. + ``lj3'' (HP PCL5),
  244. + ``lj3u'' (HP PCL5 with CG Univers base fonts),
  245.   and
  246.   ``dt'' (Ditroff output, no printer).
  247.   However, this list may be different at your site - see
  248. Index: ./man/psxlate.1.S
  249. *** /tmp/PATCHold/./man/psxlate.1.S    Wed Jan 13 01:56:36 1993
  250. --- ./man/psxlate.1.S    Wed Jan 13 01:56:42 1993
  251. ***************
  252. *** 1,4 ****
  253. ! .\"Copyright 1991 by Chris Lewis 2.9 92/11/11
  254.   .TH PSXLATE %%MANEXT%% "Psroff %%T2VERSION%%"
  255.   .SH NAME
  256.   psxlate \- General Postscript page flipper etcetera
  257. --- 1,4 ----
  258. ! .\"Copyright 1991 by Chris Lewis 2.10 92/12/22
  259.   .TH PSXLATE %%MANEXT%% "Psroff %%T2VERSION%%"
  260.   .SH NAME
  261.   psxlate \- General Postscript page flipper etcetera
  262. ***************
  263. *** 23,30 ****
  264.   have pages that are prefixed with ``%%Page:'' comments and have a trailer
  265.   prefixed by ``%%Trailer:''.
  266.   Case is significant.
  267. ! It also PostScript that contains embedded EPS files provided that they are
  268. ! compliant with the DSC and use BeginDocument/EndDocument.
  269.   .PP
  270.   If you have
  271.   .B psnup
  272. --- 23,31 ----
  273.   have pages that are prefixed with ``%%Page:'' comments and have a trailer
  274.   prefixed by ``%%Trailer:''.
  275.   Case is significant.
  276. ! .B Psxlate
  277. ! will also work with PostScript that contains embedded EPS files,
  278. ! provided that they are compliant with the DSC and use BeginDocument/EndDocument.
  279.   .PP
  280.   If you have
  281.   .B psnup
  282. ***************
  283. *** 51,57 ****
  284.   .PP
  285.   On the other hand, if the file starts with ``%!'', but not ``%!PS-Adobe-'',
  286.   the file is treated as Postscript, but since it can't be trusted to
  287. ! conform to the DSC, none of the convertions are performed -
  288.   .B psxlate
  289.   does nothing to the file.
  290.   .PP
  291. --- 52,58 ----
  292.   .PP
  293.   On the other hand, if the file starts with ``%!'', but not ``%!PS-Adobe-'',
  294.   the file is treated as Postscript, but since it can't be trusted to
  295. ! conform to the DSC, none of the conversions are performed -
  296.   .B psxlate
  297.   does nothing to the file.
  298.   .PP
  299. ***************
  300. *** 61,67 ****
  301.   does not manipulate the file in-memory,
  302.   hence there are fewer restrictions on the size of the file.
  303.   The only restrictions are that
  304. ! .B Psxlate
  305.   has to allocate sufficient memory to hold the longest line of Postscript,
  306.   plus 2 long integers per page (possibly doubled - see notes) and that
  307.   there is enough disk space for an additional copy of the file.
  308. --- 62,68 ----
  309.   does not manipulate the file in-memory,
  310.   hence there are fewer restrictions on the size of the file.
  311.   The only restrictions are that
  312. ! .B psxlate
  313.   has to allocate sufficient memory to hold the longest line of Postscript,
  314.   plus 2 long integers per page (possibly doubled - see notes) and that
  315.   there is enough disk space for an additional copy of the file.
  316. ***************
  317. *** 265,284 ****
  318.   Otherwise the second pass will print upside-down.
  319.   .PP
  320.   Also note that the Apple LaserWriter IINT printer has a nasty habit of
  321. ! curling the paper bad enough during the first pass that the second pass
  322. ! may jam or wrinkle.
  323.   .PP
  324.   If groff is used as the troff processor, then the resulting PostScript file
  325.   can be edited and made to print upside-down.
  326.   Then the paper can be moved from the output tray to the paper tray,
  327.   without turning it around 180 degrees.
  328.   .PP
  329.   Place the following lines into an executable file named
  330.   .BR upsxlate :
  331.   .PP
  332.   .nf
  333.   #!/bin/sh
  334.   sed -e "/1 -1 scale/s/scale/scale 612 PL translate 180 rotate/" | psxlate $*
  335.   .fi
  336.   .PP
  337.   Using the exact same syntax as
  338. --- 266,290 ----
  339.   Otherwise the second pass will print upside-down.
  340.   .PP
  341.   Also note that the Apple LaserWriter IINT printer has a nasty habit of
  342. ! curling the leading edge of the paper bad enough during the first pass
  343. ! that the second pass may jam or wrinkle.
  344.   .PP
  345.   If groff is used as the troff processor, then the resulting PostScript file
  346.   can be edited and made to print upside-down.
  347.   Then the paper can be moved from the output tray to the paper tray,
  348.   without turning it around 180 degrees.
  349. + By turning the paper around,
  350. + the trailing edge of the previous printing pass is used,
  351. + which isn't curled and won't jam in the LWIINT printer.
  352.   .PP
  353.   Place the following lines into an executable file named
  354.   .BR upsxlate :
  355.   .PP
  356.   .nf
  357. + .in +12p
  358.   #!/bin/sh
  359.   sed -e "/1 -1 scale/s/scale/scale 612 PL translate 180 rotate/" | psxlate $*
  360. + .in -12p
  361.   .fi
  362.   .PP
  363.   Using the exact same syntax as
  364. ***************
  365. *** 302,307 ****
  366. --- 308,339 ----
  367.   When the second batch is printed, all of the even pages will be done in
  368.   ascending order.
  369.   When completed, the output stack will be in the correct order.
  370. + .PP
  371. + If you are using FrameMaker, the PostScript output can also be edited so that
  372. + it too can be turned upside down.
  373. + But, the PostScript prologue that is used does not contain the correct magic
  374. + header.
  375. + To fix this problem, edit the FrameMaker file
  376. + .I .fminit2.0.ps/postscript_prolog
  377. + and change to first line to
  378. + .IR %!PS-Adobe-3.0 .
  379. + The 3.0 is necessary for NeWSprint 2.0 rev C.
  380. + Any other value will cause NeWSprint to always print the file in ascending
  381. + order.
  382. + .PP
  383. + To print FrameMaker files upside down,
  384. + place the following lines into an executable file called
  385. + .BR fupsxlate :
  386. + .PP
  387. + .nf
  388. + .in +12p
  389. + #!/bin/csh
  390. + sed -e "/3.86 setmiterlimit/s/setmiterlimit/setmiterlimit 612 792 translate 180 rotate/" | psxlate $*
  391. + .in -12p
  392. + .fi
  393. + .PP
  394. + The 612 and 792 must be changed to reflect the size of the paper you are using.
  395. + The values shown are for letter paper.
  396.   .PP
  397.   On a non-reversing printer, the
  398.   .B \-r
  399. Index: ./lib/Makefile
  400. *** /tmp/PATCHold/./lib/Makefile    Wed Jan 13 01:57:19 1993
  401. --- ./lib/Makefile    Wed Jan 13 01:57:22 1993
  402. ***************
  403. *** 1,4 ****
  404. ! #2.5 92/03/03
  405.   
  406.   include ../makeincl
  407.   
  408. --- 1,4 ----
  409. ! #2.6 92/12/02
  410.   
  411.   include ../makeincl
  412.   
  413. ***************
  414. *** 25,30 ****
  415. --- 25,31 ----
  416.       cd $(LIBDIR)/lib ; rm -f $(LIBS) lj3u.lib
  417.       cp $(LIBS) $(LIBDIR)/lib
  418.       cd $(LIBDIR)/lib ; \
  419. +         chmod 444 $(LIBS) ; \
  420.           for i in lj3u ; \
  421.           do \
  422.           ln lj3.lib $$i.lib ; \
  423. Index: ./lib/lj.fonts
  424. *** /tmp/PATCHold/./lib/lj.fonts    Wed Jan 13 01:57:51 1993
  425. --- ./lib/lj.fonts    Wed Jan 13 01:57:55 1993
  426. ***************
  427. *** 1,4 ****
  428. ! #@(#)lj.fonts 2.1 90/07/18
  429.   #    four fields:
  430.   #
  431.   #    troff-name english-name HPLJ-code-to-transmit flags
  432. --- 1,4 ----
  433. ! #@(#)lj.fonts 2.2 92/12/22
  434.   #    four fields:
  435.   #
  436.   #    troff-name english-name HPLJ-code-to-transmit flags
  437. ***************
  438. *** 68,71 ****
  439. --- 68,72 ----
  440.   LB LinePrinter-Bold \033(8U\033(s0p0s03b00T nnnnnnnnnnnnnnn
  441.   H  Helvetica-Roman  \033(8U\033(s1p0s00b04T nnnnpnnnnnnnnnn
  442.   HI Helvetica-Italic \033(8U\033(s1p1s-3b04T nnnnpnnnnnnnnnn
  443. + HO Helvetica-Italic \033(8U\033(s1p1s-3b04T nnnnpnnnnnnnnnn
  444.   HB Helvetica-Bold   \033(8U\033(s1p0s03b04T nnnnnnnnnnnnnnn
  445. Index: ./lib/lj.lib
  446. *** /tmp/PATCHold/./lib/lj.lib    Wed Jan 13 01:58:21 1993
  447. --- ./lib/lj.lib    Wed Jan 13 01:58:26 1993
  448. ***************
  449. *** 29,36 ****
  450.   %            \xAABB \022 A %hello
  451.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  452.   %            through to the laserjet.
  453. ! %ident  @(#)lj.lib: 2.1 Copyright 90/07/18 16:52:26 Chris Lewis"
  454. ! \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF */
  455. ! \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip */
  456.   \0339                %reset side margins */
  457.   \033&a0r0C            %move cursor to 0,0 */
  458. --- 29,97 ----
  459.   %            \xAABB \022 A %hello
  460.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  461.   %            through to the laserjet.
  462. ! %ident  @(#)lj.lib: 2.3 Copyright 93/01/07 01:45:29 Chris Lewis"
  463. ! 
  464. ! \033E                % comment-out if your spooler resets
  465. !                 % the printer between jobs.  This is
  466. !                 % the preferable configuration - allows
  467. !                 % the spooler to supply defaults.  Ie:
  468. !                 % spooler-imposed default duplexing.
  469. ! 
  470. ! \033&k2G            %set CR=CR,LF=CRLF,FF=CRFF */
  471. ! 
  472. ! %    Orientation handling.
  473. ! #if _eval(landscape)
  474. !     \033&l1O
  475. ! #elif _eval(portrait)
  476. !     \033&l0O
  477. ! #elif _eval(reverse_portrait)
  478. !     \033&l2O
  479. ! #elif _eval(reverse_landscape)
  480. !     \033&l3O
  481. ! #elif default
  482. !     %    Default orientation.  Leave both undefined if you want the spooler
  483. !     %    to control things.
  484. !     \033&l0O            % uncomment for portrait default
  485. !     %\033&l1O            % uncomment for landscape default
  486. ! #endif
  487. ! 
  488. ! %    Simplex/Duplex handling.  If your spooler can handle
  489. ! %    duplexing options (and you've removed the reset), comment
  490. ! %    out all entries in the default section.  Generally speaking,
  491. ! %    you don't have to do anything if your printer doesn't support
  492. ! %    these options.
  493. ! #if _eval(duplex_long)
  494. !     \033&l1S
  495. ! #elif _eval(duplex_short)
  496. !     \033&l2S
  497. ! #elif _eval(simplex)
  498. !     \033&l0S
  499. ! #elif default
  500. !     %\033&l0S            % uncomment for simplex default
  501. !     \033&l1S            % uncomment for duplex_long default
  502. !     %\033&l2S            % uncomment for duplex_short default
  503. ! #endif
  504. ! 
  505. ! %    Paper input control:
  506. ! #if (paper_upper)
  507. !     \033&l1H
  508. ! #elif (paper_manual)
  509. !     \033&l2H
  510. ! #elif (envelope_manual)
  511. !     \033&l3H
  512. ! #elif (paper_lower)
  513. !     \033&l4H
  514. ! #elif (paper_deck)
  515. !     \033&l5H
  516. ! #elif (envelope_feeder)
  517. !     \033&l6H
  518. ! #elif (print_current)
  519. !     \033&l0H
  520. ! #elif default
  521. !     \033&l0H
  522. ! #endif
  523. ! 
  524. ! \033&l0l0E            % no perf skip, no top margin
  525. ! \033*r0F            % rasters follow page orientation
  526.   \0339                %reset side margins */
  527.   \033&a0r0C            %move cursor to 0,0 */
  528. Index: ./lib/lj3.fonts
  529. *** /tmp/PATCHold/./lib/lj3.fonts    Wed Jan 13 01:58:59 1993
  530. --- ./lib/lj3.fonts    Wed Jan 13 01:59:06 1993
  531. ***************
  532. *** 1,4 ****
  533. ! #@(#)lj3.fonts 2.14 92/04/12
  534.   #    Laserjet III fonts file.
  535.   #    See lj.fonts for more explanation.
  536.   #    The first ten fonts are the built-in scaleable typefaces.
  537. --- 1,4 ----
  538. ! #@(#)lj3.fonts 2.16 93/01/02
  539.   #    Laserjet III fonts file.
  540.   #    See lj.fonts for more explanation.
  541.   #    The first ten fonts are the built-in scaleable typefaces.
  542. ***************
  543. *** 53,59 ****
  544.   co N \033(7J\245\033(8U
  545.   sq N \033(7J\273\033(8U
  546.   symbol
  547. ! br N | -80 0
  548.   eq S =
  549.   ts S \133
  550.   mi S -
  551. --- 53,60 ----
  552.   co N \033(7J\245\033(8U
  553.   sq N \033(7J\273\033(8U
  554.   symbol
  555. ! br N | -110 0
  556. ! ul N _ -10 0
  557.   eq S =
  558.   ts S \133
  559.   mi S -
  560. ***************
  561. *** 156,158 ****
  562. --- 157,160 ----
  563.   ~a    N    \342
  564.   ~n    N    \267
  565.   ~o    N    \352
  566. + ss    N    \336
  567. Index: ./lib/lj3.lib
  568. *** /tmp/PATCHold/./lib/lj3.lib    Wed Jan 13 01:59:52 1993
  569. --- ./lib/lj3.lib    Wed Jan 13 01:59:58 1993
  570. ***************
  571. *** 29,43 ****
  572.   %            \xAABB \022 A %hello
  573.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  574.   %            through to the laserjet.
  575. ! %ident  @(#)lj3.lib: 2.4 Copyright 92/04/12 22:01:19 Chris Lewis"
  576. ! \033E\033&k2G            %reset printer, set CR=CR,LF=CRLF,FF=CRFF 
  577. ! \033&l6d66p0o0e66f0L        %letter size, portrait, no perf skip
  578. ! \0339                %reset side margins
  579. ! \033&a0h0V            %move cursor to 0,0
  580. ! \033*c6120x7920y0T\033\045 1B    %set HP-GL/2 picture frame, go to HP-GL/2
  581. ! IN;WU0;PW0.2;SP1;        %initialize, pen widths in MM, 0.36MM for pen 1
  582. ! LA1,4,2,4;            %set round line caps & joins
  583.   TR0;                %set transparency mode off
  584. ! IP0,11176,8636,0;        %set orientation to match PCL
  585. ! SC0,2550,0,3300;PU0,0;        %scale HP-GL/2 to 300dpi dots like PCL
  586.   \033\045 1A            %return to PCL mode
  587. --- 29,108 ----
  588.   %            \xAABB \022 A %hello
  589.   %            Passes the following bytes: 0xAA, 0xBB, 022, and "A"
  590.   %            through to the laserjet.
  591. ! %ident  @(#)lj3.lib: 2.6 Copyright 93/01/07 01:45:32 Chris Lewis"
  592. ! 
  593. ! \033E                % comment-out if your spooler resets
  594. !                 % the printer between jobs.  This is
  595. !                 % the preferable configuration - allows
  596. !                 % the spooler to supply defaults.  Ie:
  597. !                 % spooler-imposed default duplexing.
  598. ! 
  599. ! \033&k2G            %set CR=CR,LF=CRLF,FF=CRFF */
  600. ! 
  601. ! %    Orientation handling.
  602. ! #if _eval(landscape)
  603. !     \033&l1O
  604. ! #elif _eval(portrait)
  605. !     \033&l0O
  606. ! #elif _eval(reverse_portrait)
  607. !     \033&l2O
  608. ! #elif _eval(reverse_landscape)
  609. !     \033&l3O
  610. ! #elif default
  611. !     %    Default orientation.  Leave both undefined if you want the spooler
  612. !     %    to control things.
  613. !     \033&l0O            % uncomment for portrait default
  614. !     %\033&l1O            % uncomment for landscape default
  615. ! #endif
  616. ! 
  617. ! %    Simplex/Duplex handling.  If your spooler can handle
  618. ! %    duplexing options (and you've removed the reset), comment
  619. ! %    out all entries in the default section.  Generally speaking,
  620. ! %    you don't have to do anything if your printer doesn't support
  621. ! %    these options.
  622. ! #if _eval(duplex_long)
  623. !     \033&l1S
  624. ! #elif _eval(duplex_short)
  625. !     \033&l2S
  626. ! #elif _eval(simplex)
  627. !     \033&l0S
  628. ! #elif default
  629. !     %\033&l0S            % uncomment for simplex default
  630. !     \033&l1S            % uncomment for duplex_long default
  631. !     %\033&l2S            % uncomment for duplex_short default
  632. ! #endif
  633. ! 
  634. ! %    Paper input control:
  635. ! #if (paper_upper)
  636. !     \033&l1H
  637. ! #elif (paper_manual)
  638. !     \033&l2H
  639. ! #elif (envelope_manual)
  640. !     \033&l3H
  641. ! #elif (paper_lower)
  642. !     \033&l4H
  643. ! #elif (paper_deck)
  644. !     \033&l5H
  645. ! #elif (envelope_feeder)
  646. !     \033&l6H
  647. ! #elif (print_current)
  648. !     \033&l0H
  649. ! #elif default
  650. !     \033&l0H
  651. ! #endif
  652. ! 
  653. ! \033&l0l0E            %no perf skip, no top margin
  654. ! \033*r0F            %rasters follow page orientation
  655. ! \0339                %reset side margins */
  656. ! \033&a0r0C            %move cursor to 0,0 */
  657. ! %    HP/GL2 control
  658. ! \033*c_eval(pagewidth,d)x_eval(pagelength,d)y0T    % HP/GL pictureframe
  659. ! \033\045 1B            %go into HP-GL/2
  660. ! IN;WU0;PW0.2;SP1;        %initialize, penwidths in MM, .2MM for pen 1
  661. ! LA1,4,2,4;            %round line caps and joins
  662.   TR0;                %set transparency mode off
  663. !                 %set orientation to match PCL
  664. ! IP0,_eval(pagelength,1016),_eval(pagewidth,1016),0;
  665. !                 %scale HP-GL/2 to 300dpi dots like PCL
  666. ! SC0,_eval(pagewidth),0,_eval(pagelength);PU0,0;
  667.   \033\045 1A            %return to PCL mode
  668. Index: ./lib/ps.fonts
  669. *** /tmp/PATCHold/./lib/ps.fonts    Wed Jan 13 02:00:34 1993
  670. --- ./lib/ps.fonts    Wed Jan 13 02:00:38 1993
  671. ***************
  672. *** 1,4 ****
  673. ! #@(#)ps.fonts 2.6 92/05/21 01:56:49
  674.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  675.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  676.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  677. --- 1,4 ----
  678. ! #@(#)ps.fonts 2.7 92/12/02 01:57:04
  679.   #    DO NOT CHANGE THE ORDER OF THE FIRST FOUR LINES - THESE ARE
  680.   #    THE DEFAULT TROFF FONTS IN POSITIONS 1-5.  IN PARTICULAR, IF
  681.   #    SYMBOL ISN'T THE FOURTH ENTRY AND BRACKETFONT ISN'T THE FIFTH,
  682. ***************
  683. *** 24,35 ****
  684. --- 24,38 ----
  685.   BR    Bookman-Light
  686.   BX    Bookman-DemiItalic
  687.   C    Courier
  688. + CW    Courier
  689.   CB    Courier-Bold
  690.   CO    Courier-Oblique
  691. + CI    Courier-Oblique
  692.   CX    Courier-BoldOblique
  693.   H    Helvetica
  694.   HB    Helvetica-Bold
  695.   HO    Helvetica-Oblique
  696. + HI    Helvetica-Oblique
  697.   HX    Helvetica-BoldOblique
  698.   Hb    Helvetica-Narrow-Bold
  699.   Hr    Helvetica-Narrow
  700. ***************
  701. *** 115,118 ****
  702.   AE    N    \341
  703.   Ye    N    \245
  704.   ..    N    \310
  705. ! 
  706. --- 118,121 ----
  707.   AE    N    \341
  708.   Ye    N    \245
  709.   ..    N    \310
  710. ! ss    N    \373
  711. Index: ./lib/ps.lib
  712. *** /tmp/PATCHold/./lib/ps.lib    Wed Jan 13 02:01:18 1993
  713. --- ./lib/ps.lib    Wed Jan 13 02:01:25 1993
  714. ***************
  715. *** 9,15 ****
  716.   %    Module:        ps.lib
  717.   %    Author:     Chris Lewis
  718.   %    Specs:        Predefinitions for PostScript
  719. ! %ident  @(#)ps.lib: 92/08/09 Copyright 92/08/09 23:48:32 Chris Lewis"
  720.   
  721.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  722.   /X { exch CurY moveto show } bind def
  723. --- 9,15 ----
  724.   %    Module:        ps.lib
  725.   %    Author:     Chris Lewis
  726.   %    Specs:        Predefinitions for PostScript
  727. ! %ident  @(#)ps.lib: 2.18 Copyright 92/12/30 02:43:45 Chris Lewis"
  728.   
  729.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  730.   /X { exch CurY moveto show } bind def
  731. ***************
  732. *** 227,232 ****
  733. --- 227,240 ----
  734.   
  735.   %    Emitted at beginning of page.
  736.   /StartPage {
  737. + #if _eval(landscape)
  738. +     % landscape pages.
  739. +     _eval(pagelength) 0 translate 90 rotate
  740. + #elif _eval(portrait)
  741. +     % portrait pages.
  742. + #elif default
  743. +     % default (portrait)
  744. + #endif
  745.       Form
  746.   } def
  747.   
  748. ***************
  749. *** 561,563 ****
  750. --- 569,619 ----
  751.       currentpoint 18 sub exch pop 8.5 72 mul 2 idiv exch translate
  752.   } def
  753.   /PE { SAVE restore } def
  754. + #if _eval(simplex)
  755. +     statusdict /setduplexmode known {
  756. +     statusdict begin
  757. +         false setduplexmode
  758. +     end
  759. +     } if
  760. + #elif _eval(duplex_long)
  761. +     statusdict /settumble known {
  762. +     statusdict begin
  763. +         true setduplexmode
  764. +         false settumble
  765. +     end
  766. +     } if
  767. + #elif _eval(duplex_short)
  768. +     statusdict /settumble known {
  769. +     statusdict begin
  770. +         true setduplexmode
  771. +         true settumble
  772. +     end
  773. +     } if
  774. + #elif default
  775. + %    Uncomment for default set by psroff, instead of via spooler.
  776. + %    statusdict /setduplexmode known {
  777. + %    statusdict begin
  778. + %        false setduplexmode
  779. + %    end
  780. + %    } if
  781. + #endif
  782. + 
  783. + #if _eval(paper_upper)
  784. +     userdict /setpapertray known {
  785. +     userdict begin
  786. +         0 setpapertray
  787. +     end
  788. +     } if
  789. + #elif _eval(paper_lower)
  790. +     userdict /setpapertray known {
  791. +     userdict begin
  792. +         1 setpapertray
  793. +     end
  794. +     } if
  795. + #elif _eval(envelope)
  796. +     userdict /setpapertray known {
  797. +     userdict begin
  798. +         2 setpapertray
  799. +     end
  800. +     } if
  801. + #endif
  802. Index: ./lib/psrofflib.S
  803. *** /tmp/PATCHold/./lib/psrofflib.S    Wed Jan 13 02:02:00 1993
  804. --- ./lib/psrofflib.S    Wed Jan 13 02:02:07 1993
  805. ***************
  806. *** 1,4 ****
  807. ! #    2.28 92/06/01
  808.   #    This file controls psroff, you can insert additional printer
  809.   #    types here.  These are eval'd *late* in processing, so that
  810.   #    you can insert $copies etc.
  811. --- 1,4 ----
  812. ! #    2.29 92/12/02
  813.   #    This file controls psroff, you can insert additional printer
  814.   #    types here.  These are eval'd *late* in processing, so that
  815.   #    you can insert $copies etc.
  816. ***************
  817. *** 262,274 ****
  818.   cdps    lparg="> /tmp/dps$$; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  819.   
  820.   #    Using groff (gtroff actually) and driving LJ3:
  821. ! #    You have to copy the lj3 widths to gtroff's width directories.
  822. ! #    Standard groff install:
  823. ! #    copy widths/widthlj3/[A-Z]* /usr/local/lib/groff/font/devlj3
  824. ! #    copy widths/widthlj3u/[A-Z]* /usr/local/lib/groff/font/devlj3u
  825. ! #    Remove the ligatures from devlj3*/[A-Z]
  826.   #
  827. ! troff=gtroff
  828.   trofftype='-T$width'
  829.   glj3    width=lj3 t2arg='-Tlj3 -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  830.   glj3    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  831. --- 262,273 ----
  832.   cdps    lparg="> /tmp/dps$$; %%LIBDIR%%/dodps /tmp/dps$$; rm /tmp/dps$$'
  833.   
  834.   #    Using groff (gtroff actually) and driving LJ3:
  835. ! #    "make installwidths" installs the width tables and driver
  836. ! #    entries so that groff -T{lj3,lj3u,lj} will work as well as
  837. ! #    psroff -Tg{lj3,lj3u,lj}
  838.   #
  839. ! #    Assumes "standard" install location
  840. ! troff=/usr/local/bin/gtroff
  841.   trofftype='-T$width'
  842.   glj3    width=lj3 t2arg='-Tlj3 -plj3 -N -Z -O0 -W%%FONTDIR%%/lj3 -G1'
  843.   glj3    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  844. ***************
  845. *** 275,280 ****
  846. --- 274,282 ----
  847.   #    Univers base:
  848.   glj3u    width=lj3u t2arg='-Tlj3 -plj3u -N -Z -O0 -W%%FONTDIR%%/lj3u -G1'
  849.   glj3u    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  850. + #    Groff driving HP Laserjet PCL4
  851. + glj    width=lj t2arg='-Tlj -N -Z -O0 -W%%FONTDIR%%/lj -G1'
  852. + glj    lparg='| lp -og -d$ptr -n$copies' ptr=laser
  853.   #
  854.   #    Driving a Epson 24 pin printer with hp2pbm/pbm2e24/CAT troff
  855.   #    The quoting in lparg is very picky.
  856. Index: ./lib/lj3u.fonts
  857. *** /tmp/PATCHold/./lib/lj3u.fonts    Wed Jan 13 02:02:39 1993
  858. --- ./lib/lj3u.fonts    Wed Jan 13 02:02:42 1993
  859. ***************
  860. *** 1,4 ****
  861. ! #@(#)lj3u.fonts 2.8 92/04/12
  862.   #    Laserjet III fonts file.  Shuffled for Universal as primary typeface.
  863.   #    See lj.fonts for more explanation.
  864.   #    The first ten fonts are the built-in scaleable typefaces.
  865. --- 1,4 ----
  866. ! #@(#)lj3u.fonts 2.10 93/01/02
  867.   #    Laserjet III fonts file.  Shuffled for Universal as primary typeface.
  868.   #    See lj.fonts for more explanation.
  869.   #    The first ten fonts are the built-in scaleable typefaces.
  870. ***************
  871. *** 53,59 ****
  872.   co N \033(7J\245\033(8U
  873.   sq N \033(7J\273\033(8U
  874.   symbol
  875. ! br N | -80 0
  876.   eq S =
  877.   ts S \133
  878.   mi S -
  879. --- 53,60 ----
  880.   co N \033(7J\245\033(8U
  881.   sq N \033(7J\273\033(8U
  882.   symbol
  883. ! br N | -110 0
  884. ! ul N _ -10 0
  885.   eq S =
  886.   ts S \133
  887.   mi S -
  888. ***************
  889. *** 156,158 ****
  890. --- 157,160 ----
  891.   ~a    N    \342
  892.   ~n    N    \267
  893.   ~o    N    \352
  894. + ss    N    \336
  895. Index: ./widths/widthps/B
  896. 2c2
  897. < #2.3 92/08/09
  898. ---
  899. > #2.4 92/12/02
  900. 185a186
  901. > ss    56    2    0373    germandbls
  902. Index: ./widths/widthps/BI
  903. 2c2
  904. < #2.3 92/08/09
  905. ---
  906. > #2.4 92/12/02
  907. 185a186
  908. > ss    50    2    0373    germandbls
  909. Index: ./widths/widthps/C
  910. 2c2
  911. < #2.3 92/08/09
  912. ---
  913. > #2.4 92/12/02
  914. 180a181
  915. > ss    60    2    0373    germandbls
  916. Index: ./widths/widthps/CB
  917. 2c2
  918. < #2.3 92/08/09
  919. ---
  920. > #2.4 92/12/02
  921. 180a181
  922. > ss    60    2    0373    germandbls
  923. Index: ./widths/widthps/CO
  924. 2c2
  925. < #2.3 92/08/09
  926. ---
  927. > #2.4 92/12/02
  928. 180a181
  929. > ss    60    2    0373    germandbls
  930. Index: ./widths/widthps/CX
  931. 2c2
  932. < #2.3 92/08/09
  933. ---
  934. > #2.4 92/12/02
  935. 180a181
  936. > ss    60    2    0373    germandbls
  937. Index: ./widths/widthps/DESC
  938. 1c1
  939. < #    2.5 92/06/06 (From tpscript) extended for use with ditroff
  940. ---
  941. > #    2.6 92/12/02 (From tpscript) extended for use with ditroff
  942. 32c32
  943. < ul vS vs ~= ~A ~N ~O ~a ~n ~o
  944. ---
  945. > ul vS vs ~= ~A ~N ~O ~a ~n ~o ss
  946. Index: ./widths/widthps/H
  947. 2c2
  948. < #2.3 92/08/09
  949. ---
  950. > #2.4 92/12/02
  951. 185a186
  952. > ss    61    2    0373    germandbls
  953. Index: ./widths/widthps/HB
  954. 2c2
  955. < #2.4 92/08/09
  956. ---
  957. > #2.5 92/12/02
  958. 185a186
  959. > ss    61    2    0373    germandbls
  960. Index: ./widths/widthps/HO
  961. 2c2
  962. < #2.4 92/08/09
  963. ---
  964. > #2.5 92/12/02
  965. 185a186
  966. > ss    61    2    0373    germandbls
  967. Index: ./widths/widthps/HX
  968. 2c2
  969. < #2.4 92/08/09
  970. ---
  971. > #2.5 92/12/02
  972. 185a186
  973. > ss    61    2    0373    germandbls
  974. Index: ./widths/widthps/I
  975. 2c2
  976. < #2.3 92/08/09
  977. ---
  978. > #2.4 92/12/02
  979. 185a186
  980. > ss    50    3    0373    germandbls
  981. Index: ./widths/widthps/R
  982. 2c2
  983. < #2.3 92/08/09
  984. ---
  985. > #2.4 92/12/02
  986. 185a186
  987. > ss    50    2    0373    germandbls
  988. Index: ./widths/widthlj3/DESC
  989. *** /tmp/PATCHold/./widths/widthlj3/DESC    Wed Jan 13 02:10:41 1993
  990. --- ./widths/widthlj3/DESC    Wed Jan 13 02:10:44 1993
  991. ***************
  992. *** 1,4 ****
  993. ! #    2.5 92/02/13
  994.   #    special fonts have to go at the end or else troff
  995.   #    won't know about their numbers unless you do .fp
  996.   #
  997. --- 1,4 ----
  998. ! #    2.6 93/01/01
  999.   #    special fonts have to go at the end or else troff
  1000.   #    won't know about their numbers unless you do .fp
  1001.   #
  1002. ***************
  1003. *** 23,26 ****
  1004.   dg di em eq es ff fi fl fm ga gr hy ib if ip is lb lc lf lh
  1005.   lk lt mi mo mu no oA oa or pd pl pt r! r? rb rc rf rg rh rk
  1006.   rn rt ru sb sc sl sp sq sr ts ua ul ~= ~A ~N ~O ~a ~n ~o vs
  1007. ! vS
  1008. --- 23,26 ----
  1009.   dg di em eq es ff fi fl fm ga gr hy ib if ip is lb lc lf lh
  1010.   lk lt mi mo mu no oA oa or pd pl pt r! r? rb rc rf rg rh rk
  1011.   rn rt ru sb sc sl sp sq sr ts ua ul ~= ~A ~N ~O ~a ~n ~o vs
  1012. ! vS ss
  1013. Index: ./widths/widthlj3/I
  1014. *** /tmp/PATCHold/./widths/widthlj3/I    Wed Jan 13 02:11:22 1993
  1015. --- ./widths/widthlj3/I    Wed Jan 13 02:11:25 1993
  1016. ***************
  1017. *** 1,5 ****
  1018.   # Times-Italic
  1019. ! #2.6 92/03/03
  1020.   name I
  1021.   internalname TmsItalic
  1022.   ligatures fi fl 0
  1023. --- 1,5 ----
  1024.   # Times-Italic
  1025. ! #2.7 93/01/01
  1026.   name I
  1027.   internalname TmsItalic
  1028.   ligatures fi fl 0
  1029. ***************
  1030. *** 193,195 ****
  1031. --- 193,196 ----
  1032.   ~a    18    2    0342    atilde
  1033.   ~n    18    2    0267    ntilde
  1034.   ~o    18    2    0352    otilde
  1035. + ss    18    2    0336    germandbls (width a guess)
  1036. Index: ./widths/widthlj3/R
  1037. *** /tmp/PATCHold/./widths/widthlj3/R    Wed Jan 13 02:11:54 1993
  1038. --- ./widths/widthlj3/R    Wed Jan 13 02:11:58 1993
  1039. ***************
  1040. *** 1,5 ****
  1041.   # Times-Roman
  1042. ! #2.6 92/03/03
  1043.   name R
  1044.   internalname TmsRoman
  1045.   ligatures fi fl 0
  1046. --- 1,5 ----
  1047.   # Times-Roman
  1048. ! #2.7 93/01/01
  1049.   name R
  1050.   internalname TmsRoman
  1051.   ligatures fi fl 0
  1052. ***************
  1053. *** 193,195 ****
  1054. --- 193,196 ----
  1055.   ~a    16    2    0342    atilde
  1056.   ~n    18    2    0267    ntilde
  1057.   ~o    18    2    0352    otilde
  1058. + ss    18    2    0336    germandbls (width a guess)
  1059. Index: ./widths/widthlj3/X
  1060. *** /tmp/PATCHold/./widths/widthlj3/X    Wed Jan 13 02:12:28 1993
  1061. --- ./widths/widthlj3/X    Wed Jan 13 02:12:31 1993
  1062. ***************
  1063. *** 1,5 ****
  1064.   # Times-BoldItalic
  1065. ! #2.7 92/03/03
  1066.   name X
  1067.   internalname TmsBdIt
  1068.   ligatures fi fl 0
  1069. --- 1,5 ----
  1070.   # Times-BoldItalic
  1071. ! #2.8 93/01/01
  1072.   name X
  1073.   internalname TmsBdIt
  1074.   ligatures fi fl 0
  1075. ***************
  1076. *** 193,195 ****
  1077. --- 193,196 ----
  1078.   ~a    18    2    0342    atilde
  1079.   ~n    20    2    0267    ntilde
  1080.   ~o    18    2    0352    otilde
  1081. + ss    18    2    0336    germandbls (width a guess)
  1082. Index: ./widths/widthlj3/B
  1083. *** /tmp/PATCHold/./widths/widthlj3/B    Wed Jan 13 02:13:01 1993
  1084. --- ./widths/widthlj3/B    Wed Jan 13 02:13:05 1993
  1085. ***************
  1086. *** 1,5 ****
  1087.   # Times-Bold
  1088. ! #2.6 92/03/03
  1089.   name B
  1090.   internalname TmsBold
  1091.   ligatures fi fl 0
  1092. --- 1,5 ----
  1093.   # Times-Bold
  1094. ! #2.7 93/01/01
  1095.   name B
  1096.   internalname TmsBold
  1097.   ligatures fi fl 0
  1098. ***************
  1099. *** 193,195 ****
  1100. --- 193,196 ----
  1101.   ~a    18    2    0342    atilde
  1102.   ~n    20    2    0267    ntilde
  1103.   ~o    18    2    0352    otilde
  1104. + ss    18    2    0336    germandbls (width a guess)
  1105. Index: ./widths/Makefile
  1106. *** /tmp/PATCHold/./widths/Makefile    Wed Jan 13 02:13:33 1993
  1107. --- ./widths/Makefile    Wed Jan 13 02:13:38 1993
  1108. ***************
  1109. *** 4,10 ****
  1110.   #    See the LICENSE file for a full description of the restrictions
  1111.   #    under which this software is provided.
  1112.   #
  1113. ! #2.20 91/12/26
  1114.   SCRIPTS    = gfnttab genext installdit
  1115.   TD    = testdir
  1116.   PSW    = \
  1117. --- 4,10 ----
  1118.   #    See the LICENSE file for a full description of the restrictions
  1119.   #    under which this software is provided.
  1120.   #
  1121. ! #2.22 92/12/22
  1122.   SCRIPTS    = gfnttab genext installdit
  1123.   TD    = testdir
  1124.   PSW    = \
  1125. ***************
  1126. *** 18,23 ****
  1127. --- 18,24 ----
  1128.       widthps/BI widthps/Hr widthps/PI widthps/BO widthps/H \
  1129.       widthps/Hx widthps/PR \
  1130.       widthlj/DESC
  1131. + ALIASES    = widthps/CW widthps/CI widthps/HI
  1132.   LJ3W    = \
  1133.       widthlj3/DESC widthlj3/S2 \
  1134.           widthlj3/B widthlj3/I widthlj3/R widthlj3/S widthlj3/X \
  1135. ***************
  1136. *** 26,36 ****
  1137.   
  1138.   include ../makeincl
  1139.   
  1140. ! all:    subst.done $(PSW) $(LJ3W) lj3ext dit2catwid $(SCRIPTS) ljwidths \
  1141.       widths extensions
  1142.   
  1143. ! unsccswidths:    $(PSW) $(LJ3W)
  1144.   
  1145.   lj3ext:        $(LJ3W)
  1146.       @$(IGNORESH) for i in R I B X ; \
  1147.       do \
  1148. --- 27,39 ----
  1149.   
  1150.   include ../makeincl
  1151.   
  1152. ! all:    subst.done $(PSW) $(ALIASES) $(LJ3W) lj3ext dit2catwid $(SCRIPTS) ljwidths \
  1153.       widths extensions
  1154.   
  1155. ! unsccswidths:    $(PSW) $(ALIASES) $(LJ3W)
  1156.   
  1157. + aliases:    $(ALIASES)
  1158. + 
  1159.   lj3ext:        $(LJ3W)
  1160.       @$(IGNORESH) for i in R I B X ; \
  1161.       do \
  1162. ***************
  1163. *** 47,52 ****
  1164. --- 50,71 ----
  1165.       @eval `echo $@ | sed -e 's/\(.*\)\/\([^\/]*\)$$/d=\1 f=s.\2 n=&/'` ; \
  1166.           cd $$d ; echo Extracting $$n ; $(GET) -s $(GFLAGS) $$f
  1167.   
  1168. + #    Aliasing/compability with Transcript etc.
  1169. + widthps/CW:    widthps/C
  1170. +     rm -f widthps/CW tmp
  1171. +     sed -e 's/name C[     ]*$$/name CW/' widthps/C > tmp
  1172. +     mv tmp widthps/CW
  1173. + 
  1174. + widthps/CI:    widthps/CO
  1175. +     rm -f widthps/CI tmp
  1176. +     sed -e 's/name CO[     ]*$$/name CI/' widthps/CO > tmp
  1177. +     mv tmp widthps/CI
  1178. + 
  1179. + widthps/HI:    widthps/HO
  1180. +     rm -f widthps/HI tmp
  1181. +     sed -e 's/name HO[     ]*$$/name HI/' widthps/HO > tmp
  1182. +     mv tmp widthps/HI
  1183. + 
  1184.   ditwidths:
  1185.       cd ../lib ; $(MAKE) psrofflib
  1186.       ./installdit
  1187. ***************
  1188. *** 201,206 ****
  1189. --- 220,226 ----
  1190.               args= ; \
  1191.               fi ; \
  1192.               echo "Creating widthlj/$$font from $$file" ; \
  1193. +             echo ../utils/pk2ditwid $$args $$file ; \
  1194.               ../utils/pk2ditwid $$args $$file >> pk2dit.log \
  1195.               2>> pk2dit.err ; \
  1196.               if [ $$? != 0 ] ; \
  1197. ***************
  1198. *** 294,299 ****
  1199. --- 314,320 ----
  1200.       rm -f gfnttab.log pk2dit.log pk2sep.log pk2dit.err pk2sep.err
  1201.       rm -f */[A-Z]*.out */*.ext lj3ext
  1202.       rm -f widthlj3/U[RIBX] widthlj3u/T[RIBX]
  1203. +     rm -f $(ALIASES)
  1204.   
  1205.   dit2catwid.o:    ../defs.h
  1206.   
  1207. Index: ./widths/dit2catwid.c
  1208. *** /tmp/PATCHold/./widths/dit2catwid.c    Wed Jan 13 02:14:05 1993
  1209. --- ./widths/dit2catwid.c    Wed Jan 13 02:14:13 1993
  1210. ***************
  1211. *** 10,16 ****
  1212.   
  1213.   #ifndef    lint
  1214.   static char SCCSID[] =
  1215. !     "@(#)dit2catwid.c 2.10 Copyright 91/10/17 19:56:13 Chris Lewis";
  1216.   #endif
  1217.   
  1218.   #include <stdio.h>
  1219. --- 10,16 ----
  1220.   
  1221.   #ifndef    lint
  1222.   static char SCCSID[] =
  1223. !     "@(#)dit2catwid.c 2.11 Copyright 92/12/04 23:18:26 Chris Lewis";
  1224.   #endif
  1225.   
  1226.   #include <stdio.h>
  1227. ***************
  1228. *** 334,340 ****
  1229.   mustmalloc(n)
  1230.   register int n; {
  1231.       register char *p;
  1232. -     extern char *malloc();
  1233.       p = malloc(n);
  1234.       if (!p) {
  1235.       fprintf(stderr, "%s: cannot alloc %d bytes\n", progname, n);
  1236. --- 334,339 ----
  1237. Index: ./widths/widthlj3u/B
  1238. *** /tmp/PATCHold/./widths/widthlj3u/B    Wed Jan 13 02:14:50 1993
  1239. --- ./widths/widthlj3u/B    Wed Jan 13 02:14:51 1993
  1240. ***************
  1241. *** 1,5 ****
  1242.   # Univers-Bold
  1243. ! #2.6 92/03/03
  1244.   name B
  1245.   internalname UniBold
  1246.   ligatures fi fl 0
  1247. --- 1,5 ----
  1248.   # Univers-Bold
  1249. ! #2.7 93/01/02
  1250.   name B
  1251.   internalname UniBold
  1252.   ligatures fi fl 0
  1253. ***************
  1254. *** 193,195 ****
  1255. --- 193,196 ----
  1256.   ~a    19    2    0342    atilde
  1257.   ~n    21    2    0267    ntilde
  1258.   ~o    21    2    0352    otilde
  1259. + ss    18    2    0336    germandbls (width a guess)
  1260. Index: ./widths/widthlj3u/I
  1261. *** /tmp/PATCHold/./widths/widthlj3u/I    Wed Jan 13 02:15:10 1993
  1262. --- ./widths/widthlj3u/I    Wed Jan 13 02:15:13 1993
  1263. ***************
  1264. *** 1,5 ****
  1265.   # Univers-Italic
  1266. ! #2.6 92/03/03
  1267.   name I
  1268.   internalname UniItalic
  1269.   ligatures fi fl 0
  1270. --- 1,5 ----
  1271.   # Univers-Italic
  1272. ! #2.7 93/01/02
  1273.   name I
  1274.   internalname UniItalic
  1275.   ligatures fi fl 0
  1276. ***************
  1277. *** 193,195 ****
  1278. --- 193,196 ----
  1279.   ~a    19    2    0342    atilde
  1280.   ~n    21    2    0267    ntilde
  1281.   ~o    21    2    0352    otilde
  1282. + ss    18    2    0336    germandbls (width a guess)
  1283. Index: ./widths/widthlj3u/R
  1284. *** /tmp/PATCHold/./widths/widthlj3u/R    Wed Jan 13 02:15:30 1993
  1285. --- ./widths/widthlj3u/R    Wed Jan 13 02:15:32 1993
  1286. ***************
  1287. *** 1,5 ****
  1288.   # Univers-Roman
  1289. ! #2.6 92/03/03
  1290.   name R
  1291.   internalname UniRoman
  1292.   ligatures fi fl 0
  1293. --- 1,5 ----
  1294.   # Univers-Roman
  1295. ! #2.7 93/01/02
  1296.   name R
  1297.   internalname UniRoman
  1298.   ligatures fi fl 0
  1299. ***************
  1300. *** 193,195 ****
  1301. --- 193,196 ----
  1302.   ~a    19    2    0342    atilde
  1303.   ~n    21    2    0267    ntilde
  1304.   ~o    21    2    0352    otilde
  1305. + ss    18    2    0336    germandbls (width a guess)
  1306. Index: ./widths/widthlj3u/X
  1307. *** /tmp/PATCHold/./widths/widthlj3u/X    Wed Jan 13 02:15:40 1993
  1308. --- ./widths/widthlj3u/X    Wed Jan 13 02:15:41 1993
  1309. ***************
  1310. *** 1,5 ****
  1311.   # Univers-BoldItalic
  1312. ! #2.6 92/03/03
  1313.   name X
  1314.   internalname UniBdIt
  1315.   ligatures fi fl 0
  1316. --- 1,5 ----
  1317.   # Univers-BoldItalic
  1318. ! #2.7 93/01/02
  1319.   name X
  1320.   internalname UniBdIt
  1321.   ligatures fi fl 0
  1322. ***************
  1323. *** 193,195 ****
  1324. --- 193,196 ----
  1325.   ~a    19    2    0342    atilde
  1326.   ~n    21    2    0267    ntilde
  1327.   ~o    21    2    0352    otilde
  1328. + ss    18    2    0336    germandbls (width a guess)
  1329. Index: ./widths/widthlj3u/DESC
  1330. *** /tmp/PATCHold/./widths/widthlj3u/DESC    Wed Jan 13 02:15:50 1993
  1331. --- ./widths/widthlj3u/DESC    Wed Jan 13 02:15:51 1993
  1332. ***************
  1333. *** 1,4 ****
  1334. ! #    2.3 92/02/13
  1335.   #    special fonts have to go at the end or else troff
  1336.   #    won't know about their numbers unless you do .fp
  1337.   #
  1338. --- 1,4 ----
  1339. ! #    2.4 93/01/01
  1340.   #    special fonts have to go at the end or else troff
  1341.   #    won't know about their numbers unless you do .fp
  1342.   #
  1343. ***************
  1344. *** 23,26 ****
  1345.   dg di em eq es ff fi fl fm ga gr hy ib if ip is lb lc lf lh
  1346.   lk lt mi mo mu no oA oa or pd pl pt r! r? rb rc rf rg rh rk
  1347.   rn rt ru sb sc sl sp sq sr ts ua ul ~= ~A ~N ~O ~a ~n ~o vs
  1348. ! vS
  1349. --- 23,26 ----
  1350.   dg di em eq es ff fi fl fm ga gr hy ib if ip is lb lc lf lh
  1351.   lk lt mi mo mu no oA oa or pd pl pt r! r? rb rc rf rg rh rk
  1352.   rn rt ru sb sc sl sp sq sr ts ua ul ~= ~A ~N ~O ~a ~n ~o vs
  1353. ! vS ss
  1354. Index: ./utils/maps/cmtt.ROMAN8
  1355. *** /tmp/PATCHold/./utils/maps/cmtt.ROMAN8    Wed Jan 13 02:16:00 1993
  1356. --- ./utils/maps/cmtt.ROMAN8    Wed Jan 13 02:16:01 1993
  1357. ***************
  1358. *** 1,4 ****
  1359. ! #    2.1 90/07/18
  1360.   #    cmtt family roman.
  1361.   !
  1362.   0x22    0x22    "
  1363. --- 1,4 ----
  1364. ! #    2.2 92/12/30
  1365.   #    cmtt family roman.
  1366.   !
  1367.   0x22    0x22    "
  1368. ***************
  1369. *** 15,30 ****
  1370.   -
  1371.   .
  1372.   /
  1373. ! 0
  1374. ! 1
  1375. ! 2
  1376. ! 3
  1377. ! 4
  1378. ! 5
  1379. ! 6
  1380. ! 7
  1381. ! 8
  1382. ! 9
  1383.   :
  1384.   ;
  1385.   <
  1386. --- 15,30 ----
  1387.   -
  1388.   .
  1389.   /
  1390. ! 0x30
  1391. ! 0x31
  1392. ! 0x32
  1393. ! 0x33
  1394. ! 0x34
  1395. ! 0x35
  1396. ! 0x36
  1397. ! 0x37
  1398. ! 0x38
  1399. ! 0x39
  1400.   :
  1401.   ;
  1402.   <
  1403. Index: ./utils/Makefile
  1404. *** /tmp/PATCHold/./utils/Makefile    Wed Jan 13 02:16:13 1993
  1405. --- ./utils/Makefile    Wed Jan 13 02:16:14 1993
  1406. ***************
  1407. *** 4,10 ****
  1408.   #    See the LICENSE file for a full description of the restrictions
  1409.   #    under which this software is provided.
  1410.   #
  1411. ! #2.12 92/10/30
  1412.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  1413.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  1414.       asc2ps
  1415. --- 4,10 ----
  1416.   #    See the LICENSE file for a full description of the restrictions
  1417.   #    under which this software is provided.
  1418.   #
  1419. ! #2.13 92/12/04
  1420.   SCRIPTS    = psdtwd showfont mkenctab calcfonts catconv dodps
  1421.   PROGRAMS = hpinterp psxlate pk2sfp pk2ditwid pktype dumpft pk2ps lj2ps \
  1422.       asc2ps
  1423. ***************
  1424. *** 34,39 ****
  1425. --- 34,43 ----
  1426.       cd ../ ; ./troff2ps -Tlj -z > utils/T
  1427.       ./mkenctab T ljtab.c
  1428.       rm -f T
  1429. + 
  1430. + ../lib/lj.fonts:
  1431. +     cd ../lib ; make lj.fonts
  1432. + 
  1433.   
  1434.   #    This isn't perfect, but close
  1435.   ../debug.o ../pk.o ../cattab.o ../pkscale.o: ../defs.h ../pk.h
  1436. Index: ./utils/catconv.S
  1437. *** /tmp/PATCHold/./utils/catconv.S    Wed Jan 13 02:16:23 1993
  1438. --- ./utils/catconv.S    Wed Jan 13 02:16:24 1993
  1439. ***************
  1440. *** 10,16 ****
  1441.   #
  1442.   #    This does a very simpleminded conversion of ditroff-only-isms
  1443.   #    (such as graphics) into something handleable by CAT troff.
  1444. ! #    1.12 92/11/26
  1445.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  1446.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  1447.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  1448. --- 10,16 ----
  1449.   #
  1450.   #    This does a very simpleminded conversion of ditroff-only-isms
  1451.   #    (such as graphics) into something handleable by CAT troff.
  1452. ! #    1.13 92/12/22
  1453.   $cc{'em'}=1; $cc{'ru'}=1; $cc{'14'}=1; $cc{'12'}=1; $cc{'hy'}=1;
  1454.   $cc{'34'}=1; $cc{'fi'}=1; $cc{'fl'}=1; $cc{'ff'}=1; $cc{'ct'}=1;
  1455.   $cc{'Fl'}=1; $cc{'Fi'}=1; $cc{'de'}=1; $cc{'dg'}=1; $cc{'rg'}=1;
  1456. ***************
  1457. *** 114,120 ****
  1458.           } else {
  1459.           printf STDERR "Don't know the width of \\($char";
  1460.           }
  1461. !         $newline .= "\\ka\\o'\\(bs\\(bs'C$char\\(bs\\h'|\\nau+\\w\"$w\"'";
  1462.       }
  1463.       }
  1464.       $newline .= $line;
  1465. --- 114,120 ----
  1466.           } else {
  1467.           printf STDERR "Don't know the width of \\($char";
  1468.           }
  1469. !         $newline .= "\\ka\\o'\\(bs\\(bs'C$char\\(bs\\h'|\\nau+\\w$w'";
  1470.       }
  1471.       }
  1472.       $newline .= $line;
  1473. Index: ./utils/pk2ditwid.c
  1474. *** /tmp/PATCHold/./utils/pk2ditwid.c    Wed Jan 13 02:16:32 1993
  1475. --- ./utils/pk2ditwid.c    Wed Jan 13 02:16:33 1993
  1476. ***************
  1477. *** 10,16 ****
  1478.   
  1479.   #ifndef    lint
  1480.   static char SCCSID[] =
  1481. !     "@(#)pk2ditwid.c 2.5 Copyright 92/11/26 19:45:39 Chris Lewis";
  1482.   #endif
  1483.   
  1484.   #include "defs.h"
  1485. --- 10,16 ----
  1486.   
  1487.   #ifndef    lint
  1488.   static char SCCSID[] =
  1489. !     "@(#)pk2ditwid.c 2.6 Copyright 92/12/22 09:02:30 Chris Lewis";
  1490.   #endif
  1491.   
  1492.   #include "defs.h"
  1493. ***************
  1494. *** 32,38 ****
  1495.   FILE *fout = NULL;
  1496.   char *progname;
  1497.   
  1498. ! #define    UNITWIDTH    10
  1499.   
  1500.   main(argc, argv)
  1501.   int argc;
  1502. --- 32,39 ----
  1503.   FILE *fout = NULL;
  1504.   char *progname;
  1505.   
  1506. ! int unitwidth = 10;
  1507. ! int outputres = OUTRES;
  1508.   
  1509.   main(argc, argv)
  1510.   int argc;
  1511. ***************
  1512. *** 45,52 ****
  1513.       struct enctab *et;
  1514.   
  1515.       progname = argv[0];
  1516. !     while((c = getopt(argc, argv, "AD:sS")) != EOF) {
  1517.       switch(c) {
  1518.           case 's':
  1519.           silent = 1;
  1520.           break;
  1521. --- 46,69 ----
  1522.       struct enctab *et;
  1523.   
  1524.       progname = argv[0];
  1525. !     while((c = getopt(argc, argv, "AD:sSr:u:")) != EOF) {
  1526.       switch(c) {
  1527. +         case 'u':
  1528. +         unitwidth = atoi(optarg);
  1529. +         if (unitwidth < 1) {
  1530. +             fprintf(stderr, "%s: invalid unitwidth: -u%s\n",
  1531. +             progname, optarg);
  1532. +             exit(1);
  1533. +         }
  1534. +         break;
  1535. +         case 'r':
  1536. +         outputres = atoi(optarg);
  1537. +         if (outputres < 1) {
  1538. +             fprintf(stderr, "%s: invalid outputres: -u%s\n",
  1539. +             progname, optarg);
  1540. +             exit(1);
  1541. +         }
  1542. +         break;
  1543.           case 's':
  1544.           silent = 1;
  1545.           break;
  1546. ***************
  1547. *** 123,129 ****
  1548.       if (allflag) {
  1549.           fprintf(fout,
  1550.           "Width: width of character at %d points at %dDPI\n",
  1551. !         UNITWIDTH, OUTRES);
  1552.           fprintf(fout,
  1553.           "Kern: 2 for ascenders, 1 for descenders or'd together\n");
  1554.           fprintf(fout, "Code: Hexidecimal code\n");
  1555. --- 140,146 ----
  1556.       if (allflag) {
  1557.           fprintf(fout,
  1558.           "Width: width of character at %d points at %dDPI\n",
  1559. !         unitwidth, outputres);
  1560.           fprintf(fout,
  1561.           "Kern: 2 for ascenders, 1 for descenders or'd together\n");
  1562.           fprintf(fout, "Code: Hexidecimal code\n");
  1563. ***************
  1564. *** 131,140 ****
  1565.       } else {
  1566.           fprintf(fout, "# %s\n", buf);
  1567.           fprintf(fout, "# Generated by pk2ditwid\n");
  1568.           fprintf(fout, "name %s\n", buf);
  1569.           if (buf[0] == 'S')
  1570.           fprintf(fout, "special\n");
  1571. !         fprintf(fout, "spacewidth 22\n");
  1572.           fprintf(fout, "charset\n");
  1573.       }
  1574.   
  1575. --- 148,159 ----
  1576.       } else {
  1577.           fprintf(fout, "# %s\n", buf);
  1578.           fprintf(fout, "# Generated by pk2ditwid\n");
  1579. +         fprintf(fout, "# -u%d -r%d\n", unitwidth, outputres);
  1580.           fprintf(fout, "name %s\n", buf);
  1581.           if (buf[0] == 'S')
  1582.           fprintf(fout, "special\n");
  1583. !         fprintf(fout, "spacewidth %d\n", 22 * unitwidth * outputres / 
  1584. !         (10 * OUTRES));
  1585.           fprintf(fout, "charset\n");
  1586.       }
  1587.   
  1588. ***************
  1589. *** 145,153 ****
  1590.                   /* get # pixels */
  1591.           long widval = ((double) pc->pkc_dx / pow2(16)) *
  1592.                   /* normalize by actual resolution */
  1593. !                   ((double) OUTRES / pk->pkp_res) *
  1594.                   /* normalize to UNITWIDTH points */
  1595. !                   ((double) UNITWIDTH * pow2(20) / pk->pkp_ds) +
  1596.                   /* round ... */
  1597.                     0.5;
  1598.           int kern = ((pk->pkp_kh < pc->pkc_y_off) << 1) |
  1599. --- 164,172 ----
  1600.                   /* get # pixels */
  1601.           long widval = ((double) pc->pkc_dx / pow2(16)) *
  1602.                   /* normalize by actual resolution */
  1603. !                   ((double) outputres / pk->pkp_res) *
  1604.                   /* normalize to UNITWIDTH points */
  1605. !                   ((double) unitwidth * pow2(20) / pk->pkp_ds) +
  1606.                   /* round ... */
  1607.                     0.5;
  1608.           int kern = ((pk->pkp_kh < pc->pkc_y_off) << 1) |
  1609. ***************
  1610. *** 208,216 ****
  1611.                   /* get # pixels */
  1612.           long widval = ((double) pc->pkc_dx / pow2(16)) *
  1613.                   /* normalize by actual resolution */
  1614. !                   ((double) OUTRES / p->pkp_res) *
  1615.                   /* normalize to UNITWIDTH points */
  1616. !                   ((double) UNITWIDTH * pow2(20) / p->pkp_ds) +
  1617.                   /* round ... */
  1618.                     0.5;
  1619.           int kern = ((p->pkp_kh < pc->pkc_y_off) << 1) |
  1620. --- 227,235 ----
  1621.                   /* get # pixels */
  1622.           long widval = ((double) pc->pkc_dx / pow2(16)) *
  1623.                   /* normalize by actual resolution */
  1624. !                   ((double) outputres / p->pkp_res) *
  1625.                   /* normalize to UNITWIDTH points */
  1626. !                   ((double) unitwidth * pow2(20) / p->pkp_ds) +
  1627.                   /* round ... */
  1628.                     0.5;
  1629.           int kern = ((p->pkp_kh < pc->pkc_y_off) << 1) |
  1630. Index: ./utils/psxlate.c
  1631. *** /tmp/PATCHold/./utils/psxlate.c    Wed Jan 13 02:16:44 1993
  1632. --- ./utils/psxlate.c    Wed Jan 13 02:16:46 1993
  1633. ***************
  1634. *** 23,29 ****
  1635.    */
  1636.   #ifndef    lint
  1637.   static char SCCSid[] =
  1638. !     "@(#)psxlate.c: 2.20 Copyright 92/03/12 01:11:56 Chris Lewis";
  1639.   #endif
  1640.   
  1641.   #ifdef    ALONE
  1642. --- 23,29 ----
  1643.    */
  1644.   #ifndef    lint
  1645.   static char SCCSid[] =
  1646. !     "@(#)psxlate.c: 2.21 Copyright 92/12/04 23:16:31 Chris Lewis";
  1647.   #endif
  1648.   
  1649.   #ifdef    ALONE
  1650. ***************
  1651. *** 243,249 ****
  1652.   FILE *in;
  1653.   FILE *out;
  1654.   char *buffer; {
  1655. -     extern char *malloc();
  1656.       long offset;
  1657.       int state = PROLOG;
  1658.       int seen;
  1659. --- 243,248 ----
  1660. ***************
  1661. *** 574,580 ****
  1662.       register char *p;
  1663.       register long curlength;
  1664.       register int ch;
  1665. -     extern char *realloc();
  1666.   
  1667.       if (count != (long *) NULL)
  1668.       *count = curcount;
  1669. --- 573,578 ----
  1670. Index: ./tests/exttab.m
  1671. *** /tmp/PATCHold/./tests/exttab.m    Wed Jan 13 02:16:59 1993
  1672. --- ./tests/exttab.m    Wed Jan 13 02:17:00 1993
  1673. ***************
  1674. *** 1,4 ****
  1675. ! .\" DITROFF extensions 1.5
  1676.   .DS
  1677.   .EQ
  1678.   G(z)~mark =~ e sup { ln ~ G(z) }
  1679. --- 1,6 ----
  1680. ! .\" DITROFF extensions 1.7
  1681. ! .ps 20
  1682. ! .vs 24p
  1683.   .DS
  1684.   .EQ
  1685.   G(z)~mark =~ e sup { ln ~ G(z) }
  1686. ***************
  1687. *** 45,51 ****
  1688.   _
  1689.   \(vs    \e(vs    \(~A    \e(~A    \(~N    \e(~N    \(~O    \e(~O
  1690.   _
  1691. ! \(~a    \e(~a    \(~n    \e(~n    \(~o    \e(~o    
  1692.   .TE
  1693.   .bp
  1694.   .sp 1i
  1695. --- 47,53 ----
  1696.   _
  1697.   \(vs    \e(vs    \(~A    \e(~A    \(~N    \e(~N    \(~O    \e(~O
  1698.   _
  1699. ! \(~a    \e(~a    \(~n    \e(~n    \(~o    \e(~o    \(ss    \e(ss
  1700.   .TE
  1701.   .bp
  1702.   .sp 1i
  1703. Index: ./adapters/tmac.an.S
  1704. *** /tmp/PATCHold/./adapters/tmac.an.S    Wed Jan 13 02:17:19 1993
  1705. --- ./adapters/tmac.an.S    Wed Jan 13 02:17:21 1993
  1706. ***************
  1707. *** 1,4 ****
  1708. ! .\"@(#)ident tmac.an 2.1 90/07/18
  1709.   .so %%LIBDIR%%/adapters/cmn.pre
  1710.   .so %%RTMACDIR%%/tmac.an
  1711.   .\"Default offset (my version of the man macros uses it).
  1712. --- 1,4 ----
  1713. ! .\"@(#)ident tmac.an 2.2 93/01/01
  1714.   .so %%LIBDIR%%/adapters/cmn.pre
  1715.   .so %%RTMACDIR%%/tmac.an
  1716.   .\"Default offset (my version of the man macros uses it).
  1717. ***************
  1718. *** 6,11 ****
  1719. --- 6,14 ----
  1720.   .\"See if someone's using the -rO option (ala MM)
  1721.   .if \nO .nr )O \nOu
  1722.   .po \n()Ou
  1723. + .\"Fix up page length (my version of the man macros uses it)
  1724. + .if \nL .nr )L \nLu
  1725. + .pl \n()Lu
  1726.   .\"Clobber cut marks.
  1727.   .rm }C
  1728.   .so %%LIBDIR%%/adapters/cmn.post
  1729. Index: ./utils.c
  1730. *** /tmp/PATCHold/./utils.c    Wed Jan 13 02:17:39 1993
  1731. --- ./utils.c    Wed Jan 13 02:17:41 1993
  1732. ***************
  1733. *** 12,18 ****
  1734.   
  1735.   #ifndef    lint
  1736.   static char SCCSid[] =
  1737. !     "@(#)utils.c: 2.26 Copyright 92/07/09 23:34:53 Chris Lewis";
  1738.   #endif
  1739.   
  1740.   #ifndef    HEADERSIZE
  1741. --- 12,18 ----
  1742.   
  1743.   #ifndef    lint
  1744.   static char SCCSid[] =
  1745. !     "@(#)utils.c: 2.31 Copyright 92/12/31 23:54:10 Chris Lewis";
  1746.   #endif
  1747.   
  1748.   #ifndef    HEADERSIZE
  1749. ***************
  1750. *** 33,38 ****
  1751. --- 33,50 ----
  1752.   
  1753.   extern struct cattab tabN[], tabS[];
  1754.   
  1755. + char *
  1756. + mystrstr(str, pat)
  1757. + register char *str, *pat; {
  1758. +     register int n = strlen(pat);
  1759. +     while(*str && (str = strchr(str, *pat))) {
  1760. +     if (strncmp(str, pat, n) == 0)
  1761. +         return(str);
  1762. +     str++;
  1763. +     }
  1764. +     return((char *) NULL);
  1765. + }
  1766. + 
  1767.   int lastFont, lastPoints;
  1768.   int lastYPos, lastXPos;
  1769.   
  1770. ***************
  1771. *** 43,50 ****
  1772.   struct troff2befont *extchars;
  1773.   struct cattab *extidx;
  1774.   
  1775. - extern char *malloc();
  1776. - 
  1777.   char *skipblanks(p)
  1778.   register char *p; {
  1779.       while (*p && isspace(*p)) p++;
  1780. --- 55,60 ----
  1781. ***************
  1782. *** 59,64 ****
  1783. --- 69,348 ----
  1784.       return(p);
  1785.   }
  1786.   
  1787. + #define    PROCHUNK    20
  1788. + int procount;
  1789. + 
  1790. + #define ST_PASSTHRU    0
  1791. + #define ST_IFPASSTHRU    1
  1792. + #define ST_IFSKIPPING    2
  1793. + #define ST_IFDONE    3
  1794. + 
  1795. + #ifdef DEBUG
  1796. + char *stpr[] = {"passstate", "ifpassstate", "ifskipstate", "ifdonestate"};
  1797. + #endif
  1798. + 
  1799. + #define    SEE_NONE    0
  1800. + #define    SEE_IFELSE    1
  1801. + #define    SEE_ENDIF    2
  1802. + 
  1803. + #ifdef DEBUG
  1804. + char *sepr[] = {"none", "ifelse", "endif"};
  1805. + #endif
  1806. + 
  1807. + void
  1808. + insprolog(arg)
  1809. + char *arg; {
  1810. + 
  1811. +     if (!prologs) {
  1812. +     prologs = (char **) mustmalloc(PROCHUNK * sizeof(char*), "prologs");
  1813. +     procount = 0;
  1814. +     }
  1815. + 
  1816. +     prologs[procount] = (char *) mustmalloc(strlen(arg)+1, "prolog item");
  1817. +     strcpy(prologs[procount++], arg);
  1818. + 
  1819. +     /* insert the null */
  1820. +     if ((procount % PROCHUNK) == 0)
  1821. +     prologs = (char **) realloc((char *) prologs,
  1822. +         (procount + PROCHUNK) * sizeof(char *));
  1823. +     prologs[procount] = (char *) NULL;
  1824. + }
  1825. + 
  1826. + #ifdef DEBUG
  1827. + dumpprologs() {
  1828. +     char **pp;
  1829. +     if (!(debug&D_SPEC) || !prologs)
  1830. +     return;
  1831. +     for (pp = prologs; *pp; pp++)
  1832. +     DBP((D_SPEC, "S prologs: %s\n", *pp));
  1833. + }
  1834. + #endif
  1835. + 
  1836. + void
  1837. + setnp(param, value)
  1838. + char *param;
  1839. + int value; {
  1840. +     char buf[30];
  1841. +     sprintf(buf, "X%s=%d", param, value);
  1842. +     insprolog(buf);
  1843. + }
  1844. + 
  1845. + static int outputres;
  1846. + setparams(outres)
  1847. + int outres; {
  1848. +     char buf[30];
  1849. + 
  1850. +     outputres = outres;
  1851. + 
  1852. +     setnp("pagelength", pagelength * outres / TROFFRESOLUTION);
  1853. +     setnp("pagewidth", pagewidth * outres / TROFFRESOLUTION);
  1854. +     setnp("pagexoffset", pageoffset * outres / TROFFRESOLUTION);
  1855. +     setnp("pageyoffset", pageyoffset * outres / TROFFRESOLUTION);
  1856. +     insprolog("Xdefault=1");
  1857. + }
  1858. + 
  1859. + static
  1860. + preeval(line)
  1861. + char *line; {
  1862. +     int ret;
  1863. +     if (!*line)
  1864. +     return(0);
  1865. +     while(*line && isspace(*line)) line++;
  1866. +     ret = atoi(line);
  1867. +     DBP((D_SPEC, "S preeval: '%s', returns %d\n", line, ret));
  1868. +     return(ret);
  1869. + }
  1870. + 
  1871. + static
  1872. + seetok(line, tok, len)
  1873. + char *line, *tok;
  1874. + int len; {
  1875. +     register char *t = line, *f;
  1876. + 
  1877. +     line++;
  1878. +     while(*line && isspace(*line)) line++;
  1879. +     DBP((D_SPEC, "S seetok: (%s,%s,%d)\n", line, tok, len));
  1880. +     if (strncmp(line, tok, len) == 0 &&
  1881. +     (!*(line+len) || isspace(*(line+len)) )) {
  1882. + 
  1883. +     for (f = line+len; *f && isspace(*f); f++);
  1884. +     if (!*f)
  1885. +         *t = '\0';
  1886. +     else
  1887. +         while(*t++ = *f++);
  1888. +     return(1);
  1889. +     } else
  1890. +     return(0);
  1891. + }
  1892. + 
  1893. + char *
  1894. + findval(var)
  1895. + char *var; {
  1896. +     register char **pro, *pp;
  1897. +     int vlen = strlen(var);
  1898. +     if (pro = prologs)
  1899. +     for(;*pro ; pro++)
  1900. +         if (**pro == 'X') {
  1901. +         pp = (*pro) + 1;
  1902. +         if (strncmp(var, pp, vlen) == 0)
  1903. +             if (*(pp + vlen) == '\0') {
  1904. +             return("1");
  1905. +             } else if (*(pp + vlen) == '=') {
  1906. +             return(pp + vlen + 1);
  1907. +             }
  1908. +         }
  1909. +     return("");
  1910. + }
  1911. + 
  1912. + #define    EVAL    "_eval("
  1913. + #define LENEVAL    6
  1914. + static void
  1915. + domacros(line)
  1916. + char *line; {
  1917. +     char temp[512];
  1918. +     register char *varptr, *restptr, *subs, *modptr;
  1919. +     int value;
  1920. + 
  1921. +     while((varptr = mystrstr(line, EVAL))) {
  1922. +     if (!(restptr = strchr(varptr + LENEVAL, ')'))) {
  1923. +         fprintf(stderr, "%s: malformed _eval() in line: %s\n", progname, line);
  1924. +         return;
  1925. +     }
  1926. +     *varptr = '\0';
  1927. +     varptr += LENEVAL;
  1928. + 
  1929. +     *restptr++ = '\0';
  1930. + 
  1931. +     if (modptr = strchr(varptr, ','))
  1932. +         *modptr++ = '\0';
  1933. + 
  1934. +     DBP((D_SPEC, "S _eval(%s), line: %s|SUBS|%s\n", varptr, line, restptr));
  1935. +     subs = findval(varptr);
  1936. + 
  1937. +     strcpy(temp, line);
  1938. + 
  1939. +     if (!modptr)
  1940. +         strcat(temp, subs);
  1941. +     else {
  1942. +         value = atoi(subs);
  1943. +         
  1944. +         if (isdigit(*modptr))
  1945. +         value *= atoi(modptr);
  1946. +         else
  1947. +         switch(*modptr) {
  1948. +             case 'i':
  1949. +             break;
  1950. +             case 'd':
  1951. +             value *= 720;
  1952. +             break;
  1953. +             case 'c':
  1954. +             value *= 2.54;
  1955. +             break;
  1956. +             case 'p':
  1957. +             value *= 72;
  1958. +             break;
  1959. +             case 'P':
  1960. +             value *= 6;
  1961. +             break;
  1962. +         }
  1963. +         value /= outputres;
  1964. +         subs = temp + strlen(temp);
  1965. +         sprintf(subs, "%d", value);
  1966. +     }
  1967. +     strcat(temp, restptr);
  1968. +     strcpy(line, temp);
  1969. +     DBP((D_SPEC, "S evalresult: %s\n", line));
  1970. +     }
  1971. + }
  1972. + 
  1973. + /*    FSA to do preprocessing:
  1974. +         #ifelse <condition>
  1975. +         #ifelse <condition2>
  1976. +         #endif
  1977. + 
  1978. +     Returns 1 to pass thru the line.  otherwise 0 means skip it.
  1979. +  */
  1980. + int
  1981. + preproc(line, state)
  1982. + char *line;
  1983. + int *state; {
  1984. +     int seenflag = SEE_NONE;
  1985. +     register char *p;
  1986. + 
  1987. +     if (p = strchr(line, '\n'))
  1988. +     *p = '\0';
  1989. + 
  1990. +     domacros(line);
  1991. + 
  1992. +     if (line[0] == '#') {
  1993. +     if (seetok(line, "if", 2) ||
  1994. +         seetok(line, "elif", 4))
  1995. +         seenflag = SEE_IFELSE;
  1996. +     else if (seetok(line, "endif", 5))
  1997. +         seenflag = SEE_ENDIF;
  1998. +     else {
  1999. +         fprintf(stderr, "%s: invalid preprocessor directive: %s\n", progname,
  2000. +         line);
  2001. +         return(0);
  2002. +     }
  2003. +     DBP((D_SPEC, "S preproc: '%s', line: %s\n", sepr[seenflag], line));
  2004. +     }
  2005. + 
  2006. +     switch(*state) {
  2007. +     case ST_PASSTHRU:
  2008. +         switch (seenflag) {
  2009. +             case SEE_NONE:
  2010. +             break;
  2011. +         case SEE_ENDIF:
  2012. +             fprintf(stderr, "%s: ifelse-less endif\n", progname);
  2013. +             break;
  2014. +         case SEE_IFELSE:
  2015. +             if (preeval(line))
  2016. +             *state = ST_IFPASSTHRU;
  2017. +             else
  2018. +             *state = ST_IFSKIPPING;
  2019. +             break;
  2020. +         }
  2021. +         break;
  2022. +     case ST_IFPASSTHRU:
  2023. +         switch(seenflag) {
  2024. +         case SEE_NONE:
  2025. +             break;
  2026. +         case SEE_IFELSE:
  2027. +             *state = ST_IFDONE;
  2028. +             break;
  2029. +         case SEE_ENDIF:
  2030. +             *state = ST_PASSTHRU;
  2031. +             break;
  2032. +         }
  2033. +         break;
  2034. +     case ST_IFSKIPPING:
  2035. +         switch(seenflag) {
  2036. +         case SEE_NONE:
  2037. +             break;
  2038. +         case SEE_IFELSE:
  2039. +             if (preeval(line))
  2040. +             *state = ST_IFPASSTHRU;
  2041. +             break;
  2042. +         case SEE_ENDIF:
  2043. +             *state = ST_PASSTHRU;
  2044. +             break;
  2045. +         }
  2046. +         break;
  2047. +     case ST_IFDONE:
  2048. +         if (seenflag == SEE_ENDIF)
  2049. +         *state = ST_PASSTHRU;
  2050. +         break;
  2051. +     }
  2052. +     if (seenflag != SEE_NONE || *state == ST_IFSKIPPING || *state == ST_IFDONE)
  2053. +     seenflag = 0;
  2054. +     else
  2055. +     seenflag = 1;
  2056. +     DBP((D_SPEC, "S preproc(%s:%s) line: %s\n", seenflag == 1?"pass":"skip",
  2057. +     stpr[*state], line));
  2058. +     return(seenflag);
  2059. + }
  2060. + 
  2061.   interp(buf, xlator, suf)
  2062.   char *buf, *suf; FUNC xlator; {
  2063.       register char *p;
  2064. ***************
  2065. *** 69,87 ****
  2066.       FILE *inc;
  2067.       binary = (token[0] == 'b') ? 1: 0;
  2068.       p = gettok(p, token);
  2069. !     DBP((D_SPEC, "Trying to include %s\n", token));
  2070.       if (!(inc = fopen(token, "r"))) {
  2071.           strcat(token, ".");
  2072.           strcat(token, suf);
  2073. !         DBP((D_SPEC, "Trying to include %s\n", token));
  2074.           if (!(inc = fopen(token, "r"))) {
  2075.           char nbuf[512];
  2076.           if (token[0] != '/') {
  2077.               sprintf(nbuf, "%s/%s", "lib", token);
  2078. !             DBP((D_SPEC, "Trying to include %s\n", nbuf));
  2079.               if (!(inc = fopen(nbuf, "r"))) {
  2080.               sprintf(nbuf, "%s/%s", LIBDIR, token);
  2081. !             DBP((D_SPEC, "Trying to include %s\n", nbuf));
  2082.               inc = fopen(nbuf, "r");
  2083.               }
  2084.           }
  2085. --- 353,371 ----
  2086.       FILE *inc;
  2087.       binary = (token[0] == 'b') ? 1: 0;
  2088.       p = gettok(p, token);
  2089. !     DBP((D_SPEC, "S include %s?\n", token));
  2090.       if (!(inc = fopen(token, "r"))) {
  2091.           strcat(token, ".");
  2092.           strcat(token, suf);
  2093. !         DBP((D_SPEC, "S include %s?\n", token));
  2094.           if (!(inc = fopen(token, "r"))) {
  2095.           char nbuf[512];
  2096.           if (token[0] != '/') {
  2097.               sprintf(nbuf, "%s/%s", "lib", token);
  2098. !             DBP((D_SPEC, "S include %s?\n", nbuf));
  2099.               if (!(inc = fopen(nbuf, "r"))) {
  2100.               sprintf(nbuf, "%s/%s", LIBDIR, token);
  2101. !             DBP((D_SPEC, "S include %s?\n", nbuf));
  2102.               inc = fopen(nbuf, "r");
  2103.               }
  2104.           }
  2105. ***************
  2106. *** 91,97 ****
  2107.           fprintf(stderr, "%s: cannot open file %s\n", progname, token);
  2108.           exit(1);
  2109.       } else {
  2110. !         DBP((D_SPEC, "Successfull include\n"));
  2111.           if (binary || !xlator)
  2112.           while ((binary = fread(token, 1, sizeof(token), inc)) > 0)
  2113.               fwrite(token, 1, binary, stdout);
  2114. --- 375,381 ----
  2115.           fprintf(stderr, "%s: cannot open file %s\n", progname, token);
  2116.           exit(1);
  2117.       } else {
  2118. !         DBP((D_SPEC, "S include successful\n"));
  2119.           if (binary || !xlator)
  2120.           while ((binary = fread(token, 1, sizeof(token), inc)) > 0)
  2121.               fwrite(token, 1, binary, stdout);
  2122. ***************
  2123. *** 210,216 ****
  2124.               }
  2125.   
  2126.               if (state == READEXT) {
  2127. -                 extern char *realloc();
  2128.                   if (!(extcount % EXTCHUNK)) {
  2129.                   if (!extchars) {
  2130.                       extchars = (struct troff2befont *)
  2131. --- 494,499 ----
  2132. ***************
  2133. *** 284,290 ****
  2134.       if (debug&D_CAT) {
  2135.       static char wid[4] = { 2, 25, 30, 10 };
  2136.       for (count = 0; count < tableindex; count++) {
  2137. !         DBP((D_CAT, "font %2d:", count));
  2138.           for(i = 0; i < 4; i++) {
  2139.           if (fonttable[count].tab[i])
  2140.               DBP((D_CAT, " %-*s", wid[i],
  2141. --- 567,573 ----
  2142.       if (debug&D_CAT) {
  2143.       static char wid[4] = { 2, 25, 30, 10 };
  2144.       for (count = 0; count < tableindex; count++) {
  2145. !         DBP((D_CAT, "C font %2d:", count));
  2146.           for(i = 0; i < 4; i++) {
  2147.           if (fonttable[count].tab[i])
  2148.               DBP((D_CAT, " %-*s", wid[i],
  2149. ***************
  2150. *** 430,436 ****
  2151.   #endif
  2152.       register struct fonttable *p;
  2153.       int intfont;
  2154. !     DBP((D_SPEC, "FontSel: %s -> %s\n", from, to));
  2155.   
  2156.       intfont = atoi(from);
  2157.   
  2158. --- 713,719 ----
  2159.   #endif
  2160.       register struct fonttable *p;
  2161.       int intfont;
  2162. !     DBP((D_SPEC, "S FontSel: %s -> %s\n", from, to));
  2163.   
  2164.       intfont = atoi(from);
  2165.   
  2166. ***************
  2167. *** 449,455 ****
  2168.       intfont = INTFONTS - 1;
  2169.       if (strcmp(to, "S") == 0) {
  2170.       symidx = intfont;
  2171. !     DBP((D_CAT, "Special font is: %d\n", symidx));
  2172.       }
  2173.   
  2174.       for (p = fonttable; p->troffName; p++)
  2175. --- 732,738 ----
  2176.       intfont = INTFONTS - 1;
  2177.       if (strcmp(to, "S") == 0) {
  2178.       symidx = intfont;
  2179. !     DBP((D_CAT, "C Special font is: %d\n", symidx));
  2180.       }
  2181.   
  2182.       for (p = fonttable; p->troffName; p++)
  2183. ***************
  2184. *** 472,478 ****
  2185.   #ifdef    DEBUG
  2186.       for (i = 0; i < INTFONTS; i++)
  2187.       if (xlatetable[i])
  2188. !         DBP((D_SPEC, "Font %d->%s\n", i+1, xlatetable[i]->fontName));
  2189.   #endif
  2190.   }
  2191.   
  2192. --- 755,761 ----
  2193.   #ifdef    DEBUG
  2194.       for (i = 0; i < INTFONTS; i++)
  2195.       if (xlatetable[i])
  2196. !         DBP((D_SPEC, "S Font %d->%s\n", i+1, xlatetable[i]->fontName));
  2197.   #endif
  2198.   }
  2199.   
  2200. ***************
  2201. *** 506,515 ****
  2202.   }
  2203.   
  2204.   doprologs() {
  2205.       if (!prologs)
  2206.       return;
  2207. !     while(*prologs)
  2208. !     dospecial(*prologs++);
  2209.   }
  2210.   
  2211.   #ifdef    OPT
  2212. --- 789,800 ----
  2213.   }
  2214.   
  2215.   doprologs() {
  2216. +     register char **pp;
  2217.       if (!prologs)
  2218.       return;
  2219. !     for(pp = prologs;*pp;pp++)
  2220. !     if (**pp != 'X')
  2221. !         dospecial(*pp);
  2222.   }
  2223.   
  2224.   #ifdef    OPT
  2225. ***************
  2226. *** 524,530 ****
  2227.       p->widthtable = mustmalloc(224, "widthtable");
  2228.       strcpy(widthptr, "ft");
  2229.       strcat(widthptr, p->troffName);
  2230. !     DBP((D_SPEC, "Attempting to read font file %s\n", widthtables));
  2231.       if (f = fopen(widthtables, "r")) {
  2232.       for (c = 0; c < HEADERSIZE; c++) getc(f);
  2233.   #ifdef    ASCIIWIDTHS
  2234. --- 809,815 ----
  2235.       p->widthtable = mustmalloc(224, "widthtable");
  2236.       strcpy(widthptr, "ft");
  2237.       strcat(widthptr, p->troffName);
  2238. !     DBP((D_SPEC, "S Attempting to read font file %s\n", widthtables));
  2239.       if (f = fopen(widthtables, "r")) {
  2240.       for (c = 0; c < HEADERSIZE; c++) getc(f);
  2241.   #ifdef    ASCIIWIDTHS
  2242. ***************
  2243. *** 536,549 ****
  2244.           progname, widthtables);
  2245.           free(p->widthtable);
  2246.           p->widthtable = (char *) 1;
  2247. !         DBP((D_SPEC, "Load of %s failed\n", widthtables));
  2248.       } else {
  2249.           for (c = 0; c < 224; c++)
  2250.           p->widthtable[c] &= 0x3f;
  2251. !         DBP((D_SPEC, "Load of %s succeeded\n", widthtables));
  2252.       }
  2253.       } else {
  2254. !     DBP((D_SPEC, "Failed to open widthtable %s\n", widthtables));
  2255.       free(p->widthtable);
  2256.       p->widthtable = (char *) 1;
  2257.       /* This isn't really the right way to do this, but.... */
  2258. --- 821,834 ----
  2259.           progname, widthtables);
  2260.           free(p->widthtable);
  2261.           p->widthtable = (char *) 1;
  2262. !         DBP((D_SPEC, "S Load of %s failed\n", widthtables));
  2263.       } else {
  2264.           for (c = 0; c < 224; c++)
  2265.           p->widthtable[c] &= 0x3f;
  2266. !         DBP((D_SPEC, "S Load of %s succeeded\n", widthtables));
  2267.       }
  2268.       } else {
  2269. !     DBP((D_SPEC, "S Failed to open widthtable %s\n", widthtables));
  2270.       free(p->widthtable);
  2271.       p->widthtable = (char *) 1;
  2272.       /* This isn't really the right way to do this, but.... */
  2273. Index: ./ps.c
  2274. *** /tmp/PATCHold/./ps.c    Wed Jan 13 02:17:57 1993
  2275. --- ./ps.c    Wed Jan 13 02:18:00 1993
  2276. ***************
  2277. *** 15,21 ****
  2278.   
  2279.   #ifndef    lint
  2280.   static char SCCSid[] =
  2281. !     "@(#)ps.c: 2.21 Copyright 92/11/26 19:41:28 Chris Lewis";
  2282.   #endif
  2283.   
  2284.   /*    ps.c will generate some additional "print" commands to cause
  2285. --- 15,21 ----
  2286.   
  2287.   #ifndef    lint
  2288.   static char SCCSid[] =
  2289. !     "@(#)ps.c: 2.22 Copyright 92/12/20 23:07:00 Chris Lewis";
  2290.   #endif
  2291.   
  2292.   /*    ps.c will generate some additional "print" commands to cause
  2293. ***************
  2294. *** 524,534 ****
  2295.       long curtime;
  2296.       register struct fonttable *p;
  2297.   
  2298.       currentPage = 0;
  2299.       pagePending = 1;
  2300.   
  2301. -     library = libopen(printer, "lib");
  2302. - 
  2303.       time(&curtime);
  2304.       strcpy(buffer, ctime(&curtime));
  2305.       *strchr(buffer, '\n') = '\0';
  2306. --- 524,534 ----
  2307.       long curtime;
  2308.       register struct fonttable *p;
  2309.   
  2310. +     setparams(PSRESOLUTION);
  2311. + 
  2312.       currentPage = 0;
  2313.       pagePending = 1;
  2314.   
  2315.       time(&curtime);
  2316.       strcpy(buffer, ctime(&curtime));
  2317.       *strchr(buffer, '\n') = '\0';
  2318. ***************
  2319. *** 560,565 ****
  2320. --- 560,567 ----
  2321.       printf("flush\n");
  2322.   #endif
  2323.       printf("usertime /btime exch def\n");
  2324. + 
  2325. +     library = libopen(printer, "lib");
  2326.       psXlate(library, "lib.ps");
  2327.   
  2328.       for (p = fonttable; p->troffName; p++) {
  2329. ***************
  2330. *** 606,616 ****
  2331.   FILE *library;
  2332.   char *libname; {
  2333.       char buf[512];
  2334.       printf("%%%%BeginDocument: %s\n", libname);
  2335. !     while (fgets(buf, sizeof(buf), library))
  2336.       if (0 == strncmp(buf, "%%%", 3))
  2337.           interp(&buf[3], psXlate, "ps");
  2338. !     else
  2339.           /* some backends don't like extra %! - eg: PageView */
  2340.           if (0 == strncmp(buf, "%!", 2)) {
  2341.           buf[1] = '%';
  2342. --- 608,622 ----
  2343.   FILE *library;
  2344.   char *libname; {
  2345.       char buf[512];
  2346. +     int state = 0;
  2347. + 
  2348.       printf("%%%%BeginDocument: %s\n", libname);
  2349. !     while (fgets(buf, sizeof(buf), library)) {
  2350. !     if (!preproc(buf, &state))
  2351. !         continue;
  2352.       if (0 == strncmp(buf, "%%%", 3))
  2353.           interp(&buf[3], psXlate, "ps");
  2354. !     else {
  2355.           /* some backends don't like extra %! - eg: PageView */
  2356.           if (0 == strncmp(buf, "%!", 2)) {
  2357.           buf[1] = '%';
  2358. ***************
  2359. *** 617,622 ****
  2360. --- 623,631 ----
  2361.           fputs(&buf[1], stdout);
  2362.           } else
  2363.           fputs(buf, stdout);
  2364. +         putchar('\n');
  2365. +     }
  2366. +     }
  2367.       printf("%%%%EndDocument\n");
  2368.   }
  2369.   
  2370. Index: ./dit.c
  2371. *** /tmp/PATCHold/./dit.c    Wed Jan 13 02:18:20 1993
  2372. --- ./dit.c    Wed Jan 13 02:18:22 1993
  2373. ***************
  2374. *** 12,18 ****
  2375.   
  2376.   #ifndef    lint
  2377.   static char SCCSid[] =
  2378. !     "@(#)dit.c: 1.20 Copyright 92/07/09 23:35:14 Chris Lewis";
  2379.   #endif
  2380.   
  2381.   extern struct cattab tabN[], tabS[], *extidx;
  2382. --- 12,18 ----
  2383.   
  2384.   #ifndef    lint
  2385.   static char SCCSid[] =
  2386. !     "@(#)dit.c: 1.23 Copyright 92/12/04 23:39:55 Chris Lewis";
  2387.   #endif
  2388.   
  2389.   extern struct cattab tabN[], tabS[], *extidx;
  2390. ***************
  2391. *** 28,35 ****
  2392.   
  2393.   struct cattab *ditsearch(str)
  2394.   char *str; {
  2395. -     /* should do binary search */
  2396.       register int l, mid, h, k;
  2397.       l = 0;
  2398.       h = extcount - 1;
  2399.   #ifdef    NEVER
  2400. --- 28,35 ----
  2401.   
  2402.   struct cattab *ditsearch(str)
  2403.   char *str; {
  2404.       register int l, mid, h, k;
  2405. +     struct cattab *dp;
  2406.       l = 0;
  2407.       h = extcount - 1;
  2408.   #ifdef    NEVER
  2409. ***************
  2410. *** 40,48 ****
  2411.       while(l <= h) {
  2412.       mid = (l + h) >> 1;
  2413.       k = strcmp(str, spctab[mid]->ch_name);
  2414. !     if (k == 0)
  2415. !         return(spctab[mid]);
  2416. !     else if (k < 0)
  2417.           h = mid - 1;
  2418.       else
  2419.           l = mid + 1;
  2420. --- 40,52 ----
  2421.       while(l <= h) {
  2422.       mid = (l + h) >> 1;
  2423.       k = strcmp(str, spctab[mid]->ch_name);
  2424. !     if (k == 0) {
  2425. !         dp = spctab[mid];
  2426. !         DBP((D_CAT,
  2427. !         "D ditsearch(%s) -> ch_name: %s, set: %d, catidx: %d, wididx: %d, desc: %s\n",
  2428. !         str, dp->ch_name, dp->ch_set, dp->ch_catidx, dp->ch_wididx, dp->ch_desc));
  2429. !         return(dp);
  2430. !     } else if (k < 0)
  2431.           h = mid - 1;
  2432.       else
  2433.           l = mid + 1;
  2434. ***************
  2435. *** 58,72 ****
  2436.   addtab(table)
  2437.   struct cattab *table; {
  2438.       register struct cattab *p;
  2439. -     extern char *realloc();
  2440.   
  2441.       for (p = table; p->ch_name != NOC; p++) {
  2442. !     DBP((D_CAT, "Addtab: %s\n", p->ch_name));
  2443. !     if (p->ch_desc != NOC && p->ch_catidx != NTC)
  2444. !         if (strlen(p->ch_name) == 1)
  2445.           dittab[p->ch_name[0]] = p;
  2446. !         else {
  2447. !         DBP((D_CAT, "AddtabS: %s %d\n", p->ch_name, extcount));
  2448.           if (extcount > 0 && !(extcount%EXTCHUNK)) {
  2449.               spctab = (struct cattab **) realloc(spctab,
  2450.               sizeof(struct cattab *) * (extcount + EXTCHUNK + 1));
  2451. --- 62,75 ----
  2452.   addtab(table)
  2453.   struct cattab *table; {
  2454.       register struct cattab *p;
  2455.   
  2456.       for (p = table; p->ch_name != NOC; p++) {
  2457. !     if (p->ch_desc != NOC && p->ch_catidx != NTC) {
  2458. !         DBP((D_CAT, "D addtab: %s, desc: %s, catidx: %d\n", p->ch_name,
  2459. !         p->ch_desc, p->ch_catidx));
  2460. !         if (strlen(p->ch_name) == 1) {
  2461.           dittab[p->ch_name[0]] = p;
  2462. !         } else {
  2463.           if (extcount > 0 && !(extcount%EXTCHUNK)) {
  2464.               spctab = (struct cattab **) realloc(spctab,
  2465.               sizeof(struct cattab *) * (extcount + EXTCHUNK + 1));
  2466. ***************
  2467. *** 76,87 ****
  2468.           }
  2469.           spctab[extcount++] = p;
  2470.           }
  2471.       }
  2472.   }
  2473.   
  2474.   fixtab() {
  2475.       register int i;
  2476. -     extern char *malloc();
  2477.   
  2478.       dittab = (struct cattab **) mustmalloc(sizeof(struct cattab *) * 256,
  2479.       "dittab");
  2480. --- 79,90 ----
  2481.           }
  2482.           spctab[extcount++] = p;
  2483.           }
  2484. +     }
  2485.       }
  2486.   }
  2487.   
  2488.   fixtab() {
  2489.       register int i;
  2490.   
  2491.       dittab = (struct cattab **) mustmalloc(sizeof(struct cattab *) * 256,
  2492.       "dittab");
  2493. ***************
  2494. *** 100,135 ****
  2495.       dittab['-'] = &tabN[31];
  2496.       dittab['_'] = &tabS[31];
  2497.   
  2498. !     DBP((D_CAT, "End addtab: %d characters\n", extcount));
  2499.   
  2500.       spctab[extcount] = NULL;
  2501.   
  2502. -     DBP((D_CAT, "After NULL\n"));
  2503. - 
  2504. - #ifdef DEBUG
  2505. -     if (debug&D_CAT) {
  2506. - 
  2507. -     for (ts = spctab; *ts; ts++)
  2508. -         DBP((D_CAT, "%s -> %08x (%d)\n", (*ts)->ch_name, *ts,
  2509. -         (*ts)->ch_catidx));
  2510. - 
  2511. -     }
  2512. - #endif
  2513. - 
  2514.       qsort(spctab, extcount, sizeof (struct cattab *), catcmp);
  2515.   
  2516. -     DBP((D_CAT, "After qsort\n"));
  2517. - 
  2518.   #ifdef DEBUG
  2519.       if (debug&D_CAT) {
  2520.   
  2521.       for (ts = spctab; *ts; ts++)
  2522. !         DBP((D_CAT, "%s -> %08x (%d)\n", (*ts)->ch_name, *ts,
  2523.           (*ts)->ch_catidx));
  2524.   
  2525.       for (i = 0; i < 256; i++)
  2526.           if (dittab[i])
  2527. !         DBP((D_CAT, "%d:%02x:%c: %d/%d\n", i, i, i, dittab[i]->ch_set,
  2528.           dittab[i]->ch_catidx));
  2529.       }
  2530.   #endif
  2531. --- 103,127 ----
  2532.       dittab['-'] = &tabN[31];
  2533.       dittab['_'] = &tabS[31];
  2534.   
  2535. !     DBP((D_CAT, "D end addtab: %d characters\n", extcount));
  2536.   
  2537.       spctab[extcount] = NULL;
  2538.   
  2539.       qsort(spctab, extcount, sizeof (struct cattab *), catcmp);
  2540.   
  2541.   #ifdef DEBUG
  2542.       if (debug&D_CAT) {
  2543. +     int i;
  2544. + 
  2545. +     DBP((D_CAT, "D after qsort\n"));
  2546.   
  2547.       for (ts = spctab; *ts; ts++)
  2548. !         DBP((D_CAT, "D %s -> %08x (%d)\n", (*ts)->ch_name, *ts,
  2549.           (*ts)->ch_catidx));
  2550.   
  2551.       for (i = 0; i < 256; i++)
  2552.           if (dittab[i])
  2553. !         DBP((D_CAT, "D %d:%02x:%c: %d/%d\n", i, i, i, dittab[i]->ch_set,
  2554.           dittab[i]->ch_catidx));
  2555.       }
  2556.   #endif
  2557. ***************
  2558. *** 152,158 ****
  2559.       register struct cattab *last = (struct cattab *) NULL;
  2560.       char special[512];
  2561.       fixtab();
  2562. -     DBP((D_CAT, "Finished fixtab\n"));
  2563.       cmd = skipwhite();
  2564.       if (cmd == 0x40) {
  2565.       fprintf(stderr, "%s: illegal starting sequence for ditroff.\n",
  2566. --- 144,149 ----
  2567. ***************
  2568. *** 172,178 ****
  2569.           case 's':
  2570.           points = getnum();
  2571.           points /= sizescale;
  2572. !         DBP((D_CAT, "Pointsize %d\n", points));
  2573.           break;
  2574.           case 'f':
  2575.           font = getnum();
  2576. --- 163,169 ----
  2577.           case 's':
  2578.           points = getnum();
  2579.           points /= sizescale;
  2580. !         DBP((D_CAT, "D point: %d\n", points));
  2581.           break;
  2582.           case 'f':
  2583.           font = getnum();
  2584. ***************
  2585. *** 186,192 ****
  2586.               font = INTFONTS - 1;
  2587.           else
  2588.               font--;
  2589. !         DBP((D_CAT, "Font %d\n", font));
  2590.           break;
  2591.           case '0':
  2592.           case '1':
  2593. --- 177,183 ----
  2594.               font = INTFONTS - 1;
  2595.           else
  2596.               font--;
  2597. !         DBP((D_CAT, "D font: %d\n", font));
  2598.           break;
  2599.           case '0':
  2600.           case '1':
  2601. ***************
  2602. *** 260,265 ****
  2603. --- 251,257 ----
  2604.           while((ch = getchar()) != EOF && !isspace(ch))
  2605.               special[i++] = ch;
  2606.           special[i] = '\0';
  2607. +         DBP((D_CAT, "D C%s, font: %d\n", special, font));
  2608.           if (last && strcmp(last->ch_name, special) == 0)
  2609.               p = last;
  2610.           else {
  2611. ***************
  2612. *** 276,286 ****
  2613.                   p->ch_set == N ? -font-1 : -symidx-1,
  2614.                   points, p->ch_catidx,
  2615.                   extchars[p->ch_catidx].t2b_charseq);
  2616. !             else
  2617. !             ditemit(xpos, ypos,
  2618. !                 p->ch_set == N ? font : symidx,
  2619. !                 points, p->ch_catidx, (char *) NULL);
  2620. !             DBP((D_CAT, "Special %s\n", special));
  2621.           }
  2622.           break;
  2623.           case 'x':
  2624. --- 268,282 ----
  2625.                   p->ch_set == N ? -font-1 : -symidx-1,
  2626.                   points, p->ch_catidx,
  2627.                   extchars[p->ch_catidx].t2b_charseq);
  2628. !             else {
  2629. !             int mfont = font;
  2630. !             if (font == symidx && p->ch_set == N)
  2631. !                 mfont = 0;
  2632. !             else if (font != symidx && p->ch_set == S)
  2633. !                 mfont = symidx;
  2634. !             ditemit(xpos, ypos, mfont, points, p->ch_catidx,
  2635. !                 (char *) NULL);
  2636. !             }
  2637.           }
  2638.           break;
  2639.           case 'x':
  2640. ***************
  2641. *** 301,307 ****
  2642.               while((ch = getchar()) != EOF && ch != '\n')
  2643.               special[i++] = ch;
  2644.               special[i] = '\0';
  2645. !             DBP((D_CAT, "Command %s\n", special));
  2646.               i = sscanf(special, "%s %s %s %s", cmd, a1, a2, a3);
  2647.               if (i <= 0) {
  2648.               fprintf(stderr, "%s: bad x command: %s\n",
  2649. --- 297,303 ----
  2650.               while((ch = getchar()) != EOF && ch != '\n')
  2651.               special[i++] = ch;
  2652.               special[i] = '\0';
  2653. !             DBP((D_CAT, "D x: %s\n", special));
  2654.               i = sscanf(special, "%s %s %s %s", cmd, a1, a2, a3);
  2655.               if (i <= 0) {
  2656.               fprintf(stderr, "%s: bad x command: %s\n",
  2657. ***************
  2658. *** 320,326 ****
  2659.                   exit(1);
  2660.                   }
  2661.                   sprintf(special, "F%s%s", a1, a2);
  2662. !                 DBP((D_CAT, "FONT %s %s\n", a1, a2));
  2663.   
  2664.                   if (be->befontsel)
  2665.                   (*be->befontsel)(a1,a2);
  2666. --- 316,322 ----
  2667.                   exit(1);
  2668.                   }
  2669.                   sprintf(special, "F%s%s", a1, a2);
  2670. !                 DBP((D_CAT, "D load: %s %s\n", a1, a2));
  2671.   
  2672.                   if (be->befontsel)
  2673.                   (*be->befontsel)(a1,a2);
  2674. ***************
  2675. *** 340,358 ****
  2676.                   exit(1);
  2677.                   }
  2678.                   halfdtres = indtres / 2;
  2679. !                 DBP((D_CAT, "RES %d\n", indtres));
  2680.                   break;
  2681.               case 'i':
  2682. !                 DBP((D_CAT, "INIT\n"));
  2683.                   if (be->beprolog)
  2684.                   (*be->beprolog)();
  2685.                   resetState();
  2686.                   break;
  2687.               case 't':
  2688. !                 DBP((D_CAT, "TRAILER\n"));
  2689.                   break;
  2690.               case 's':
  2691. !                 DBP((D_CAT, "STOP\n"));
  2692.                   return;
  2693.               case 'T':
  2694.                   if (i != 2) {
  2695. --- 336,354 ----
  2696.                   exit(1);
  2697.                   }
  2698.                   halfdtres = indtres / 2;
  2699. !                 DBP((D_CAT, "D res: %d\n", indtres));
  2700.                   break;
  2701.               case 'i':
  2702. !                 DBP((D_CAT, "D init\n"));
  2703.                   if (be->beprolog)
  2704.                   (*be->beprolog)();
  2705.                   resetState();
  2706.                   break;
  2707.               case 't':
  2708. !                 DBP((D_CAT, "D trailer\n"));
  2709.                   break;
  2710.               case 's':
  2711. !                 DBP((D_CAT, "D stop\n"));
  2712.                   return;
  2713.               case 'T':
  2714.                   if (i != 2) {
  2715. ***************
  2716. *** 362,368 ****
  2717.                   }
  2718.                   device = mustmalloc(strlen(a1) + 1, "device");
  2719.                   strcpy(device, a1);
  2720. !                 DBP((D_CAT, "TYPE %s\n", a1));
  2721.                   break;
  2722.               case 'X':
  2723.                   switch(a1[0]) {
  2724. --- 358,364 ----
  2725.                   }
  2726.                   device = mustmalloc(strlen(a1) + 1, "device");
  2727.                   strcpy(device, a1);
  2728. !                 DBP((D_CAT, "D type: %s\n", a1));
  2729.                   break;
  2730.               case 'X':
  2731.                   switch(a1[0]) {
  2732. ***************
  2733. *** 384,394 ****
  2734.           break;
  2735.           case 'H':
  2736.           xpos = getnum();
  2737. !         DBP((D_CAT, "Hor: %d\n", xpos));
  2738.           break;
  2739.           case 'h':
  2740.           xpos += getnum();
  2741. !         DBP((D_CAT, "Hor (inc): %d\n", xpos));
  2742.           break;
  2743.           case 'V':
  2744.   #ifdef    OPT
  2745. --- 380,390 ----
  2746.           break;
  2747.           case 'H':
  2748.           xpos = getnum();
  2749. !         DBP((D_CAT, "D H: %d\n", xpos));
  2750.           break;
  2751.           case 'h':
  2752.           xpos += getnum();
  2753. !         DBP((D_CAT, "D Hi: %d\n", xpos));
  2754.           break;
  2755.           case 'V':
  2756.   #ifdef    OPT
  2757. ***************
  2758. *** 395,401 ****
  2759.           canonflush();
  2760.   #endif
  2761.           ypos = getnum();
  2762. !         DBP((D_CAT, "Ver: %d\n", ypos));
  2763.           break;
  2764.           case 'v':
  2765.   #ifdef    OPT
  2766. --- 391,397 ----
  2767.           canonflush();
  2768.   #endif
  2769.           ypos = getnum();
  2770. !         DBP((D_CAT, "D V: %d\n", ypos));
  2771.           break;
  2772.           case 'v':
  2773.   #ifdef    OPT
  2774. ***************
  2775. *** 402,413 ****
  2776.           canonflush();
  2777.   #endif
  2778.           ypos += getnum();
  2779. !         DBP((D_CAT, "Ver (inc): %d\n", ypos));
  2780.           break;
  2781.           break;
  2782.           case 'p':
  2783.           ch = getnum();
  2784. !         DBP((D_CAT, "Page %d\n", ch));
  2785.           if (be->bepage)
  2786.               (*be->bepage)();
  2787.           break;
  2788. --- 398,409 ----
  2789.           canonflush();
  2790.   #endif
  2791.           ypos += getnum();
  2792. !         DBP((D_CAT, "D Vi: %d\n", ypos));
  2793.           break;
  2794.           break;
  2795.           case 'p':
  2796.           ch = getnum();
  2797. !         DBP((D_CAT, "D page: %d\n", ch));
  2798.           if (be->bepage)
  2799.               (*be->bepage)();
  2800.           break;
  2801. ***************
  2802. *** 435,441 ****
  2803.           while((ch = getchar()) != EOF && ch != '\n')
  2804.               special[i++] = ch;
  2805.           special[i] = '\0';
  2806. !         DBP((D_CAT, "#/D/! %s\n", special));
  2807.   
  2808.           switch(cmd) {
  2809.               case '#':
  2810. --- 431,437 ----
  2811.           while((ch = getchar()) != EOF && ch != '\n')
  2812.               special[i++] = ch;
  2813.           special[i] = '\0';
  2814. !         DBP((D_CAT, "D passthru: %s\n", special));
  2815.   
  2816.           switch(cmd) {
  2817.               case '#':
  2818. ***************
  2819. *** 471,478 ****
  2820.                   for (i = 0; i < ct; i++)
  2821.                   values[i] = DIT2CAT(values[i]);
  2822.   
  2823. ! DBP((D_CAT, "Draw: xpos,ypos,opcode,ct,special = %d,%d,%d,%d,%s\n",
  2824. !     xpos, ypos, opcode, ct, special));
  2825.   
  2826.               if (be->bedraw)
  2827.                   (*be->bedraw)(DIT2CAT(xpos), DIT2CAT(ypos),
  2828. --- 467,474 ----
  2829.                   for (i = 0; i < ct; i++)
  2830.                   values[i] = DIT2CAT(values[i]);
  2831.   
  2832. !             DBP((D_CAT, "D D: xpos,ypos,opcode,ct,special = %d,%d,%d,%d,%s\n",
  2833. !                 xpos, ypos, opcode, ct, special));
  2834.   
  2835.               if (be->bedraw)
  2836.                   (*be->bedraw)(DIT2CAT(xpos), DIT2CAT(ypos),
  2837. ***************
  2838. *** 500,506 ****
  2839.       while((c = getchar()) != EOF && isdigit(c))
  2840.       ret = ret * 10 + (c - '0');
  2841.       ungetc(c, stdin);
  2842. -     DBP((D_CAT, "Getnum: %d\n", ret));
  2843.       return(ret);
  2844.   }
  2845.   
  2846. --- 496,501 ----
  2847. ***************
  2848. *** 508,514 ****
  2849.   int x, y;
  2850.   int font, points, troffChar;
  2851.   register char *sequence; {
  2852. !     DBP((D_CAT, "x,y: %d/%d -> ", x, y));
  2853.       x = DIT2CAT(x);
  2854.       y = DIT2CAT(y);
  2855.       DBP((D_CAT, "%d/%d (font,points,ch = %d,%d,%d)\n", x, y, font, points,
  2856. --- 503,509 ----
  2857.   int x, y;
  2858.   int font, points, troffChar;
  2859.   register char *sequence; {
  2860. !     DBP((D_CAT, "D E: x,y: %d/%d -> ", x, y));
  2861.       x = DIT2CAT(x);
  2862.       y = DIT2CAT(y);
  2863.       DBP((D_CAT, "%d/%d (font,points,ch = %d,%d,%d)\n", x, y, font, points,
  2864. ***************
  2865. *** 526,528 ****
  2866. --- 521,524 ----
  2867.   #endif
  2868.   }
  2869.   #endif
  2870. + 
  2871. Index: ./troff2.c
  2872. *** /tmp/PATCHold/./troff2.c    Wed Jan 13 02:18:35 1993
  2873. --- ./troff2.c    Wed Jan 13 02:18:37 1993
  2874. ***************
  2875. *** 12,18 ****
  2876.   
  2877.   #ifndef    lint
  2878.   static char SCCSid[] =
  2879. !     "@(#)troff2.c: 2.27 Copyright 92/08/09 23:41:28 Chris Lewis";
  2880.   #endif
  2881.   
  2882.   #define    ESC    0x80
  2883. --- 12,18 ----
  2884.   
  2885.   #ifndef    lint
  2886.   static char SCCSid[] =
  2887. !     "@(#)troff2.c: 2.29 Copyright 92/12/20 23:07:29 Chris Lewis";
  2888.   #endif
  2889.   
  2890.   #define    ESC    0x80
  2891. ***************
  2892. *** 47,52 ****
  2893. --- 47,53 ----
  2894.   #define    CTOINT(val,sig)    ((~c)&sig)
  2895.   
  2896.   int pagelength;
  2897. + int pagewidth;
  2898.   int pageoffset;
  2899.   int pageyoffset;
  2900.   
  2901. ***************
  2902. *** 66,73 ****
  2903.   char *device = {"alw"};
  2904.   char **prologs = (char **) NULL;
  2905.   char *pstrailer = "\004";
  2906. - #define    PROCHUNK    20
  2907. - int procount;
  2908.   
  2909.   #ifdef    L_cuserid
  2910.   #define    nmMAX    L_cuserid
  2911. --- 67,72 ----
  2912. ***************
  2913. *** 90,98 ****
  2914.   int    sizescale;
  2915.   #endif
  2916.   
  2917. - extern char *realloc();
  2918.   
  2919. ! #define    OPTLIST    "d:O:Y:T:VD:l:MR:P::zp:W:ZNnSG:g:"
  2920.   
  2921.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  2922.       two extra longs on the stack between the stack frame and
  2923. --- 89,96 ----
  2924.   int    sizescale;
  2925.   #endif
  2926.   
  2927.   
  2928. ! #define    OPTLIST    "d:O:Y:T:VD:l:w:MR:P::zp:W:ZNnSG:g:"
  2929.   
  2930.   /*    On 386/ix 1.0.6 profiling has a bug in it that leaves
  2931.       two extra longs on the stack between the stack frame and
  2932. ***************
  2933. *** 118,123 ****
  2934. --- 116,122 ----
  2935.   
  2936.       extern int getopt();
  2937.       extern char *optarg;
  2938. +     extern void insprolog();
  2939.   
  2940.   #ifdef    L_cuserid
  2941.   
  2942. ***************
  2943. *** 136,145 ****
  2944. --- 135,147 ----
  2945.           sprintf(username, "uid=%d", getuid());
  2946.   
  2947.       /* some compilers complain about floating point in initializers... */
  2948. + 
  2949.       pagelength = DEFPL * TROFFRESOLUTION;
  2950. +     pagewidth = DEFPW * TROFFRESOLUTION;
  2951.       pageoffset = DEFOFF * TROFFRESOLUTION;
  2952.       pageyoffset = DEFYOFF * TROFFRESOLUTION;
  2953.   
  2954. + 
  2955.       progname = strrchr(argv[0], '/');
  2956.       if (progname)
  2957.           progname++;
  2958. ***************
  2959. *** 189,206 ****
  2960.               break;
  2961.   #endif
  2962.           case 'P':
  2963. !             if (!prologs) {
  2964. !             prologs = (char **) mustmalloc(PROCHUNK * sizeof(char*),
  2965. !                 "prologs");
  2966. !             procount = 0;
  2967. !             }
  2968. !             prologs[procount++] = optarg;
  2969. !             /* insert the null */
  2970. !             if ((procount % PROCHUNK) == 0) {
  2971. !             prologs = (char **) realloc((char *) prologs,
  2972. !                 (procount + PROCHUNK) * sizeof(char *));
  2973. !             }
  2974. !             prologs[procount] = (char *) NULL;
  2975.               break;
  2976.           case 'p':
  2977.               printer = optarg;
  2978. --- 191,197 ----
  2979.               break;
  2980.   #endif
  2981.           case 'P':
  2982. !             insprolog(optarg);
  2983.               break;
  2984.           case 'p':
  2985.               printer = optarg;
  2986. ***************
  2987. *** 276,287 ****
  2988.               exit(1);
  2989.               }
  2990.               break;
  2991.           case '?':
  2992.           default:
  2993.               usage();
  2994.               exit(1);
  2995.           }
  2996. !     
  2997.   #ifdef    OPT
  2998.       if (dtopt)
  2999.           optimize = 1;
  3000. --- 267,286 ----
  3001.               exit(1);
  3002.               }
  3003.               break;
  3004. +         case 'w':
  3005. +             pagewidth = calc(optarg);
  3006. +             if (pagewidth == 0) {
  3007. +             fprintf(stderr, "%s: Bad pagewidth %s\n", progname,
  3008. +                 optarg);
  3009. +             exit(1);
  3010. +             }
  3011. +             break;
  3012.           case '?':
  3013.           default:
  3014.               usage();
  3015.               exit(1);
  3016.           }
  3017. ! 
  3018.   #ifdef    OPT
  3019.       if (dtopt)
  3020.           optimize = 1;
  3021. ***************
  3022. *** 303,313 ****
  3023.   
  3024.       loadfont(be->bestdfont, be->besymfont);
  3025.   #ifdef    DEBUG
  3026. !     if (debug & D_SPEC) {
  3027. !         for (c = 0; c < procount; c++) {
  3028. !         DBP((D_SPEC, "Prolog %d: %s\n", c, prologs[c]));
  3029. !         }
  3030. !     }
  3031.   #endif
  3032.   
  3033.       if (dumpflag) {
  3034. --- 302,308 ----
  3035.   
  3036.       loadfont(be->bestdfont, be->besymfont);
  3037.   #ifdef    DEBUG
  3038. !     dumpprologs();
  3039.   #endif
  3040.   
  3041.       if (dumpflag) {
  3042. Index: ./defs.h
  3043. *** /tmp/PATCHold/./defs.h    Wed Jan 13 02:18:52 1993
  3044. --- ./defs.h    Wed Jan 13 02:18:54 1993
  3045. ***************
  3046. *** 9,15 ****
  3047.    */
  3048.   
  3049.   /*    Official Release and Patch level:    */
  3050. ! #define    T2VERSION    "@(#)PSROFF Copyright 92/10/30 Chris Lewis - R3 PL14"
  3051.   
  3052.   /*    Configuration parameters:
  3053.    */
  3054. --- 9,15 ----
  3055.    */
  3056.   
  3057.   /*    Official Release and Patch level:    */
  3058. ! #define    T2VERSION    "@(#)PSROFF Copyright 93/01/03 Chris Lewis - R3 PL15"
  3059.   
  3060.   /*    Configuration parameters:
  3061.    */
  3062. ***************
  3063. *** 81,86 ****
  3064. --- 81,93 ----
  3065.   #define    HEADERSIZE 0    /* size of header in bytes */
  3066.   #undef    ASCIIWIDTHS    /* For RISC/Ultrix */
  3067.   
  3068. + /* If you have malloc.h, leave this undefined.  If you don't have a
  3069. +    malloc.h, define it to be the base type returned by malloc() and
  3070. +    realloc().  Ie: if your malloc returns (char *), set MALLRET to char.
  3071. +  */
  3072. + 
  3073. + #undef MALLRET
  3074. + 
  3075.   /* What do your CAT codes look like?
  3076.   
  3077.      If BSDHACK defined, the code to magnify the next lead by 64 replaces the
  3078. ***************
  3079. *** 166,178 ****
  3080.   #define SPACEOPT    /* hyperoptimization */
  3081.   #define OPTSIZ 200    /* size of optimizer buffer */
  3082.   
  3083. ! #define    DEFPL  11    /* Default page length (11 inches).
  3084. !                DO NOT change unless you absolutely HAVE to.
  3085. !                You should only need to change this if you
  3086. !                desire your printer to use something different
  3087. !                as default.  If so, you'll HAVE to change
  3088. !                your macro package to agree on the default - RT
  3089. !                owners take note! (the man macros are wrong) */
  3090.   
  3091.   #define    DEFOFF 0.5    /* Default page offset.  DO NOT change unless you
  3092.                  absolutely HAVE to.  You should only need this
  3093. --- 173,186 ----
  3094.   #define SPACEOPT    /* hyperoptimization */
  3095.   #define OPTSIZ 200    /* size of optimizer buffer */
  3096.   
  3097. ! #define    DEFPL  11    /* Default page length (11 inches). */
  3098. ! #define    DEFPW  8.5    /* Default page length (8.5 inches).
  3099. !                Don't change these.  The PAPER mechanism
  3100. !                in psroff (with -l/-w options to troff2ps)
  3101. !                should handle everything the backend needs
  3102. !                to know).  Convincing the macros to use
  3103. !                different sizes is a different story.
  3104. !                -rL works with -mm */
  3105.   
  3106.   #define    DEFOFF 0.5    /* Default page offset.  DO NOT change unless you
  3107.                  absolutely HAVE to.  You should only need this
  3108. ***************
  3109. *** 246,251 ****
  3110. --- 254,265 ----
  3111.   #include <stdio.h>
  3112.   #include <ctype.h>
  3113.   
  3114. + #ifndef MALLRET
  3115. + #include <malloc.h>
  3116. + #else
  3117. + extern MALLRET *malloc(), *realloc();
  3118. + #endif
  3119. + 
  3120.   #ifdef BSD
  3121.   #include <strings.h>
  3122.   #define    strchr    index
  3123. ***************
  3124. *** 362,368 ****
  3125.   
  3126.   extern int symidx;        /* index of symbol font */
  3127.   
  3128. ! #define    INTFONTS    10    /* maximum number of builtin fonts */
  3129.   
  3130.   extern struct fonttable fonttable[MAXFONTS+1];
  3131.   extern struct fonttable *xlatetable[INTFONTS];
  3132. --- 376,386 ----
  3133.   
  3134.   extern int symidx;        /* index of symbol font */
  3135.   
  3136. ! #define    INTFONTS    15    /* Max simultaneously mounted fonts.
  3137. !                    Don't put more than INTFONTS-1 fonts
  3138. !                    into a ditroff DESC file.  Most
  3139. !                    DWB's have a compiled-in max of 10
  3140. !                    (max DESC value of 9) */
  3141.   
  3142.   extern struct fonttable fonttable[MAXFONTS+1];
  3143.   extern struct fonttable *xlatetable[INTFONTS];
  3144. ***************
  3145. *** 391,396 ****
  3146. --- 409,415 ----
  3147.   extern int pageoffset;
  3148.   extern int pageyoffset;
  3149.   extern int pagelength;
  3150. + extern int pagewidth;
  3151.   extern int pagePending;
  3152.   int dtopt;
  3153.   
  3154. Index: ./Makefile
  3155. *** /tmp/PATCHold/./Makefile    Wed Jan 13 02:19:13 1993
  3156. --- ./Makefile    Wed Jan 13 02:19:24 1993
  3157. ***************
  3158. *** 7,13 ****
  3159.   #    Function: Upper level makefile; configuration options.
  3160.   #
  3161.   #
  3162. ! #ident  "@(#)Makefile: 2.35 Copyright 92/10/30 02:28:20 Chris Lewis"
  3163.   
  3164.   #    If you're not sure whether you have a System V make, leave
  3165.   #    this alone, and run the make anyways.  If it dies horribly
  3166. --- 7,13 ----
  3167.   #    Function: Upper level makefile; configuration options.
  3168.   #
  3169.   #
  3170. ! #ident  "@(#)Makefile: 2.37 Copyright 93/01/10 10:51:43 Chris Lewis"
  3171.   
  3172.   #    If you're not sure whether you have a System V make, leave
  3173.   #    this alone, and run the make anyways.  If it dies horribly
  3174. ***************
  3175. *** 52,57 ****
  3176. --- 52,67 ----
  3177.   #    is really wierd.
  3178.   RTMACDIR = /usr/lib/tmac
  3179.   
  3180. + #    Default paper size: valid are: letter, legal, executive, a4,
  3181. + #    com-10, monarch, c5, dl.  Note: it is up to you to get troff
  3182. + #    to get the right page length.  This only makes arrangements with
  3183. + #    the backend.  With -mm, -rL will do the trick.  Other macro
  3184. + #    packages use other arrangements...
  3185. + PAPER    = letter
  3186. + 
  3187. + #    Default output orientation
  3188. + ORIENTATION = portrait
  3189. + 
  3190.   #    upper level man directory, with subdirectories man1, man2 etc.
  3191.   #    Could be /usr/man/mann, /usr/man/manl, /usr/man/man1, /usr/man/l_man/man1
  3192.   MANDIR    = /usr/man/mann
  3193. ***************
  3194. *** 203,208 ****
  3195. --- 213,220 ----
  3196.                -e 's;%%SFP2PK%%;$(SFP2PK);' \
  3197.                -e 's;%%PKFONTS%%;$(PKFONTS);' \
  3198.                -e 's;%%NEWFONTS%%;$(NEWFONTS);' \
  3199. +              -e 's;%%PAPER%%;$(PAPER);' \
  3200. +              -e 's;%%ORIENTATION%%;$(ORIENTATION);' \
  3201.                -e 's;%%T2DIR%%;$(T2DIR);' \
  3202.                -e 's;%%MAKEDEV%%;$(MAKEDEV);' \
  3203.                -e 's;%%PERL%%;$(PERL);' \
  3204. ***************
  3205. *** 289,302 ****
  3206.       if [ "$$files" != 'fonts.lj/*.pk' ] ; \
  3207.       then \
  3208.           cp fonts.lj/*.pk $(LJF) ; \
  3209. -         chmod 644 $(LJF)/* ; \
  3210.       fi
  3211.       $(IGNORESH) files=`echo fonts.lj/*.sfp` ; \
  3212.       if [ "$$files" != 'fonts.lj/*.sfp' ] ; \
  3213.       then \
  3214.           cp fonts.lj/*.sfp $(LJF) ; \
  3215. -         chmod 644 $(LJF)/* ; \
  3216.       fi
  3217.       @echo "don't panic if the next line dies"
  3218.       $(IGNORESH) test -z "$(PKFONTS)" -o ! -d "$(NEWFONTS)" \
  3219.           || cp $(NEWFONTS)/* $(LJF)
  3220. --- 301,313 ----
  3221.       if [ "$$files" != 'fonts.lj/*.pk' ] ; \
  3222.       then \
  3223.           cp fonts.lj/*.pk $(LJF) ; \
  3224.       fi
  3225.       $(IGNORESH) files=`echo fonts.lj/*.sfp` ; \
  3226.       if [ "$$files" != 'fonts.lj/*.sfp' ] ; \
  3227.       then \
  3228.           cp fonts.lj/*.sfp $(LJF) ; \
  3229.       fi
  3230. +     cd $(LJF); chmod 644 *
  3231.       @echo "don't panic if the next line dies"
  3232.       $(IGNORESH) test -z "$(PKFONTS)" -o ! -d "$(NEWFONTS)" \
  3233.           || cp $(NEWFONTS)/* $(LJF)
  3234. ***************
  3235. *** 372,377 ****
  3236. --- 383,389 ----
  3237.   lj.o:    defs.h lj.h pkc.h pk.h
  3238.   ljdraw.o:    defs.h lj.h
  3239.   lj3draw.o:    defs.h lj.h
  3240. + pkscale.o:    defs.h pk.h
  3241.   
  3242.   pk.o:    defs.h pk.h pkc.h
  3243.   pkc.o:    defs.h pk.h pkc.h
  3244. ***************
  3245. *** 412,419 ****
  3246.       echo ".ds pt \"($(TTYPE))" >> TEST1
  3247.       echo ".ds 2d \"`date`" >> TEST1
  3248.       echo ".sp" > TEST2
  3249. !     echo ".ps 10" >> TEST2
  3250. !     echo ".vs 12p" >> TEST2
  3251.       echo ".ad 1" >> TEST2
  3252.       echo "DEFS.H DEFINITIONS:" >> TEST2
  3253.       sed -n -e '/Edit no more/q' \
  3254. --- 424,431 ----
  3255.       echo ".ds pt \"($(TTYPE))" >> TEST1
  3256.       echo ".ds 2d \"`date`" >> TEST1
  3257.       echo ".sp" > TEST2
  3258. !     echo ".ps 9" >> TEST2
  3259. !     echo ".vs 10p" >> TEST2
  3260.       echo ".ad 1" >> TEST2
  3261.       echo "DEFS.H DEFINITIONS:" >> TEST2
  3262.       sed -n -e '/Edit no more/q' \
  3263. Index: ./psroff.S
  3264. *** /tmp/PATCHold/./psroff.S    Wed Jan 13 02:19:56 1993
  3265. --- ./psroff.S    Wed Jan 13 02:19:57 1993
  3266. ***************
  3267. *** 7,17 ****
  3268.   #
  3269.   #    Specs:        troff2ps driver
  3270.   #
  3271. ! #ident  "@(#)psroff.sh: 2.23 Copyright 92/08/09 23:44:43 Chris Lewis"
  3272.   
  3273.   LIBDIR="%%LIBDIR%%"
  3274.   FONTDIR="%%FONTDIR%%"
  3275.   
  3276.   term=false
  3277.   fail=false
  3278.   if [ -n "$PSROFF" ]
  3279. --- 7,20 ----
  3280.   #
  3281.   #    Specs:        troff2ps driver
  3282.   #
  3283. ! #ident  "@(#)psroff.sh: 2.28 Copyright 93/01/10 01:20:52 Chris Lewis"
  3284.   
  3285.   LIBDIR="%%LIBDIR%%"
  3286.   FONTDIR="%%FONTDIR%%"
  3287. + paper=%%PAPER%%
  3288. + orientation=%%ORIENTATION%%
  3289.   
  3290. + xlpargs=
  3291.   term=false
  3292.   fail=false
  3293.   if [ -n "$PSROFF" ]
  3294. ***************
  3295. *** 27,33 ****
  3296.       fi
  3297.   fi
  3298.   copies=1
  3299. ! for i in $*
  3300.   do
  3301.       case $i in
  3302.       -F)
  3303. --- 30,36 ----
  3304.       fi
  3305.   fi
  3306.   copies=1
  3307. ! for i in "$@"
  3308.   do
  3309.       case $i in
  3310.       -F)
  3311. ***************
  3312. *** 58,63 ****
  3313. --- 61,86 ----
  3314.       -m* | -c*)
  3315.           macros="$macros `echo $i | sed -e 's/-[cm]//'`"
  3316.           ;;
  3317. +     -pS*)
  3318. +         case $i in
  3319. +         -pSlet*) paper=letter ;;
  3320. +         -pSleg*) paper=legal ;;
  3321. +         -pSe*) paper=executive ;;
  3322. +         -pSa4) paper=a4 ;;
  3323. +         -pSco*) paper='com-10' ;;
  3324. +         -pSm*) paper=monarch ;;
  3325. +         -pSc5) paper=c5 ;;
  3326. +         -pSd*) paper=dl ;;
  3327. +         *) echo "$0: Illegal paper selection: $i" >&2 ; exit 1 ;;
  3328. +         esac
  3329. +         ;;
  3330. +     -pO*)
  3331. +         case $i in
  3332. +         -pOl*) orientation=landscape ;;
  3333. +         -pOp*) orientation=portrait ;;
  3334. +         *) echo "$0: Illegal orientation: $i" >&2 ; exit 1 ;;
  3335. +         esac
  3336. +         ;;
  3337.       -)
  3338.           files="$files $i"
  3339.           ;;
  3340. ***************
  3341. *** 78,83 ****
  3342. --- 101,109 ----
  3343.       -g*)
  3344.           garg=$i
  3345.           ;;
  3346. +     -l*)
  3347. +         xlpargs="$xlpargs `echo $i | sed 's/^-l//'`"
  3348. +         ;;
  3349.       -*)
  3350.           args="$args $i"
  3351.           ;;
  3352. ***************
  3353. *** 127,132 ****
  3354. --- 153,180 ----
  3355.       echo "$0: Can't find psrofflib in ., lib, or $LIBDIR/lib" >&2
  3356.       exit 1
  3357.   fi
  3358. + case "$paper-$orientation" in
  3359. +     letter-landscape) pctrl="-l8.50i -w11.00i -PXlandscape" ;;
  3360. +     letter-portrait) pctrl="-l11.00i -w8.50i -PXportrait" ;;
  3361. +     legal-landscape) pctrl="-l8.50i -w14.00i -PXlandscape" ;;
  3362. +     legal-portrait) pctrl="-l14.00i -w8.50i -PXportrait" ;;
  3363. +     executive-landscape) pctrl="-l7.25i -w10.50i -PXlandscape" ;;
  3364. +     executive-portrait) pctrl="-l10.50i -w7.25i -PXportrait" ;;
  3365. +     a4-landscape) pctrl="-l8.27i -w11.69i -PXlandscape" ;;
  3366. +     a4-portrait) pctrl="-l11.69i -w8.27i -PXportrait" ;;
  3367. +     com-10-landscape) pctrl="-l4.12i -w9.50i -PXlandscape" ;;
  3368. +     com-10-portrait) pctrl="-l9.50i -w4.12i -PXportrait" ;;
  3369. +     monarch-landscape) pctrl="-l3.87i -w7.50i -PXlandscape" ;;
  3370. +     monarch-portrait) pctrl="-l7.50i -w3.87i -PXportrait" ;;
  3371. +     c5-landscape) pctrl="-l6.38i -w9.01i -PXlandscape" ;;
  3372. +     c5-portrait) pctrl="-l9.01i -w6.38i -PXportrait" ;;
  3373. +     dl-landscape) pctrl="-l4.33i -w8.66i -PXlandscape" ;;
  3374. +     dl-portrait) pctrl="-l8.66i -w4.33i -PXportrait" ;;
  3375. +     *)
  3376. +     echo "$0: Can't find $paper-$orientation in permissible values" >&2
  3377. +     exit 1
  3378. +     ;;
  3379. + esac
  3380.   
  3381.   F=''
  3382.   #    If your system has no awk (or a busted one), you may have to
  3383. ***************
  3384. *** 302,307 ****
  3385. --- 350,356 ----
  3386.   if $term
  3387.   then
  3388.       lparg='| cat'
  3389. +     xlpargs=
  3390.   fi
  3391.   
  3392.   #    Okay, let's DO it!
  3393. ***************
  3394. *** 336,342 ****
  3395.       $troff $otroff $widtharg $args $ml - 2>&1
  3396.       else
  3397.       $troff $widtharg $args $ml -
  3398. !     fi | eval "$t2 $t2arg $lparg"
  3399.       rc=$?
  3400.   
  3401.   fi
  3402. --- 385,391 ----
  3403.       $troff $otroff $widtharg $args $ml - 2>&1
  3404.       else
  3405.       $troff $widtharg $args $ml -
  3406. !     fi | eval "$t2 $pctrl $t2arg $lparg $xlpargs"
  3407.       rc=$?
  3408.   
  3409.   fi
  3410. Index: ./lj.c
  3411. *** /tmp/PATCHold/./lj.c    Wed Jan 13 02:20:17 1993
  3412. --- ./lj.c    Wed Jan 13 02:20:19 1993
  3413. ***************
  3414. *** 32,38 ****
  3415.   
  3416.   #ifndef    lint
  3417.   static char SCCSid[] =
  3418. !     "@(#)lj.c: 2.13 Copyright 92/11/26 19:43:30 Chris Lewis";
  3419.   #endif
  3420.   
  3421.   struct troff2befont ljStdFont[108] = {
  3422. --- 32,38 ----
  3423.   
  3424.   #ifndef    lint
  3425.   static char SCCSid[] =
  3426. !     "@(#)lj.c: 2.15 Copyright 92/12/20 23:06:02 Chris Lewis";
  3427.   #endif
  3428.   
  3429.   struct troff2befont ljStdFont[108] = {
  3430. ***************
  3431. *** 306,312 ****
  3432.   ljPage() {
  3433.       if (!pagePending) {
  3434.       emitrast();
  3435. !     printf("\033&l0H");
  3436.       }
  3437.       pagePending = 1;
  3438.   }
  3439. --- 306,312 ----
  3440.   ljPage() {
  3441.       if (!pagePending) {
  3442.       emitrast();
  3443. !     putchar('\f');
  3444.       }
  3445.       pagePending = 1;
  3446.   }
  3447. ***************
  3448. *** 798,803 ****
  3449. --- 798,805 ----
  3450.       sprintf(LJF, "%s/lj", LIBDIR);
  3451.   #endif
  3452.   
  3453. +     setparams(LJRESOLUTION);
  3454. + 
  3455.       /* to ensure that the strings are long enough for indexing and
  3456.          are sufficiently initialized */
  3457.   
  3458. ***************
  3459. *** 897,976 ****
  3460.       Strip out line termination.
  3461.   */
  3462.   
  3463.   ljXlate(library)
  3464.   FILE *library; {
  3465. !     char buf[4];
  3466. !     int c, i;
  3467. !     c = getc(library);
  3468. !     while(!feof(library)) {
  3469.   
  3470. !       nextchar:
  3471. ! 
  3472. !     switch(c) {
  3473. !         case '%':
  3474. !         /* strip from percent sign to end of line */
  3475. !         /* If line is %%%<something> pass onto interp */
  3476. !         if (((c = getc(library)) == '%') &&
  3477. !             ((c = getc(library)) == '%')) {
  3478. !             char buf2[4];
  3479. !             sprintf(buf2, ".%s", be->bename);
  3480. !             fgets(buf, strlen(buf), library);
  3481. !             interp(buf, ljXlate, buf2);
  3482. !             break;
  3483. !         }
  3484. !         while ((c = getc(library)) != EOF && c != '\n');
  3485. !         break;
  3486. !         case '\n':    /* throw away real newlines. */
  3487. !         break;
  3488. !         case '\\':
  3489. !         c = getc(library);
  3490. !         if (c == 'x' || c == 'X') {
  3491. !             i = 0;
  3492. !             while(1) {
  3493. !             c = getc(library);
  3494. ! 
  3495. !             if (c == EOF || !((c >= '0' && c <= '9') ||
  3496. !                       (c >= 'A' && c <= 'F') ||
  3497. !                       (c >= 'a' && c <= 'f')))
  3498. !                 goto nextchar;
  3499. ! 
  3500. !             buf[i++] = c;
  3501. !             if (i == 2) {
  3502. !                 buf[i] = '\0';
  3503. !                 sscanf(buf, "%x", &i);
  3504. !                 putchar(i);
  3505. !                 i = 0;
  3506. !             }
  3507.               }
  3508. !         } else {
  3509. !             buf[0] = c;
  3510. !             i = 1;
  3511. !             while(1) {
  3512. !             c = getc(library);
  3513. !             if (c == EOF || c < '0' || c > '7')
  3514. !                 goto nextchar;
  3515. !             buf[i++] = c;
  3516. !             if (i == 3) {
  3517. !                 buf[i] = '\0';
  3518. !                 sscanf(buf, "%o", &i);
  3519. !                 putchar(i);
  3520. !                 i = 0;
  3521.               }
  3522.               }
  3523. -         }
  3524.           /* NOTREACHED */
  3525.   
  3526. !         case ' ': case '\t':
  3527. !         break;
  3528. ! 
  3529. !         case EOF:
  3530. !         fprintf(stderr, "%s: Unexpected eof on ljlib\n", progname);
  3531. !         break;
  3532.   
  3533. !         default:
  3534. !         putchar(c);
  3535.       }
  3536. !     c = getc(library);
  3537.       }
  3538.   }
  3539.   
  3540. --- 899,989 ----
  3541.       Strip out line termination.
  3542.   */
  3543.   
  3544. + #define mgetc(p) (*(p+1) ? *(++p): EOF)
  3545.   ljXlate(library)
  3546.   FILE *library; {
  3547. !     char buf[5];
  3548. !     char line[512], *p;
  3549. !     int state = 0;
  3550. !     register int c;
  3551. !     int i;
  3552.   
  3553. !     while(fgets(line, sizeof(line), library)) {
  3554. ! 
  3555. !     if (!preproc(line, &state))
  3556. !         continue;
  3557. ! 
  3558. !     p = line;
  3559. ! 
  3560. !     while((c = *p++) != '\0') {
  3561. ! 
  3562. !       nextchar:
  3563. ! 
  3564. !         switch(c) {
  3565. !         case '%':
  3566. !             /* strip from percent sign to end of line */
  3567. !             /* If line is %%%<something> pass onto interp */
  3568. !             if ( *p == '%' && *(p+1) == '%' ) {
  3569. !             char buf2[14];
  3570. !             sprintf(buf2, ".%s", be->bename);
  3571. !             interp(p+2, ljXlate, buf2);
  3572. !             }
  3573. !             goto nextline;
  3574. !         case '\\':
  3575. !             c = *p++;
  3576. ! 
  3577. !             if (c == '\\') {
  3578. !             putchar(c);
  3579. !             continue;
  3580.               }
  3581. ! 
  3582. !             if (c == 'x' || c == 'X') {
  3583. !             i = 0;
  3584. !             while(1) {
  3585. !                 c = *p++;
  3586. ! 
  3587. !                 if (!c || !((c >= '0' && c <= '9') ||
  3588. !                        (c >= 'A' && c <= 'F') ||
  3589. !                        (c >= 'a' && c <= 'f')))
  3590. !                 goto nextchar;
  3591. ! 
  3592. !                 buf[i++] = c;
  3593. !                 if (i == 2) {
  3594. !                 buf[i] = '\0';
  3595. !                 sscanf(buf, "%x", &i);
  3596. !                 putchar(i);
  3597. !                 i = 0;
  3598. !                 }
  3599. !             }
  3600. !             } else {
  3601. !             buf[0] = c;
  3602. !             i = 1;
  3603. !             while(1) {
  3604. !                 c = *p++;
  3605. !                 if (!c || c < '0' || c > '7')
  3606. !                 goto nextchar;
  3607. !                 buf[i++] = c;
  3608. !                 if (i == 3) {
  3609. !                 buf[i] = '\0';
  3610. !                 sscanf(buf, "%o", &i);
  3611. !                 putchar(i);
  3612. !                 i = 0;
  3613. !                 }
  3614.               }
  3615.               }
  3616.           /* NOTREACHED */
  3617.   
  3618. !         case ' ': case '\t': case '\n':
  3619. !             break;
  3620.   
  3621. !         default:
  3622. !             putchar(c);
  3623. !             break;
  3624. !         }
  3625.       }
  3626. ! 
  3627. !       nextline:
  3628. !     ;
  3629.       }
  3630.   }
  3631.   
  3632. Index: ./ljdraw.c
  3633. *** /tmp/PATCHold/./ljdraw.c    Wed Jan 13 02:20:39 1993
  3634. --- ./ljdraw.c    Wed Jan 13 02:20:41 1993
  3635. ***************
  3636. *** 32,41 ****
  3637.   
  3638.   #ifndef    lint
  3639.   static char SCCSid[] =
  3640. !     "@(#)ljdraw.c: 1.2 Copyright 92/11/26 19:39:27 Chris Lewis";
  3641.   #endif
  3642.   
  3643. ! static int ljLine();
  3644.   
  3645.   /*    Do ditroff drawing command in s from origX,origY.
  3646.       If opcode 0 just moveto
  3647. --- 32,42 ----
  3648.   
  3649.   #ifndef    lint
  3650.   static char SCCSid[] =
  3651. !     "@(#)ljdraw.c: 1.6 Copyright 93/01/10 00:40:10 Chris Lewis";
  3652.   #endif
  3653.   
  3654. ! static int ljLine(), ljPos(), lineseg();
  3655. ! int asetbit();
  3656.   
  3657.   /*    Do ditroff drawing command in s from origX,origY.
  3658.       If opcode 0 just moveto
  3659. ***************
  3660. *** 537,543 ****
  3661.   /*    the fill range 0..1000 selects one of these 8
  3662.       rows.  Each row describes a 8x8 fill pattern.
  3663.    */
  3664. ! static char fillpat[9][8] = {
  3665.       { 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff },
  3666.       { 0xc3, 0xa5, 0x24, 0xe9, 0xe9, 0x24, 0xa5, 0xc3 },
  3667.       { 0xe7, 0xc3, 0x24, 0x3c, 0x3c, 0x24, 0xc3, 0xe7 },
  3668. --- 538,544 ----
  3669.   /*    the fill range 0..1000 selects one of these 8
  3670.       rows.  Each row describes a 8x8 fill pattern.
  3671.    */
  3672. ! static unsigned char fillpat[9][8] = {
  3673.       { 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff },
  3674.       { 0xc3, 0xa5, 0x24, 0xe9, 0xe9, 0x24, 0xa5, 0xc3 },
  3675.       { 0xe7, 0xc3, 0x24, 0x3c, 0x3c, 0x24, 0xc3, 0xe7 },
  3676. ***************
  3677. *** 562,568 ****
  3678.       register int t, td;
  3679.       static int lastind = -1;
  3680.       register int ind = fill/125;
  3681. !     register char fp = fillpat[ind][y&7];
  3682.   
  3683.   #ifdef DEBUG
  3684.       if (lastind != ind) {
  3685. --- 563,569 ----
  3686.       register int t, td;
  3687.       static int lastind = -1;
  3688.       register int ind = fill/125;
  3689. !     register unsigned char fp = fillpat[ind][y&7];
  3690.   
  3691.   #ifdef DEBUG
  3692.       if (lastind != ind) {
  3693. ***************
  3694. *** 669,675 ****
  3695.   
  3696.   /* only supports drawing resolution of 300 at the moment. */
  3697.   #define DRAWRES    300
  3698. - #define BYTESPERLINE (8 * DRAWRES) / 8
  3699.   #define RESMULT (LJRESOLUTION / DRAWRES)
  3700.   #define ESCLEN 25
  3701.   
  3702. --- 670,675 ----
  3703. ***************
  3704. *** 705,719 ****
  3705.       return(end - start);
  3706.   }
  3707.   
  3708.   emitrast()
  3709.   {
  3710.       int bperline;
  3711. -     int numx = BYTESPERLINE * 8;
  3712. -     int numy = pagelength;
  3713.       register char *ip, *lineanch, *nip;
  3714.       register currow, bcount;
  3715.       int linecount = 0;
  3716.   
  3717.       bperline = ((numx + 7) / 8);
  3718.   
  3719.       if (!thispage)
  3720. --- 705,721 ----
  3721.       return(end - start);
  3722.   }
  3723.   
  3724. + static int numx, numy;
  3725.   emitrast()
  3726.   {
  3727.       int bperline;
  3728.       register char *ip, *lineanch, *nip;
  3729.       register currow, bcount;
  3730.       int linecount = 0;
  3731.   
  3732. +     numx = pagewidth * LJRESOLUTION/TROFFRESOLUTION;
  3733. +     numy = pagelength * LJRESOLUTION/TROFFRESOLUTION;
  3734. + 
  3735.       bperline = ((numx + 7) / 8);
  3736.   
  3737.       if (!thispage)
  3738. ***************
  3739. *** 753,774 ****
  3740.   asetbit(x, y)
  3741.   register int x, y; {
  3742.       thispage = 1;
  3743. !     if (y < 0 || y > pagelength) {
  3744. !     /*fprintf(stderr, "y (%d) too big or small (0..%d)\n", y, pagelength);*/
  3745.       return;
  3746.       }
  3747. !     if (x < 0 || x > BYTESPERLINE * 8) {
  3748. !     /*fprintf(stderr, "x (%d) too big or small (0..%d)\n", x, BYTESPERLINE*8);*/
  3749.       return;
  3750.       }
  3751.       if (!ljraster) {
  3752. !     ljraster = (char **) mustmalloc(pagelength * sizeof(char *),
  3753.           "ljraster pointers");
  3754. !     clrarray(ljraster, pagelength * sizeof(char *));
  3755.       }
  3756.       if (!ljraster[y]) {
  3757. !     ljraster[y] = (char *) mustmalloc(BYTESPERLINE, "ljraster line");
  3758. !     clrarray(ljraster[y], BYTESPERLINE);
  3759.       }
  3760.       ljraster[y][x >> 3] |= (0x80 >> (x & 0x7));
  3761.   }
  3762. --- 755,776 ----
  3763.   asetbit(x, y)
  3764.   register int x, y; {
  3765.       thispage = 1;
  3766. !     if (y < 0 || y >= numy) {
  3767. !     /*fprintf(stderr, "y (%d) too big or small (0..%d)\n", y, numy);*/
  3768.       return;
  3769.       }
  3770. !     if (x < 0 || x >= numx) {
  3771. !     /*fprintf(stderr, "x (%d) too big or small (0..%d)\n", x, numx);*/
  3772.       return;
  3773.       }
  3774.       if (!ljraster) {
  3775. !     ljraster = (char **) mustmalloc(numy * sizeof(char *),
  3776.           "ljraster pointers");
  3777. !     clrarray(ljraster, numy * sizeof(char *));
  3778.       }
  3779.       if (!ljraster[y]) {
  3780. !     ljraster[y] = (char *) mustmalloc(numx/8, "ljraster line");
  3781. !     clrarray(ljraster[y], numx/8);
  3782.       }
  3783.       ljraster[y][x >> 3] |= (0x80 >> (x & 0x7));
  3784.   }
  3785. Index: ./debug.c
  3786. *** /tmp/PATCHold/./debug.c    Wed Jan 13 02:20:53 1993
  3787. --- ./debug.c    Wed Jan 13 02:20:54 1993
  3788. ***************
  3789. *** 11,17 ****
  3790.   
  3791.   #ifndef    lint
  3792.   static char SCCSid[] =
  3793. !     "@(#)debug.c: 2.7 Copyright 92/01/23 14:24:37 Chris Lewis";
  3794.   #endif
  3795.   
  3796.   #ifdef    DEBUG
  3797. --- 11,17 ----
  3798.   
  3799.   #ifndef    lint
  3800.   static char SCCSid[] =
  3801. !     "@(#)debug.c: 2.8 Copyright 92/12/04 23:18:42 Chris Lewis";
  3802.   #endif
  3803.   
  3804.   #ifdef    DEBUG
  3805. ***************
  3806. *** 104,110 ****
  3807.   mustmalloc(n, msg)
  3808.   int n;
  3809.   char *msg; {
  3810. -     extern char *malloc();
  3811.       register char *p = malloc((unsigned) n);
  3812.       if (!p) {
  3813.       fprintf(stderr, "%s: Out of space! (requesting %d bytes, key: %s)\n",
  3814. --- 104,109 ----
  3815. Index: ./lj3draw.c
  3816. *** /tmp/PATCHold/./lj3draw.c    Wed Jan 13 02:21:02 1993
  3817. --- ./lj3draw.c    Wed Jan 13 02:21:03 1993
  3818. ***************
  3819. *** 29,35 ****
  3820.   
  3821.   #ifndef    lint
  3822.   static char SCCSid[] =
  3823. !     "@(#)lj3draw.c: 1.3 Copyright 92/11/26 19:42:32 Chris Lewis";
  3824.   #endif
  3825.   
  3826.   #define to_deg(a)    ((180.0/M_PI) * (a))
  3827. --- 29,35 ----
  3828.   
  3829.   #ifndef    lint
  3830.   static char SCCSid[] =
  3831. !     "@(#)lj3draw.c: 1.5 Copyright 92/12/22 02:16:58 Chris Lewis";
  3832.   #endif
  3833.   
  3834.   #define to_deg(a)    ((180.0/M_PI) * (a))
  3835. ***************
  3836. *** 82,88 ****
  3837. --- 82,92 ----
  3838.       double w, t1, t2, t3;
  3839.       char *command;
  3840.       Pt *p;
  3841. +     static xscale, yscale = 0;
  3842. +     extern char *findval();
  3843.   
  3844. +     xscale = pagewidth * LJRESOLUTION / TROFFRESOLUTION;
  3845. +     yscale = pagelength * LJRESOLUTION / TROFFRESOLUTION;
  3846.   
  3847.       /* map absolute beginning position */
  3848.       origX = TROFF2LJX(origX);
  3849. ***************
  3850. *** 198,206 ****
  3851.           /* Use 'CI r;' for ellipse, 'WG r,0,360;' for filled ellipse */
  3852.           ENTER_HPGL2;
  3853.           printf("PU;PR%d,0;SC0,%d,0,%d;", numbers[0]/2, 
  3854. !         (int)(XSCALE * ((float)numbers[1]/numbers[0])), YSCALE);
  3855.           printf("%s%d%s;SC0,%d,0,%d", command, numbers[1]/2,
  3856. !         (opcode == 'E' ? ",0,360" : ""), XSCALE, YSCALE);
  3857.           EXIT_HPGL2;
  3858.           break;
  3859.       case 'p':
  3860. --- 202,210 ----
  3861.           /* Use 'CI r;' for ellipse, 'WG r,0,360;' for filled ellipse */
  3862.           ENTER_HPGL2;
  3863.           printf("PU;PR%d,0;SC0,%d,0,%d;", numbers[0]/2, 
  3864. !         (int)(xscale * ((float)numbers[1]/numbers[0])), yscale);
  3865.           printf("%s%d%s;SC0,%d,0,%d", command, numbers[1]/2,
  3866. !         (opcode == 'E' ? ",0,360" : ""), xscale, yscale);
  3867.           EXIT_HPGL2;
  3868.           break;
  3869.       case 'p':
  3870. Index: ./pkscale.c
  3871. *** /tmp/PATCHold/./pkscale.c    Wed Jan 13 02:21:18 1993
  3872. --- ./pkscale.c    Wed Jan 13 02:21:19 1993
  3873. ***************
  3874. *** 12,18 ****
  3875.   #ifdef    PK
  3876.   
  3877.   #ifndef lint
  3878. ! static char SCCSid[] = "@(#)pkscale.c 1.3 Copyright 92/10/30 02:27:04 Chris Lewis";
  3879.   #endif
  3880.   
  3881.   #include "pk.h"
  3882. --- 12,18 ----
  3883.   #ifdef    PK
  3884.   
  3885.   #ifndef lint
  3886. ! static char SCCSid[] = "@(#)pkscale.c 1.4 Copyright 92/12/04 23:12:13 Chris Lewis";
  3887.   #endif
  3888.   
  3889.   #include "pk.h"
  3890. ***************
  3891. *** 101,106 ****
  3892. --- 101,107 ----
  3893.       npc->pkc_sfpr = r = (struct ras *) mustmalloc(sizeof(struct ras),
  3894.           "SFP raster header for scale");
  3895.       
  3896. +     npc->pkc_pkr = (int8 *) NULL;
  3897.       npc->pkc_height = scalenum(sf, npc->pkc_height)+1;
  3898.       npc->pkc_width = scalenum(sf, npc->pkc_width)+1;
  3899.       npc->pkc_dx = scalenum(sf, npc->pkc_dx);
  3900. Index: ./pk.c
  3901. *** /tmp/PATCHold/./pk.c    Wed Jan 13 02:21:29 1993
  3902. --- ./pk.c    Wed Jan 13 02:21:31 1993
  3903. ***************
  3904. *** 13,19 ****
  3905.   #ifdef    PK
  3906.   
  3907.   #ifndef lint
  3908. ! static char SCCSid[] = "@(#)pk.c 2.4 Copyright 92/03/12 01:11:09 Chris Lewis";
  3909.   #endif
  3910.   
  3911.   #define    DRAW
  3912. --- 13,19 ----
  3913.   #ifdef    PK
  3914.   
  3915.   #ifndef lint
  3916. ! static char SCCSid[] = "@(#)pk.c 2.7 Copyright 93/01/05 23:46:55 Chris Lewis";
  3917.   #endif
  3918.   
  3919.   #define    DRAW
  3920. ***************
  3921. *** 32,38 ****
  3922.   
  3923.   static FILE *fin;
  3924.   static char *filename;    /* name of *current* font being read */
  3925. - extern char *malloc();
  3926.   
  3927.   static long flag_byte;
  3928.   static repeatcount;
  3929. --- 32,37 ----
  3930. ***************
  3931. *** 674,681 ****
  3932.       sfp_hmi = (double) c / 4 + .5;
  3933.   
  3934.       c = get2int();    /* retrieved *height* */
  3935. !     p->pkp_ds = (c * POINT * pow2(20)) / (OUTRES*4);
  3936. !     p->pkp_npts = (p->pkp_ds / pow2(20)) + 0.5;
  3937.   
  3938.       get2int();    /* dummy */
  3939.       get1int();    /* dummy */
  3940. --- 673,680 ----
  3941.       sfp_hmi = (double) c / 4 + .5;
  3942.   
  3943.       c = get2int();    /* retrieved *height* */
  3944. !     p->pkp_npts = (double) (c * POINT) / (OUTRES * 4) + 0.5;
  3945. !     p->pkp_ds = p->pkp_npts * pow2(20);
  3946.   
  3947.       get2int();    /* dummy */
  3948.       get1int();    /* dummy */
  3949. ***************
  3950. *** 863,870 ****
  3951.   
  3952.       fputshort((long) p->pkp_symset, sfp);
  3953.   
  3954. !     fputshort((long) (OUTRES * p->pkp_npts * 4) / 120, sfp);
  3955. !     fputshort((long) (p->pkp_npts * (OUTRES / POINT) * 4), sfp);
  3956.       fputshort(0, sfp);
  3957.       fputc(0, sfp);
  3958.       fputc(p->pkp_style, sfp);
  3959. --- 862,869 ----
  3960.   
  3961.       fputshort((long) p->pkp_symset, sfp);
  3962.   
  3963. !     fputshort((long) (p->pkp_npts * OUTRES * 4 / 120), sfp);
  3964. !     fputshort((long) (p->pkp_npts * OUTRES * 4 / POINT), sfp);
  3965.       fputshort(0, sfp);
  3966.       fputc(0, sfp);
  3967.       fputc(p->pkp_style, sfp);
  3968.