home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1660 < prev    next >
Internet Message Format  |  1990-12-28  |  24KB
  1. From: clewis@eci386.uucp (Chris Lewis)
  2. Newsgroups: comp.sources.bugs,alt.sources
  3. Subject: Patch 1 for Psroff 2.0
  4. Message-ID: <1990Aug10.203547.29970@eci386.uucp>
  5. Date: 10 Aug 90 20:35:47 GMT
  6.  
  7. Psroff 2.0 hasn't made it thru comp.sources.unix yet, but it is available
  8. via ftp from at least two sites.  This patch resolves all bugs that I
  9. know of.  All of these bugs are build/configure problems.  There are
  10. some enhancements, but most of them are disabled (and incomplete - wait
  11. for me to finally get the bugs out of ditroff drawing emulation)
  12.  
  13. Please note: I will be moving to Ottawa in a few days.  No, I'm not
  14. leaving the company, I'm opening a new office.  Existing e-mail addresses
  15. will continue to work (via the wonders of mail aliasing), but expect a
  16. delay until I get things rolling again.
  17.  
  18.     This is official patch 01 for Psroff 2.0.
  19.     Please apply it by:
  20.     cd <psroff source directory>
  21.     patch -N -p < <this file>
  22.  
  23. If you had managed to succeed to get psroff 2.0 P0 to build, you may
  24. get a small number of rejects which you may want to examine to ensure
  25. that you fixed 'em right.
  26.  
  27. Bugs:
  28.     - "make check" (audit & Makefile):
  29.     - Made misleading remarks about testing trofftype when no
  30.       /usr/lib/font exists, or FONTDIR somewhere else.
  31.     - Final verification message for HEADERSIZE used literal
  32.       "0" instead of empirically derived value.
  33.     - Bug in awk script caused blowouts.
  34.     - "make installwidths" (widths/Makefile):
  35.     - "@$(IGNORESH) ; \" caused problems on some systems with IGNORESH
  36.       disabled.  Semi-colon removed.
  37.     - widths/widthjt/DESC, widths/widthlj/DESC and widths/widthps/HW
  38.       aren't supposed to be part of the release.  Removed them.
  39.     - ltest.m referenced font PA, which was changed to PR for consistency.
  40.     - debug.c refered to pkmsg which isn't defined when LJ undef'd.
  41.       With this fix, you can now build troff2ps with LJ undef'd, but
  42.       several of the utilities having to do with laserjet fonts (eg:
  43.       all of the "pk*" routines under utils) will not build.
  44.       A "make -k" may help when you REALLY want to undef LJ.
  45.     - troff2.c: fix made for compilers that can't handle float expression
  46.       assignments to integer variables in initializers (Ultrix).
  47.  
  48. Enhancements:
  49.     - Ditroff drawing emulation comprises the bulk of the diffs in this
  50.       patch.  It is disabled, and some code is missing.
  51.       This code will remain in, but disabled, until I get it a bit
  52.       more bullet proof, then I'll also supply the backend code.
  53.       (troff2.c, defs.h, t2conf.c, opt.c)
  54.     - Comment regarding new -Y flag added to lib/psrofflib.
  55.     - Improved greyscale settings in lib/confid.ps
  56.  
  57. *** /tmp/PATCHold/./Makefile    Fri Aug 10 15:58:01 1990
  58. --- ./Makefile    Fri Aug 10 15:58:01 1990
  59. ***************
  60. *** 16,22 ****
  61.   #    Note:        This is a System V Makefile, so you may
  62.   #            have some problems making a few of the items.
  63.   #
  64. ! #ident  "@(#)Makefile: 2.1 Copyright 90/07/18 16:47:31 Chris Lewis"
  65.   
  66.   #    Use s5make on Ultrix and Sun!
  67.   
  68. --- 16,22 ----
  69.   #    Note:        This is a System V Makefile, so you may
  70.   #            have some problems making a few of the items.
  71.   #
  72. ! #ident  "@(#)Makefile: 2.2 Copyright 90/08/10 15:22:08 Chris Lewis"
  73.   
  74.   #    Use s5make on Ultrix and Sun!
  75.   
  76. ***************
  77. *** 377,387 ****
  78.       tbl TEST | PATH=.:$(LIBDIR):$$PATH psroff -T$(TTYPE)
  79.   
  80.   check:    audit sedscript makeincl
  81. !     cd lib ; $(MAKE) psrofflib
  82.       ./audit
  83.   
  84.   checkinstall:    audit sedscript makeincl
  85. !     cd lib ; $(MAKE) psrofflib
  86.       ./audit install
  87.   
  88.   #    This is how I build a release - don't even try running this...!
  89. --- 377,387 ----
  90.       tbl TEST | PATH=.:$(LIBDIR):$$PATH psroff -T$(TTYPE)
  91.   
  92.   check:    audit sedscript makeincl
  93. !     cd lib ; $(MAKE)
  94.       ./audit
  95.   
  96.   checkinstall:    audit sedscript makeincl
  97. !     cd lib ; $(MAKE)
  98.       ./audit install
  99.   
  100.   #    This is how I build a release - don't even try running this...!
  101. *** /tmp/PATCHold/./widths/Makefile    Fri Aug 10 15:58:08 1990
  102. --- ./widths/Makefile    Fri Aug 10 15:58:09 1990
  103. ***************
  104. *** 1,4 ****
  105. ! #2.1 90/07/18
  106.   SCRIPTS    = gfnttab
  107.   TD    = testdir
  108.   PSW    = \
  109. --- 1,4 ----
  110. ! #2.4 90/08/08
  111.   SCRIPTS    = gfnttab
  112.   TD    = testdir
  113.   PSW    = \
  114. ***************
  115. *** 5,16 ****
  116.       widthps/DESC \
  117.       widthps/AB widthps/BR widthps/HB widthps/I  widthps/PX \
  118.       widthps/AI widthps/BX widthps/HO widthps/NB widthps/R \
  119. !     widthps/AR widthps/C  widthps/HW widthps/NI widthps/S \
  120.       widthps/AX widthps/CB widthps/HX widthps/NR widthps/S2 \
  121.       widthps/B  widthps/CO widthps/Hb widthps/NX widthps/ZC \
  122.       widthps/BB widthps/CX widthps/Hi widthps/PB widthps/ZD \
  123.       widthps/BI widthps/Hr widthps/PI widthps/BO widthps/H \
  124. !     widthps/Hx widthps/PR widthjt/DESC widthlj/DESC
  125.   
  126.   include ../makeincl
  127.   
  128. --- 5,16 ----
  129.       widthps/DESC \
  130.       widthps/AB widthps/BR widthps/HB widthps/I  widthps/PX \
  131.       widthps/AI widthps/BX widthps/HO widthps/NB widthps/R \
  132. !     widthps/AR widthps/C  widthps/NI widthps/S \
  133.       widthps/AX widthps/CB widthps/HX widthps/NR widthps/S2 \
  134.       widthps/B  widthps/CO widthps/Hb widthps/NX widthps/ZC \
  135.       widthps/BB widthps/CX widthps/Hi widthps/PB widthps/ZD \
  136.       widthps/BI widthps/Hr widthps/PI widthps/BO widthps/H \
  137. !     widthps/Hx widthps/PR
  138.   
  139.   include ../makeincl
  140.   
  141. ***************
  142. *** 18,24 ****
  143.   
  144.   $(PSW):
  145.       @eval `echo $@ | sed -e 's/\(.*\)\/\([^\/]*\)$$/d=\1 f=s.\2/'` ; \
  146. !         cd $$d ; get $(GFLAGS) $$f
  147.   
  148.   widths:    gfnttab dit2catwid
  149.       -rm -f gfnttab.log
  150. --- 18,24 ----
  151.   
  152.   $(PSW):
  153.       @eval `echo $@ | sed -e 's/\(.*\)\/\([^\/]*\)$$/d=\1 f=s.\2/'` ; \
  154. !         cd $$d ; $(GET) $(GFLAGS) $$f
  155.   
  156.   widths:    gfnttab dit2catwid
  157.       -rm -f gfnttab.log
  158. ***************
  159. *** 41,47 ****
  160.   # (eg: my PK 36 is actually closer to 32)
  161.   sepwidths: ../utils/pk2ditwid
  162.       rm -f pk2sep.log pk2sep.err
  163. !     @ $(IGNORESH) if [ -d $(LJF) ] ; \
  164.       then \
  165.           fontlist=`find $(LJF) -type f \
  166.           '(' -name '*.*.pk' -o -name '*.*.sfp' ')' -print | \
  167. --- 41,47 ----
  168.   # (eg: my PK 36 is actually closer to 32)
  169.   sepwidths: ../utils/pk2ditwid
  170.       rm -f pk2sep.log pk2sep.err
  171. !     @$(IGNORESH) if [ -d $(LJF) ] ; \
  172.       then \
  173.           fontlist=`find $(LJF) -type f \
  174.           '(' -name '*.*.pk' -o -name '*.*.sfp' ')' -print | \
  175. ***************
  176. *** 122,128 ****
  177.   # (eg: my PK 36 is actually closer to 32)
  178.   ljwidths: ../utils/pk2ditwid
  179.       rm -f pk2dit.log pk2dit.err
  180. !     @ $(IGNORESH) if [ -d $(LJF) ] ; \
  181.       then \
  182.           fontlist=`find $(LJF) -type f \
  183.           '(' -name '*.*.pk' -o -name '*.*.sfp' ')' -print | \
  184. --- 122,128 ----
  185.   # (eg: my PK 36 is actually closer to 32)
  186.   ljwidths: ../utils/pk2ditwid
  187.       rm -f pk2dit.log pk2dit.err
  188. !     @$(IGNORESH) if [ -d $(LJF) ] ; \
  189.       then \
  190.           fontlist=`find $(LJF) -type f \
  191.           '(' -name '*.*.pk' -o -name '*.*.sfp' ')' -print | \
  192. ***************
  193. *** 179,191 ****
  194.   install:
  195.   
  196.   installwidths:
  197. !     @$(IGNORESH) ; \
  198.       test -w $(FONTDIR) || (echo "Install as root" ; exit 1 ; ) ; \
  199.       for i in width* ; \
  200.       do \
  201.           base=`echo $$i | sed -e 's/.*width//'` ; \
  202.           test -d $(FONTDIR)/$$base || mkdir $(FONTDIR)/$$base ; \
  203. !         test -w $(FONTDIR)/$$base || (echo "Install as root" ; exit 1 ; ) ; \
  204.           files=`echo width$$base/ft*` ; \
  205.           if [ "$$files" = "width$$base"'/ft*' ] ; \
  206.           then \
  207. --- 179,192 ----
  208.   install:
  209.   
  210.   installwidths:
  211. !     @$(IGNORESH) \
  212.       test -w $(FONTDIR) || (echo "Install as root" ; exit 1 ; ) ; \
  213.       for i in width* ; \
  214.       do \
  215.           base=`echo $$i | sed -e 's/.*width//'` ; \
  216.           test -d $(FONTDIR)/$$base || mkdir $(FONTDIR)/$$base ; \
  217. !         test -w $(FONTDIR)/$$base || \
  218. !         (echo "Install as root" ; exit 1 ; ) ; \
  219.           files=`echo width$$base/ft*` ; \
  220.           if [ "$$files" = "width$$base"'/ft*' ] ; \
  221.           then \
  222. ***************
  223. *** 198,204 ****
  224.   
  225.   cmp:
  226.       test -d $(TD) || mkdir $(TD)
  227. !     @$(IGNORESH)for i in width* ; \
  228.       do \
  229.           base=`echo $$i | sed -e 's/.*width//'` ; \
  230.           cd $$i ; \
  231. --- 199,205 ----
  232.   
  233.   cmp:
  234.       test -d $(TD) || mkdir $(TD)
  235. !     @$(IGNORESH) for i in width* ; \
  236.       do \
  237.           base=`echo $$i | sed -e 's/.*width//'` ; \
  238.           cd $$i ; \
  239. *** /tmp/PATCHold/./tests/ltest.m.S    Fri Aug 10 15:58:15 1990
  240. --- ./tests/ltest.m.S    Fri Aug 10 15:58:15 1990
  241. ***************
  242. *** 1,4 ****
  243. ! .\"Document revision 2.1 90/07/18
  244.   .nr Ej 1
  245.   .TL
  246.   troff2ps testing script.
  247. --- 1,4 ----
  248. ! .\"Document revision 2.2 90/08/10
  249.   .nr Ej 1
  250.   .TL
  251.   troff2ps testing script.
  252. ***************
  253. *** 237,243 ****
  254.   .EN
  255.   .DE
  256.   .H 2 "Hanging Caps"
  257. ! .fp 1 PA
  258.   .fp 3 PB
  259.   .ta 1i
  260.   .in +0.6i
  261. --- 237,243 ----
  262.   .EN
  263.   .DE
  264.   .H 2 "Hanging Caps"
  265. ! .fp 1 PR
  266.   .fp 3 PB
  267.   .ta 1i
  268.   .in +0.6i
  269. *** /tmp/PATCHold/./debug.c    Fri Aug 10 15:58:23 1990
  270. --- ./debug.c    Fri Aug 10 15:58:23 1990
  271. ***************
  272. *** 2,8 ****
  273.   
  274.   #ifndef    lint
  275.   static char SCCSid[] =
  276. !     "@(#)debug.c: 2.1 Copyright 90/07/18 16:51:21 Chris Lewis";
  277.   #endif
  278.   
  279.   #ifdef    DEBUG
  280. --- 2,8 ----
  281.   
  282.   #ifndef    lint
  283.   static char SCCSid[] =
  284. !     "@(#)debug.c: 2.2 Copyright 90/08/08 13:14:09 Chris Lewis";
  285.   #endif
  286.   
  287.   #ifdef    DEBUG
  288. ***************
  289. *** 106,114 ****
  290.       extern char *malloc();
  291.       register char *p = malloc((unsigned) n);
  292.       if (!p) {
  293. !     pkmsg("%s: Out of space! (requesting %d bytes, key: %s)\n",
  294.           progname, n, msg);
  295. !     abort();
  296.       }
  297.       clrarray(p, n);
  298.       return(p);
  299. --- 106,114 ----
  300.       extern char *malloc();
  301.       register char *p = malloc((unsigned) n);
  302.       if (!p) {
  303. !     fprintf(stderr, "%s: Out of space! (requesting %d bytes, key: %s)\n",
  304.           progname, n, msg);
  305. !     exit(1);
  306.       }
  307.       clrarray(p, n);
  308.       return(p);
  309. *** /tmp/PATCHold/./defs.h    Fri Aug 10 15:58:27 1990
  310. --- ./defs.h    Fri Aug 10 15:58:27 1990
  311. ***************
  312. *** 1,4 ****
  313. ! /*    Copyright 1988, 1989 16:51:24 Chris Lewis
  314.           All Rights Reserved
  315.   
  316.       Permission to copy and further distribute is freely given provided
  317. --- 1,4 ----
  318. ! /*    Copyright 1988, 1989 15:15:01 Chris Lewis
  319.           All Rights Reserved
  320.   
  321.       Permission to copy and further distribute is freely given provided
  322. ***************
  323. *** 6,18 ****
  324.       sold for profit.
  325.   
  326.       Project:    Generic Troff drivers
  327. !     Module:        defs.h 2.1 90/07/18 16:51:24
  328.       Author:     Chris Lewis
  329.       Specs:        Main header file - contains some customization
  330.    */
  331.   
  332.   /*    Official Release and Patch level:    */
  333. ! #define    T2VERSION    "@(#)PSROFF Copyright 90/07/18 Chris Lewis - R2 P0"
  334.   
  335.   #ifndef    LIBDIR
  336.   /*    Don't touch this */
  337. --- 6,18 ----
  338.       sold for profit.
  339.   
  340.       Project:    Generic Troff drivers
  341. !     Module:        defs.h 2.2 90/08/10 15:15:01
  342.       Author:     Chris Lewis
  343.       Specs:        Main header file - contains some customization
  344.    */
  345.   
  346.   /*    Official Release and Patch level:    */
  347. ! #define    T2VERSION    "@(#)PSROFF Copyright 90/08/10 Chris Lewis - R2 P1"
  348.   
  349.   #ifndef    LIBDIR
  350.   /*    Don't touch this */
  351. ***************
  352. *** 105,111 ****
  353.   
  354.   /*    Basic drivers: */
  355.   #define    PS    /* Postscript */
  356. ! #define    LJ    /* Laserjet */
  357.   #define    DT    /* ditroff */
  358.   
  359.   /*    Laserjet driver config: */
  360. --- 105,111 ----
  361.   
  362.   /*    Basic drivers: */
  363.   #define    PS    /* Postscript */
  364. ! #define    LJ    /* Laserjet - psroff will not build with this undef'd */
  365.   #define    DT    /* ditroff */
  366.   
  367.   /*    Laserjet driver config: */
  368. ***************
  369. *** 266,272 ****
  370.           befontsel,    /* special function F */
  371.           beoverlay,    /* special function O */
  372.           bepassthru,    /* special function P */
  373. !         bexlat;        /* Xlate function */
  374.       struct troff2befont
  375.           *bestdfont,    /* standard font translate table */
  376.           *besymfont;    /* symbol font translate table */
  377. --- 266,273 ----
  378.           befontsel,    /* special function F */
  379.           beoverlay,    /* special function O */
  380.           bepassthru,    /* special function P */
  381. !         bexlat,        /* Xlate function */
  382. !         bedraw;        /* Ditroff draw emulation routine */
  383.       struct troff2befont
  384.           *bestdfont,    /* standard font translate table */
  385.           *besymfont;    /* symbol font translate table */
  386. ***************
  387. *** 336,342 ****
  388.   #endif
  389.   
  390.   extern int lastFont, lastPoints;
  391. ! extern int lastYPos, lastXPos;
  392.   extern char *progname, *printer, *device;
  393.   extern char **prologs;
  394.   
  395. --- 337,343 ----
  396.   #endif
  397.   
  398.   extern int lastFont, lastPoints;
  399. ! extern int lastYPos, lastXPos, specXPos, specYPos;
  400.   extern char *progname, *printer, *device;
  401.   extern char **prologs;
  402.   
  403. *** /tmp/PATCHold/./t2conf.c    Fri Aug 10 15:58:30 1990
  404. --- ./t2conf.c    Fri Aug 10 15:58:30 1990
  405. ***************
  406. *** 15,21 ****
  407.   
  408.   #ifndef    lint
  409.   static char SCCSid[] =
  410. !     "@(#)t2conf.c: 2.1 Copyright 90/07/18 16:51:40 Chris Lewis";
  411.   #endif
  412.   
  413.   #ifdef    PS
  414. --- 15,21 ----
  415.   
  416.   #ifndef    lint
  417.   static char SCCSid[] =
  418. !     "@(#)t2conf.c: 2.2 Copyright 90/08/10 15:27:22 Chris Lewis";
  419.   #endif
  420.   
  421.   #ifdef    PS
  422. ***************
  423. *** 30,35 ****
  424. --- 30,40 ----
  425.   #include "dt.h"
  426.   #endif
  427.   
  428. + #ifndef    INSPECIAL
  429. + #define    dtDraw    NULL
  430. + #define    psDraw    NULL
  431. + #endif
  432. + 
  433.   extern int FontSel();
  434.   
  435.   /*    Common variables */
  436. ***************
  437. *** 37,58 ****
  438.   int    currentPage = 0;
  439.   
  440.   struct backend B[] = {
  441. ! /*   bename,    beprolog,    beepilog,    bechar,    bepage,    befontsel */
  442. ! /*        beoverlay,    bepassthru    bexlat, bestdfont, besymfont */
  443.   
  444.   #ifdef    PS
  445.       { "ps",    psProlog,    psEpilog,    psChar,    psPage,    FontSel,
  446. !         psOverlay,    NULL,        psXlate, psStdFont, psSymFont },
  447.   #endif
  448.   
  449.   #ifdef    DT
  450.       { "dt",    dtProlog,    dtEpilog,    dtChar,    dtPage,    FontSel,
  451. !         NULL,        dtPassthru,    NULL,    dtStdFont, dtSymFont },
  452.   #endif
  453.   
  454.   #ifdef    LJ
  455.       { "lj",    ljProlog,    ljEpilog,    ljChar,    ljPage,    FontSel,
  456. !         NULL,        NULL,        NULL,   ljStdFont, ljSymFont },
  457.   #endif
  458.       { NULL }
  459.   };
  460. --- 42,67 ----
  461.   int    currentPage = 0;
  462.   
  463.   struct backend B[] = {
  464. ! /*   bename,    beprolog,    beepilog,    bechar,    bepage,    befontsel
  465. !         beoverlay,    bepassthru,    bexlat, beDraw,
  466. !         bestdfont,    besymfont */
  467.   
  468.   #ifdef    PS
  469.       { "ps",    psProlog,    psEpilog,    psChar,    psPage,    FontSel,
  470. !         psOverlay,    NULL,        psXlate, psDraw,
  471. !         psStdFont,    psSymFont },
  472.   #endif
  473.   
  474.   #ifdef    DT
  475.       { "dt",    dtProlog,    dtEpilog,    dtChar,    dtPage,    FontSel,
  476. !         NULL,        dtPassthru,    NULL, dtDraw,
  477. !         dtStdFont,    dtSymFont },
  478.   #endif
  479.   
  480.   #ifdef    LJ
  481.       { "lj",    ljProlog,    ljEpilog,    ljChar,    ljPage,    FontSel,
  482. !         NULL,        NULL,        NULL, NULL,
  483. !         ljStdFont,    ljSymFont },
  484.   #endif
  485.       { NULL }
  486.   };
  487. *** /tmp/PATCHold/./troff2.c    Fri Aug 10 15:58:34 1990
  488. --- ./troff2.c    Fri Aug 10 15:58:34 1990
  489. ***************
  490. *** 15,21 ****
  491.   
  492.   #ifndef    lint
  493.   static char SCCSid[] =
  494. !     "@(#)troff2.c: 2.1 Copyright 90/07/18 16:51:45 Chris Lewis";
  495.   #endif
  496.   
  497.   #define    ESC    0x80
  498. --- 15,21 ----
  499.   
  500.   #ifndef    lint
  501.   static char SCCSid[] =
  502. !     "@(#)troff2.c: 2.2 Copyright 90/08/10 15:15:35 Chris Lewis";
  503.   #endif
  504.   
  505.   #define    ESC    0x80
  506. ***************
  507. *** 49,57 ****
  508.   
  509.   #define    CTOINT(val,sig)    ((~c)&sig)
  510.   
  511. ! int pagelength = DEFPL * TROFFRESOLUTION;
  512. ! int pageoffset = DEFOFF * TROFFRESOLUTION;
  513. ! int pageyoffset = DEFYOFF * TROFFRESOLUTION;
  514.   
  515.   char *version, *shortversion;
  516.   
  517. --- 49,57 ----
  518.   
  519.   #define    CTOINT(val,sig)    ((~c)&sig)
  520.   
  521. ! int pagelength;
  522. ! int pageoffset;
  523. ! int pageyoffset;
  524.   
  525.   char *version, *shortversion;
  526.   
  527. ***************
  528. *** 133,138 ****
  529. --- 133,143 ----
  530.   #endif
  531.           sprintf(username, "uid=%d", getuid());
  532.   
  533. +     /* some compilers complain about floating point in initializers... */
  534. +     pagelength = DEFPL * TROFFRESOLUTION;
  535. +     pageoffset = DEFOFF * TROFFRESOLUTION;
  536. +     pageyoffset = DEFYOFF * TROFFRESOLUTION;
  537. + 
  538.       progname = strrchr(argv[0], '/');
  539.       if (progname)
  540.           progname++;
  541. ***************
  542. *** 345,357 ****
  543.   #endif
  544.   
  545.   #ifdef OPT
  546. !             if (optimize)
  547. !                 canoninsert(xpos, ypos, font, points, nc);
  548. !             else
  549.   #endif
  550. -                 if (be->beputchar)
  551. -                 (*be->beputchar)(xpos, ypos, font, points, nc,
  552. -                     (char *) NULL);
  553.   
  554.               break;
  555.           /* Control codes */
  556. --- 350,361 ----
  557.   #endif
  558.   
  559.   #ifdef OPT
  560. !             canoninsert(xpos, ypos, font, points, nc);
  561. ! #else
  562. !             if (be->beputchar)
  563. !                 (*be->beputchar)(xpos, ypos, font, points, nc,
  564. !                 (char *) NULL);
  565.   #endif
  566.   
  567.               break;
  568.           /* Control codes */
  569. ***************
  570. *** 626,631 ****
  571. --- 630,640 ----
  572.       DBP((D_SPEC,"Dospecial: (%d) %s\n", strlen(string), string));
  573.       while (*string)
  574.       switch(*string) {
  575. +         case 'D':
  576. +         if (be->bedraw)
  577. +             (*be->bedraw)(specXPos, specYPos, string+1);
  578. +         *string = '\0';
  579. +         return;
  580.           case 'E':
  581.           fprintf(stderr, "%s\n", string+1);
  582.           *string = '\0';
  583. *** /tmp/PATCHold/./lib/confid.ps    Fri Aug 10 15:58:44 1990
  584. --- ./lib/confid.ps    Fri Aug 10 15:58:45 1990
  585. ***************
  586. *** 9,18 ****
  587.   %    Module:        confid.ps
  588.   %    Author:     Chris Lewis
  589.   %    Specs:        Confidential overlay inclusion.
  590. ! %ident  @(#)confid.ps: 2.1 Copyright 90/07/18 16:52:40 Chris Lewis"
  591.   
  592.   /Confidential {
  593.       gsave
  594.       .99 setgray
  595.       /Courier-Bold findfont 80 scalefont setfont
  596.       0 0 moveto
  597. --- 9,19 ----
  598.   %    Module:        confid.ps
  599.   %    Author:     Chris Lewis
  600.   %    Specs:        Confidential overlay inclusion.
  601. ! %ident  @(#)confid.ps: 2.2 Copyright 90/08/09 17:13:28 Chris Lewis"
  602.   
  603.   /Confidential {
  604.       gsave
  605. +     106 45 { dup mul exch dup mul add 1.0 exch sub } setscreen
  606.       .99 setgray
  607.       /Courier-Bold findfont 80 scalefont setfont
  608.       0 0 moveto
  609. *** /tmp/PATCHold/./lib/psrofflib.S    Fri Aug 10 15:58:55 1990
  610. --- ./lib/psrofflib.S    Fri Aug 10 15:58:55 1990
  611. ***************
  612. *** 1,4 ****
  613. ! #    2.1 90/07/18
  614.   #    This file controls psroff, you can insert additional printer
  615.   #    types here.  These are eval'd *late* in processing, so that
  616.   #    you can insert $copies etc.
  617. --- 1,4 ----
  618. ! #    2.2 90/08/10
  619.   #    This file controls psroff, you can insert additional printer
  620.   #    types here.  These are eval'd *late* in processing, so that
  621.   #    you can insert $copies etc.
  622. ***************
  623. *** 37,42 ****
  624. --- 37,44 ----
  625.   #                (effectively) 7.5i, the adapters plus
  626.   #                the .5i default makes pages centre
  627.   #                by default in 8.5i (matter of taste).
  628. + #        -Y<vertoff>    ditto, but vertical.  Default 0.
  629. + #                Some postscript printers differ in location.
  630.   #
  631.   #    lparg: how to get output to printer.  Note the "-n$copies" and
  632.   #        -d$ptr.  The $ptr is the psroff selected physical printer
  633. *** /tmp/PATCHold/./audit.S    Fri Aug 10 15:59:03 1990
  634. --- ./audit.S    Fri Aug 10 15:59:04 1990
  635. ***************
  636. *** 1,5 ****
  637.   %%STARTSHELL%%
  638. ! #    Psroff checking script 2.1 90/07/18
  639.   chkinst=false
  640.   for i
  641.   do
  642. --- 1,5 ----
  643.   %%STARTSHELL%%
  644. ! #    Psroff checking script 2.2 90/08/07
  645.   chkinst=false
  646.   for i
  647.   do
  648. ***************
  649. *** 205,211 ****
  650.       then
  651.       echo "ERROR: HEADERSIZE should be set to $acthdr, not $hdrsize"
  652.       else
  653. !     echo "INFO: HEADERSIZE appears to be set correctly to 0"
  654.       fi
  655.   fi
  656.   
  657. --- 205,211 ----
  658.       then
  659.       echo "ERROR: HEADERSIZE should be set to $acthdr, not $hdrsize"
  660.       else
  661. !     echo "INFO: HEADERSIZE appears to be set correctly to $hdrsize"
  662.       fi
  663.   fi
  664.   
  665. ***************
  666. *** 355,367 ****
  667.       if (ftdirfound) {
  668.           for (name in fonts) {
  669.           if (name && !catfonts[name])
  670. !             printf("  FONT %s: don't use: %s/%s/ft%s not installed\n",\
  671.               name, fontdir, printertype, name);
  672.           }
  673.       }
  674.       for (name in catfonts) {
  675.           if (name && !fonts[name])
  676. !         printf("  FONT %s: don't use: %s/%s/ft%s exists, but"
  677.               name, fontdir, printertype, name)
  678.           printf(" no %s.fonts\n", printertype)
  679.       }
  680. --- 355,367 ----
  681.       if (ftdirfound) {
  682.           for (name in fonts) {
  683.           if (name && !catfonts[name])
  684. !             printf("  FONT %s: do not use: %s/%s/ft%s not installed\n",\
  685.               name, fontdir, printertype, name);
  686.           }
  687.       }
  688.       for (name in catfonts) {
  689.           if (name && !fonts[name])
  690. !         printf("  FONT %s: do not use: %s/%s/ft%s exists, but"
  691.               name, fontdir, printertype, name)
  692.           printf(" no %s.fonts\n", printertype)
  693.       }
  694. *** /tmp/PATCHold/./opt.c    Fri Aug 10 15:59:09 1990
  695. --- ./opt.c    Fri Aug 10 15:59:09 1990
  696. ***************
  697. *** 13,22 ****
  698.   
  699.   #include "defs.h"
  700.   
  701.   #ifdef    OPT
  702.   #ifndef    lint
  703.   static char SCCSid[] =
  704. !     "@(#)opt.c: 2.1 Copyright 90/07/18 16:53:02 Chris Lewis";
  705.   #endif
  706.   
  707.   struct insbuf {
  708. --- 13,25 ----
  709.   
  710.   #include "defs.h"
  711.   
  712. + int specXPos, specYPos;
  713. + extern struct cattab tabN[], tabS[];
  714. + 
  715.   #ifdef    OPT
  716.   #ifndef    lint
  717.   static char SCCSid[] =
  718. !     "@(#)opt.c: 2.2 Copyright 90/08/10 15:16:19 Chris Lewis";
  719.   #endif
  720.   
  721.   struct insbuf {
  722. ***************
  723. *** 47,52 ****
  724. --- 50,71 ----
  725.       insptr++;
  726.   }
  727.   
  728. + #ifdef    SORT
  729. + int xsortorder;
  730. + 
  731. + xsort(a, b)
  732. + register struct insbuf *a, *b; {
  733. +     int ret;
  734. +     if (a->xpos < b->xpos)
  735. +     ret = -1;
  736. +     else if (a->xpos > b->xpos)
  737. +     ret = 1;
  738. +     else
  739. +     ret = 0;
  740. +     return(xsortorder * ret);
  741. + }
  742. + #endif
  743. + 
  744.   canonflush() {
  745.       register struct insbuf *ip;
  746.       insptr--;
  747. ***************
  748. *** 59,68 ****
  749. --- 78,99 ----
  750.   
  751.       if (insptr->xpos < insbuf[0].xpos) {
  752.       DBP((D_CAT, "canonflush: BACK (%d chars)\n", insptr - insbuf + 1));
  753. + #ifdef    SORT
  754. +     xsortorder = -1;
  755. +     insdump(insbuf, insptr);
  756. +     qsort(insbuf, insptr - insbuf + 1, sizeof(struct insbuf), xsort);
  757. +     insdump(insbuf, insptr);
  758. + #endif
  759.       for(ip = insptr;ip >= insbuf; ip--)
  760.           canonchar(ip->xpos, insypos, ip->font, ip->points, ip->nc);
  761.       } else {
  762.       DBP((D_CAT, "canonflush: FORW (%d chars)\n", insptr - insbuf + 1));
  763. + #ifdef    SORT
  764. +     xsortorder = 1;
  765. + insdump(insbuf, insptr);
  766. +     qsort(insbuf, insptr - insbuf + 1, sizeof(struct insbuf), xsort);
  767. + insdump(insbuf, insptr);
  768. + #endif
  769.       for(ip = insbuf;ip <= insptr; ip++)
  770.           canonchar(ip->xpos, insypos, ip->font, ip->points, ip->nc);
  771.       }
  772. ***************
  773. *** 77,107 ****
  774.       static short lastypos;
  775.       static sstate = 0;
  776.       static char sbuf[512];
  777. ! #ifdef    SPECIAL
  778.       switch(sstate) {
  779.       case 0:
  780.           if (font == 3 && nc == 34) {
  781.           sstate = 1;
  782. !         lastchar.xpos = xpos;
  783.           lastchar.font = font;
  784.           lastchar.points = points;
  785.           lastchar.nc = nc;
  786. !         lastypos = ypos;
  787.           optflush();
  788.           return;
  789.           }
  790.           break;
  791.       case 1:
  792. !         if (font == 3 && nc == 34 &&
  793. !         xpos == lastchar.xpos && ypos == lastypos) {
  794. !         sstate++;
  795. !         sbuf[0] = '\0';
  796. !         return;
  797. !         }
  798.           if (be->beputchar)
  799.           (*be->beputchar)(lastchar.xpos, lastypos, lastchar.font,
  800.               lastchar.points, lastchar.nc, (char *) NULL);
  801. -         sstate = 0;
  802.           break;
  803.       case 2:
  804.           if (nc == 34 && font == 3) {
  805. --- 108,146 ----
  806.       static short lastypos;
  807.       static sstate = 0;
  808.       static char sbuf[512];
  809. !     register char *p;
  810. ! #ifdef    INSPECIAL
  811. !     /* Inline special directives, not supported yet */
  812.       switch(sstate) {
  813.       case 0:
  814.           if (font == 3 && nc == 34) {
  815.           sstate = 1;
  816. !         lastchar.xpos = specXPos = xpos;
  817.           lastchar.font = font;
  818.           lastchar.points = points;
  819.           lastchar.nc = nc;
  820. !         lastypos = specYPos = ypos;
  821.           optflush();
  822.           return;
  823.           }
  824.           break;
  825.       case 1:
  826. !         if (font == 3 && nc == 34) {
  827. !         if (xpos == lastchar.xpos && ypos == lastypos) {
  828. !             sstate++;
  829. !             sbuf[0] = '\0';
  830. !             return;
  831. !         } else {
  832. !             lastchar.xpos = xpos;
  833. !             lastypos = ypos;
  834. !             /* stay in this state */
  835. !         }
  836. !         } else
  837. !         sstate = 0;
  838. ! 
  839.           if (be->beputchar)
  840.           (*be->beputchar)(lastchar.xpos, lastypos, lastchar.font,
  841.               lastchar.points, lastchar.nc, (char *) NULL);
  842.           break;
  843.       case 2:
  844.           if (nc == 34 && font == 3) {
  845. ***************
  846. *** 118,130 ****
  847.           return;
  848.           }
  849.           if (font == 3)
  850. !         strcat(sbuf, be->besymfont[nc].t2b_charseq);
  851.           else
  852. !         strcat(sbuf, be->bestdfont[nc].t2b_charseq);
  853.           return;
  854.       }
  855.   #endif
  856. - 
  857.       optinsert(xpos, ypos, font, points, nc);
  858.   }
  859.   
  860. --- 157,185 ----
  861.           return;
  862.           }
  863.           if (font == 3)
  864. !         p = tabS[nc].ch_name;
  865.           else
  866. !         p = tabN[nc].ch_name;
  867. !         if (strlen(p) >= 2) {
  868. !         if (strcmp(p, "hy") == 0 ||
  869. !             strcmp(p, "mi") == 0 ||
  870. !             strcmp(p, "\\-") == 0)
  871. !             p = "-";
  872. !         else if (strcmp(p, "ff") == 0 ||
  873. !              strcmp(p, "fi") == 0 ||
  874. !              strcmp(p, "fl") == 0)
  875. !             ;
  876. !         else if (strcmp(p, "Fi") == 0)
  877. !             p = "ffi";
  878. !         else if (strcmp(p, "Fl") == 0)
  879. !             p = "ffl";
  880. !         else
  881. !             p = " ";
  882. !         }
  883. !         strcat(sbuf, p);
  884.           return;
  885.       }
  886.   #endif
  887.       optinsert(xpos, ypos, font, points, nc);
  888.   }
  889.   
  890. ***************
  891. *** 214,218 ****
  892. --- 269,284 ----
  893.       for (from = bp->t2b_charseq; *from;)
  894.       *optp++ = *from++;
  895.       *optp = '\0';
  896. + }
  897. + #endif
  898. + 
  899. + #ifdef    SORT
  900. + insdump(b, p)
  901. + register struct insbuf *b, *p; {
  902. +     if (!(debug&D_VERB))
  903. +     return;
  904. +     DBP((D_VERB, "insdump:\n"));
  905. +     for(; b <= p; b++)
  906. +     DBP((D_VERB, "%d %d\n", b->xpos, b->nc));
  907.   }
  908.   #endif
  909. -- 
  910. Chris Lewis, Elegant Communications Inc, {uunet!attcan,utzoo}!lsuc!eci386!clewis
  911. Ferret mailing list: eci386!ferret-list, psroff mailing list: eci386!psroff-list
  912. Psroff information/questions: psroff-request@eci386
  913.