home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / postscript / ps.diff.v2 < prev    next >
Encoding:
Text File  |  1989-02-16  |  18.1 KB  |  661 lines
  1. Make sure you have already applied either 'ps.diff.v1' or my
  2. original posting to comp.sources.bugs.
  3.  
  4. To apply this, you need the 'patch' program which is available from
  5. the comp.sources.unix archives.
  6.  
  7. Change directories to the top-level postscript directory (the one with
  8. the file "MANIFEST" in it) and apply this patch with the command:
  9.  
  10. patch -p0 <ps.diff.v2
  11.  
  12.                 _.John G. Myers
  13.                 jm36+@andrew.cmu.edu
  14.  
  15. *** /usr/tmp/ps/CHANGES.JGM    Thu Jul 28 13:53:12 1988
  16. --- ./CHANGES.JGM    Thu Jul 28 14:58:10 1988
  17. ***************
  18. *** 1,6 ****
  19. ! Here is a patch that makes several bug fixes and enhancements to the Postscript
  20.   interpreter recently posted.  The changes are:
  21.   
  22.   
  23.   Bugs fixed:
  24.   
  25. --- 1,7 ----
  26. ! These patches make several bug fixes and enhancements to the Postscript
  27.   interpreter recently posted.  The changes are:
  28.   
  29. +                   Version 1:
  30.   
  31.   Bugs fixed:
  32.   
  33. ***************
  34. *** 41,46 ****
  35. --- 42,64 ----
  36.       <string> getenv <false>
  37.   if it does not.
  38.   
  39. +                   Version 2:
  40. + 
  41. + Bugs fixed:
  42. + 
  43. + Fixed operators kshow, translate, scale, rotate, reversepath
  44. + 
  45. + Casted NULL to appropriate type when it was passed as a parameter.
  46. + 
  47. + Removed unused variables.
  48. + 
  49. + Enhancements made:
  50. + 
  51. + Each driver must now define the character pointer "DriverType".  The
  52. + value of this variable is placed in the string produced by the
  53. + "version" operator.
  54. + 
  55. + Added operators letter, note, and legal.
  56.   
  57.                   John G. Myers
  58.                   jm36@andrew.cmu.edu
  59. diff -cr ./doc/hard-interface /cmu/math/jm36/src/ps/doc/hard-interface
  60. *** ./doc/hard-interface    Fri Apr  1 22:41:07 1988
  61. --- /cmu/math/jm36/src/ps/doc/hard-interface    Mon Mar 28 20:25:28 1988
  62. ***************
  63. *** 15,20 ****
  64. --- 15,29 ----
  65.    *    may be expected to be NULL.
  66.    */
  67.   
  68. + /* Begin jgm */
  69. + /*
  70. +  *    DriverType contains a pointer to a string naming the device that this
  71. +  *     is a driver for.  The given string will show up in the "version"
  72. +  *    operator.
  73. +  */
  74. + char *DriverType = "";
  75. + /* End jgm */
  76. + 
  77.   /************************* CREATION OF WINDOWS AND BITMAPS *******************/
  78.   
  79.   struct hardware *InitHardware () {}
  80. diff -cr ./doc/hard-interface.c /cmu/math/jm36/src/ps/doc/hard-interface.c
  81. *** ./doc/hard-interface.c    Fri Apr  1 22:42:05 1988
  82. --- /cmu/math/jm36/src/ps/doc/hard-interface.c    Mon Mar 28 20:24:19 1988
  83. ***************
  84. *** 17,22 ****
  85. --- 17,31 ----
  86.    *    of access that PostScript is interested in. Any Hardware parameter may be expected to be NULL.
  87.    */
  88.   
  89. + /* Begin jgm */
  90. + /*
  91. +  *    DriverType contains a pointer to a string naming the device that this
  92. +  *     is a driver for.  The given string will show up in the "version"
  93. +  *    operator.
  94. +  */
  95. + char *DriverType = "";
  96. + /* End jgm */
  97. + 
  98.   /*********************************** CREATION OF WINDOWS AND BITMAPS *******************/
  99.   
  100.   struct hardware *InitHardware () {}
  101. diff -cr ./postscript/psrc /cmu/math/jm36/src/ps/postscript/psrc
  102. *** ./postscript/psrc    Fri Apr  1 22:48:12 1988
  103. --- /cmu/math/jm36/src/ps/postscript/psrc    Wed Mar 23 23:05:53 1988
  104. ***************
  105. *** 125,130 ****
  106. --- 141,148 ----
  107.   } def
  108.   
  109.   /kshow {
  110. +     exch    % jgm
  111. + 
  112.       showdict begin /p exch def
  113.           dup length 0 ne {
  114.               dup 0 get /last exch def
  115. ***************
  116. *** 132,137 ****
  117. --- 150,156 ----
  118.               dup length 1 sub 1 exch getinterval {
  119.                   last exch dup /last exch def
  120.                   /p load exec
  121. +                 ( ) dup 0 last put show  % jgm
  122.               } forall
  123.           } if
  124.       end
  125. ***************
  126. *** 467,472 ****
  127. --- 493,526 ----
  128.       [ 0 f f 0 0 0] w h [] framedevice
  129.       end
  130.   } def
  131. + 
  132. + % Begin additions --jgm
  133. + 
  134. + /letter {
  135. +     5 dict begin
  136. +     /m [1.13889 0 0 -1.13889 0 0] def
  137. +     /f m 0 get def
  138. +     /h 11 72 mul f mul cvi def
  139. +     /w 8.5 72 mul f mul 8 div cvi def
  140. +     m 5 h put
  141. +     m w h [] framedevice
  142. +     end
  143. + } def
  144. + 
  145. + /note { letter } def
  146. + 
  147. + /legal {
  148. +     5 dict begin
  149. +     /m [1.13889 0 0 -1.13889 0 0] def
  150. +     /f m 0 get def
  151. +     /h 14 72 mul f mul cvi def
  152. +     /w 8.5 72 mul f mul 8 div cvi def
  153. +     m 5 h put
  154. +     m w h [] framedevice
  155. +     end
  156. + } def
  157. + 
  158. + % End additions --jgm
  159.   
  160.   /ascii-set ( !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~) def
  161.   
  162. diff -cr ./source/X.c /cmu/math/jm36/src/ps/source/X.c
  163. *** ./source/X.c    Fri Apr  1 22:44:35 1988
  164. --- /cmu/math/jm36/src/ps/source/X.c    Fri Mar 11 23:39:36 1988
  165. ***************
  166. *** 17,22 ****
  167. --- 17,24 ----
  168.   #define TRANSFER_SIZE    256
  169.   #define XMAX        65535
  170.   
  171. + char *DriverType = "X10"; /* jgm */
  172. + 
  173.   static int transfer [TRANSFER_SIZE + 1];
  174.   
  175.   static unsigned char reverse [0x100];
  176. diff -cr ./source/array.c /cmu/math/jm36/src/ps/source/array.c
  177. *** ./source/array.c    Fri Apr  1 22:48:17 1988
  178. --- /cmu/math/jm36/src/ps/source/array.c    Sun Mar  6 17:16:25 1988
  179. ***************
  180. *** 85,94 ****
  181. --- 85,96 ----
  182.        return res;
  183.    }
  184.   
  185. + #ifdef notdef /* jgm */
  186.   static Object *Body (item) Object item;
  187.    {
  188.        return item.u.Array;
  189.    }
  190. + #endif /* jgm */
  191.   
  192.   #define Body(a) ((a).u.Array)
  193.   
  194. diff -cr ./source/config.c /cmu/math/jm36/src/ps/source/config.c
  195. *** ./source/config.c    Fri Apr  1 22:48:20 1988
  196. --- /cmu/math/jm36/src/ps/source/config.c    Sat Mar 12 00:08:51 1988
  197. ***************
  198. *** 20,30 ****
  199.   Type Real, Name, Operator, String, Poly, Float, FontID;
  200.   
  201.   extern Object Absent, Nil, SysDict;
  202.   
  203. ! char default_library[] = "/usr/ral/lib/postscript";
  204.   
  205.   Init ()
  206.    {    
  207.       Nil     = MakeObject ((Type) 0);
  208.       Null          = Nil.type = MakeType (SizeNull);
  209.       EmptyDict (Null);    /* needed because of this recursion */
  210. --- 20,33 ----
  211.   Type Real, Name, Operator, String, Poly, Float, FontID;
  212.   
  213.   extern Object Absent, Nil, SysDict;
  214. + extern char *DriverType;
  215.   
  216. ! char default_library[] = "/usr/ral/lib/postscript";
  217.   
  218.   Init ()
  219.    {    
  220. +     char versionbuf[1024]; /* --jgm */
  221. + 
  222.       Nil     = MakeObject ((Type) 0);
  223.       Null          = Nil.type = MakeType (SizeNull);
  224.       EmptyDict (Null);    /* needed because of this recursion */
  225. ***************
  226. *** 87,91 ****
  227.        Install ("polytype",        DictFrom (Poly));
  228.       Install ("fonttype",        DictFrom (FontID));
  229.       
  230. !     Install ("version",    StringFrom ("Version 1.4 with mods by jgm")); /* jgm */
  231.    }
  232. --- 90,98 ----
  233.        Install ("polytype",        DictFrom (Poly));
  234.       Install ("fonttype",        DictFrom (FontID));
  235.       
  236. !     /* Begin jgm */
  237. !     strcpy(versionbuf, DriverType);
  238. !     strcat(versionbuf, " version 1.4 with jgm mods v2");
  239. !     Install ("version",    StringFrom (versionbuf));
  240. !     /* End jgm */
  241.    }
  242. diff -cr ./source/device.c /cmu/math/jm36/src/ps/source/device.c
  243. *** ./source/device.c    Fri Apr  1 22:41:29 1988
  244. --- /cmu/math/jm36/src/ps/source/device.c    Sun Mar  6 17:29:48 1988
  245. ***************
  246. *** 200,206 ****
  247.            UnlinkDevice (d);
  248.         }
  249.        else
  250. !          */BitBlt (NULL, res->dev, NewDevicePoint (0, 0), NewDevicePoint (0, 0), ex, ROP_FALSE);
  251.        
  252.        return res;
  253.    }
  254. --- 200,206 ----
  255.            UnlinkDevice (d);
  256.         }
  257.        else
  258. !          */BitBlt ((struct hardware *)NULL, res->dev, NewDevicePoint (0, 0), NewDevicePoint (0, 0), ex, ROP_FALSE); /* cast NULL --jgm */
  259.        
  260.        return res;
  261.    }
  262. diff -cr ./source/file.c /cmu/math/jm36/src/ps/source/file.c
  263. *** ./source/file.c    Fri Apr  1 22:45:31 1988
  264. --- /cmu/math/jm36/src/ps/source/file.c    Sun Mar  6 17:16:15 1988
  265. ***************
  266. *** 168,184 ****
  267. --- 168,188 ----
  268.   
  269.   #define Getc(a) getc(a)
  270.   
  271. + #ifdef notdef /* jgm */
  272.   static int Getchar ()
  273.    {
  274.        return Getc (stdin);
  275.    }
  276. + #endif /* jgm */
  277.   
  278.   #define Getchar getchar
  279.   
  280. + #ifdef notdef /* jgm */
  281.   static int Status (file) Object file;
  282.    {
  283.        return Body (file)->available;
  284.    }
  285. + #endif /* jgm */
  286.   
  287.   #define Status(f) (Body(f)->available)
  288.   
  289. ***************
  290. *** 306,312 ****
  291.        Cbreak (FALSE);
  292.    }
  293.   
  294. ! static cbreak = FALSE, echoing = TRUE;
  295.   
  296.   /*ARGSUSED*/
  297.   Cbreak (cond) int cond;
  298. --- 310,316 ----
  299.        Cbreak (FALSE);
  300.    }
  301.   
  302. ! static /* cbreak = FALSE, (removed --jgm) */ echoing = TRUE;
  303.   
  304.   /*ARGSUSED*/
  305.   Cbreak (cond) int cond;
  306. diff -cr ./source/fill.c /cmu/math/jm36/src/ps/source/fill.c
  307. *** ./source/fill.c    Fri Apr  1 22:44:44 1988
  308. --- /cmu/math/jm36/src/ps/source/fill.c    Sun Mar  6 17:46:45 1988
  309. ***************
  310. *** 149,155 ****
  311.        UnlinkDevice (gstate->clipdevice);
  312.         gstate->clipdevice = NULL;
  313.         
  314. !      SetClipHardware (gstate->device->dev, NULL);
  315.       
  316.       return TRUE;
  317.    }
  318. --- 149,155 ----
  319.        UnlinkDevice (gstate->clipdevice);
  320.         gstate->clipdevice = NULL;
  321.         
  322. !      SetClipHardware (gstate->device->dev, (struct hardware *)NULL); /* cast NULL --jgm */
  323.       
  324.       return TRUE;
  325.    }
  326. ***************
  327. *** 226,232 ****
  328.   static int FillIt (path_a, rule_a, path_b, rule_b, emitfn)
  329.       Path path_a, path_b; int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  330.    {
  331. !     Path new;
  332.       static int edgecmp ();
  333.       static void Trapezoids (), BuildEdgeList ();
  334.       
  335. --- 226,232 ----
  336.   static int FillIt (path_a, rule_a, path_b, rule_b, emitfn)
  337.       Path path_a, path_b; int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  338.    {
  339. !     /* Path new; (unused --jgm) */
  340.       static int edgecmp ();
  341.       static void Trapezoids (), BuildEdgeList ();
  342.       
  343. ***************
  344. *** 288,298 ****
  345.    {
  346.       struct edge *up_edge;
  347.       int i, count_a = 0, count_b = 0;
  348. !     static void RemoveEdges ();
  349.       
  350.       for (i = 0; i < ninteresting; i++)
  351.        {
  352. !          static void Emit ();
  353.            int d_a = 0, d_b = 0;
  354.            
  355.            if (interesting[i]->clip)
  356. --- 288,298 ----
  357.    {
  358.       struct edge *up_edge;
  359.       int i, count_a = 0, count_b = 0;
  360. !     /* static void RemoveEdges (); (unused --jgm) */
  361.       
  362.       for (i = 0; i < ninteresting; i++)
  363.        {
  364. !          /* static void Emit (); (unused --jgm) */
  365.            int d_a = 0, d_b = 0;
  366.            
  367.            if (interesting[i]->clip)
  368. diff -cr ./source/font.c /cmu/math/jm36/src/ps/source/font.c
  369. *** ./source/font.c    Fri Apr  1 22:45:11 1988
  370. --- /cmu/math/jm36/src/ps/source/font.c    Sun Mar  6 17:11:46 1988
  371. ***************
  372. *** 535,541 ****
  373.        for (;;)
  374.        {
  375.            int code = *++s;
  376. !          HardPoint offset, cp;
  377.            
  378.            offset = Adjust (DExtToInt (last_width), code);
  379.           loc.hx += offset.hx;
  380. --- 535,541 ----
  381.        for (;;)
  382.        {
  383.            int code = *++s;
  384. !          HardPoint offset/* , cp (unused --jgm) */;
  385.            
  386.            offset = Adjust (DExtToInt (last_width), code);
  387.           loc.hx += offset.hx;
  388. diff -cr ./source/gsave.c /cmu/math/jm36/src/ps/source/gsave.c
  389. *** ./source/gsave.c    Fri Apr  1 22:39:48 1988
  390. --- /cmu/math/jm36/src/ps/source/gsave.c    Sun Mar  6 17:34:40 1988
  391. ***************
  392. *** 75,81 ****
  393.                 SetScreen (gstate->screen.frequency, gstate->screen.rotation, gstate->screen.thresh);
  394.             if (tflag)
  395.                 SetTransfer (gstate->transfer.tran);
  396. !           SetClipHardware (gstate->device->dev, (gstate->clipdevice ? gstate->clipdevice->dev : NULL));
  397.        }
  398.        
  399.        return TRUE;
  400. --- 75,81 ----
  401.                 SetScreen (gstate->screen.frequency, gstate->screen.rotation, gstate->screen.thresh);
  402.             if (tflag)
  403.                 SetTransfer (gstate->transfer.tran);
  404. !           SetClipHardware (gstate->device->dev, (gstate->clipdevice ? gstate->clipdevice->dev : (struct hardware *)NULL)); /* Cast NULL --jgm */
  405.        }
  406.        
  407.        return TRUE;
  408. diff -cr ./source/image.c /cmu/math/jm36/src/ps/source/image.c
  409. *** ./source/image.c    Fri Apr  1 22:48:26 1988
  410. --- /cmu/math/jm36/src/ps/source/image.c    Sun Mar  6 17:34:36 1988
  411. ***************
  412. *** 250,256 ****
  413.                       FillMask (mask, i, dep);
  414.                      
  415.                      BitBlt (from, mask, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (from), ROP_NXOR);
  416. !                    BitBlt (NULL, temp, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (temp), ROP_TRUE);
  417.                       for (j = 0; j < dep; j++)
  418.                           BitBlt (mask, temp, NewDevicePoint (j, 0), NewDevicePoint (0, 0), HardwareExtent (mask), ROP_AND);
  419.                       for (j = 0; j < w; j++)
  420. --- 250,256 ----
  421.                       FillMask (mask, i, dep);
  422.                      
  423.                      BitBlt (from, mask, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (from), ROP_NXOR);
  424. !                    BitBlt ((struct  hardware *)NULL, temp, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (temp), ROP_TRUE);  /* cast NULL --jgm */
  425.                       for (j = 0; j < dep; j++)
  426.                           BitBlt (mask, temp, NewDevicePoint (j, 0), NewDevicePoint (0, 0), HardwareExtent (mask), ROP_AND);
  427.                       for (j = 0; j < w; j++)
  428. diff -cr ./source/matrix.c /cmu/math/jm36/src/ps/source/matrix.c
  429. *** ./source/matrix.c    Fri Apr  1 22:43:11 1988
  430. --- /cmu/math/jm36/src/ps/source/matrix.c    Wed Mar 23 22:40:28 1988
  431. ***************
  432. *** 126,131 ****
  433. --- 126,132 ----
  434.   static int PTranslate ()
  435.    {
  436.        Object tx, ty, mat;
  437. +     Matrix m;
  438.        float x, y;
  439.        
  440.        if (!OpCheck (2, 1))
  441. ***************
  442. *** 136,141 ****
  443. --- 137,144 ----
  444.                 return Push (OpStack, mat), Error (PInvAccess);
  445.            else if (lengthArray (mat) != 6)
  446.                 return Push (OpStack, mat), Error (PRangeCheck);
  447. +         else if    (!ExtractMatrix    (&m, mat))  /* --jgm */
  448. +                 return Push (OpStack, mat), Error (PTypeCheck); /* --jgm */
  449.            else
  450.             {
  451.                 ty = Pop (OpStack);
  452. ***************
  453. *** 153,159 ****
  454.                 else
  455.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  456.                
  457. !               VOID AssignMatrix (mat, NewMatrix (1.0, 0.0, 0.0, 1.0, x, y));
  458.                 
  459.                 return Push (OpStack, mat);
  460.             }
  461. --- 156,164 ----
  462.                 else
  463.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  464.                
  465. ! /*              VOID AssignMatrix (mat, NewMatrix (1.0, 0.0, 0.0, 1.0, x, y)); WRONG --jgm */
  466. !               VOID AssignMatrix (mat, Translate(m, x, y)); /* --jgm */
  467. ! 
  468.                 
  469.                 return Push (OpStack, mat);
  470.             }
  471. ***************
  472. *** 178,184 ****
  473.   static int PScale ()
  474.    {
  475.        Object tx, ty, mat;
  476. !      float x, y;
  477.        
  478.        if (!OpCheck (2, 1))
  479.            return FALSE;
  480. --- 183,190 ----
  481.   static int PScale ()
  482.    {
  483.        Object tx, ty, mat;
  484. !     Matrix m; /* --jgm */
  485. !     float x, y;
  486.        
  487.        if (!OpCheck (2, 1))
  488.            return FALSE;
  489. ***************
  490. *** 188,193 ****
  491. --- 194,201 ----
  492.                 return Push (OpStack, mat), Error (PInvAccess);
  493.            else if (lengthArray (mat) != 6)
  494.                 return Push (OpStack, mat), Error (PRangeCheck);
  495. +         else if    (!ExtractMatrix    (&m, mat))  /* --jgm */
  496. +                 return Push (OpStack, mat), Error (PTypeCheck); /* --jgm */
  497.            else
  498.             {
  499.                ty = Pop (OpStack);
  500. ***************
  501. *** 205,211 ****
  502.                 else
  503.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  504.                
  505. !               VOID AssignMatrix (mat, NewMatrix (x, 0.0, 0.0, y, 0.0, 0.0));
  506.                 
  507.                 return Push (OpStack, mat);
  508.             }
  509. --- 213,220 ----
  510.                 else
  511.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  512.                
  513. ! /*              VOID AssignMatrix (mat, NewMatrix (x, 0.0, 0.0, y, 0.0, 0.0)); WRONG --jgm */
  514. !               VOID AssignMatrix (mat, Scale(m, x, y)); /* --jgm */
  515.                 
  516.                 return Push (OpStack, mat);
  517.             }
  518. ***************
  519. *** 249,256 ****
  520.                     a = BodyReal (ang);
  521.                 else
  522.                     return Push (OpStack, ang), Push (OpStack, mat), Error (PTypeCheck);
  523. !               
  524. !               VOID AssignMatrix (mat, NewMatrix (cos(a), sin(a), -sin(a), -cos(a), 0.0, 0.0));
  525.                 
  526.                 return Push (OpStack, mat);
  527.             }
  528. --- 258,265 ----
  529.                     a = BodyReal (ang);
  530.                 else
  531.                     return Push (OpStack, ang), Push (OpStack, mat), Error (PTypeCheck);
  532. !               a = Rad(a); /* jgm */
  533. !               VOID AssignMatrix (mat, NewMatrix (cos(a), sin(a), -sin(a), cos(a), 0.0, 0.0)); /* last "-cos" changed to "cos" --jgm */
  534.                 
  535.                 return Push (OpStack, mat);
  536.             }
  537. diff -cr ./source/name.c /cmu/math/jm36/src/ps/source/name.c
  538. *** ./source/name.c    Fri Apr  1 22:39:54 1988
  539. --- /cmu/math/jm36/src/ps/source/name.c    Sun Mar  6 17:16:20 1988
  540. ***************
  541. *** 107,113 ****
  542.   
  543.   static int HashName (s, length) unsigned char *s; int length;
  544.    {
  545. !     int i, res = 0;
  546.       
  547.       while (length--)
  548.           res += *s++;
  549. --- 107,113 ----
  550.   
  551.   static int HashName (s, length) unsigned char *s; int length;
  552.    {
  553. !     int /* i, (unused --jgm) */ res = 0;
  554.       
  555.       while (length--)
  556.           res += *s++;
  557. diff -cr ./source/operator.c /cmu/math/jm36/src/ps/source/operator.c
  558. *** ./source/operator.c    Fri Apr  1 22:41:54 1988
  559. --- /cmu/math/jm36/src/ps/source/operator.c    Sun Mar  6 17:16:23 1988
  560. ***************
  561. *** 69,75 ****
  562.    {
  563.        Object res;
  564.        struct op_struct *op;
  565. !      int i;
  566.        res = Cvx (MakeObject (Operator));
  567.        res.u.Operator = op = (struct op_struct *) Malloc (sizeof (struct op_struct));
  568.       
  569. --- 69,75 ----
  570.    {
  571.        Object res;
  572.        struct op_struct *op;
  573. !      /* int i; (unused --jgm) */
  574.        res = Cvx (MakeObject (Operator));
  575.        res.u.Operator = op = (struct op_struct *) Malloc (sizeof (struct op_struct));
  576.       
  577. ***************
  578. *** 130,139 ****
  579. --- 130,141 ----
  580.        TypeInstall (type, name, res);
  581.    }
  582.   
  583. + #ifdef notdef /* jgm */
  584.   static struct op_struct *Body (item) Object item;
  585.    {
  586.        return item.u.Operator;
  587.    }
  588. + #endif /* jgm */
  589.   
  590.   #define Body(op)    ((op).u.Operator)
  591.   
  592. diff -cr ./source/path.c /cmu/math/jm36/src/ps/source/path.c
  593. *** ./source/path.c    Fri Apr  1 22:43:14 1988
  594. --- /cmu/math/jm36/src/ps/source/path.c    Sat Mar 19 17:00:52 1988
  595. ***************
  596. *** 194,200 ****
  597.        
  598.        if ((res = ReversePath (gstate->path)) == NULL)
  599.            return Error (PLimitCheck);
  600. !       SetPath (&gstate->path, res);
  601.        return TRUE;    
  602.    }
  603.   
  604. --- 194,201 ----
  605.        
  606.        if ((res = ReversePath (gstate->path)) == NULL)
  607.            return Error (PLimitCheck);
  608. !       /* SetPath (&gstate->path, res); --jgm */
  609. !     gstate->path = res; /* Don't free gstate->path twice. --jgm */
  610.        return TRUE;    
  611.    }
  612.   
  613. diff -cr ./source/pixrect.c /cmu/math/jm36/src/ps/source/pixrect.c
  614. *** ./source/pixrect.c    Fri Apr  1 22:40:34 1988
  615. --- /cmu/math/jm36/src/ps/source/pixrect.c    Fri Mar 11 23:35:16 1988
  616. ***************
  617. *** 15,20 ****
  618. --- 15,22 ----
  619.   #include "canon.h"
  620.   #include <pixrect/pixrect_hs.h>
  621.   
  622. + char *DriverType = "Sun pixrect"; /* jgm */
  623. + 
  624.   int rop_map [] =
  625.    {
  626.        PIX_SRC & PIX_NOT (PIX_SRC),
  627. diff -cr ./source/state.c /cmu/math/jm36/src/ps/source/state.c
  628. *** ./source/state.c    Fri Apr  1 22:43:34 1988
  629. --- /cmu/math/jm36/src/ps/source/state.c    Sun Mar  6 17:33:19 1988
  630. ***************
  631. *** 114,120 ****
  632.   
  633.   int ErasePage ()
  634.    {
  635. !     Paint (NULL, gstate->device->dev,
  636.           NewDevicePoint (0, 0), NewDevicePoint (0, 0),
  637.           HardwareExtent (gstate->device->dev),
  638.           White);
  639. --- 114,120 ----
  640.   
  641.   int ErasePage ()
  642.    {
  643. !     Paint ((struct hardware *)NULL, gstate->device->dev, /* cast NULL --jgm */
  644.           NewDevicePoint (0, 0), NewDevicePoint (0, 0),
  645.           HardwareExtent (gstate->device->dev),
  646.           White);
  647. diff -cr ./source/ww.c /cmu/math/jm36/src/ps/source/ww.c
  648. *** ./source/ww.c    Fri Apr  1 22:41:00 1988
  649. --- /cmu/math/jm36/src/ps/source/ww.c    Fri Mar 11 23:39:23 1988
  650. ***************
  651. *** 14,19 ****
  652. --- 14,21 ----
  653.   #include "canon.h"
  654.   #include "wwinfo.h"
  655.   
  656. + char *DriverType = "ww"; /* jgm */
  657. + 
  658.   static void xxrasterop ();
  659.   
  660.   static struct hardware *NewHardware ();
  661.