home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1944 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  24.0 KB
  1. From: clewis@ecicrl.UUCP (Chris Lewis)
  2. Newsgroups: comp.sources.bugs,alt.sources,comp.text
  3. Subject: Psroff 2.0 Patch 3
  4. Message-ID: <882@ecicrl.UUCP>
  5. Date: 12 Oct 90 19:42:42 GMT
  6.  
  7. Archive-name: psroff2.0/Patch.03
  8. Submitted-by: clewis@ecicrl.uucp
  9.  
  10. (Did it work Peter? ;-)
  11.  
  12.     This is official patch 03 for Psroff 2.0.
  13.     Please apply it by:
  14.     cd <psroff source directory>
  15.     patch -N -p < <this file>
  16.  
  17.     Then rebuild all of psroff.
  18.  
  19. Amongst some minor bug fixes, this patch introduces some Ditroff drawing
  20. emulation stuff.  If you pipe ditroff source through "catconv"
  21. and then into psroff, psroff will attempt to emulate the \D drawing
  22. codes.  Eg:
  23.  
  24.     pic foo | catconv | psroff
  25.  
  26. For this to work, INSPECIAL should be defined in defs.h, and you have to
  27. have Perl to run catconv (probably R3).
  28.  
  29. Notes:
  30.     - splines (\D'~) aren't implemented for postscript
  31.     - nothing is implemented for HPPCL
  32.     - ditroff output is completely supported (eg: tpscript).
  33.     - This hasn't been tested very well and some \D'...'
  34.       may fool "catconv".   Further, beyond a certain complexity,
  35.       the backend (troff2ps) misses some of the sequences....
  36.       Simple PIC stuff appears to work, manual \D'...' do too.
  37.  
  38. Don't bother telling me that catconv/ditroff drawing code doesn't
  39. work completely - I know that, but fixes and code would be very
  40. welcome - eg: postscript spline code or more reliable special
  41. sequence recognition.
  42.  
  43. It's hard for me to work on this because I have no access to ANY
  44. printers at the moment.
  45.  
  46. Followups have been directed to comp.text because I don't get
  47. c.s.b or a.s at the moment.
  48.  
  49. ./lib/ps.lib        Drawing code assists
  50. ./README        Slight fixups
  51. ./debug.c        bcopy fix.
  52. ./ps.c            drawing code.
  53. ./utils/pk2sfp.c    standalone compile (released in alt.sources)
  54. ./utils/psxlate.c    so compilers with "const" strings don't die.
  55. ./utils/catconv.S    new utility (see above)
  56. ./defs.h        PL3, drawing code, BCOPYLIB
  57. ./dt.c            drawing code
  58. ./dt.h            drawing code
  59. ./ps.h            drawing code
  60. ./psroff.S        accidentally hard-coded /usr/lib/font fix.
  61.  
  62. *** /tmp/PATCHold/./lib/ps.lib    Fri Oct 12 14:32:47 1990
  63. --- ./lib/ps.lib    Fri Oct 12 14:32:49 1990
  64. ***************
  65. *** 9,15 ****
  66.   %    Module:        ps.lib
  67.   %    Author:     Chris Lewis
  68.   %    Specs:        Predefinitions for PostScript
  69. ! %ident  @(#)ps.lib: 2.1 Copyright 90/07/18 16:52:37 Chris Lewis"
  70.   
  71.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  72.   /X { exch CurY moveto show } bind def
  73. --- 9,15 ----
  74.   %    Module:        ps.lib
  75.   %    Author:     Chris Lewis
  76.   %    Specs:        Predefinitions for PostScript
  77. ! %ident  @(#)ps.lib: 2.2 Copyright 90/10/12 13:15:42 Chris Lewis"
  78.   
  79.   /Y { 3 1 roll dup /CurY exch def moveto show } bind def
  80.   /X { exch CurY moveto show } bind def
  81. ***************
  82. *** 405,410 ****
  83. --- 405,444 ----
  84.   } def end
  85.   /BracketFont BracketFontDict definefont pop
  86.   
  87. + /Ellipse {
  88. +     /Yaxis exch 2 div def
  89. +     /Xaxis exch 2 div def
  90. +     currentpoint exch Xaxis add exch
  91. +     /savematrix matrix currentmatrix def
  92. +     translate
  93. +     Xaxis Yaxis scale
  94. +     1 0 moveto
  95. +     0 0 1 0 360 arc
  96. +     savematrix setmatrix
  97. +     %currentpoint exch Xaxis 2 mul add exch moveto
  98. + } bind def
  99. + 
  100. + /Arc {
  101. +     /eY exch def
  102. +     /eX exch def
  103. +     /cY exch def
  104. +     /cX exch def
  105. +     currentpoint cY add exch cX add exch    % center x y
  106. +     cY dup mul cX dup mul add sqrt % radius
  107. +     cY neg cX neg atan    % ang1
  108. +     eY eX atan        % ang2
  109. + %    5 copy
  110. + %    (                    ) cvs print
  111. + %    ( ) print
  112. + %    (                    ) cvs print
  113. + %    ( ) print
  114. + %    (                    ) cvs print
  115. + %    ( ) print
  116. + %    (                    ) cvs print
  117. + %    ( ) print
  118. + %    (                    ) cvs print
  119. +     arc
  120. + } bind def
  121.   
  122.   %    This macro is invoked by ShowPage to display the current form.
  123.   %    Usually redefined to point at a form loaded by an include
  124. *** /tmp/PATCHold/./README    Fri Oct 12 14:33:00 1990
  125. --- ./README    Fri Oct 12 14:33:03 1990
  126. ***************
  127. *** 1,4 ****
  128. !         PSROFF RELEASE 2.0 README 2.1 90/07/18
  129.   
  130.               May 14, 1990
  131.               Chris Lewis
  132. --- 1,4 ----
  133. !         PSROFF RELEASE 2.0 README 2.2 90/08/30
  134.   
  135.               May 14, 1990
  136.               Chris Lewis
  137. ***************
  138. *** 319,331 ****
  139.         .sR.  Further, ".tm" has been redefined to make use of the
  140.         .sR facility.
  141.   
  142. !     - troff2 has 8-font troff support, but:
  143.   
  144.           a) it's never been tested.
  145.           b) I'm no longer convinced that the cat.5 man page is
  146.              correct on how the decoding works.
  147.   
  148. !     - troff2 has BSDHACK support (one of the tilt opcodes being
  149.         replaced by an opcode to multiply the next vertical motion
  150.         by 64), but this has not been tested.  I never heard of it
  151.         before til I saw it in Froyen's troff2lj source.  This cannot
  152. --- 319,331 ----
  153.         .sR.  Further, ".tm" has been redefined to make use of the
  154.         .sR facility.
  155.   
  156. !     - psroff has 8-font troff support, but:
  157.   
  158.           a) it's never been tested.
  159.           b) I'm no longer convinced that the cat.5 man page is
  160.              correct on how the decoding works.
  161.   
  162. !     - psroff has BSDHACK support (one of the tilt opcodes being
  163.         replaced by an opcode to multiply the next vertical motion
  164.         by 64), but this has not been tested.  I never heard of it
  165.         before til I saw it in Froyen's troff2lj source.  This cannot
  166. ***************
  167. *** 391,397 ****
  168.         With Laserjet driving:
  169.   
  170.           MDLF    max # downloaded fonts supported per page.
  171. !         PRELOAD    # fonts statically downloaded
  172.           SFP        enables SFP's with incremental font downloading.
  173.               Needs INCR.
  174.           INCR    enable incremental font downloading.  Needs PARTIAL.
  175. --- 391,398 ----
  176.         With Laserjet driving:
  177.   
  178.           MDLF    max # downloaded fonts supported per page.
  179. !             LJ+ have this as 16.  Later models support more.
  180. !         PRELOAD    # fonts statically downloaded.
  181.           SFP        enables SFP's with incremental font downloading.
  182.               Needs INCR.
  183.           INCR    enable incremental font downloading.  Needs PARTIAL.
  184. ***************
  185. *** 567,573 ****
  186.         The most important thing to remember is that you cannot extend
  187.         the CAT's character sets without modifying troff - unlike ditroff
  188.         where you can add them by changing the makedev files.  This
  189. !       is how you do install overrides:
  190.   
  191.           - Put in a map override in the appropriate *.fonts file that
  192.             emits the character you want in place of a character you
  193. --- 568,574 ----
  194.         The most important thing to remember is that you cannot extend
  195.         the CAT's character sets without modifying troff - unlike ditroff
  196.         where you can add them by changing the makedev files.  This
  197. !       is how you do overrides:
  198.   
  199.           - Put in a map override in the appropriate *.fonts file that
  200.             emits the character you want in place of a character you
  201. ***************
  202. *** 582,588 ****
  203.   
  204.           <troffchar> N|S|n <sequence> <x adjust> <y adjust> <scale>
  205.   
  206. !           x adjust, y adjust, scale default to 0, 0 and 0 respectively.
  207.             x and y adjust are multiplied by .01, then the pointsize
  208.             and of the output driver to give the shift factor in
  209.             1/resolution units.  Scale allows you to change the size
  210. --- 583,589 ----
  211.   
  212.           <troffchar> N|S|n <sequence> <x adjust> <y adjust> <scale>
  213.   
  214. !           x adjust, y adjust, scale default to 0, 0 and 100 respectively.
  215.             x and y adjust are multiplied by .01, then the pointsize
  216.             and of the output driver to give the shift factor in
  217.             1/resolution units.  Scale allows you to change the size
  218. *** /tmp/PATCHold/./debug.c    Fri Oct 12 14:33:18 1990
  219. --- ./debug.c    Fri Oct 12 14:33:19 1990
  220. ***************
  221. *** 2,8 ****
  222.   
  223.   #ifndef    lint
  224.   static char SCCSid[] =
  225. !     "@(#)debug.c: 2.2 Copyright 90/08/08 13:14:09 Chris Lewis";
  226.   #endif
  227.   
  228.   #ifdef    DEBUG
  229. --- 2,8 ----
  230.   
  231.   #ifndef    lint
  232.   static char SCCSid[] =
  233. !     "@(#)debug.c: 2.3 Copyright 90/10/01 14:41:07 Chris Lewis";
  234.   #endif
  235.   
  236.   #ifdef    DEBUG
  237. ***************
  238. *** 115,132 ****
  239.   }
  240.   
  241.   #ifdef    BCOPY
  242.   /*    "slowish" routines when you don't have memcpy and friends
  243.    */
  244.   bcopy(from, to, len)
  245.   register char *from, *to;
  246. ! register int n; {
  247. !     while(n--)
  248.       *to++ = *from++;
  249.   }
  250.   bzero(array, len)
  251.   register char *array;
  252. ! register int len; {
  253. !     while(n--)
  254.       *array++ = '\0';
  255.   }
  256.   #endif
  257. --- 115,137 ----
  258.   }
  259.   
  260.   #ifdef    BCOPY
  261. + #ifndef BCOPYLIB
  262.   /*    "slowish" routines when you don't have memcpy and friends
  263.    */
  264.   bcopy(from, to, len)
  265.   register char *from, *to;
  266. ! register int len; 
  267. ! {
  268. !   while(len--)
  269.       *to++ = *from++;
  270.   }
  271. + 
  272.   bzero(array, len)
  273.   register char *array;
  274. ! register int len; 
  275. ! {
  276. !   while(len--)
  277.       *array++ = '\0';
  278.   }
  279. + #endif BCOPYLIB
  280.   #endif
  281. *** /tmp/PATCHold/./ps.c    Fri Oct 12 14:33:35 1990
  282. --- ./ps.c    Fri Oct 12 14:33:37 1990
  283. ***************
  284. *** 18,24 ****
  285.   
  286.   #ifndef    lint
  287.   static char SCCSid[] =
  288. !     "@(#)ps.c: 2.1 Copyright 90/07/18 16:47:36 Chris Lewis";
  289.   #endif
  290.   
  291.   /*    ps.c will generate some additional "print" commands to cause
  292. --- 18,24 ----
  293.   
  294.   #ifndef    lint
  295.   static char SCCSid[] =
  296. !     "@(#)ps.c: 2.2 Copyright 90/10/12 13:09:32 Chris Lewis";
  297.   #endif
  298.   
  299.   /*    ps.c will generate some additional "print" commands to cause
  300. ***************
  301. *** 358,363 ****
  302. --- 358,365 ----
  303.       }
  304.   }
  305.   
  306. + int indraw = 0;
  307. + 
  308.   psChar(x, y, font, points, troffChar, sequence)
  309.   int x, y;
  310.   int font, points, troffChar;
  311. ***************
  312. *** 370,375 ****
  313. --- 372,398 ----
  314.       doPageStart();
  315.       }
  316.   
  317. +     if (font < 0) {
  318. + #ifdef    TRY
  319. +     if (!indraw) {
  320. + #endif
  321. +         printf("newpath\n");
  322. +         emitnum(nx);
  323. +         putchar(' ');
  324. +         emitnum(ny);
  325. +         printf(" moveto\n");
  326. +         indraw = 1;
  327. + #ifdef    TRY
  328. +     }
  329. + #endif
  330. +     return;
  331. + #ifdef    TRY
  332. +     } else if (indraw) {
  333. +     printf("stroke\n");
  334. +     indraw = 0;
  335. + #endif
  336. +     }
  337. + 
  338.       charCount++;
  339.   
  340.       DBP((D_BEND,"BEFORE (troffChar,x,y,font,points) = (%d,%d,%d,%d,%d)\n",
  341. ***************
  342. *** 556,559 ****
  343. --- 579,676 ----
  344.   #endif
  345.   }
  346.   
  347. + #ifdef    INSPECIAL
  348. + psDraw(origX, origY, s)
  349. + int origX, origY;
  350. + register char *s; {
  351. +     register int opcode, ctindex = 0, temp, neg;
  352. +     /*static int curDX = -1, curDY = -1;*/
  353. +     short int numbers[100];
  354. + 
  355. +     DBP((D_CAT, "psDraw: (%d,%d): %s\n", origX, origY, s));
  356. +     /* Special invocation to get the newpath/moveto done */
  357. +     psChar(origX, origY, -1, -1, (char*) NULL, (char*) NULL);
  358. +     while(*s && isspace(*s)) s++;
  359. +     opcode = *s;
  360. +     neg = 1;
  361. +     for (;*s;s++) {
  362. +     if (isspace(*s))
  363. +         continue;
  364. +     else if (*s == '\\')
  365. +         s += 3;
  366. +     else if (*s == '-')
  367. +         neg = -1;
  368. +     else if (!isdigit(*s))
  369. +         continue;
  370. +     else {
  371. +         temp = *s - '0';
  372. +         while(isdigit(*(s+1)))
  373. +         temp = temp * 10 + (*++s - '0');
  374. +         numbers[ctindex++] = neg * temp;
  375. +         neg = 1;
  376. +     }
  377. +     }
  378. +     switch(opcode) {
  379. +     case 'l':
  380. +         DBP((D_CAT, "drawline: %d, %d\n", numbers[0], numbers[1]));
  381. +         emitnum((int) numbers[0]);
  382. +         putchar(' ');
  383. +         emitnum((int) -numbers[1]);
  384. +         printf(" rlineto\n");
  385. +         break;
  386. +     case 'a':
  387. +         for (temp = 0; temp < 4; temp++) {
  388. +         emitnum((int) ((temp % 2) ? -numbers[temp]: numbers[temp]));
  389. +         putchar(' ');
  390. +         }
  391. +         printf("Arc\n");
  392. +         break;
  393. +     case 'c':
  394. +         numbers[1] = numbers[0];
  395. +     case 'e':
  396. +         DBP((D_CAT, "drawellipse: %d, %d\n", numbers[0], numbers[1]));
  397. +         emitnum((int) numbers[0]);
  398. +         putchar(' ');
  399. +         emitnum((int) numbers[1]);
  400. +         printf(" Ellipse\n");
  401. +         break;
  402. +     case '~':
  403. +         if (ctindex < 4) {
  404. +         fprintf(stderr, "%s: too few points to spline: %s\n",
  405. +             progname, s);
  406. +         break;
  407. +         }
  408. +         fprintf(stderr, "%s: Don't support splines yet\n", progname);
  409. +         /* Some of the following is inspired from tpscript.
  410. +            First convert to RELATIVE to the starting point.
  411. +            Further, There's a bug in PIC that returns negatively one
  412. +            unit LESS than it went forward - fudge it here */
  413. +         for (temp = 2; temp < ctindex; temp++) {
  414. +         if (numbers[temp] < 0)
  415. +             numbers[temp]--;
  416. +         numbers[temp] += numbers[temp-2];
  417. +         }
  418. +         if (ctindex == 4) {
  419. +         emitnum((int) numbers[0] / 2);
  420. +         putchar(' ');
  421. +         emitnum((int) -numbers[1] / 2);
  422. +         putchar(' ');
  423. +         emitnum((int) (numbers[0] + numbers[2]) / 2);
  424. +         putchar(' ');
  425. +         emitnum((int) -(numbers[1] + numbers[3])/ 2);
  426. +         putchar(' ');
  427. +         emitnum((int) numbers[2]);
  428. +         putchar(' ');
  429. +         emitnum((int) -numbers[3]);
  430. +         printf(" rcurveto\n");
  431. +         }
  432. +         break;
  433. +     default:
  434. +         fprintf(stderr, "%s: invalid draw code %c\n", progname, opcode);
  435. +         indraw = 0;
  436. +         break;
  437. +     }
  438. +     printf("stroke\n");
  439. + }
  440. + #endif
  441.   #endif /* PS */
  442. *** /tmp/PATCHold/./utils/pk2sfp.c    Fri Oct 12 14:33:49 1990
  443. --- ./utils/pk2sfp.c    Fri Oct 12 14:33:50 1990
  444. ***************
  445. *** 1,4 ****
  446. ! /*    Copyright 1985, 1986, 1987, 1988 90/07/18 Chris Lewis
  447.           All Rights Reserved
  448.   
  449.       Permission to copy and further distribute is freely given provided
  450. --- 1,4 ----
  451. ! /*    Copyright 1985, 1986, 1987, 1988 90/09/17 Chris Lewis
  452.           All Rights Reserved
  453.   
  454.       Permission to copy and further distribute is freely given provided
  455. ***************
  456. *** 13,19 ****
  457.   
  458.   #ifndef    lint
  459.   static char SCCSID[] =
  460. !     "@(#)pk2sfp.c 2.1 Copyright 90/07/18 16:49:44 Chris Lewis";
  461.   #endif
  462.   
  463.   #include "defs.h"
  464. --- 13,19 ----
  465.   
  466.   #ifndef    lint
  467.   static char SCCSID[] =
  468. !     "@(#)pk2sfp.c 2.2 Copyright 90/09/17 10:50:03 Chris Lewis";
  469.   #endif
  470.   
  471.   #include "defs.h"
  472. ***************
  473. *** 43,48 ****
  474. --- 43,49 ----
  475.   
  476.   char *progname;
  477.   
  478. + #ifdef    PARTIAL
  479.   extern struct enctab encNormal[], encSymbol[];
  480.   
  481.   needchar(font, character)
  482. ***************
  483. *** 67,72 ****
  484. --- 68,80 ----
  485.   
  486.       return(0);
  487.   }
  488. + #else
  489. + needchar(font, character)
  490. + int font;
  491. + long character; {
  492. +     return(1);
  493. + }
  494. + #endif
  495.   
  496.   main(argc, argv)
  497.   int argc;
  498. *** /tmp/PATCHold/./utils/psxlate.c    Fri Oct 12 14:33:57 1990
  499. --- ./utils/psxlate.c    Fri Oct 12 14:33:58 1990
  500. ***************
  501. *** 13,19 ****
  502.   
  503.   #ifndef    lint
  504.   static char SCCSid[] =
  505. !     "@(#)psxlate.c: 2.1 Copyright 90/07/18 16:49:52 Chris Lewis";
  506.   #endif
  507.   
  508.   #include "defs.h"
  509. --- 13,19 ----
  510.   
  511.   #ifndef    lint
  512.   static char SCCSid[] =
  513. !     "@(#)psxlate.c: 2.2 Copyright 90/10/12 13:12:11 Chris Lewis";
  514.   #endif
  515.   
  516.   #include "defs.h"
  517. ***************
  518. *** 39,45 ****
  519.       struct headers *comments;
  520.   } pageidx[MAXPAGE];
  521.   
  522. ! char *tmp = "/tmp/psxXXXXXX";
  523.   int page = 0;
  524.   char *progname;
  525.   int debug, verbose;
  526. --- 39,45 ----
  527.       struct headers *comments;
  528.   } pageidx[MAXPAGE];
  529.   
  530. ! char tmp[] = {"/tmp/psxXXXXXX"};
  531.   int page = 0;
  532.   char *progname;
  533.   int debug, verbose;
  534. *** /tmp/PATCHold/./utils/catconv.S    Fri Oct 12 14:34:06 1990
  535. --- ./utils/catconv.S    Fri Oct 12 14:34:12 1990
  536. ***************
  537. *** 0 ****
  538. --- 1,89 ----
  539. + #! /usr/lbin/perl
  540. + eval "exec  /usr/lbin/perl -S $0 $*"
  541. +     if $running_under_some_shell;
  542. + #    This does a very simpleminded conversion of ditroff-only-isms
  543. + #    (such as graphics) into something handleable by psroff.
  544. + #    Copyright 1990 Chris Lewis, All Rights Reserved.
  545. + #    You can do anything you want with this provided that it is
  546. + #    not for profit and this notice remains intact.
  547. + #    1.1 90/10/12
  548. + $inpic = 0;
  549. + print(".de lf\n");
  550. + print(".mk\n");
  551. + print("..\n");
  552. + 
  553. + while($line = <STDIN>) {
  554. +     chop($line);
  555. +     if ($line =~ /^\.PS/) {
  556. +     $inpic = 1;
  557. +     print "$line\n";
  558. +     next;
  559. +     }
  560. +     if ($line =~ /^\.PE/) {
  561. +     $inpic = 0;
  562. +     print "$line\n";
  563. +     next;
  564. +     }
  565. +     if ($inpic && ($line eq '.sp -1')) {
  566. +     printf(".rt\n");
  567. +     next;
  568. +     }
  569. +     if ($line =~ /\\D'/) {
  570. +     $newline = do process($line);
  571. +     print "$newline\n";
  572. +     } else {
  573. +     print "$line\n";
  574. +     }
  575. + }
  576. + 
  577. + sub process {
  578. +     local($line, $newline, $pre, $opcode, $arglist) = ($_[0]);
  579. + #    printf("in process: $line\n");
  580. +     $predefs = '';
  581. +     $index = 0;
  582. +     while($line =~ /\\D'\s*(.)\s*([^']+)'/) {
  583. +     ($pre, $line, $opcode, $arglist) = ($`, $', $1, $2);
  584. + #    print("pre: $pre\nline: $line\nopcode: $opcode\narglist: $arglist\n");
  585. +     $newline .= $pre;
  586. +     $newargs = '';
  587. +     $newy = '';
  588. +     $newx = '';
  589. +     @args = split(/[ \t]+/, $arglist);
  590. +     for ($i = 0; $i <= $#args; $i++) {
  591. +         $arg = $args[$i];
  592. +         if ($arg =~ '-') {
  593. +         $arg = "0$arg";
  594. +         }
  595. +         $predefs .= ".nr .$index $arg\n";
  596. +         $newargs .= "\\(ts\\n(.$index";
  597. +         if ($opcode eq '~') {
  598. +         if ($i % 2) {
  599. +             $newy .= "+\\n(.$index";
  600. +         } else {
  601. +             $newx .= "+\\n(.$index";
  602. +         }
  603. +         }
  604. +         $index++;
  605. +     }
  606. +     $newline .= "\\ka\\o'\\(bs\\(bs'D$opcode$newargs\\(bs\\h'|\\nau";
  607. +     # Reposition...
  608. +     if ($opcode eq 'l') {
  609. +         $newline .= sprintf("+\\n(.%du'\\v'\\n(.%du'",
  610. +         $index - 2, $index -1);
  611. +     } elsif ($opcode eq 'c') {
  612. +         $newline .= sprintf("+\\n(.%du'", $index - 1);
  613. +     } elsif ($opcode eq 'e') {
  614. +         $newline .= sprintf("+\\n(.%du'", $index - 2);
  615. +     } elsif ($opcode eq '~') {
  616. +         $newy = substr($newy, 1, 9999);
  617. +         $newline .= "$newx'\\v'$newy'";
  618. +     } else {
  619. +         $newline .= "'";
  620. +     }
  621. +     if ($line) {
  622. +         $newline .= "\\\n";
  623. +     }
  624. +     }
  625. +     $newline .= $line;
  626. +     return("$predefs$newline");
  627. + }
  628. *** /tmp/PATCHold/./defs.h    Fri Oct 12 14:34:20 1990
  629. --- ./defs.h    Fri Oct 12 14:34:22 1990
  630. ***************
  631. *** 1,4 ****
  632. ! /*    Copyright 1988, 1989 15:04:07 Chris Lewis
  633.           All Rights Reserved
  634.   
  635.       Permission to copy and further distribute is freely given provided
  636. --- 1,4 ----
  637. ! /*    Copyright 1988, 1989 13:38:22 Chris Lewis
  638.           All Rights Reserved
  639.   
  640.       Permission to copy and further distribute is freely given provided
  641. ***************
  642. *** 6,18 ****
  643.       sold for profit.
  644.   
  645.       Project:    Generic Troff drivers
  646. !     Module:        defs.h 2.3 90/08/29 15:04:07
  647.       Author:     Chris Lewis
  648.       Specs:        Main header file - contains some customization
  649.    */
  650.   
  651.   /*    Official Release and Patch level:    */
  652. ! #define    T2VERSION    "@(#)PSROFF Copyright 90/08/29 Chris Lewis - R2 P2"
  653.   
  654.   #ifndef    LIBDIR
  655.   /*    Don't touch this */
  656. --- 6,18 ----
  657.       sold for profit.
  658.   
  659.       Project:    Generic Troff drivers
  660. !     Module:        defs.h 2.7 90/10/12 13:38:22
  661.       Author:     Chris Lewis
  662.       Specs:        Main header file - contains some customization
  663.    */
  664.   
  665.   /*    Official Release and Patch level:    */
  666. ! #define    T2VERSION    "@(#)PSROFF Copyright 90/10/12 Chris Lewis - R2 P3"
  667.   
  668.   #ifndef    LIBDIR
  669.   /*    Don't touch this */
  670. ***************
  671. *** 30,35 ****
  672. --- 30,38 ----
  673.   #undef    BCOPY        /* Define if you don't have memcpy and friends - eg:
  674.                  oldish BSD systems */
  675.   
  676. + #undef  BCOPYLIB    /* Define if BCOPY is defined and you have */
  677. +             /* a bcopy in the library */ 
  678. + 
  679.   #undef    UNSIGNEDCHAR    /* Define if chars are unsigned on your machine */
  680.   
  681.   /*    The name of a routine that can be called thusly:
  682. ***************
  683. *** 45,50 ****
  684. --- 48,56 ----
  685.   
  686.   #define VFPRINTF    vfprintf
  687.   
  688. + /* If you have the stand-alone pk2sfp distribution, do not touch
  689. +    anything from here on */
  690. + 
  691.   /*    Font width file configuration:
  692.   
  693.       - If HEADERSIZE defined, use that many bytes as a prefix to the
  694. ***************
  695. *** 157,162 ****
  696. --- 163,170 ----
  697.   #define    DEFYOFF   0    /* Default page vertical offset.  See README/TROUBLE/
  698.                  psroff(1) -Y options too */
  699.   
  700. + #define    INSPECIAL    /* enables ditroff graphics capability */
  701. + 
  702.   /*    Edit no more .... */
  703.   
  704.   #define    MAXDLFONTS (MDLF - PRELOAD)    /* # fonts troff2ps can download */
  705. ***************
  706. *** 375,377 ****
  707. --- 383,390 ----
  708.   extern char *mustmalloc();
  709.   
  710.   extern char *version, *shortversion;
  711. + 
  712. + #ifdef    ALONE
  713. + #undef    PARTIAL
  714. + #undef    INCR
  715. + #endif
  716. *** /tmp/PATCHold/./dt.c    Fri Oct 12 14:34:31 1990
  717. --- ./dt.c    Fri Oct 12 14:34:33 1990
  718. ***************
  719. *** 15,21 ****
  720.   
  721.   #ifndef    lint
  722.   static char SCCSid[] =
  723. !     "@(#)dt.c: 2.1 Copyright 90/07/18 16:51:27 Chris Lewis";
  724.   #endif
  725.   
  726.   /*    These two tables are always included so that we have the
  727. --- 15,21 ----
  728.   
  729.   #ifndef    lint
  730.   static char SCCSid[] =
  731. !     "@(#)dt.c: 2.2 Copyright 90/10/12 13:09:25 Chris Lewis";
  732.   #endif
  733.   
  734.   /*    These two tables are always included so that we have the
  735. ***************
  736. *** 413,418 ****
  737. --- 413,419 ----
  738.           else
  739.           printf("c%s\n", sequence);
  740.       }
  741. +     lastXPos = nx;
  742.   #ifdef    NOTYET
  743.       }
  744.   #endif
  745. ***************
  746. *** 466,470 ****
  747. --- 467,502 ----
  748.       printf("x trailer\n");
  749.       printf("x stop\n");
  750.   }
  751. + 
  752. + #ifdef    INSPECIAL
  753. + dtDraw(origX, origY, s)
  754. + int origX, origY;
  755. + register char *s; {
  756. +     register int temp, t2;
  757. +     DBP((D_CAT, "dtDraw: (%d,%d): %s\n", origX, origY, s));
  758. +     printf("H%d\n", TROFF2DTX(origX));
  759. +     printf("V%d\n", TROFF2DTY(origY));
  760. +     putchar('D');
  761. +     putchar(*s);
  762. +     s++;
  763. +     /* We just pass these thru, scaling them to output resolution */
  764. +     for (;*s;s++) {
  765. +     if (isspace(*s))
  766. +         putchar(' ');
  767. +     else if (!isdigit(*s))
  768. +         putchar(*s);
  769. +     else {
  770. +         temp = *s - '0';
  771. +         while(isdigit(*(s+1))) {
  772. +         temp = temp * 10 + (*++s - '0');
  773. +         }
  774. +         t2 = temp * dtresolution / TROFFRESOLUTION;
  775. +         DBP((D_CAT, "dtDraw (scale): %d -> %d\n", temp, t2)); 
  776. +         printf("%d", t2);
  777. +     }
  778. +     }
  779. +     putchar('\n');
  780. + }
  781. + #endif
  782.   
  783.   #endif /* DT */
  784. *** /tmp/PATCHold/./dt.h    Fri Oct 12 14:34:41 1990
  785. --- ./dt.h    Fri Oct 12 14:34:42 1990
  786. ***************
  787. *** 1,4 ****
  788. ! /*    Copyright 1985, 1986, 1987, 1988 16:51:29 Chris Lewis
  789.           All Rights Reserved
  790.   
  791.       Permission to copy and further distribute is freely given provided
  792. --- 1,4 ----
  793. ! /*    Copyright 1985, 1986, 1987, 1988 13:09:46 Chris Lewis
  794.           All Rights Reserved
  795.   
  796.       Permission to copy and further distribute is freely given provided
  797. ***************
  798. *** 6,12 ****
  799.       sold for profit.
  800.   
  801.       Project:    Generic Troff drivers
  802. !     Module:        dt.h 2.1 90/07/18
  803.       Author:     Chris Lewis
  804.       Specs:        Ditroff driver definitions
  805.               Hacked from ps.h
  806. --- 6,12 ----
  807.       sold for profit.
  808.   
  809.       Project:    Generic Troff drivers
  810. !     Module:        dt.h 2.2 90/10/12
  811.       Author:     Chris Lewis
  812.       Specs:        Ditroff driver definitions
  813.               Hacked from ps.h
  814. ***************
  815. *** 21,27 ****
  816.   /*    11" paper length */
  817.   #define    TROFF2DTY(y) ((((long) (y)+pageyoffset)*dtresolution)/TROFFRESOLUTION)
  818.   
  819. ! extern int dtProlog(), dtEpilog(), dtChar(), dtPage(), dtPassthru();
  820.   
  821.   #ifdef    DT
  822.   extern struct troff2befont dtSymFont[], dtStdFont[];
  823. --- 21,27 ----
  824.   /*    11" paper length */
  825.   #define    TROFF2DTY(y) ((((long) (y)+pageyoffset)*dtresolution)/TROFFRESOLUTION)
  826.   
  827. ! extern int dtProlog(), dtEpilog(), dtChar(), dtPage(), dtPassthru(), dtDraw();
  828.   
  829.   #ifdef    DT
  830.   extern struct troff2befont dtSymFont[], dtStdFont[];
  831. *** /tmp/PATCHold/./ps.h    Fri Oct 12 14:34:49 1990
  832. --- ./ps.h    Fri Oct 12 14:34:50 1990
  833. ***************
  834. *** 1,4 ****
  835. ! /*    Copyright 1985, 1986, 1987, 1988 16:51:42 Chris Lewis
  836.           All Rights Reserved
  837.   
  838.       Permission to copy and further distribute is freely given provided
  839. --- 1,4 ----
  840. ! /*    Copyright 1985, 1986, 1987, 1988 13:09:42 Chris Lewis
  841.           All Rights Reserved
  842.   
  843.       Permission to copy and further distribute is freely given provided
  844. ***************
  845. *** 6,12 ****
  846.       sold for profit.
  847.   
  848.       Project:    Generic Troff drivers
  849. !     Module:        ps.h 2.1 90/07/18
  850.       Author:     Chris Lewis
  851.       Specs:        PostScript Driver definitions
  852.    */
  853. --- 6,12 ----
  854.       sold for profit.
  855.   
  856.       Project:    Generic Troff drivers
  857. !     Module:        ps.h 2.2 90/10/12
  858.       Author:     Chris Lewis
  859.       Specs:        PostScript Driver definitions
  860.    */
  861. ***************
  862. *** 30,36 ****
  863.   #define    EMITPS    printf
  864.   
  865.   /*    Entry points: */
  866. ! extern int psProlog(), psEpilog(), psChar(), psPage(),
  867.       psOverlay(), psXlate();
  868.   
  869.   extern struct troff2befont psSymFont[], psStdFont[];
  870. --- 30,36 ----
  871.   #define    EMITPS    printf
  872.   
  873.   /*    Entry points: */
  874. ! extern int psProlog(), psEpilog(), psChar(), psPage(),psDraw(),
  875.       psOverlay(), psXlate();
  876.   
  877.   extern struct troff2befont psSymFont[], psStdFont[];
  878. *** /tmp/PATCHold/./psroff.S    Fri Oct 12 14:35:07 1990
  879. --- ./psroff.S    Fri Oct 12 14:35:10 1990
  880. ***************
  881. *** 11,17 ****
  882.   #    Author:     Chris Lewis
  883.   #    Specs:        troff driver
  884.   #
  885. ! #ident  "@(#)psroff.sh: 2.1 Copyright 90/07/18 16:51:55 Chris Lewis"
  886.   
  887.   LIBDIR="%%LIBDIR%%"
  888.   FONTDIR="%%FONTDIR%%"
  889. --- 11,17 ----
  890.   #    Author:     Chris Lewis
  891.   #    Specs:        troff driver
  892.   #
  893. ! #ident  "@(#)psroff.sh: 2.2 Copyright 90/10/01 14:41:16 Chris Lewis"
  894.   
  895.   LIBDIR="%%LIBDIR%%"
  896.   FONTDIR="%%FONTDIR%%"
  897. ***************
  898. *** 221,227 ****
  899.       ) >&2
  900.   fi
  901.   
  902. ! if [ -n "$widtharg" -a ! -d /usr/lib/font/$width ]
  903.   then
  904.       echo "$0: troff doesn't have width tables ($width) for $type printer" >&2
  905.       echo "Please see the README and gfnttab for creating them" >&2
  906. --- 221,227 ----
  907.       ) >&2
  908.   fi
  909.   
  910. ! if [ -n "$widtharg" -a ! -d %%FONTDIR%%/$width ]
  911.   then
  912.       echo "$0: troff doesn't have width tables ($width) for $type printer" >&2
  913.       echo "Please see the README and gfnttab for creating them" >&2
  914. -- 
  915. Chris Lewis, Phone: TBA
  916. UUCP: uunet!utai!lsuc!ecicrl!clewis
  917. Moderator of the Ferret Mailing List (ferret-request@eci386)
  918. Psroff mailing list (psroff-request@eci386)
  919.