home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume25 / psroff3.0 / patch7 < prev    next >
Encoding:
Text File  |  1992-01-11  |  19.8 KB  |  716 lines
  1. Newsgroups: comp.sources.unix
  2. From: clewis@ferret.ocunix.on.ca (Chris Lewis)
  3. Subject: v25i104: psroff 3.0, Patch07
  4. Sender: sources-moderator@pa.dec.com
  5. Approved: vixie@pa.dec.com
  6.  
  7. Submitted-By: clewis@ferret.ocunix.on.ca (Chris Lewis)
  8. Posting-Number: Volume 25, Issue 104
  9. Archive-Name: psroff3.0/patch7
  10.  
  11.     This is official patch 07 for Psroff 3.0.
  12.     Please apply it by:
  13.     cd <psroff source directory>
  14.     patch -N -p < <this file>
  15.  
  16.                 clewis@ferret.ocunix.on.ca (Chris Lewis)
  17.  
  18. These patches primarily impact people who are driving psroff from
  19. groff or ditroff, especially when generating HP Laserjet.
  20.  
  21. Highlights:
  22.     1) ditroff *input* coredumped when no character extensions
  23.        (-Tlj personality) sometimes.  Null dereference fixed.
  24.     2) When Postscript&optimizer turned on, "period leaders" (eg:
  25.        in table of contents) looked awful.  Disabled optimization on "."
  26.        character.  Problem seems to be that Postscript treats a
  27.        period's width differently when adjacent to another period.
  28.        (No, I don't really believe this either, but I don't believe
  29.        the width generator is wrong either)
  30.     3) ditroff input with optimizer on would die with "can't open
  31.        ftS2".  This is non-fatal, so error disabled for this font.
  32.     4) Included shell script to permit building laserjet fonts for
  33.        psroff from the Jetroff 1.0 font distribution (available from
  34.        c.s.u).  (Ie: If you don't have perl and thus can't run the
  35.        intelligent font generator, you can use this shell script.
  36.        See LASERFONTS file)
  37.     5) Without a DESC file for lj, you couldn't use it with
  38.        ditroff or groff.
  39.  
  40. ./widths/widthlj/DESC    Needed for ditroff/groff driving Laserjet.
  41. ./widths/Makefile    References DESC
  42. ./utils/calcfonts.S    Minor mods for generating commands from file lists.
  43. ./utils/pk2ditwid.c    Put "name" into generated width files.
  44. ./utils/psxlate.c    Memory allocation checking, minor botch in long lines.
  45. ./utils.c        Failed open of ftS2 no longer fatal. (optimizer)
  46. ./dit.c            Coredumps on null dereference.
  47. ./defs.h        PL7
  48. ./psroff.S        Finally fixed bloody v flag.
  49. ./opt.c            disable of . optimization
  50. ./zap            missing reference to utils, and fixes for broken shells
  51. ./LASERFONTS        How to build Laserjet fonts without Perl
  52.  
  53. Patchwrapped: 920105005055
  54.  
  55. Index: ./widths/widthlj/DESC
  56. 0a1,26
  57. > # DESC for LaserJet - dummied for ljroff using pk's or SFP's. 1.1 91/12/26
  58. > fonts 6 R I B H HI S
  59. > sizes 6 7 8 9 10 11 12 14 16 18 20 22 24 28 36 0
  60. > unitwidth 10
  61. > paperwidth 2550
  62. > paperlength 3300
  63. > hor 1
  64. > vert 1
  65. > 
  66. > res 300
  67. > 
  68. > charset
  69. > \| \^ \- \` \'
  70. > em hy bu sq ru fi fl ff Fi Fl de dg fm ct rg co
  71. > sc aa ga dd
  72. > *A *B *C *D *E *F *G *H *I *K *L *M *N *O *P *Q *R *S *T *U *W *X *Y *Z
  73. > *a *b *c *d *e *f *g *h *i *k *l *m *n *o *p *q *r *s *t *u *w *x *y *z
  74. > pl mi eq ** ul sl sr rn >= <= == ~= ap != -> <- ua da mu di +- ts
  75. > cu ca sb sp ib ip if pd gr no is pt es mo
  76. > br or ci lt lb rt rb lk rk bv lf rf lc rc
  77. > 12 13 14 18 23 34 38 58 78 rh lh
  78. > $J '' .. AE I! I? O/ PL Pl ae be bq cd d< d> dt hc l< lq ma n' o/ oe og
  79. > pm po pp r> ri rq sd ss ui um a~ a^ OE A: O: U: a: o: u:
  80. > !m nm !s :> <: <> a+ ag al an ax bt cm cr dm fa im io la lo m. mt te tf tm =~
  81. > AL Cc Cd Ch Cs L< R> r1 r2 u= d=
  82. > bx bs
  83. Index: ./widths/Makefile
  84. *** /tmp/PATCHold/./widths/Makefile    Sun Jan  5 00:48:19 1992
  85. --- ./widths/Makefile    Sun Jan  5 00:48:21 1992
  86. ***************
  87. *** 4,10 ****
  88.   #    See the LICENSE file for a full description of the restrictions
  89.   #    under which this software is provided.
  90.   #
  91. ! #2.19 91/07/31
  92.   SCRIPTS    = gfnttab genext installdit
  93.   TD    = testdir
  94.   PSW    = \
  95. --- 4,10 ----
  96.   #    See the LICENSE file for a full description of the restrictions
  97.   #    under which this software is provided.
  98.   #
  99. ! #2.20 91/12/26
  100.   SCRIPTS    = gfnttab genext installdit
  101.   TD    = testdir
  102.   PSW    = \
  103. ***************
  104. *** 16,22 ****
  105.       widthps/B  widthps/CO widthps/Hb widthps/NX widthps/ZC \
  106.       widthps/BB widthps/CX widthps/Hi widthps/PB widthps/ZD \
  107.       widthps/BI widthps/Hr widthps/PI widthps/BO widthps/H \
  108. !     widthps/Hx widthps/PR
  109.   LJ3W    = \
  110.       widthlj3/DESC widthlj3/S2 \
  111.           widthlj3/B widthlj3/I widthlj3/R widthlj3/S widthlj3/X \
  112. --- 16,23 ----
  113.       widthps/B  widthps/CO widthps/Hb widthps/NX widthps/ZC \
  114.       widthps/BB widthps/CX widthps/Hi widthps/PB widthps/ZD \
  115.       widthps/BI widthps/Hr widthps/PI widthps/BO widthps/H \
  116. !     widthps/Hx widthps/PR \
  117. !     widthlj/DESC
  118.   LJ3W    = \
  119.       widthlj3/DESC widthlj3/S2 \
  120.           widthlj3/B widthlj3/I widthlj3/R widthlj3/S widthlj3/X \
  121. Index: ./utils/calcfonts.S
  122. *** /tmp/PATCHold/./utils/calcfonts.S    Sun Jan  5 00:48:30 1992
  123. --- ./utils/calcfonts.S    Sun Jan  5 00:48:31 1992
  124. ***************
  125. *** 7,13 ****
  126.   #    See the LICENSE file for a full description of the restrictions
  127.   #    under which this software is provided.
  128.   #
  129. ! #Copyright 1991/09/27 Chris Lewis 2.3
  130.   
  131.   #    Set to path of sfp2pk if you have it, otherwise NULL.
  132.   $sfp2pk    = '';
  133. --- 7,13 ----
  134.   #    See the LICENSE file for a full description of the restrictions
  135.   #    under which this software is provided.
  136.   #
  137. ! #Copyright 1991/12/26 Chris Lewis 2.4
  138.   
  139.   #    Set to path of sfp2pk if you have it, otherwise NULL.
  140.   $sfp2pk    = '';
  141. ***************
  142. *** 106,127 ****
  143.           $found[$pointsize] = 1;
  144.           chop($usedfonts);
  145.           printf STDERR ("Generating $outf at $pointsize using $usedfonts\n");
  146. !         if (system($cmdline)) {
  147. !         printf STDERR ("failed ($!) $cmdline\n");
  148. !         exit(1);
  149. !         }
  150. !         if (system("$basedir/pk2sfp t > $newfonts/$outf.$pointsize.sfp")) {
  151. !         printf STDERR ("pk2sfp sort to build $outf.$pointsize.sfp failed\n");
  152. !         exit(1);
  153. !         }
  154. !         unlink('t');
  155. !         if ($sfp2pk) {
  156. !         if (system("$sfp2pk < $newfonts/$outf.$pointsize.sfp " .
  157. !             "> $newfonts/$outf.$pointsize.pk")) {
  158. !             printf STDERR ("sfp2pk < $outf.$pointsize.sfp failed\n");
  159.               exit(1);
  160.           }
  161. !         unlink("$newfonts/$outf.$pointsize.sfp");
  162.           }
  163.           close(GEN);
  164.       }
  165. --- 106,132 ----
  166.           $found[$pointsize] = 1;
  167.           chop($usedfonts);
  168.           printf STDERR ("Generating $outf at $pointsize using $usedfonts\n");
  169. !         if ($nogenerate) {
  170. !         printf "$cmdline\n";
  171. !         printf "$basedir/pk2sfp t > $newfonts/$outf.$pointsize.sfp\n";
  172. !         } else {
  173. !         if (system($cmdline)) {
  174. !             printf STDERR ("failed ($!) $cmdline\n");
  175. !             exit(1);
  176. !         }
  177. !         if (system("$basedir/pk2sfp t > $newfonts/$outf.$pointsize.sfp")) {
  178. !             printf STDERR ("pk2sfp sort to build $outf.$pointsize.sfp failed\n");
  179.               exit(1);
  180.           }
  181. !         unlink('t');
  182. !         if ($sfp2pk) {
  183. !             if (system("$sfp2pk < $newfonts/$outf.$pointsize.sfp " .
  184. !             "> $newfonts/$outf.$pointsize.pk")) {
  185. !             printf STDERR ("sfp2pk < $outf.$pointsize.sfp failed\n");
  186. !             exit(1);
  187. !             }
  188. !             unlink("$newfonts/$outf.$pointsize.sfp");
  189. !         }
  190.           }
  191.           close(GEN);
  192.       }
  193. ***************
  194. *** 184,189 ****
  195. --- 189,198 ----
  196.       $sfp2pk = $1;
  197.       } elsif ($arg =~ /^-f(.*)/) {
  198.       $newfonts = $1;
  199. +     } elsif ($arg =~ /^-F(.*)/) {
  200. +     $fontfilelist = $1;
  201. +     } elsif ($arg =~ /^-O/) {
  202. +     $nogenerate = 1;
  203.       } elsif ($arg !~ /^-/) {
  204.       if (-d $arg) {
  205.           $dirlist = "$dirlist $arg";
  206. ***************
  207. *** 202,209 ****
  208.       $sfp2pk = '';
  209.   }
  210.   
  211. ! if (!$dirlist) {
  212. !     printf STDERR ("No directories to search - aborting\n");
  213.       exit(0);
  214.   }
  215.   
  216. --- 211,218 ----
  217.       $sfp2pk = '';
  218.   }
  219.   
  220. ! if (!$dirlist && !$fontfilelist) {
  221. !     printf STDERR ("No directories or files to search - aborting\n");
  222.       exit(0);
  223.   }
  224.   
  225. ***************
  226. *** 215,223 ****
  227.   open(DISCARD, ">discard");
  228.   
  229.   $cmdline =
  230. !     "find $dirlist -type f '(' -name '*pk' -o -name '*.sfp' ')' -print";
  231.   printf STDERR ("Commandline: $cmdline\n");
  232. ! open(INLIST, "$cmdline|") || die "Cannot start $cmdline\n";
  233.   
  234.   while(<INLIST>) {
  235.       chop;
  236. --- 224,235 ----
  237.   open(DISCARD, ">discard");
  238.   
  239.   $cmdline =
  240. !     "find $dirlist -type f '(' -name '*pk' -o -name '*.sfp' ')' -print|";
  241. ! if ($fontfilelist) {
  242. !     $cmdline = "<$fontfilelist";
  243. ! }
  244.   printf STDERR ("Commandline: $cmdline\n");
  245. ! open(INLIST, "$cmdline") || die "Cannot start $cmdline\n";
  246.   
  247.   while(<INLIST>) {
  248.       chop;
  249. ***************
  250. *** 319,325 ****
  251.       'cmr,jmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  252.   
  253.   do gen('I', 'Times-Italic', '\033(8U\033(s1p1s-3b05T', 'ROMAN8',
  254. !     'cmsl,jmsl/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  255.   
  256.   do gen('B', 'Times-Bold', '\033(8U\033(s1p0s03b05T', 'ROMAN8',
  257.       'cmbx,jmbx/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  258. --- 331,337 ----
  259.       'cmr,jmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  260.   
  261.   do gen('I', 'Times-Italic', '\033(8U\033(s1p1s-3b05T', 'ROMAN8',
  262. !     'cmti,cmsl,jmsl/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  263.   
  264.   do gen('B', 'Times-Bold', '\033(8U\033(s1p0s03b05T', 'ROMAN8',
  265.       'cmbx,jmbx/cmr', 'cmsy,jmsy', 'cmti,jmti', 'cmtrf,jmtrf');
  266. Index: ./utils/pk2ditwid.c
  267. *** /tmp/PATCHold/./utils/pk2ditwid.c    Sun Jan  5 00:48:41 1992
  268. --- ./utils/pk2ditwid.c    Sun Jan  5 00:48:42 1992
  269. ***************
  270. *** 10,16 ****
  271.   
  272.   #ifndef    lint
  273.   static char SCCSID[] =
  274. !     "@(#)pk2ditwid.c 2.3 Copyright 91/02/20 09:09:45 Chris Lewis";
  275.   #endif
  276.   
  277.   #include "defs.h"
  278. --- 10,16 ----
  279.   
  280.   #ifndef    lint
  281.   static char SCCSID[] =
  282. !     "@(#)pk2ditwid.c 2.4 Copyright 91/12/26 17:59:20 Chris Lewis";
  283.   #endif
  284.   
  285.   #include "defs.h"
  286. ***************
  287. *** 131,136 ****
  288. --- 131,137 ----
  289.       } else {
  290.           fprintf(fout, "# %s\n", buf);
  291.           fprintf(fout, "# Generated by pk2ditwid\n");
  292. +         fprintf(fout, "name %s\n", buf);
  293.           fprintf(fout, "spacewidth 22\n");
  294.           fprintf(fout, "charset\n");
  295.       }
  296. Index: ./utils/psxlate.c
  297. *** /tmp/PATCHold/./utils/psxlate.c    Sun Jan  5 00:48:52 1992
  298. --- ./utils/psxlate.c    Sun Jan  5 00:48:54 1992
  299. ***************
  300. *** 23,29 ****
  301.    */
  302.   #ifndef    lint
  303.   static char SCCSid[] =
  304. !     "@(#)psxlate.c: 2.17 Copyright 91/10/23 10:47:15 Chris Lewis";
  305.   #endif
  306.   
  307.   #ifdef    ALONE
  308. --- 23,29 ----
  309.    */
  310.   #ifndef    lint
  311.   static char SCCSid[] =
  312. !     "@(#)psxlate.c: 2.18 Copyright 91/12/21 13:13:44 Chris Lewis";
  313.   #endif
  314.   
  315.   #ifdef    ALONE
  316. ***************
  317. *** 228,233 ****
  318. --- 228,234 ----
  319.       int nest = 0;
  320.   
  321.       magicstr = malloc(strlen(buffer) + 1);
  322. +     allchk(magicstr);
  323.       strcpy(magicstr, buffer);
  324.   
  325.       while(1) {
  326. ***************
  327. *** 452,457 ****
  328. --- 453,459 ----
  329.       append(2);
  330.   
  331.       p = (struct pagedesc *) malloc(sizeof(struct pagedesc) * pagecnt);
  332. +     allchk(p);
  333.   
  334.       mid = pagecnt / 2;
  335.   
  336. ***************
  337. *** 508,513 ****
  338. --- 510,516 ----
  339.       append(4);
  340.   
  341.       p = (struct pagedesc *) malloc(sizeof(struct pagedesc) * pagecnt);
  342. +     allchk(p);
  343.       mid = pagecnt / 2;
  344.       for (i = 0, end = pagecnt - 1; i < mid; i += 2, end -= 2) {
  345.       p[i] = pageidx[end];
  346. ***************
  347. *** 544,549 ****
  348. --- 547,553 ----
  349.   
  350.       if (buffer == NULL) {
  351.       buffer = malloc(4096);
  352. +     allchk(buffer);
  353.       buflimit = 4096;
  354.       }
  355.   
  356. ***************
  357. *** 552,559 ****
  358. --- 556,566 ----
  359.       putc(ch, out);
  360.       curcount++;
  361.       if (p - buffer > buflimit-3) {
  362. +         int offset = p - buffer;
  363.           buflimit += CHUNK;
  364.           buffer = realloc(buffer, buflimit);
  365. +         allchk(buffer);
  366. +         p = buffer + offset;
  367.       }
  368.       *p++ = ch;
  369.       if (ch == '\n')
  370. ***************
  371. *** 690,693 ****
  372. --- 697,709 ----
  373.       fputs(cmdbuffer, stdout);
  374.   
  375.       fclose(f);
  376. + }
  377. + 
  378. + allchk(p)
  379. + register char *p; {
  380. +     if (!p) {
  381. +     fprintf(stderr, "%s: [re|m]alloc failed - out of memory\n",
  382. +         progname);
  383. +     exit(1);
  384. +     }
  385.   }
  386. Index: ./utils.c
  387. *** /tmp/PATCHold/./utils.c    Sun Jan  5 00:49:12 1992
  388. --- ./utils.c    Sun Jan  5 00:49:22 1992
  389. ***************
  390. *** 12,18 ****
  391.   
  392.   #ifndef    lint
  393.   static char SCCSid[] =
  394. !     "@(#)utils.c: 2.21 Copyright 91/11/22 03:21:21 Chris Lewis";
  395.   #endif
  396.   
  397.   #ifndef    HEADERSIZE
  398. --- 12,18 ----
  399.   
  400.   #ifndef    lint
  401.   static char SCCSid[] =
  402. !     "@(#)utils.c: 2.22 Copyright 91/12/26 17:58:48 Chris Lewis";
  403.   #endif
  404.   
  405.   #ifndef    HEADERSIZE
  406. ***************
  407. *** 527,536 ****
  408.       DBP((D_SPEC, "Failed to open widthtable %s\n", widthtables));
  409.       free(p->widthtable);
  410.       p->widthtable = (char *) 1;
  411. !     fprintf(stderr, "%s: failed to open width table %s\n",
  412. !         progname, widthtables);
  413. !     fprintf(stderr, "\trecheck -W option\n");
  414. !     exit(1);
  415.       }
  416.   }
  417.   
  418. --- 527,539 ----
  419.       DBP((D_SPEC, "Failed to open widthtable %s\n", widthtables));
  420.       free(p->widthtable);
  421.       p->widthtable = (char *) 1;
  422. !     /* This isn't really the right way to do this, but.... */
  423. !     if (strcmp(p->troffName, "S2") != 0) {
  424. !         fprintf(stderr, "%s: failed to open width table %s\n",
  425. !         progname, widthtables);
  426. !         fprintf(stderr, "\trecheck -W option\n");
  427. !         exit(1);
  428. !     }
  429.       }
  430.   }
  431.   
  432. Index: ./dit.c
  433. *** /tmp/PATCHold/./dit.c    Sun Jan  5 00:49:43 1992
  434. --- ./dit.c    Sun Jan  5 00:49:46 1992
  435. ***************
  436. *** 12,18 ****
  437.   
  438.   #ifndef    lint
  439.   static char SCCSid[] =
  440. !     "@(#)dit.c: Copyright 91/11/22 03:53:18 Chris Lewis";
  441.   #endif
  442.   
  443.   extern struct cattab tabN[], tabS[], *extidx;
  444. --- 12,18 ----
  445.   
  446.   #ifndef    lint
  447.   static char SCCSid[] =
  448. !     "@(#)dit.c: Copyright 91/12/26 17:58:58 Chris Lewis";
  449.   #endif
  450.   
  451.   extern struct cattab tabN[], tabS[], *extidx;
  452. ***************
  453. *** 93,99 ****
  454.   
  455.       addtab(tabN);
  456.       addtab(tabS);
  457. !     addtab(extidx);
  458.   
  459.       /*    Magic */
  460.       dittab['-'] = &tabN[31];
  461. --- 93,100 ----
  462.   
  463.       addtab(tabN);
  464.       addtab(tabS);
  465. !     if (extidx)
  466. !     addtab(extidx);
  467.   
  468.       /*    Magic */
  469.       dittab['-'] = &tabN[31];
  470. Index: ./defs.h
  471. *** /tmp/PATCHold/./defs.h    Sun Jan  5 00:49:58 1992
  472. --- ./defs.h    Sun Jan  5 00:50:00 1992
  473. ***************
  474. *** 9,15 ****
  475.    */
  476.   
  477.   /*    Official Release and Patch level:    */
  478. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/11/22 Chris Lewis - R3 PL6"
  479.   
  480.   /*    Configuration parameters:
  481.    */
  482. --- 9,15 ----
  483.    */
  484.   
  485.   /*    Official Release and Patch level:    */
  486. ! #define    T2VERSION    "@(#)PSROFF Copyright 91/12/26 Chris Lewis - R3 PL7"
  487.   
  488.   /*    Configuration parameters:
  489.    */
  490. Index: ./psroff.S
  491. *** /tmp/PATCHold/./psroff.S    Sun Jan  5 00:50:13 1992
  492. --- ./psroff.S    Sun Jan  5 00:50:15 1992
  493. ***************
  494. *** 7,13 ****
  495.   #
  496.   #    Specs:        troff2ps driver
  497.   #
  498. ! #ident  "@(#)psroff.sh: 2.18 Copyright 91/11/22 03:21:09 Chris Lewis"
  499.   
  500.   LIBDIR="%%LIBDIR%%"
  501.   FONTDIR="%%FONTDIR%%"
  502. --- 7,13 ----
  503.   #
  504.   #    Specs:        troff2ps driver
  505.   #
  506. ! #ident  "@(#)psroff.sh: 2.19 Copyright 91/12/26 17:58:37 Chris Lewis"
  507.   
  508.   LIBDIR="%%LIBDIR%%"
  509.   FONTDIR="%%FONTDIR%%"
  510. ***************
  511. *** 298,304 ****
  512.   
  513.       cat $files |
  514.   
  515. !     if [ -f "%%PERL%%" -a -z "$v" ]
  516.       then
  517.       %%LIBDIR%%/catconv
  518.       else
  519. --- 298,304 ----
  520.   
  521.       cat $files |
  522.   
  523. !     if [ -f "%%PERL%%" -a -n "$v" ]
  524.       then
  525.       %%LIBDIR%%/catconv
  526.       else
  527. Index: ./opt.c
  528. *** /tmp/PATCHold/./opt.c    Sun Jan  5 00:50:24 1992
  529. --- ./opt.c    Sun Jan  5 00:50:25 1992
  530. ***************
  531. *** 16,22 ****
  532.   #ifdef    OPT
  533.   #ifndef    lint
  534.   static char SCCSid[] =
  535. !     "@(#)opt.c: 2.6 Copyright 91/08/12 23:52:41 Chris Lewis";
  536.   #endif
  537.   
  538.   struct insbuf {
  539. --- 16,22 ----
  540.   #ifdef    OPT
  541.   #ifndef    lint
  542.   static char SCCSid[] =
  543. !     "@(#)opt.c: 2.7 Copyright 92/01/03 11:33:47 Chris Lewis";
  544.   #endif
  545.   
  546.   struct insbuf {
  547. ***************
  548. *** 247,259 ****
  549.       }
  550.   
  551.       cantcache = !wp || (int) wp == 1 || (font == symidx ? bp->t2b_font != S:
  552. !                  bp->t2b_font != N);
  553.   
  554. !     if (bp->t2b_xc || bp->t2b_yc || bp->t2b_scale || cantcache)
  555.       optflush();
  556.   
  557.       DBP((D_CAT, "opt: font: %d/%d xpos: %d/%d\n",
  558.       optfont, font, optxpos, xpos));
  559.       if (optxpos != xpos)    /* handle spaces one day... */
  560.       optflush();
  561.   
  562. --- 247,265 ----
  563.       }
  564.   
  565.       cantcache = !wp || (int) wp == 1 || (font == symidx ? bp->t2b_font != S:
  566. !                  bp->t2b_font != N)
  567. ! #ifndef    FIXEDPERIODWIDTH
  568. !                  /* period widths are screwed in Postscript */
  569. !                  || (font != symidx && nc == 35)
  570. ! #endif
  571. !             ;
  572.   
  573. !     if (cantcache || bp->t2b_xc || bp->t2b_yc || bp->t2b_scale)
  574.       optflush();
  575.   
  576.       DBP((D_CAT, "opt: font: %d/%d xpos: %d/%d\n",
  577.       optfont, font, optxpos, xpos));
  578. + 
  579.       if (optxpos != xpos)    /* handle spaces one day... */
  580.       optflush();
  581.   
  582. Index: ./zap
  583. *** /tmp/PATCHold/./zap    Sun Jan  5 00:50:33 1992
  584. --- ./zap    Sun Jan  5 00:50:34 1992
  585. ***************
  586. *** 1,9 ****
  587.   :
  588. ! #1.3 91/07/23: Used to bypass broken makes - see MISC "Broken makes"
  589.   if [ $# = 0 ]
  590.   then
  591.       make sedscript makeincl
  592. !     for i in adapters lib widths tests man
  593.       do
  594.       cd $i
  595.       for j in *.S
  596. --- 1,9 ----
  597.   :
  598. ! #1.4 91/12/26: Used to bypass broken makes - see MISC "Broken makes"
  599.   if [ $# = 0 ]
  600.   then
  601.       make sedscript makeincl
  602. !     for i in adapters lib widths tests man utils
  603.       do
  604.       cd $i
  605.       for j in *.S
  606. ***************
  607. *** 15,21 ****
  608.               ;;
  609.           '*.S')
  610.               echo "No .S files in $i"
  611. !             continue
  612.               ;;
  613.           esac
  614.           f=`basename $j .S`
  615. --- 15,21 ----
  616.               ;;
  617.           '*.S')
  618.               echo "No .S files in $i"
  619. !             break
  620.               ;;
  621.           esac
  622.           f=`basename $j .S`
  623. Index: ./LASERFONTS
  624. *** /tmp/PATCHold/./LASERFONTS    Sun Jan  5 00:50:44 1992
  625. --- ./LASERFONTS    Sun Jan  5 00:50:45 1992
  626. ***************
  627. *** 1,5 ****
  628.       How to build Fonts and Width Tables for your Laserjet
  629. !             2.4 91/07/20
  630.   
  631.   This readme presents a general discussion on how to build fonts
  632.   for psroff.  The first part gives a complete description of what
  633. --- 1,5 ----
  634.       How to build Fonts and Width Tables for your Laserjet
  635. !             2.5 91/12/26
  636.   
  637.   This readme presents a general discussion on how to build fonts
  638.   for psroff.  The first part gives a complete description of what
  639. ***************
  640. *** 131,136 ****
  641. --- 131,138 ----
  642.   There is a perl script in utils called "calcfonts", which if invoked
  643.   in the top level make via:
  644.   
  645. + [If you don't have Perl, go to "AUTOMATING IF YOU DON'T HAVE PERL"]
  646. + 
  647.       make buildljfonts
  648.   
  649.   Will traverse every directory you've specified for PKFONTS during
  650. ***************
  651. *** 172,174 ****
  652. --- 174,230 ----
  653.   only used if you've selected a point size which is marked "b" (builtin),
  654.   or is marked "n" (non-existent), and the bestmatch code in lj.c didn't
  655.   find an existing font (same typeface) at a "close enough" pointsize.
  656. + 
  657. + AUTOMATING IF YOU DON'T HAVE PERL
  658. + 
  659. + If you don't have perl, the following script will construct R, I, B
  660. + and C at point sizes 6 through 28 from the Jetroff 1.0 font distribution.
  661. + Run this in place of "make buildljfonts".  After running it,
  662. + copy all of the files from /tmp/newfonts into $LJF. Then
  663. + mark point sizes 6 thru 28 (in R, I, B and C) as "s" in lj.fonts, then:
  664. + 
  665. +     make register
  666. +     su root
  667. +     make install
  668. +     make installwidths
  669. + 
  670. + ---------------------- Snip here ---------------------
  671. + PSRC=<path to psroff source>
  672. + JFONTS=<path to jetroff fonts>
  673. + NEWFONT=/tmp/newfonts
  674. + if [ ! -d /tmp/newfonts ]
  675. + then
  676. +     mkdir /tmp/newfonts
  677. + fi
  678. + for i in 6 7 8 9 10 11 12 14 16 18 20 22 24 28
  679. + do
  680. +     $PSRC/utils/pk2sfp -m \
  681. +     $PSRC/utils/maps/cmr.ROMAN8 $JFONTS/devjet/pk/cmr$i.300pk \
  682. +     $PSRC/utils/maps/cmsy.ROMAN8 $JFONTS/devjet/pk/cmsy$i.300pk \
  683. +     $PSRC/utils/maps/cmti.ROMAN8 $JFONTS/devjet/pk/cmti$i.300pk \
  684. +     $PSRC/utils/maps/cmtrf.ROMAN8 $JFONTS/devjet/pk/cmtrf$i.300pk \
  685. +         > t
  686. +     $PSRC/utils/pk2sfp t > $NEWFONT/R.$i.sfp
  687. +     $PSRC/utils/pk2sfp -m \
  688. +     $PSRC/utils/maps/cmr.ROMAN8 $JFONTS/devjet/pk/cmbx$i.300pk \
  689. +     $PSRC/utils/maps/cmsy.ROMAN8 $JFONTS/devjet/pk/cmsy$i.300pk \
  690. +     $PSRC/utils/maps/cmti.ROMAN8 $JFONTS/devjet/pk/cmti$i.300pk \
  691. +     $PSRC/utils/maps/cmtrf.ROMAN8 $JFONTS/devjet/pk/cmtrf$i.300pk \
  692. +         > t
  693. +     $PSRC/utils/pk2sfp t > $NEWFONT/B.$i.sfp
  694. +     $PSRC/utils/pk2sfp -m \
  695. +     $PSRC/utils/maps/cmtt.ROMAN8 $JFONTS/devjet/pk/cmtt$i.300pk \
  696. +     $PSRC/utils/maps/cmsy.ROMAN8 $JFONTS/devjet/pk/cmsy$i.300pk \
  697. +     $PSRC/utils/maps/cmti.ROMAN8 $JFONTS/devjet/pk/cmti$i.300pk \
  698. +     $PSRC/utils/maps/cmtrf.ROMAN8 $JFONTS/devjet/pk/cmtrf$i.300pk \
  699. +         > t
  700. +     $PSRC/utils/pk2sfp t > $NEWFONT/C.$i.sfp
  701. +     $PSRC/utils/pk2sfp -m \
  702. +     $PSRC/utils/maps/cmr.ROMAN8 $JFONTS/devjet/pk/cmti$i.300pk \
  703. +     $PSRC/utils/maps/cmsy.ROMAN8 $JFONTS/devjet/pk/cmsy$i.300pk \
  704. +     $PSRC/utils/maps/cmti.ROMAN8 $JFONTS/devjet/pk/cmti$i.300pk \
  705. +     $PSRC/utils/maps/cmtrf.ROMAN8 $JFONTS/devjet/pk/cmtrf$i.300pk \
  706. +         > t
  707. +     $PSRC/utils/pk2sfp t > $NEWFONT/I.$i.sfp
  708. + done
  709. + ---------------------- Snip here ---------------------
  710.  
  711. -- 
  712. Chris Lewis; clewis@ferret.ocunix.on.ca; Phone: Canada 613 832-0541
  713. Psroff 3.0 info: psroff-request@ferret.ocunix.on.ca
  714. Moderator of the ferret list: ferret-request@ferret.ocunix.on.ca
  715. **** NEVER let something mechanical know you're in a hurry. ****
  716.