home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / postscript / patches < prev    next >
Encoding:
Text File  |  1989-01-05  |  91.0 KB  |  3,291 lines
  1. This is a patch for Crispin Goswell's postscript interpreter, which
  2. was posted to comp.sources.unix a while back.  If you don't have the
  3. interpreter, you can get it from one of the comp.sources.unix
  4. archives.
  5.  
  6. Soon after the interpreter was posted, I posted these fixes to
  7. comp.sources.bugs, but they unfortunately had lines wrapped by our
  8. mailer.  This first patch is equivalent to that posting (modulo line
  9. wrapping) and if you successfully applied that posting, you can skip
  10. to the next patch.
  11.  
  12. To install this, you need the 'patch' program which is also available
  13. from the comp.sources.unix archives.
  14.  
  15. Change directories to the top-level postscript directory (the one with
  16. the file "MANIFEST" in it) and apply this patch with the command:
  17.  
  18. patch -p0 <ps.diff.v1
  19.  
  20.                 _.John G. Myers
  21.                 jm36+@andrew.cmu.edu
  22.  
  23. *** /dev/null    Mon Jul 25 01:14:13 1988
  24. --- CHANGES.JGM    Thu Jul 28 12:24:55 1988
  25. ***************
  26. *** 0 ****
  27. --- 1,47 -----
  28. + Here is a patch that makes several bug fixes and enhancements to the Postscript
  29. + interpreter recently posted.  The changes are:
  30. + 
  31. + 
  32. + Bugs fixed:
  33. + 
  34. + Half-implemented the missing operator "vmstatus".  The number of savelevels is
  35. + correct (as far as the broken implementation of "save" and "restore" allow),
  36. + but the amount of memory used and free is a lie.
  37. + 
  38. + Implemented the missing operator "noaccess".
  39. + 
  40. + Fixed a bug in the operator "stopped".  Previously it only worked on arrays,
  41. + but now it works on any executable object.
  42. + 
  43. + Fixed the parsing bug for reals with a trailing period (e.g. "4.") which
  44. + resulted in the "undefined in operater exec" errors reported to the net.
  45. + 
  46. + Changed an occurance of the variable "signed" to "signedp" as the former is an
  47. + ANSI C keyword.
  48. + 
  49. + Added a version of the missing file postscript/demos/buildcachefont.ps
  50. + 
  51. + 
  52. + Enhancements made:
  53. + 
  54. + Macroized PanicIf()
  55. + 
  56. + Changed "undefined in operator exec" errors to instead report 
  57. + "undefined in operator foo", where "foo" is the operator that was undefined.
  58. + 
  59. + Fixed imagemask to deal better with images that have to be shrunk.  Bitmapped
  60. + fonts intended for 300 dpi printers look much better now.
  61. + (Change courtesy of Christopher Cox, cc4b@andrew.cmu.edu)
  62. + 
  63. + Tweaked makefile to deal better with sun3.
  64. + 
  65. + Added "getenv" operator.  The syntax is:
  66. +     <string> getenv <string> <true>
  67. + if the environment variable exists, or
  68. +     <string> getenv <false>
  69. + if it does not.
  70. + 
  71. + 
  72. +                 John G. Myers
  73. +                 jm36@andrew.cmu.edu
  74. +                 jgm@k.gp.cs.cmu.edu
  75. diff -cr orig/postscript/psrc ./postscript/psrc
  76. *** orig/postscript/psrc    Sun Jan  3 14:22:51 1988
  77. --- ./postscript/psrc    Sun Dec 13 22:58:09 1987
  78. ***************
  79. *** 10,17 ****
  80.   
  81.   /bind {} def
  82.   
  83. ! /save { gsave /save } def
  84. ! /restore { grestore pop } def
  85.   /raise { errordict exch get exec } def
  86.   
  87.   /beep ( ) dup 0 7 put def
  88. --- 10,21 ----
  89.   
  90.   /bind {} def
  91.   
  92. ! %% Start mods by jgm
  93. ! /$$SAVELEVEL 0 def
  94. ! /save { gsave /save /$$SAVELEVEL $$SAVELEVEL 1 add def } def
  95. ! /restore { grestore pop /$$SAVELEVEL $$SAVELEVEL 1 sub def } def
  96. ! /vmstatus { $$SAVELEVEL 10000 10000 } def
  97. ! %% End mods by jgm
  98.   /raise { errordict exch get exec } def
  99.   
  100.   /beep ( ) dup 0 7 put def
  101. diff -cr orig/source/array.c ./source/array.c
  102. *** orig/source/array.c    Sun Jan  3 14:21:55 1988
  103. --- ./source/array.c    Sat Dec 12 01:05:28 1987
  104. ***************
  105. *** 17,22 ****
  106. --- 17,23 ----
  107.   
  108.   static int forAll (), ForAll (), PReadOnly (), PExecOnly (), PrCheck (), PwCheck ();
  109.   static int PutInterval (), GetInterval (), Put (), Get (), Length (), Copy (), Eq ();
  110. + static int PNoAccess (); /*jgm*/
  111.   
  112.   int ExecArray ();
  113.   Object Marker;
  114. ***************
  115. *** 53,58 ****
  116. --- 54,60 ----
  117.        TypeInstallOp (Array, "length",         PLength,    1, 1, 0, 0, Array);
  118.        TypeInstallOp (Array, "copy",         Copy,        2, 0, 0, 0, Array, Array);
  119.        TypeInstallOp (Array, "forall",     ForAll,        2, 0, 0, 4, Array, Array);
  120. +      TypeInstallOp (Array, "noaccess",     PNoAccess,    1, 1, 0, 0, Array); /*jgm*/
  121.        TypeInstallOp (Array, "executeonly",     PExecOnly,    1, 1, 0, 0, Array);
  122.        TypeInstallOp (Array, "readonly",     PReadOnly,    1, 1, 0, 0, Array);
  123.        TypeInstallOp (Array, "rcheck",     PrCheck,    1, 1, 0, 0, Array);
  124. ***************
  125. *** 385,390 ****
  126. --- 387,398 ----
  127.                 body[i] = Pop (OpStack);
  128.             return Push (OpStack, array);
  129.         }
  130. +  }
  131. + 
  132. + /* PNoAccess by jgm */
  133. + static int PNoAccess (item) Object item;
  134. +  {
  135. +      return Push (OpStack, NoAccess (item));
  136.    }
  137.   
  138.   static int PExecOnly (item) Object item;
  139. diff -cr orig/source/cache.c ./source/cache.c
  140. *** orig/source/cache.c    Sun Jan  3 14:22:42 1988
  141. --- ./source/cache.c    Thu Dec 10 21:26:47 1987
  142. ***************
  143. *** 501,512 ****
  144.       if ((ccache = SearchCache (m, BodyFontID (DictLoad (gstate->font, Fid)))) == NULL)
  145.            return Error (PInvFont);
  146.        
  147. -       Message (disk_name);
  148.       VOID sprintf (disk_name,
  149.            "%s/cache/%.*s/%3d%3d%3d%3d",
  150.            library,
  151.            lengthName (font_name), BodyName (font_name),
  152.            (int) right.vx, (int) right.vy, (int) bottom.vx, (int) bottom.vy);
  153.        
  154.        if ((fp = fopen (disk_name, "w")) == NULL)
  155.            return Error (PInvFileAccess);
  156. --- 501,512 ----
  157.       if ((ccache = SearchCache (m, BodyFontID (DictLoad (gstate->font, Fid)))) == NULL)
  158.            return Error (PInvFont);
  159.        
  160.       VOID sprintf (disk_name,
  161.            "%s/cache/%.*s/%3d%3d%3d%3d",
  162.            library,
  163.            lengthName (font_name), BodyName (font_name),
  164.            (int) right.vx, (int) right.vy, (int) bottom.vx, (int) bottom.vy);
  165. +       Message (disk_name); /* moved from before to after prev line -- jgm */
  166.        
  167.        if ((fp = fopen (disk_name, "w")) == NULL)
  168.            return Error (PInvFileAccess);
  169. diff -cr orig/source/config.c ./source/config.c
  170. *** orig/source/config.c    Sun Jan  3 14:19:54 1988
  171. --- ./source/config.c    Fri Jan  1 13:58:10 1988
  172. ***************
  173. *** 87,91 ****
  174.        Install ("polytype",        DictFrom (Poly));
  175.       Install ("fonttype",        DictFrom (FontID));
  176.       
  177. !     Install ("version",    StringFrom ("Version 1.4"));
  178.    }
  179. --- 87,91 ----
  180.        Install ("polytype",        DictFrom (Poly));
  181.       Install ("fonttype",        DictFrom (FontID));
  182.       
  183. !     Install ("version",    StringFrom ("Version 1.4 with mods by jgm")); /* jgm */
  184.    }
  185. diff -cr orig/source/control.c ./source/control.c
  186. *** orig/source/control.c    Sun Jan  3 14:26:55 1988
  187. --- ./source/control.c    Sun Dec 13 23:13:46 1987
  188. ***************
  189. *** 65,71 ****
  190.        InstallOp ("loop",    PLoop,        1, 0, 0, 4, Array);
  191.       InstallOp ("exit",    PExit,        0, 0, 0, 0);
  192.        InstallOp ("stop",    PStop,        0, 1, 0, 0);
  193. !      InstallOp ("stopped",    PStopped,    1, 1, 0, 3, Array);
  194.        InstallOp ("quit",    PQuit,         0, 0, 0, 0);
  195.        InstallOp ("start",    PStart,     0, 0, 0, 0);
  196.        InstallOp ("countexecstack",
  197. --- 65,72 ----
  198.        InstallOp ("loop",    PLoop,        1, 0, 0, 4, Array);
  199.       InstallOp ("exit",    PExit,        0, 0, 0, 0);
  200.        InstallOp ("stop",    PStop,        0, 1, 0, 0);
  201. !     /* Changed from "Array" to "Poly" --jgm*/
  202. !      InstallOp ("stopped",    PStopped,    1, 1, 0, 3, Poly);
  203.        InstallOp ("quit",    PQuit,         0, 0, 0, 0);
  204.        InstallOp ("start",    PStart,     0, 0, 0, 0);
  205.        InstallOp ("countexecstack",
  206. diff -cr orig/source/dictionary.c ./source/dictionary.c
  207. *** orig/source/dictionary.c    Sun Jan  3 14:22:55 1988
  208. --- ./source/dictionary.c    Sat Dec 12 01:06:49 1987
  209. ***************
  210. *** 23,28 ****
  211. --- 23,29 ----
  212.   static int PDict (), PBegin (), PEnd (), PDef (), PStore (), PKnown (), PLoad ();
  213.   static int PrCheck (), PwCheck (), PReadOnly (), EqDict (); 
  214.   static int PWhere (), PMaxLength (), PCurrentDict (); 
  215. + static int PNoAccess (); /*jgm*/
  216.   
  217.   static int hash_tries = 0, hash_collisions = 0, hash_attempts = 0;
  218.   static int PHashStats (), PDictHash ();
  219. ***************
  220. *** 57,62 ****
  221. --- 58,64 ----
  222.       TypeInstallOp (Dictionary, "length",     LengthDict,    1, 1, 0, 0, Dictionary);
  223.       TypeInstallOp (Dictionary, "copy",     CopyDict,    2, 0, 0, 0, Dictionary, Dictionary);
  224.       TypeInstallOp (Dictionary, "forall",     ForDict,    2, 0, 0, 4, Dictionary, Array);
  225. +      TypeInstallOp (Dictionary, "noaccess",     PNoAccess,    1, 1, 0, 0, Dictionary); /*jgm*/
  226.        TypeInstallOp (Dictionary, "readonly",     PReadOnly,    1, 1, 0, 0, Dictionary);
  227.        TypeInstallOp (Dictionary, "rcheck",     PrCheck,    1, 1, 0, 0, Dictionary);
  228.        TypeInstallOp (Dictionary, "wcheck",     PwCheck,    1, 1, 0, 0, Dictionary);
  229. ***************
  230. *** 511,516 ****
  231. --- 513,524 ----
  232.   static int PCurrentDict ()
  233.    {
  234.         return Push (OpStack, Top (DictStack));
  235. +  }
  236. + 
  237. + /* PNoAccess by jgm */
  238. + static int PNoAccess (item) Object item;
  239. +  {
  240. +      return Push (OpStack, NoAccess (item));
  241.    }
  242.   
  243.   static int PReadOnly (item) Object item;
  244. diff -cr orig/source/image.c ./source/image.c
  245. *** orig/source/image.c    Sun Jan  3 14:22:32 1988
  246. --- ./source/image.c    Mon Dec 28 18:17:04 1987
  247. ***************
  248. *** 353,363 ****
  249.       else
  250.        {
  251.            middle2 = NewBitmapHardware (dwidth, h);
  252. !         for (i = 0; i < dwidth; i++)
  253. !             BitBlt (from,     middle2,
  254. !                 NewDevicePoint ((int) (i/xscale), 0), NewDevicePoint (i, 0),
  255.                   NewDevicePoint (1, h),
  256.                   ROP_OR);
  257.        }
  258.       
  259.       if (dheight > h)
  260. --- 353,365 ----
  261.       else
  262.        {
  263.            middle2 = NewBitmapHardware (dwidth, h);
  264. !         /* begin changes by cc4b --jgm */
  265. !         for (i = 0; i < w; i++)
  266. !             BitBlt( from,  middle2,
  267. !                 NewDevicePoint (i, 0), NewDevicePoint( (int) (i * xscale), 0),
  268.                   NewDevicePoint (1, h),
  269.                   ROP_OR);
  270. +         /* end changes by cc4b --jgm */
  271.        }
  272.       
  273.       if (dheight > h)
  274. ***************
  275. *** 382,392 ****
  276.       else
  277.        {
  278.           high2 = NewBitmapHardware (dwidth, dheight);
  279. !         for (i = 0; i < dheight; i++)
  280. !             BitBlt (middle2, high2,
  281. !                 NewDevicePoint (0, (int) (i/yscale)), NewDevicePoint (0, i),
  282.                   NewDevicePoint (dwidth, 1),
  283.                   ROP_OR);
  284.        }
  285.        return high2;
  286.    }
  287. --- 384,397 ----
  288.       else
  289.        {
  290.           high2 = NewBitmapHardware (dwidth, dheight);
  291. ! 
  292. !         /* begin changes by cc4b --jgm */
  293. !         for (i = 0; i < h; i++ )
  294. !             BitBlt( middle2, high2,
  295. !                 NewDevicePoint (0, i), NewDevicePoint( 0, (int) (i * yscale)),
  296.                   NewDevicePoint (dwidth, 1),
  297.                   ROP_OR);
  298. +         /* end changes by cc4b  --jgm */
  299.        }
  300.        return high2;
  301.    }
  302. diff -cr orig/source/integer.c ./source/integer.c
  303. *** orig/source/integer.c    Sun Jan  3 14:21:32 1988
  304. --- ./source/integer.c    Thu Dec 10 20:44:17 1987
  305. ***************
  306. *** 72,80 ****
  307.   
  308.   int StrictMul (a, b) int a, b;
  309.    {
  310. !      int atop, abot, btop, bbot, sum, signed;
  311.        
  312. !      signed = (a < 0) != (b < 0);
  313.        a = a < 0 ? -a : a;
  314.        b = b < 0 ? -b : b;
  315.        abot = a & LowMask;
  316. --- 72,81 ----
  317.   
  318.   int StrictMul (a, b) int a, b;
  319.    {
  320. !     /* Variable signed changed to signedp by jgm for ANSI C */
  321. !      int atop, abot, btop, bbot, sum, signedp;
  322.        
  323. !      signedp = (a < 0) != (b < 0);
  324.        a = a < 0 ? -a : a;
  325.        b = b < 0 ? -b : b;
  326.        abot = a & LowMask;
  327. ***************
  328. *** 86,92 ****
  329.        sum = ((unsigned) sum >> Word2) + atop * btop;
  330.        if (sum != 0 || a * b < 0)
  331.            kill (getpid (), SIGFPE);
  332. !      return signed ? -a * b : a * b;
  333.    }
  334.   
  335.   int StrictAdd (a, b) int a, b;
  336. --- 87,93 ----
  337.        sum = ((unsigned) sum >> Word2) + atop * btop;
  338.        if (sum != 0 || a * b < 0)
  339.            kill (getpid (), SIGFPE);
  340. !      return signedp ? -a * b : a * b;
  341.    }
  342.   
  343.   int StrictAdd (a, b) int a, b;
  344. diff -cr orig/source/main.c ./source/main.c
  345. *** orig/source/main.c    Sun Jan  3 14:22:13 1988
  346. --- ./source/main.c    Sun Dec 13 00:40:04 1987
  347. ***************
  348. *** 187,210 ****
  349.                  Object newitem;
  350.                  
  351.                  newitem = Load (item);
  352. !                if (TypeOf (newitem) != Condition)
  353. !                     item = newitem;
  354. !                
  355. !                if (!xCheck (item))
  356. !                  res = Push (OpStack, item);
  357. !               else if (TypeOf (item) == Operator)
  358. !                   res = ExecOperator (item);
  359. !               else if (TypeOf (item) == Array)
  360. !                   res = ExecArray (item);
  361. !               else if (TypeOf (item) == File)
  362. !                   res = ExecFile (item);
  363. !             else
  364. !                {
  365. !                   res = Push (OpStack, item);
  366. !                    exop = Lookup (TypeOf (item), execName);
  367. !                    if (TypeOf (exop) != Condition)
  368. !                        VOID Push (ExecStack, exop);
  369. !                 }
  370.               }
  371.             else
  372.              {
  373. --- 187,216 ----
  374.                  Object newitem;
  375.                  
  376.                  newitem = Load (item);
  377. !             /* begin jgm */
  378. !             if (TypeOf (newitem) == Condition) {
  379. !                 VOID Push(OpStack, item);
  380. !                 res = Push(ExecStack, DictLoad(ErrorDict,PUndefined));
  381. !             } else {
  382. !                 /* end jgm */
  383. !                 item = newitem;
  384. ! 
  385. !                 if (!xCheck (item))
  386. !                 res = Push (OpStack, item);
  387. !                 else if (TypeOf (item) == Operator)
  388. !                 res = ExecOperator (item);
  389. !                 else if (TypeOf (item) == Array)
  390. !                 res = ExecArray (item);
  391. !                 else if (TypeOf (item) == File)
  392. !                 res = ExecFile (item);
  393. !                 else
  394. !                 {
  395. !                 res = Push (OpStack, item);
  396. !                 exop = Lookup (TypeOf (item), execName);
  397. !                 if (TypeOf (exop) != Condition)
  398. !                     VOID Push (ExecStack, exop);
  399. !                 }
  400. !             } /* jgm */
  401.               }
  402.             else
  403.              {
  404. ***************
  405. *** 340,350 ****
  406.            return TRUE;
  407.    }
  408.   
  409. ! PanicIf (cond, s) int cond; char *s;
  410. !  {
  411. !      if (cond)
  412. !          Panic (s);
  413. !  }
  414.   
  415.   Panic (s) char *s;
  416.    {
  417. --- 346,358 ----
  418.            return TRUE;
  419.    }
  420.   
  421. ! #ifdef needed /* Macroized --jgm */
  422. ! XPanicIf (cond, s) int cond; char *s;
  423. ! X {
  424. ! X     if (cond)
  425. ! X         Panic (s);
  426. ! X }
  427. ! #endif
  428.   
  429.   Panic (s) char *s;
  430.    {
  431. ***************
  432. *** 392,397 ****
  433. --- 400,416 ----
  434.       return o;
  435.    }
  436.   
  437. + /* NoAccess by jgm */
  438. + Object NoAccess (o) Object o;
  439. +  {
  440. +      if (o.type == Dictionary)
  441. +          o.u.Dictionary->dict_flags &= ~(READABLE | WRITEABLE | EXECUTABLE);
  442. +      else
  443. +          o.flags &= ~(READABLE | WRITEABLE | EXECUTABLE);
  444. +      return o;
  445. +  }
  446. + 
  447. + 
  448.   Object ExecOnly (o) Object o;
  449.    {
  450.        if (o.type == Dictionary)
  451. ***************
  452. *** 398,404 ****
  453.            o.u.Dictionary->dict_flags &= ~(READABLE | WRITEABLE);
  454.        else
  455.            o.flags &= ~(READABLE | WRITEABLE);
  456. !      return ReadOnly (o);
  457.    }
  458.   
  459.   Object ReadOnly (o) Object o;
  460. --- 417,423 ----
  461.            o.u.Dictionary->dict_flags &= ~(READABLE | WRITEABLE);
  462.        else
  463.            o.flags &= ~(READABLE | WRITEABLE);
  464. !      return o;   /* Removed redundant call to ReadOnly -- jgm */
  465.    }
  466.   
  467.   Object ReadOnly (o) Object o;
  468. diff -cr orig/source/main.h ./source/main.h
  469. *** orig/source/main.h    Sun Jan  3 14:19:59 1988
  470. --- ./source/main.h    Sat Dec 12 00:58:43 1987
  471. ***************
  472. *** 74,79 ****
  473. --- 74,80 ----
  474.        Object overflow, underflow, *stack_body;
  475.    } *Stack, StackOb;
  476.    
  477. + Object NoAccess (); /* jgm */
  478.   Object SameFlags (), MakeObject (), Cvx (), Cvlit (), ReadOnly (), WriteOnly (), ExecOnly ();
  479.   int OpCheck (), min (), rCheck (), wCheck (), xCheck ();
  480.   Object MakeArray (), ParseArray (), getArray (), getIArray (), *BodyArray ();
  481. ***************
  482. *** 164,166 ****
  483. --- 165,170 ----
  484.       ((getchbuf = getc (BodyFile(file)->f.f_ptr)), \
  485.           ((getchbuf != EOF) ? getchbuf : ((BodyFile(file)->available = 0), Close (file), EOF))) \
  486.       : GeneralGetch (file))
  487. + 
  488. + /* Next line --jgm */
  489. + #define PanicIf(flag,s) do { if (flag) Panic(s); } while (0)
  490. diff -cr orig/source/math.c ./source/math.c
  491. *** orig/source/math.c    Sun Jan  3 14:20:43 1988
  492. --- ./source/math.c    Fri Dec 11 22:54:46 1987
  493. ***************
  494. *** 108,113 ****
  495. --- 108,115 ----
  496.         {
  497.             int olength = length, dval;
  498.             
  499. +         if (length == 0) return MakeReal (sign * (double)ival); /*jgm*/
  500. + 
  501.           fval = ival;
  502.            dval = ParseInteger (&s, &length, 10);
  503.            fval += dval * pow (10.0, (float)(length - olength));
  504. diff -cr orig/source/makefile ./source/makefile
  505. *** orig/source/makefile    Sun Jan  3 14:19:33 1988
  506. --- ./source/makefile    Sun Jan  3 15:37:00 1988
  507. ***************
  508. *** 4,16 ****
  509.   LIBS=libww.a -lsuntool -lsunwindow -lpixrect -g
  510.   GRAPHICS=cache.o colour.o device.o fill.o font.o gsave.o image.o mat.o matrix.o\
  511.       pat.o path.o state.o stroke.o
  512.   CFLAGS=-O
  513.   
  514.   PS:    $(OBJECTS) $(GRAPHICS) hard.o canon.a
  515.       cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) hard.o canon.a -lm `libs` -o PS
  516.   
  517. ! sunPS:    $(OBJECTS) $(GRAPHICS) hard.o canon.a pixrect
  518. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) hard.o canon.a -lm -lpixrect -o sunPS
  519.   
  520.   CPS:    $(OBJECTS) $(GRAPHICS) colour-ww.o trapezoid.o canon.o
  521.       cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) colour-ww.o canon.o trapezoid.o -lm `libs` -o CPS
  522. --- 4,23 ----
  523.   LIBS=libww.a -lsuntool -lsunwindow -lpixrect -g
  524.   GRAPHICS=cache.o colour.o device.o fill.o font.o gsave.o image.o mat.o matrix.o\
  525.       pat.o path.o state.o stroke.o
  526. + 
  527. + # For SUN with 68881
  528. + #CFLAGS=-O -f68881
  529. + 
  530. + # For others
  531.   CFLAGS=-O
  532.   
  533. + #default: sunPS
  534. + 
  535.   PS:    $(OBJECTS) $(GRAPHICS) hard.o canon.a
  536.       cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) hard.o canon.a -lm `libs` -o PS
  537.   
  538. ! sunPS:    $(OBJECTS) $(GRAPHICS) pixrect.o canon.a
  539. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) pixrect.o canon.a -lm -lpixrect -o sunPS
  540.   
  541.   CPS:    $(OBJECTS) $(GRAPHICS) colour-ww.o trapezoid.o canon.o
  542.       cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) colour-ww.o canon.o trapezoid.o -lm `libs` -o CPS
  543. ***************
  544. *** 31,39 ****
  545.   all:    PS postscript viewer
  546.   
  547.   ww:    ww.o wwlib installww
  548. - 
  549. - pixrect:    pixrect.o
  550. -     cp pixrect.o hard.o
  551.   
  552.   sun:    ww wwsun
  553.   
  554. --- 38,43 ----
  555. diff -cr orig/source/misc.c ./source/misc.c
  556. *** orig/source/misc.c    Sun Jan  3 14:19:36 1988
  557. --- ./source/misc.c    Sun Dec 13 22:03:56 1987
  558. ***************
  559. *** 17,27 ****
  560. --- 17,29 ----
  561.   #endif
  562.   
  563.   static int PUserTime ();
  564. + static int PGetEnv (); /*jgm*/
  565.        
  566.   InitMisc ()
  567.    {
  568.         InstallOp ("usertime",    PUserTime,    0, 1, 0, 0);
  569.        InstallOp ("==",     PolyFirst,     1, 1, 0, 0, Poly);
  570. +     InstallOp ("getenv",    PGetEnv,    1, 1, 0, 0, String); /*jgm*/
  571.     }
  572.   
  573.   static int PUserTime ()
  574. ***************
  575. *** 32,34 ****
  576. --- 34,50 ----
  577.       times (&tbuf);
  578.        return Push (OpStack, MakeInteger ((int) (tbuf.tms_utime * 1000 / HZ)));
  579.    }
  580. + 
  581. + /* PGetEnv by jgm */
  582. + static int PGetEnv(string) Object string;
  583. + {
  584. +     char *s, *getenv();
  585. + 
  586. +     s = getenv(BodyString(string));
  587. + 
  588. +     if (s != NULL) {
  589. +     VOID Push(OpStack, MakeString(s, strlen(s)));
  590. +     }
  591. + 
  592. +     return Push(OpStack, MakeBoolean(s != NULL));
  593. + }
  594. diff -cr orig/source/string.c ./source/string.c
  595. *** orig/source/string.c    Sun Jan  3 14:23:16 1988
  596. --- ./source/string.c    Sat Dec 12 01:32:44 1987
  597. ***************
  598. *** 22,27 ****
  599. --- 22,28 ----
  600.   static int Exec (), Token (), PString (), Search (), AnchorSearch (), Copy (), EqEq ();
  601.   static int Length (), ForAll (), Get (), Put (), GetInterval (), PutInterval (), Eq (), Lt (), Le (), Gt (), Ge (), PrCheck (), PwCheck ();
  602.   static int Cvi (), Cvr (), Cvs (), PReadOnly (), PExecOnly ();
  603. + static int PNoAccess (); /* jgm */
  604.   
  605.   InitString ()
  606.    {
  607. ***************
  608. *** 45,50 ****
  609. --- 46,52 ----
  610.        TypeInstallOp (String, "put",         Put,        3, 0, 0, 0, String, Integer, Integer);
  611.        TypeInstallOp (String, "getinterval",     GetInterval,    3, 1, 0, 0, String, Integer, Integer);
  612.        TypeInstallOp (String, "putinterval",     PutInterval,    3, 0, 0, 0, String, Integer, String);
  613. +      TypeInstallOp (String, "noaccess",     PNoAccess,    1, 1, 0, 0, String); /*jgm*/
  614.        TypeInstallOp (String, "executeonly",     PExecOnly,    1, 1, 0, 0, String);
  615.        TypeInstallOp (String, "readonly",     PReadOnly,    1, 1, 0, 0, String);
  616.        TypeInstallOp (String, "rcheck",     PrCheck,    1, 1, 0, 0, String);
  617. ***************
  618. *** 530,535 ****
  619. --- 532,543 ----
  620.       VOID Push (OpStack, False);
  621.       
  622.       return TRUE;
  623. +  }
  624. + 
  625. + /* PNoAccess by jgm */
  626. + static int PNoAccess (item) Object item;
  627. +  {
  628. +      return Push (OpStack, NoAccess (item));
  629.    }
  630.   
  631.   static int PExecOnly (item) Object item;
  632. diff -cr orig/source/viewer.c ./source/viewer.c
  633. *** orig/source/viewer.c    Sun Jan  3 14:21:58 1988
  634. --- ./source/viewer.c    Thu Dec 10 23:12:55 1987
  635. ***************
  636. *** 310,318 ****
  637.        return res;
  638.    }
  639.   
  640. ! PanicIf (flag, s) int flag; char *s;
  641.    {
  642. -      if (flag)
  643.            fprintf (stderr, "Viewer panic: %s\n", s),
  644.            exit (1);
  645.    }
  646. --- 310,318 ----
  647.        return res;
  648.    }
  649.   
  650. ! /* Removed conditional & changed PanicIf to Panic --jgm */
  651. ! Panic (s) char *s;
  652.    {
  653.            fprintf (stderr, "Viewer panic: %s\n", s),
  654.            exit (1);
  655.    }
  656. *** /dev/null    Mon Jul 25 01:14:13 1988
  657. --- postscript/demos/buildcachefont.ps    Thu Jul 28 12:25:02 1988
  658. ***************
  659. *** 0 ****
  660. --- 1,19 -----
  661. + %!
  662. + %% Build the font cache
  663. + %% By John G. Myers
  664. + 
  665. + % fontname pointsize cachefont --
  666. + /cachefont {
  667. +     exch findfont exch scalefont setfont
  668. +     5 5 moveto
  669. +     ( !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ) show
  670. +     ([\\]^_`abcdefghijklmnopqrstuvwxyz{|}~) show
  671. +     (\251\252\256\257\261\267\272\320) show
  672. +     savecurrentfont
  673. +     erasepage
  674. + } def
  675. + 
  676. + [  /Times-Roman /Helvetica /Times-Bold /Times-Italic /Helvetica-Oblique ]
  677. + { dup 10 cachefont dup 12 cachefont 14 cachefont }
  678. + forall
  679. + 
  680. Make sure you have already applied either 'ps.diff.v1' or my
  681. original posting to comp.sources.bugs.
  682.  
  683. To apply this, you need the 'patch' program which is available from
  684. the comp.sources.unix archives.
  685.  
  686. Change directories to the top-level postscript directory (the one with
  687. the file "MANIFEST" in it) and apply this patch with the command:
  688.  
  689. patch -p0 <ps.diff.v2
  690.  
  691.                 _.John G. Myers
  692.                 jm36+@andrew.cmu.edu
  693.  
  694. *** /usr/tmp/ps/CHANGES.JGM    Thu Jul 28 13:53:12 1988
  695. --- ./CHANGES.JGM    Thu Jul 28 14:58:10 1988
  696. ***************
  697. *** 1,6 ****
  698. ! Here is a patch that makes several bug fixes and enhancements to the Postscript
  699.   interpreter recently posted.  The changes are:
  700.   
  701.   
  702.   Bugs fixed:
  703.   
  704. --- 1,7 ----
  705. ! These patches make several bug fixes and enhancements to the Postscript
  706.   interpreter recently posted.  The changes are:
  707.   
  708. +                   Version 1:
  709.   
  710.   Bugs fixed:
  711.   
  712. ***************
  713. *** 41,46 ****
  714. --- 42,64 ----
  715.       <string> getenv <false>
  716.   if it does not.
  717.   
  718. +                   Version 2:
  719. + 
  720. + Bugs fixed:
  721. + 
  722. + Fixed operators kshow, translate, scale, rotate, reversepath
  723. + 
  724. + Casted NULL to appropriate type when it was passed as a parameter.
  725. + 
  726. + Removed unused variables.
  727. + 
  728. + Enhancements made:
  729. + 
  730. + Each driver must now define the character pointer "DriverType".  The
  731. + value of this variable is placed in the string produced by the
  732. + "version" operator.
  733. + 
  734. + Added operators letter, note, and legal.
  735.   
  736.                   John G. Myers
  737.                   jm36@andrew.cmu.edu
  738. diff -cr ./doc/hard-interface /cmu/math/jm36/src/ps/doc/hard-interface
  739. *** ./doc/hard-interface    Fri Apr  1 22:41:07 1988
  740. --- /cmu/math/jm36/src/ps/doc/hard-interface    Mon Mar 28 20:25:28 1988
  741. ***************
  742. *** 15,20 ****
  743. --- 15,29 ----
  744.    *    may be expected to be NULL.
  745.    */
  746.   
  747. + /* Begin jgm */
  748. + /*
  749. +  *    DriverType contains a pointer to a string naming the device that this
  750. +  *     is a driver for.  The given string will show up in the "version"
  751. +  *    operator.
  752. +  */
  753. + char *DriverType = "";
  754. + /* End jgm */
  755. + 
  756.   /************************* CREATION OF WINDOWS AND BITMAPS *******************/
  757.   
  758.   struct hardware *InitHardware () {}
  759. diff -cr ./doc/hard-interface.c /cmu/math/jm36/src/ps/doc/hard-interface.c
  760. *** ./doc/hard-interface.c    Fri Apr  1 22:42:05 1988
  761. --- /cmu/math/jm36/src/ps/doc/hard-interface.c    Mon Mar 28 20:24:19 1988
  762. ***************
  763. *** 17,22 ****
  764. --- 17,31 ----
  765.    *    of access that PostScript is interested in. Any Hardware parameter may be expected to be NULL.
  766.    */
  767.   
  768. + /* Begin jgm */
  769. + /*
  770. +  *    DriverType contains a pointer to a string naming the device that this
  771. +  *     is a driver for.  The given string will show up in the "version"
  772. +  *    operator.
  773. +  */
  774. + char *DriverType = "";
  775. + /* End jgm */
  776. + 
  777.   /*********************************** CREATION OF WINDOWS AND BITMAPS *******************/
  778.   
  779.   struct hardware *InitHardware () {}
  780. diff -cr ./postscript/psrc /cmu/math/jm36/src/ps/postscript/psrc
  781. *** ./postscript/psrc    Fri Apr  1 22:48:12 1988
  782. --- /cmu/math/jm36/src/ps/postscript/psrc    Wed Mar 23 23:05:53 1988
  783. ***************
  784. *** 125,130 ****
  785. --- 141,148 ----
  786.   } def
  787.   
  788.   /kshow {
  789. +     exch    % jgm
  790. + 
  791.       showdict begin /p exch def
  792.           dup length 0 ne {
  793.               dup 0 get /last exch def
  794. ***************
  795. *** 132,137 ****
  796. --- 150,156 ----
  797.               dup length 1 sub 1 exch getinterval {
  798.                   last exch dup /last exch def
  799.                   /p load exec
  800. +                 ( ) dup 0 last put show  % jgm
  801.               } forall
  802.           } if
  803.       end
  804. ***************
  805. *** 467,472 ****
  806. --- 493,526 ----
  807.       [ 0 f f 0 0 0] w h [] framedevice
  808.       end
  809.   } def
  810. + 
  811. + % Begin additions --jgm
  812. + 
  813. + /letter {
  814. +     5 dict begin
  815. +     /m [1.13889 0 0 -1.13889 0 0] def
  816. +     /f m 0 get def
  817. +     /h 11 72 mul f mul cvi def
  818. +     /w 8.5 72 mul f mul 8 div cvi def
  819. +     m 5 h put
  820. +     m w h [] framedevice
  821. +     end
  822. + } def
  823. + 
  824. + /note { letter } def
  825. + 
  826. + /legal {
  827. +     5 dict begin
  828. +     /m [1.13889 0 0 -1.13889 0 0] def
  829. +     /f m 0 get def
  830. +     /h 14 72 mul f mul cvi def
  831. +     /w 8.5 72 mul f mul 8 div cvi def
  832. +     m 5 h put
  833. +     m w h [] framedevice
  834. +     end
  835. + } def
  836. + 
  837. + % End additions --jgm
  838.   
  839.   /ascii-set ( !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~) def
  840.   
  841. diff -cr ./source/X.c /cmu/math/jm36/src/ps/source/X.c
  842. *** ./source/X.c    Fri Apr  1 22:44:35 1988
  843. --- /cmu/math/jm36/src/ps/source/X.c    Fri Mar 11 23:39:36 1988
  844. ***************
  845. *** 17,22 ****
  846. --- 17,24 ----
  847.   #define TRANSFER_SIZE    256
  848.   #define XMAX        65535
  849.   
  850. + char *DriverType = "X10"; /* jgm */
  851. + 
  852.   static int transfer [TRANSFER_SIZE + 1];
  853.   
  854.   static unsigned char reverse [0x100];
  855. diff -cr ./source/array.c /cmu/math/jm36/src/ps/source/array.c
  856. *** ./source/array.c    Fri Apr  1 22:48:17 1988
  857. --- /cmu/math/jm36/src/ps/source/array.c    Sun Mar  6 17:16:25 1988
  858. ***************
  859. *** 85,94 ****
  860. --- 85,96 ----
  861.        return res;
  862.    }
  863.   
  864. + #ifdef notdef /* jgm */
  865.   static Object *Body (item) Object item;
  866.    {
  867.        return item.u.Array;
  868.    }
  869. + #endif /* jgm */
  870.   
  871.   #define Body(a) ((a).u.Array)
  872.   
  873. diff -cr ./source/config.c /cmu/math/jm36/src/ps/source/config.c
  874. *** ./source/config.c    Fri Apr  1 22:48:20 1988
  875. --- /cmu/math/jm36/src/ps/source/config.c    Sat Mar 12 00:08:51 1988
  876. ***************
  877. *** 20,30 ****
  878.   Type Real, Name, Operator, String, Poly, Float, FontID;
  879.   
  880.   extern Object Absent, Nil, SysDict;
  881.   
  882. ! char default_library[] = "/usr/ral/lib/postscript";
  883.   
  884.   Init ()
  885.    {    
  886.       Nil     = MakeObject ((Type) 0);
  887.       Null          = Nil.type = MakeType (SizeNull);
  888.       EmptyDict (Null);    /* needed because of this recursion */
  889. --- 20,33 ----
  890.   Type Real, Name, Operator, String, Poly, Float, FontID;
  891.   
  892.   extern Object Absent, Nil, SysDict;
  893. + extern char *DriverType;
  894.   
  895. ! char default_library[] = "/usr/ral/lib/postscript";
  896.   
  897.   Init ()
  898.    {    
  899. +     char versionbuf[1024]; /* --jgm */
  900. + 
  901.       Nil     = MakeObject ((Type) 0);
  902.       Null          = Nil.type = MakeType (SizeNull);
  903.       EmptyDict (Null);    /* needed because of this recursion */
  904. ***************
  905. *** 87,91 ****
  906.        Install ("polytype",        DictFrom (Poly));
  907.       Install ("fonttype",        DictFrom (FontID));
  908.       
  909. !     Install ("version",    StringFrom ("Version 1.4 with mods by jgm")); /* jgm */
  910.    }
  911. --- 90,98 ----
  912.        Install ("polytype",        DictFrom (Poly));
  913.       Install ("fonttype",        DictFrom (FontID));
  914.       
  915. !     /* Begin jgm */
  916. !     strcpy(versionbuf, DriverType);
  917. !     strcat(versionbuf, " version 1.4 with jgm mods v2");
  918. !     Install ("version",    StringFrom (versionbuf));
  919. !     /* End jgm */
  920.    }
  921. diff -cr ./source/device.c /cmu/math/jm36/src/ps/source/device.c
  922. *** ./source/device.c    Fri Apr  1 22:41:29 1988
  923. --- /cmu/math/jm36/src/ps/source/device.c    Sun Mar  6 17:29:48 1988
  924. ***************
  925. *** 200,206 ****
  926.            UnlinkDevice (d);
  927.         }
  928.        else
  929. !          */BitBlt (NULL, res->dev, NewDevicePoint (0, 0), NewDevicePoint (0, 0), ex, ROP_FALSE);
  930.        
  931.        return res;
  932.    }
  933. --- 200,206 ----
  934.            UnlinkDevice (d);
  935.         }
  936.        else
  937. !          */BitBlt ((struct hardware *)NULL, res->dev, NewDevicePoint (0, 0), NewDevicePoint (0, 0), ex, ROP_FALSE); /* cast NULL --jgm */
  938.        
  939.        return res;
  940.    }
  941. diff -cr ./source/file.c /cmu/math/jm36/src/ps/source/file.c
  942. *** ./source/file.c    Fri Apr  1 22:45:31 1988
  943. --- /cmu/math/jm36/src/ps/source/file.c    Sun Mar  6 17:16:15 1988
  944. ***************
  945. *** 168,184 ****
  946. --- 168,188 ----
  947.   
  948.   #define Getc(a) getc(a)
  949.   
  950. + #ifdef notdef /* jgm */
  951.   static int Getchar ()
  952.    {
  953.        return Getc (stdin);
  954.    }
  955. + #endif /* jgm */
  956.   
  957.   #define Getchar getchar
  958.   
  959. + #ifdef notdef /* jgm */
  960.   static int Status (file) Object file;
  961.    {
  962.        return Body (file)->available;
  963.    }
  964. + #endif /* jgm */
  965.   
  966.   #define Status(f) (Body(f)->available)
  967.   
  968. ***************
  969. *** 306,312 ****
  970.        Cbreak (FALSE);
  971.    }
  972.   
  973. ! static cbreak = FALSE, echoing = TRUE;
  974.   
  975.   /*ARGSUSED*/
  976.   Cbreak (cond) int cond;
  977. --- 310,316 ----
  978.        Cbreak (FALSE);
  979.    }
  980.   
  981. ! static /* cbreak = FALSE, (removed --jgm) */ echoing = TRUE;
  982.   
  983.   /*ARGSUSED*/
  984.   Cbreak (cond) int cond;
  985. diff -cr ./source/fill.c /cmu/math/jm36/src/ps/source/fill.c
  986. *** ./source/fill.c    Fri Apr  1 22:44:44 1988
  987. --- /cmu/math/jm36/src/ps/source/fill.c    Sun Mar  6 17:46:45 1988
  988. ***************
  989. *** 149,155 ****
  990.        UnlinkDevice (gstate->clipdevice);
  991.         gstate->clipdevice = NULL;
  992.         
  993. !      SetClipHardware (gstate->device->dev, NULL);
  994.       
  995.       return TRUE;
  996.    }
  997. --- 149,155 ----
  998.        UnlinkDevice (gstate->clipdevice);
  999.         gstate->clipdevice = NULL;
  1000.         
  1001. !      SetClipHardware (gstate->device->dev, (struct hardware *)NULL); /* cast NULL --jgm */
  1002.       
  1003.       return TRUE;
  1004.    }
  1005. ***************
  1006. *** 226,232 ****
  1007.   static int FillIt (path_a, rule_a, path_b, rule_b, emitfn)
  1008.       Path path_a, path_b; int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  1009.    {
  1010. !     Path new;
  1011.       static int edgecmp ();
  1012.       static void Trapezoids (), BuildEdgeList ();
  1013.       
  1014. --- 226,232 ----
  1015.   static int FillIt (path_a, rule_a, path_b, rule_b, emitfn)
  1016.       Path path_a, path_b; int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  1017.    {
  1018. !     /* Path new; (unused --jgm) */
  1019.       static int edgecmp ();
  1020.       static void Trapezoids (), BuildEdgeList ();
  1021.       
  1022. ***************
  1023. *** 288,298 ****
  1024.    {
  1025.       struct edge *up_edge;
  1026.       int i, count_a = 0, count_b = 0;
  1027. !     static void RemoveEdges ();
  1028.       
  1029.       for (i = 0; i < ninteresting; i++)
  1030.        {
  1031. !          static void Emit ();
  1032.            int d_a = 0, d_b = 0;
  1033.            
  1034.            if (interesting[i]->clip)
  1035. --- 288,298 ----
  1036.    {
  1037.       struct edge *up_edge;
  1038.       int i, count_a = 0, count_b = 0;
  1039. !     /* static void RemoveEdges (); (unused --jgm) */
  1040.       
  1041.       for (i = 0; i < ninteresting; i++)
  1042.        {
  1043. !          /* static void Emit (); (unused --jgm) */
  1044.            int d_a = 0, d_b = 0;
  1045.            
  1046.            if (interesting[i]->clip)
  1047. diff -cr ./source/font.c /cmu/math/jm36/src/ps/source/font.c
  1048. *** ./source/font.c    Fri Apr  1 22:45:11 1988
  1049. --- /cmu/math/jm36/src/ps/source/font.c    Sun Mar  6 17:11:46 1988
  1050. ***************
  1051. *** 535,541 ****
  1052.        for (;;)
  1053.        {
  1054.            int code = *++s;
  1055. !          HardPoint offset, cp;
  1056.            
  1057.            offset = Adjust (DExtToInt (last_width), code);
  1058.           loc.hx += offset.hx;
  1059. --- 535,541 ----
  1060.        for (;;)
  1061.        {
  1062.            int code = *++s;
  1063. !          HardPoint offset/* , cp (unused --jgm) */;
  1064.            
  1065.            offset = Adjust (DExtToInt (last_width), code);
  1066.           loc.hx += offset.hx;
  1067. diff -cr ./source/gsave.c /cmu/math/jm36/src/ps/source/gsave.c
  1068. *** ./source/gsave.c    Fri Apr  1 22:39:48 1988
  1069. --- /cmu/math/jm36/src/ps/source/gsave.c    Sun Mar  6 17:34:40 1988
  1070. ***************
  1071. *** 75,81 ****
  1072.                 SetScreen (gstate->screen.frequency, gstate->screen.rotation, gstate->screen.thresh);
  1073.             if (tflag)
  1074.                 SetTransfer (gstate->transfer.tran);
  1075. !           SetClipHardware (gstate->device->dev, (gstate->clipdevice ? gstate->clipdevice->dev : NULL));
  1076.        }
  1077.        
  1078.        return TRUE;
  1079. --- 75,81 ----
  1080.                 SetScreen (gstate->screen.frequency, gstate->screen.rotation, gstate->screen.thresh);
  1081.             if (tflag)
  1082.                 SetTransfer (gstate->transfer.tran);
  1083. !           SetClipHardware (gstate->device->dev, (gstate->clipdevice ? gstate->clipdevice->dev : (struct hardware *)NULL)); /* Cast NULL --jgm */
  1084.        }
  1085.        
  1086.        return TRUE;
  1087. diff -cr ./source/image.c /cmu/math/jm36/src/ps/source/image.c
  1088. *** ./source/image.c    Fri Apr  1 22:48:26 1988
  1089. --- /cmu/math/jm36/src/ps/source/image.c    Sun Mar  6 17:34:36 1988
  1090. ***************
  1091. *** 250,256 ****
  1092.                       FillMask (mask, i, dep);
  1093.                      
  1094.                      BitBlt (from, mask, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (from), ROP_NXOR);
  1095. !                    BitBlt (NULL, temp, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (temp), ROP_TRUE);
  1096.                       for (j = 0; j < dep; j++)
  1097.                           BitBlt (mask, temp, NewDevicePoint (j, 0), NewDevicePoint (0, 0), HardwareExtent (mask), ROP_AND);
  1098.                       for (j = 0; j < w; j++)
  1099. --- 250,256 ----
  1100.                       FillMask (mask, i, dep);
  1101.                      
  1102.                      BitBlt (from, mask, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (from), ROP_NXOR);
  1103. !                    BitBlt ((struct  hardware *)NULL, temp, NewDevicePoint (0, 0), NewDevicePoint (0, 0), HardwareExtent (temp), ROP_TRUE);  /* cast NULL --jgm */
  1104.                       for (j = 0; j < dep; j++)
  1105.                           BitBlt (mask, temp, NewDevicePoint (j, 0), NewDevicePoint (0, 0), HardwareExtent (mask), ROP_AND);
  1106.                       for (j = 0; j < w; j++)
  1107. diff -cr ./source/matrix.c /cmu/math/jm36/src/ps/source/matrix.c
  1108. *** ./source/matrix.c    Fri Apr  1 22:43:11 1988
  1109. --- /cmu/math/jm36/src/ps/source/matrix.c    Wed Mar 23 22:40:28 1988
  1110. ***************
  1111. *** 126,131 ****
  1112. --- 126,132 ----
  1113.   static int PTranslate ()
  1114.    {
  1115.        Object tx, ty, mat;
  1116. +     Matrix m;
  1117.        float x, y;
  1118.        
  1119.        if (!OpCheck (2, 1))
  1120. ***************
  1121. *** 136,141 ****
  1122. --- 137,144 ----
  1123.                 return Push (OpStack, mat), Error (PInvAccess);
  1124.            else if (lengthArray (mat) != 6)
  1125.                 return Push (OpStack, mat), Error (PRangeCheck);
  1126. +         else if    (!ExtractMatrix    (&m, mat))  /* --jgm */
  1127. +                 return Push (OpStack, mat), Error (PTypeCheck); /* --jgm */
  1128.            else
  1129.             {
  1130.                 ty = Pop (OpStack);
  1131. ***************
  1132. *** 153,159 ****
  1133.                 else
  1134.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  1135.                
  1136. !               VOID AssignMatrix (mat, NewMatrix (1.0, 0.0, 0.0, 1.0, x, y));
  1137.                 
  1138.                 return Push (OpStack, mat);
  1139.             }
  1140. --- 156,164 ----
  1141.                 else
  1142.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  1143.                
  1144. ! /*              VOID AssignMatrix (mat, NewMatrix (1.0, 0.0, 0.0, 1.0, x, y)); WRONG --jgm */
  1145. !               VOID AssignMatrix (mat, Translate(m, x, y)); /* --jgm */
  1146. ! 
  1147.                 
  1148.                 return Push (OpStack, mat);
  1149.             }
  1150. ***************
  1151. *** 178,184 ****
  1152.   static int PScale ()
  1153.    {
  1154.        Object tx, ty, mat;
  1155. !      float x, y;
  1156.        
  1157.        if (!OpCheck (2, 1))
  1158.            return FALSE;
  1159. --- 183,190 ----
  1160.   static int PScale ()
  1161.    {
  1162.        Object tx, ty, mat;
  1163. !     Matrix m; /* --jgm */
  1164. !     float x, y;
  1165.        
  1166.        if (!OpCheck (2, 1))
  1167.            return FALSE;
  1168. ***************
  1169. *** 188,193 ****
  1170. --- 194,201 ----
  1171.                 return Push (OpStack, mat), Error (PInvAccess);
  1172.            else if (lengthArray (mat) != 6)
  1173.                 return Push (OpStack, mat), Error (PRangeCheck);
  1174. +         else if    (!ExtractMatrix    (&m, mat))  /* --jgm */
  1175. +                 return Push (OpStack, mat), Error (PTypeCheck); /* --jgm */
  1176.            else
  1177.             {
  1178.                ty = Pop (OpStack);
  1179. ***************
  1180. *** 205,211 ****
  1181.                 else
  1182.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  1183.                
  1184. !               VOID AssignMatrix (mat, NewMatrix (x, 0.0, 0.0, y, 0.0, 0.0));
  1185.                 
  1186.                 return Push (OpStack, mat);
  1187.             }
  1188. --- 213,220 ----
  1189.                 else
  1190.                      return Push (OpStack, tx), Push (OpStack, ty), Push (OpStack, mat), Error (PTypeCheck);
  1191.                
  1192. ! /*              VOID AssignMatrix (mat, NewMatrix (x, 0.0, 0.0, y, 0.0, 0.0)); WRONG --jgm */
  1193. !               VOID AssignMatrix (mat, Scale(m, x, y)); /* --jgm */
  1194.                 
  1195.                 return Push (OpStack, mat);
  1196.             }
  1197. ***************
  1198. *** 249,256 ****
  1199.                     a = BodyReal (ang);
  1200.                 else
  1201.                     return Push (OpStack, ang), Push (OpStack, mat), Error (PTypeCheck);
  1202. !               
  1203. !               VOID AssignMatrix (mat, NewMatrix (cos(a), sin(a), -sin(a), -cos(a), 0.0, 0.0));
  1204.                 
  1205.                 return Push (OpStack, mat);
  1206.             }
  1207. --- 258,265 ----
  1208.                     a = BodyReal (ang);
  1209.                 else
  1210.                     return Push (OpStack, ang), Push (OpStack, mat), Error (PTypeCheck);
  1211. !               a = Rad(a); /* jgm */
  1212. !               VOID AssignMatrix (mat, NewMatrix (cos(a), sin(a), -sin(a), cos(a), 0.0, 0.0)); /* last "-cos" changed to "cos" --jgm */
  1213.                 
  1214.                 return Push (OpStack, mat);
  1215.             }
  1216. diff -cr ./source/name.c /cmu/math/jm36/src/ps/source/name.c
  1217. *** ./source/name.c    Fri Apr  1 22:39:54 1988
  1218. --- /cmu/math/jm36/src/ps/source/name.c    Sun Mar  6 17:16:20 1988
  1219. ***************
  1220. *** 107,113 ****
  1221.   
  1222.   static int HashName (s, length) unsigned char *s; int length;
  1223.    {
  1224. !     int i, res = 0;
  1225.       
  1226.       while (length--)
  1227.           res += *s++;
  1228. --- 107,113 ----
  1229.   
  1230.   static int HashName (s, length) unsigned char *s; int length;
  1231.    {
  1232. !     int /* i, (unused --jgm) */ res = 0;
  1233.       
  1234.       while (length--)
  1235.           res += *s++;
  1236. diff -cr ./source/operator.c /cmu/math/jm36/src/ps/source/operator.c
  1237. *** ./source/operator.c    Fri Apr  1 22:41:54 1988
  1238. --- /cmu/math/jm36/src/ps/source/operator.c    Sun Mar  6 17:16:23 1988
  1239. ***************
  1240. *** 69,75 ****
  1241.    {
  1242.        Object res;
  1243.        struct op_struct *op;
  1244. !      int i;
  1245.        res = Cvx (MakeObject (Operator));
  1246.        res.u.Operator = op = (struct op_struct *) Malloc (sizeof (struct op_struct));
  1247.       
  1248. --- 69,75 ----
  1249.    {
  1250.        Object res;
  1251.        struct op_struct *op;
  1252. !      /* int i; (unused --jgm) */
  1253.        res = Cvx (MakeObject (Operator));
  1254.        res.u.Operator = op = (struct op_struct *) Malloc (sizeof (struct op_struct));
  1255.       
  1256. ***************
  1257. *** 130,139 ****
  1258. --- 130,141 ----
  1259.        TypeInstall (type, name, res);
  1260.    }
  1261.   
  1262. + #ifdef notdef /* jgm */
  1263.   static struct op_struct *Body (item) Object item;
  1264.    {
  1265.        return item.u.Operator;
  1266.    }
  1267. + #endif /* jgm */
  1268.   
  1269.   #define Body(op)    ((op).u.Operator)
  1270.   
  1271. diff -cr ./source/path.c /cmu/math/jm36/src/ps/source/path.c
  1272. *** ./source/path.c    Fri Apr  1 22:43:14 1988
  1273. --- /cmu/math/jm36/src/ps/source/path.c    Sat Mar 19 17:00:52 1988
  1274. ***************
  1275. *** 194,200 ****
  1276.        
  1277.        if ((res = ReversePath (gstate->path)) == NULL)
  1278.            return Error (PLimitCheck);
  1279. !       SetPath (&gstate->path, res);
  1280.        return TRUE;    
  1281.    }
  1282.   
  1283. --- 194,201 ----
  1284.        
  1285.        if ((res = ReversePath (gstate->path)) == NULL)
  1286.            return Error (PLimitCheck);
  1287. !       /* SetPath (&gstate->path, res); --jgm */
  1288. !     gstate->path = res; /* Don't free gstate->path twice. --jgm */
  1289.        return TRUE;    
  1290.    }
  1291.   
  1292. diff -cr ./source/pixrect.c /cmu/math/jm36/src/ps/source/pixrect.c
  1293. *** ./source/pixrect.c    Fri Apr  1 22:40:34 1988
  1294. --- /cmu/math/jm36/src/ps/source/pixrect.c    Fri Mar 11 23:35:16 1988
  1295. ***************
  1296. *** 15,20 ****
  1297. --- 15,22 ----
  1298.   #include "canon.h"
  1299.   #include <pixrect/pixrect_hs.h>
  1300.   
  1301. + char *DriverType = "Sun pixrect"; /* jgm */
  1302. + 
  1303.   int rop_map [] =
  1304.    {
  1305.        PIX_SRC & PIX_NOT (PIX_SRC),
  1306. diff -cr ./source/state.c /cmu/math/jm36/src/ps/source/state.c
  1307. *** ./source/state.c    Fri Apr  1 22:43:34 1988
  1308. --- /cmu/math/jm36/src/ps/source/state.c    Sun Mar  6 17:33:19 1988
  1309. ***************
  1310. *** 114,120 ****
  1311.   
  1312.   int ErasePage ()
  1313.    {
  1314. !     Paint (NULL, gstate->device->dev,
  1315.           NewDevicePoint (0, 0), NewDevicePoint (0, 0),
  1316.           HardwareExtent (gstate->device->dev),
  1317.           White);
  1318. --- 114,120 ----
  1319.   
  1320.   int ErasePage ()
  1321.    {
  1322. !     Paint ((struct hardware *)NULL, gstate->device->dev, /* cast NULL --jgm */
  1323.           NewDevicePoint (0, 0), NewDevicePoint (0, 0),
  1324.           HardwareExtent (gstate->device->dev),
  1325.           White);
  1326. diff -cr ./source/ww.c /cmu/math/jm36/src/ps/source/ww.c
  1327. *** ./source/ww.c    Fri Apr  1 22:41:00 1988
  1328. --- /cmu/math/jm36/src/ps/source/ww.c    Fri Mar 11 23:39:23 1988
  1329. ***************
  1330. *** 14,19 ****
  1331. --- 14,21 ----
  1332.   #include "canon.h"
  1333.   #include "wwinfo.h"
  1334.   
  1335. + char *DriverType = "ww"; /* jgm */
  1336. + 
  1337.   static void xxrasterop ();
  1338.   
  1339.   static struct hardware *NewHardware ();
  1340. Make sure you have already applied patch 'ps.diff.v2'.
  1341.  
  1342. If you already have the file "source/X11.c", move it to a safe place
  1343. before applying this patch.
  1344.  
  1345. To apply this, you need the 'patch' program which is available from
  1346. the comp.sources.unix archives.
  1347.  
  1348. Change directories to the top-level postscript directory (the one with
  1349. the file "MANIFEST" in it) and apply this patch with the command:
  1350.  
  1351. patch -p0 <ps.diff.v3
  1352.  
  1353.                 _.John G. Myers
  1354.                 jm36+@andrew.cmu.edu
  1355.  
  1356. *** /tmp/CHANGES.JGM.v2    Thu Jul 28 14:59:27 1988
  1357. --- ./CHANGES.JGM    Thu Jul 28 15:07:01 1988
  1358. ***************
  1359. *** 60,65 ****
  1360. --- 60,80 ----
  1361.   
  1362.   Added operators letter, note, and legal.
  1363.   
  1364. +                   Version 3:
  1365. + 
  1366. + Bugs fixed:
  1367. + 
  1368. + The fourth parameter to the "framedevice" is no longer ignored.  psrc
  1369. + has been modified so that if a driver defines the postscript operator
  1370. + "outputpage", it will be called instead of the "beep and wait for
  1371. + input" routine when the copypage or showpage command is executed.
  1372. + 
  1373. + Enhancements made:
  1374. + 
  1375. + Barry Shein's speedups have been incorporated.
  1376. + 
  1377. + A version of the X11 driver is included.
  1378. + 
  1379.                   John G. Myers
  1380.                   jm36@andrew.cmu.edu
  1381.                   jgm@k.gp.cs.cmu.edu
  1382. diff -cr /usr/tmp/ps/postscript/psrc ./postscript/psrc
  1383. *** /usr/tmp/ps/postscript/psrc    Thu Jul 28 14:00:59 1988
  1384. --- ./postscript/psrc    Thu Jul 28 14:17:45 1988
  1385. ***************
  1386. *** 69,84 ****
  1387.   %/tty (|cat -u </dev/tty) (r) file def
  1388.   
  1389.   /showpage {
  1390. !     copypage initgraphics
  1391. !     beep print flush
  1392. !     false echo
  1393. !     { tty read { pop } if } stopped
  1394. !     true echo
  1395. !     not {
  1396. !         erasepage
  1397. !     } if
  1398.   } def
  1399.   
  1400.   /run { { (r) file } stopped { pop stop } if cvx exec } def
  1401.   /prompt { (PS>) print } def
  1402.   
  1403. --- 69,87 ----
  1404.   %/tty (|cat -u </dev/tty) (r) file def
  1405.   
  1406.   /showpage {
  1407. !     copypage initgraphics erasepage
  1408.   } def
  1409.   
  1410. + systemdict /outputpage known not {
  1411. +     /outputpage {
  1412. +     beep print flush
  1413. +       false echo
  1414. +       { tty read { pop } if } stopped
  1415. +       true echo
  1416. +     pop
  1417. +     } def
  1418. + } if
  1419. + 
  1420.   /run { { (r) file } stopped { pop stop } if cvx exec } def
  1421.   /prompt { (PS>) print } def
  1422.   
  1423. ***************
  1424. *** 423,429 ****
  1425.       /h 11 72 mul f mul cvi def
  1426.       /w 8.25 72 mul f mul 8 div cvi def
  1427.       m 5 h put
  1428. !     m w h [] framedevice
  1429.       end
  1430.   } def
  1431.   
  1432. --- 426,432 ----
  1433.       /h 11 72 mul f mul cvi def
  1434.       /w 8.25 72 mul f mul 8 div cvi def
  1435.       m 5 h put
  1436. !     m w h /outputpage load framedevice    % jgm
  1437.       end
  1438.   } def
  1439.   
  1440. ***************
  1441. *** 435,441 ****
  1442.       /h 11 72 mul f mul cvi def
  1443.       /w 8.25 72 mul f mul 8 div cvi def
  1444.       m 5 h put
  1445. !     m w h [] framedevice
  1446.       end
  1447.   } def
  1448.   
  1449. --- 438,444 ----
  1450.       /h 11 72 mul f mul cvi def
  1451.       /w 8.25 72 mul f mul 8 div cvi def
  1452.       m 5 h put
  1453. !     m w h /outputpage load framedevice    % jgm
  1454.       end
  1455.   } def
  1456.   
  1457. ***************
  1458. *** 446,452 ****
  1459.       /h 11 72 mul f mul cvi def
  1460.       /w 8.25 72 mul f mul 8 div cvi def
  1461.       m 5 h put
  1462. !     m w h [] framedevice
  1463.       end
  1464.   } def
  1465.   
  1466. --- 449,455 ----
  1467.       /h 11 72 mul f mul cvi def
  1468.       /w 8.25 72 mul f mul 8 div cvi def
  1469.       m 5 h put
  1470. !     m w h /outputpage load framedevice    % jgm
  1471.       end
  1472.   } def
  1473.   
  1474. ***************
  1475. *** 457,463 ****
  1476.       /h 8.25 72 mul f mul cvi def
  1477.       /w 11.75 2 div 72 mul f mul 8 div cvi def
  1478.       m 5 h put
  1479. !     m w h [] framedevice
  1480.       end
  1481.   } def
  1482.   
  1483. --- 460,466 ----
  1484.       /h 8.25 72 mul f mul cvi def
  1485.       /w 11.75 2 div 72 mul f mul 8 div cvi def
  1486.       m 5 h put
  1487. !     m w h /outputpage load framedevice    % jgm
  1488.       end
  1489.   } def
  1490.   
  1491. ***************
  1492. *** 467,473 ****
  1493.       /f m 0 get def
  1494.       /h 8.25 72 mul f mul cvi def
  1495.       /w 11.75 72 mul f mul 8 div cvi def
  1496. !     [ 0 f f 0 0 0] w h [] framedevice
  1497.       end
  1498.   } def
  1499.   
  1500. --- 470,476 ----
  1501.       /f m 0 get def
  1502.       /h 8.25 72 mul f mul cvi def
  1503.       /w 11.75 72 mul f mul 8 div cvi def
  1504. !     [ 0 f f 0 0 0] w h /outputpage load framedevice % jgm
  1505.       end
  1506.   } def
  1507.   
  1508. ***************
  1509. *** 480,486 ****
  1510.       /h 11 72 mul f mul cvi def
  1511.       /w 8.5 72 mul f mul 8 div cvi def
  1512.       m 5 h put
  1513. !     m w h [] framedevice
  1514.       end
  1515.   } def
  1516.   
  1517. --- 483,489 ----
  1518.       /h 11 72 mul f mul cvi def
  1519.       /w 8.5 72 mul f mul 8 div cvi def
  1520.       m 5 h put
  1521. !     m w h /outputpage load framedevice
  1522.       end
  1523.   } def
  1524.   
  1525. ***************
  1526. *** 493,499 ****
  1527.       /h 14 72 mul f mul cvi def
  1528.       /w 8.5 72 mul f mul 8 div cvi def
  1529.       m 5 h put
  1530. !     m w h [] framedevice
  1531.       end
  1532.   } def
  1533.   
  1534. --- 496,502 ----
  1535.       /h 14 72 mul f mul cvi def
  1536.       /w 8.5 72 mul f mul 8 div cvi def
  1537.       m 5 h put
  1538. !     m w h /outputpage load framedevice
  1539.       end
  1540.   } def
  1541.   
  1542. *** /usr/tmp/ps/source/makefile    Thu Jul 28 13:53:39 1988
  1543. --- ./source/makefile    Thu Jul 28 15:36:09 1988
  1544. ***************
  1545. *** 2,10 ****
  1546. --- 2,20 ----
  1547.       integer.o main.o math.o misc.o name.o operator.o\
  1548.       poly.o property.o real.o save.o stack.o string.o unix.o
  1549.   LIBS=libww.a -lsuntool -lsunwindow -lpixrect -g
  1550. + XLIB=/usr/lib/libX11.a
  1551.   GRAPHICS=cache.o colour.o device.o fill.o font.o gsave.o image.o mat.o matrix.o\
  1552.       pat.o path.o state.o stroke.o
  1553.   
  1554. + SOURCES=array.c boolean.c config.c control.c dictionary.c file.c\
  1555. +     integer.c main.c math.c misc.c name.c operator.c\
  1556. +     poly.c property.c real.c save.c stack.c string.c unix.c\
  1557. +     cache.c colour.c device.c fill.c font.c gsave.c image.c mat.c matrix.c\
  1558. +     pat.c path.c state.c stroke.c
  1559. + LINT=lint
  1560. + LFLAGS= -lm
  1561. + 
  1562. + 
  1563.   # For SUN with 68881
  1564.   #CFLAGS=-O -f68881
  1565.   
  1566. ***************
  1567. *** 11,39 ****
  1568.   # For others
  1569.   CFLAGS=-O
  1570.   
  1571. ! #default: sunPS
  1572.   
  1573.   PS:    $(OBJECTS) $(GRAPHICS) hard.o canon.a
  1574. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) hard.o canon.a -lm `libs` -o PS
  1575.   
  1576.   sunPS:    $(OBJECTS) $(GRAPHICS) pixrect.o canon.a
  1577. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) pixrect.o canon.a -lm -lpixrect -o sunPS
  1578.   
  1579.   CPS:    $(OBJECTS) $(GRAPHICS) colour-ww.o trapezoid.o canon.o
  1580. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) colour-ww.o canon.o trapezoid.o -lm `libs` -o CPS
  1581.   
  1582.   postscript:    $(OBJECTS) $(GRAPHICS) adapter.o protocol.o
  1583. !     cc $(CFLAGS) $(OBJECTS) $(GRAPHICS) adapter.o protocol.o -lm -o postscript
  1584.   
  1585.   XPS:    $(OBJECTS) $(GRAPHICS) X.o
  1586. !     cc $(CFLAGS)  $(OBJECTS) $(GRAPHICS) X.o -lm -lX -o XPS
  1587.   
  1588.   canon.a:    canon.o screen.o trapezoid.o paint.o
  1589.       ar ruv canon.a canon.o screen.o trapezoid.o paint.o
  1590.       ranlib canon.a
  1591.   
  1592.   viewer:    protocol.o viewer.o hard.o canon.a
  1593. !     cc protocol.o viewer.o hard.o canon.a `libs` -o viewer
  1594.   
  1595.   all:    PS postscript viewer
  1596.   
  1597. --- 21,56 ----
  1598.   # For others
  1599.   CFLAGS=-O
  1600.   
  1601. ! default: sunPS
  1602.   
  1603. + xps: $(OBJECTS) $(GRAPHICS) X11.o canon.a $(XLIB)
  1604. +     rm -f xps
  1605. +     $(CC) -o xps $(CFLAGS) $(OBJECTS) $(GRAPHICS) X11.o canon.a -lm $(XLIB)
  1606. + 
  1607.   PS:    $(OBJECTS) $(GRAPHICS) hard.o canon.a
  1608. !     $(CC) $(CFLAGS)  $(OBJECTS) $(GRAPHICS) hard.o canon.a -lm `libs` -o PS
  1609.   
  1610.   sunPS:    $(OBJECTS) $(GRAPHICS) pixrect.o canon.a
  1611. !     $(CC) $(CFLAGS)  $(OBJECTS) $(GRAPHICS) pixrect.o canon.a -lm -lpixrect -o sunPS
  1612.   
  1613.   CPS:    $(OBJECTS) $(GRAPHICS) colour-ww.o trapezoid.o canon.o
  1614. !     $(CC) $(CFLAGS)  $(OBJECTS) $(GRAPHICS) colour-ww.o canon.o trapezoid.o -lm `libs` -o CPS
  1615.   
  1616.   postscript:    $(OBJECTS) $(GRAPHICS) adapter.o protocol.o
  1617. !     $(CC) $(CFLAGS) $(OBJECTS) $(GRAPHICS) adapter.o protocol.o -lm -o postscript
  1618.   
  1619.   XPS:    $(OBJECTS) $(GRAPHICS) X.o
  1620. !     $(CC) $(CFLAGS)  $(OBJECTS) $(GRAPHICS) X.o -lm -lX -o XPS
  1621.   
  1622. + lint:
  1623. +     $(LINT) $(LFLAGS) $(SOURCES) $(LINTFILTER)
  1624. + 
  1625.   canon.a:    canon.o screen.o trapezoid.o paint.o
  1626.       ar ruv canon.a canon.o screen.o trapezoid.o paint.o
  1627.       ranlib canon.a
  1628.   
  1629.   viewer:    protocol.o viewer.o hard.o canon.a
  1630. !     $(CC) protocol.o viewer.o hard.o canon.a `libs` -o viewer
  1631.   
  1632.   all:    PS postscript viewer
  1633.   
  1634. ***************
  1635. *** 44,50 ****
  1636.   orion:    orion.o installorion orionlib
  1637.   
  1638.   X.o:    
  1639. !     cc -c X.c
  1640.   
  1641.   wwlib:
  1642.       if [ -f libww.a ]; \
  1643. --- 61,67 ----
  1644.   orion:    orion.o installorion orionlib
  1645.   
  1646.   X.o:    
  1647. !     $(CC) -c X.c
  1648.   
  1649.   wwlib:
  1650.       if [ -f libww.a ]; \
  1651. *** /dev/null    Thu Jul 28 10:26:48 1988
  1652. --- ./source/X11.c    Wed Jul 27 18:15:31 1988
  1653. ***************
  1654. *** 0 ****
  1655. --- 1,667 ----
  1656. + /*
  1657. +  * Copyright (C) Rutherford Appleton Laboratory 1987
  1658. +  * 
  1659. +  * This source may be copied, distributed, altered or used, but not sold for profit
  1660. +  * or incorporated into a product except under licence from the author.
  1661. +  * It is not in the public domain.
  1662. +  * This notice should remain in the source unaltered, and any changes to the source
  1663. +  * made by persons other than the author should be marked as such.
  1664. +  * 
  1665. +  *    Crispin Goswell @ Rutherford Appleton Laboratory caag@uk.ac.rl.vd
  1666. +  */
  1667. + #include "main.h"
  1668. + #include "graphics.h"
  1669. + #include <X11/Xlib.h>
  1670. + #include <X11/Xutil.h>
  1671. + #include <X11/Xatom.h>
  1672. + #include <stdio.h>
  1673. + #include "canon.h"
  1674. + 
  1675. + char *DriverType = "X11"; /* jgm */
  1676. + 
  1677. + static void Punt(str)
  1678. + char *str;
  1679. + {
  1680. +     fprintf(stderr, "%s\n", str);
  1681. +     exit(1);
  1682. + }
  1683. + 
  1684. + 
  1685. + 
  1686. + static Display *dpy;
  1687. + 
  1688. + typedef struct _HardwareRec {
  1689. +     Drawable w;
  1690. + } HardwareRec, *Hardware;
  1691. + 
  1692. + #ifdef CANON
  1693. + struct hardware
  1694. + {
  1695. +     /*
  1696. +      * Each driver is expected to provide its own definition of this
  1697. +      * structure.  It is only ever used as a pointer and is never dereferenced
  1698. +      * outside the driver.
  1699. +      */
  1700. +     int pad;
  1701. + };
  1702. + #endif CANON
  1703. + 
  1704. + /*
  1705. +  * This file describes the interface that PostScript requires to the graphics
  1706. +  * system at Version 1.4.
  1707. +  *     
  1708. +  * ''Hardware'' in this context refers to a pointer to windows and/or bitmaps
  1709. +  * and is the lowest level of access that PostScript is interested in. Any
  1710. +  * Hardware parameter may be expected to be NULL.
  1711. +  */
  1712. + 
  1713. + /********************* CREATION OF WINDOWS AND BITMAPS *******************/
  1714. + 
  1715. + #define SCREEN 0        /* What to use as our screen number. */
  1716. + #define MIN(x, y)    (((x) < (y)) ? (x) : (y))
  1717. + 
  1718. + static GC fillgc[16];
  1719. + 
  1720. + struct hardware *InitHardware ()
  1721. + {
  1722. +     XGCValues values;
  1723. +     int i;
  1724. +     if ((dpy = XOpenDisplay(dpy)) == NULL)
  1725. +     Punt("Could not open display");
  1726. +     InitTransfer(DisplayHeight(dpy, SCREEN) / 11);
  1727. +     /* This defines our screen as being 11 inches high, no matter what its */
  1728. +     /* real size.  What a hack. */
  1729. +     values.foreground = AllPlanes;
  1730. +     for (i=0 ; i<16 ; i++) {
  1731. +     values.function = i;
  1732. +     fillgc[i] = XCreateGC(dpy, RootWindow(dpy, SCREEN),
  1733. +                   GCFunction | GCForeground, &values);
  1734. +     }
  1735. + }
  1736. + /*
  1737. +  * InitHardware () returns a default device which PostScript may use
  1738. +  * immediately (or NULL if not appropriate).  Its size and shape are not
  1739. +  * defined. Most typically the user will want to start up another device
  1740. +  * before it is used anyway. No attempt will be made by PostScript to Destroy
  1741. +  * the resulting device.
  1742. +  */
  1743. + 
  1744. + static struct hardware *NewHardware(width, height)
  1745. + int width, height;
  1746. + {
  1747. +     struct hardware *to;
  1748. +     Hardware hard;
  1749. +     to = (struct hardware *) malloc(sizeof(struct hardware));
  1750. +     hard = (Hardware) malloc(sizeof(HardwareRec));
  1751. +     to->hard.addr = (char *) hard;
  1752. +     to->flags = 0;
  1753. +     to->aux = to->clip = NULL;
  1754. +     to->extent = NewDevicePoint(width, height);
  1755. +     hard->w = NULL;
  1756. +     return to;
  1757. + }
  1758. + 
  1759. + 
  1760. + struct hardware *NewBitmapHardware (width, height)
  1761. + int width, height;
  1762. + {
  1763. +     struct hardware *to = NewHardware(width, height);
  1764. +     Hardware hard = (Hardware) to->hard.addr;
  1765. +     to->flags = NULL;
  1766. +     hard->w = XCreatePixmap(dpy, RootWindow(dpy, SCREEN), width, height,
  1767. +                 DefaultDepth(dpy, SCREEN));
  1768. +     XFillRectangle(dpy, hard->w, fillgc[GXclear], 0, 0, width, height);
  1769. + 
  1770. + /*    {
  1771. +     static int y = 0;
  1772. +     XSetWindowAttributes attributes;
  1773. +     hard->w = XCreateSimpleWindow(dpy, RootWindow(dpy, SCREEN), 700, y,
  1774. +                   width, height, 1, BlackPixel(dpy, SCREEN),
  1775. +                   WhitePixel(dpy, SCREEN));
  1776. +     attributes.override_redirect = TRUE;
  1777. +     XChangeWindowAttributes(dpy, hard->w, CWOverrideRedirect, &attributes);
  1778. +     XMapWindow(dpy, hard->w);
  1779. +     y+=30;
  1780. +     }*/
  1781. +     return to;
  1782. + }
  1783. + 
  1784. + struct hardware *NewWindowHardware (width, height)
  1785. + int width, height;
  1786. + {
  1787. +     struct hardware *to = NewHardware(width, height);
  1788. +     Hardware hard = (Hardware) to->hard.addr;
  1789. +     XEvent event;
  1790. +     unsigned long vmask;
  1791. +     XSetWindowAttributes xswa;
  1792. + 
  1793. +     to->flags = ISWIN;
  1794. + /*
  1795. +     hard->w = XCreateSimpleWindow(dpy, RootWindow(dpy, SCREEN), 0, 0,
  1796. +                   width, height, 1, BlackPixel(dpy, SCREEN),
  1797. +                   0);
  1798. + */
  1799. +     vmask = CWBackPixel|CWBorderPixel|CWBackingStore|
  1800. +       CWBackingPlanes|CWSaveUnder;
  1801. +     xswa.background_pixel = WhitePixel(dpy,SCREEN);
  1802. +     xswa.border_pixel = BlackPixel(dpy,SCREEN);
  1803. +     xswa.backing_store = Always;
  1804. +     xswa.backing_planes = AllPlanes;
  1805. +     xswa.save_under = True;
  1806. + 
  1807. +     hard->w = XCreateWindow(dpy,RootWindow(dpy,SCREEN),
  1808. +                 0,0,
  1809. +                 width,height,
  1810. +                 1,DefaultDepth(dpy,SCREEN),
  1811. +                 InputOutput,DefaultVisual(dpy,SCREEN),
  1812. +                 vmask,&xswa);
  1813. + 
  1814. +     XChangeProperty(dpy,hard->w,XA_WM_NAME,XA_STRING,8,
  1815. +             PropModeReplace,"POSTSCRIPT",10);
  1816. + 
  1817. +     XSelectInput(dpy, hard->w, ExposureMask);
  1818. +     XMapWindow(dpy, hard->w);
  1819. +     XNextEvent(dpy, &event);
  1820. +     XSelectInput(dpy, hard->w, 0);
  1821. +     return to;
  1822. + }
  1823. + /*
  1824. +  * NewBitmapHardware () is expected to create a new bitmap. Only one plane
  1825. +  * will be needed.
  1826. +  *     
  1827. +  * NewWindowHardware () is expected to create a window on the screen. On a
  1828. +  * colour system this will be expected to support full colour.
  1829. +  */
  1830. + 
  1831. + #ifdef CANON
  1832. + int IsWindowHardware (h)
  1833. + struct hardware *h;
  1834. + {}
  1835. + #endif CANON
  1836. + /*
  1837. +  * IsWindowHardware () should return TRUE if the hardware is a window, FALSE
  1838. +  * otherwise.  NULL is a window.
  1839. +  */
  1840. + 
  1841. + void DestroyHardware (h)
  1842. + struct hardware *h;
  1843. + {
  1844. +     if (h) {
  1845. +     Hardware hard = (Hardware) h->hard.addr;
  1846. +     if (IsWindowHardware(h))
  1847. +         XDestroyWindow(dpy, hard->w);
  1848. +     else
  1849. +         XFreePixmap(dpy, hard->w);
  1850. +     }
  1851. + }
  1852. + /*
  1853. +  *     
  1854. +  * DestroyHardware () should release the resources required by the hardware,
  1855. +  * bitmap or window.  This should cause a window device to vanish. NULL is not
  1856. +  * an error (does nothing).
  1857. +  */
  1858. + 
  1859. + 
  1860. + #ifdef CANON
  1861. + Matrix DeviceMatrix (width, height)
  1862. + int width, height;
  1863. + {}
  1864. + #endif CANON
  1865. + 
  1866. + /*
  1867. +  *
  1868. +  * DeviceMatrix () should return a matrix appropriate to a device of the given
  1869. +  * height and width.  For a typical display with a graphics origin at the top
  1870. +  * left of a window, an appropriate definition would be:
  1871. +  *     
  1872. +  * Matrix DeviceMatrix (width, height)
  1873. +  * int width, height;
  1874. +  * {
  1875. +  *     return NewMatrix (PIXELS_PER_INCH / 72.0, 0.0, 0.0,
  1876. +  *                  -PIXELS_PER_INCH / 72.0, 0.0, (float) height);
  1877. +  * }
  1878. +  */
  1879. + 
  1880. + #ifdef CANON
  1881. + DevicePoint HardwareExtent (h)
  1882. + struct hardware *h;
  1883. + {}
  1884. + #endif
  1885. + /*
  1886. +  * HardwareExtent () returns a DevicePoint describing the width and height of
  1887. +  * the argument.  NULL has extent NewDevicePoint (0, 0).
  1888. +  */
  1889. + 
  1890. + /*************************** OUTPUT PRIMITIVES ******************************/    
  1891. + 
  1892. + void BitBlt (from, to, fromPoint, toPoint, extent, rop)
  1893. + struct hardware *from, *to;
  1894. + DevicePoint toPoint, fromPoint, extent;
  1895. + int rop;
  1896. + {
  1897. +     Hardware fromhard, tohard;
  1898. +     static int count = 0;
  1899. +     if (to == NULL) return;
  1900. +     tohard = (Hardware) to->hard.addr;
  1901. +     if (from == NULL) {
  1902. +     XFillRectangle(dpy, tohard->w, fillgc[rop], toPoint.dx, toPoint.dy,
  1903. +                extent.dx, extent.dy);
  1904. +     } else {
  1905. +     fromhard = (Hardware) from->hard.addr;
  1906. +     XCopyArea(dpy, fromhard->w, tohard->w, fillgc[rop], fromPoint.dx,
  1907. +           fromPoint.dy, extent.dx, extent.dy, toPoint.dx, toPoint.dy);
  1908. +     }
  1909. +     if (count++ % 50 == 0) XSync(dpy, 0);
  1910. + }
  1911. + 
  1912. + #ifdef CANON
  1913. + void Paint (from, to, fromPoint, toPoint, extent, colour)
  1914. + struct hardware *from, *to;
  1915. + DevicePoint toPoint, fromPoint, extent;
  1916. + Colour colour;
  1917. + {}
  1918. + #endif
  1919. + 
  1920. + /*
  1921. +  *     
  1922. +  * BitBlt () is a full function RasterOp. The 'rop' argument will have values
  1923. +  * as described in the header file hard.h. If the from argument is NULL it is
  1924. +  * taken to be a bitmap full of ones the shape of the fromPoint and extent. If
  1925. +  * the to argument is NULL, this is a no-op.
  1926. +  *
  1927. +  * Paint () is an addition to BitBlt. Bits that are set in the source are
  1928. +  * Painted into the destination in the given colour with a copying rasterop so
  1929. +  * that they replace pixels previously there. If the machine does not support
  1930. +  * colour windows, half-toning should be performed.  Colour values have hue,
  1931. +  * saturation and brightness components. on a black and white or greyscale
  1932. +  * system the brightness value will be a FP value between 0.0 (black) and 1.1
  1933. +  * (white), which can be used as a grey level.
  1934. +  *     
  1935. +  * Paint is expected to mask with the clip mask. BitBlt is not,
  1936. +  */
  1937. + 
  1938. + #ifdef CANON
  1939. + void BitBltTrapezoid(to, lefttop, leftbottom, righttop, rightbottom,
  1940. +              top, bottom, rop)
  1941. + struct hardware *to;
  1942. + DevicePoint lefttop, leftbottom, righttop, rightbottom;
  1943. + int top, bottom, rop;
  1944. + {}
  1945. + #endif CANON
  1946. + 
  1947. + #ifdef CANON
  1948. + void PaintTrapezoid (to, lefttop, leftbottom, righttop, rightbottom,
  1949. +              top, bottom, colour)
  1950. + struct hardware *to;
  1951. + DevicePoint lefttop, leftbottom, righttop, rightbottom;
  1952. + int top, bottom;
  1953. + Colour colour;
  1954. + {}
  1955. + #endif CANON
  1956. + 
  1957. + /*
  1958. +  * BitBltTrapezoid () and PaintTrapezoid () render a complete trapezoidal
  1959. +  * shape.  The corners of the trapezoid may lie far outside the range of
  1960. +  * interesting scan-lines, but the slope of the line should be clipped by the
  1961. +  * top and bottom. The coordinates are half-open.
  1962. +  */
  1963. + 
  1964. + void BitBltLine (h, fromPoint, toPoint, rop)
  1965. + struct hardware *h;
  1966. + DevicePoint fromPoint, toPoint;
  1967. + int rop;
  1968. + {
  1969. +     if (h) {
  1970. +     Hardware hard = (Hardware) h->hard.addr;
  1971. +     XDrawLine(dpy, hard->w, fillgc[rop], fromPoint.dx, fromPoint.dy,
  1972. +           toPoint.dx, toPoint.dy);
  1973. +     }
  1974. + }
  1975. + 
  1976. + #ifdef CANON
  1977. + void PaintLine (h, fromPoint, toPoint, colour)
  1978. + struct hardware *h;
  1979. + DevicePoint fromPoint, toPoint;
  1980. + Colour colour;
  1981. + {}
  1982. + #endif CANON
  1983. + 
  1984. + /*
  1985. +  *     
  1986. +  *     BitBltLine () is expected to draw a line between the given points
  1987. +  *     with the given RasterOp and colour masking.
  1988. +  *     The line should be one pixel wide and half-open.
  1989. +  *     [Thicker lines are done with BitBlt.]
  1990. +  *     
  1991. +  *     PaintLine () is expected to Paint a line by analogy with Paint
  1992. +  *     and BitBlt.
  1993. +  */
  1994. + 
  1995. + void BitBltBlob (to, top, height, left, right, rop)
  1996. + struct hardware *to;
  1997. + int top, height, *left, *right, rop;
  1998. + {
  1999. +     int i;
  2000. +     DevicePoint p1, p2;
  2001. +     for (i=0 ; i<height ; i++) {
  2002. +     p1.dx = left[i];
  2003. +     p2.dx = right[i];
  2004. +     p1.dy = p2.dy = top + i;
  2005. +     BitBltLine(to, p1, p2, rop);
  2006. +     }
  2007. + }
  2008. + 
  2009. +  /*
  2010. +   * BitBltBlob () takes a set of pixel coordinates and fills the trapezon
  2011. +   * figure half open.
  2012. +   */
  2013. + 
  2014. + #ifdef SLOWANDWRONG
  2015. + void RasterTile (from, to, toPoint, extent, rop)
  2016. + struct hardware *from, *to;
  2017. + DevicePoint toPoint, extent;
  2018. + int rop;
  2019. + {
  2020. +     Hardware fromhard, tohard;
  2021. +     DevicePoint p1, p2, p3;
  2022. +     int x, y;
  2023. +     if (to == NULL) return;
  2024. +     if (from == NULL)
  2025. +     Punt("Can only RasterTile from Hardware.");
  2026. +     fromhard = (Hardware) from->hard.addr;
  2027. +     tohard = (Hardware) to->hard.addr;
  2028. +     p1.dx = p1.dy = 0;
  2029. +     for (x=toPoint.dx ; x < toPoint.dx + extent.dx ; x+=from->extent.dx) {
  2030. +     for (y=toPoint.dy ; y < toPoint.dy + extent.dy ; y+=from->extent.dy) {
  2031. +         p2.dx = x;
  2032. +         p2.dy = y;
  2033. +         p3.dx = MIN(toPoint.dx + extent.dx - x, from->extent.dx);
  2034. +         p3.dy = MIN(toPoint.dy + extent.dy - y, from->extent.dy);
  2035. +         BitBlt(from, to, p1, p2, p3, rop);
  2036. +     }
  2037. +     }
  2038. + }
  2039. + #endif SLOWANDWRONG
  2040. + 
  2041. + 
  2042. + void RasterTile (from, to, toPoint, extent, rop)
  2043. + struct hardware *from, *to;
  2044. + DevicePoint toPoint, extent;
  2045. + int rop;
  2046. + {
  2047. +     Hardware fromhard, tohard;
  2048. +     static GC gc = NULL;
  2049. +     XGCValues values;
  2050. +     int valuemask;
  2051. +     if (to == NULL) return;
  2052. +     if (from == NULL || IsWindowHardware(from))
  2053. +     Punt("Can only RasterTile from Bitmap.");
  2054. +     fromhard = (Hardware) from->hard.addr;
  2055. +     tohard = (Hardware) to->hard.addr;
  2056. +     values.tile = fromhard->w;
  2057. +     values.fill_style = FillTiled;
  2058. +     values.function = rop;
  2059. +     valuemask = GCFunction | GCTile | GCFillStyle;
  2060. +     if (gc == NULL)
  2061. +     gc = XCreateGC(dpy, RootWindow(dpy, SCREEN), valuemask, &values);
  2062. +     else
  2063. +     XChangeGC(dpy, gc, valuemask, &values);
  2064. +     XFillRectangle(dpy, tohard->w, gc, toPoint.dx, toPoint.dy,
  2065. +            extent.dx, extent.dy);
  2066. + }
  2067. + 
  2068. + /*
  2069. +  * RasterTile () replicates the whole of ``from'' over ``to'', but clipped by
  2070. +  * the rectangle bounded by ``toPoint'' and ``extent''.
  2071. +  */
  2072. + 
  2073. + /******************* BRIGHTNESS TRANSFER FUNCTION ************************/
  2074. + 
  2075. + #ifdef CANON
  2076. + int TransferSize ()
  2077. + {}
  2078. + #endif CANON
  2079. + 
  2080. + #ifdef CANON
  2081. + void SetTransfer (vec)
  2082. + float *vec;
  2083. + {}
  2084. + #endif CANON
  2085. + /*
  2086. +  *     
  2087. +  * TransferSize () and SetTransfer () control the mapping function between
  2088. +  * user brightnesses and device brightnesses. The interface is expected to
  2089. +  * perform this mapping of brightnesses to a sufficient resolution.
  2090. +  * SetTransfer takes a table of floating point numbers between 0 and 1. User
  2091. +  * brightnesses are scaled to the size of this table and mapped through it.
  2092. +  * The argument table given to SetTransfer () will be deleted after use.
  2093. +  * TransferSize () simply enquires the required size of the table.
  2094. +  *     
  2095. +  * It may be appropriate to half-tone on a grayscale or colour device to
  2096. +  * improve rendering if it is not too expensive. TransferSize () returns the
  2097. +  * size of the pattern table.
  2098. +  */
  2099. + 
  2100. + /********************** BITMAP CONVERSION ********************************/
  2101. + 
  2102. + char *StringFromHardware (h)
  2103. + struct hardware *h;
  2104. + {
  2105. +     XImage *image;
  2106. +     Hardware hard;
  2107. +     unsigned char *result, *ptr, c;
  2108. +     int x, y, i;
  2109. +     if (h == NULL) return NULL;
  2110. +     hard = (Hardware) h->hard.addr;
  2111. +     image = XGetImage(dpy, hard->w, 0, 0, h->extent.dx, h->extent.dy,
  2112. +               AllPlanes, ZPixmap);
  2113. +     result = (unsigned char *) malloc(((h->extent.dx + 7) / 8) * h->extent.dy);
  2114. +     ptr = result;
  2115. +     for (y=0 ; y<h->extent.dy ; y++) {
  2116. +     for (x=0 ; x<h->extent.dx ; x+=8) {
  2117. +         c = 0;
  2118. +         for (i=0 ; i<8 ; i++) {
  2119. +         c = c << 1;
  2120. +         if (x+i < h->extent.dx)
  2121. +             c |= XGetPixel(image, x+i, y);
  2122. +         }
  2123. +     }
  2124. +     *ptr++ = c;
  2125. +     }
  2126. +     free((char *) image);
  2127. +     return (char *) result;
  2128. + }
  2129. + 
  2130. + struct hardware *HardwareFromString (s, width, height)
  2131. + char *s;
  2132. + int width, height;
  2133. + {
  2134. +     struct hardware *h = NewBitmapHardware(width, height);
  2135. +     Hardware hard = (Hardware) h->hard.addr;
  2136. +     XImage *image;
  2137. +     if (s == NULL) Punt("HardwareFromString called with NULL string!");
  2138. +     image = XCreateImage(dpy, DefaultVisual(dpy, SCREEN),
  2139. +              DefaultDepth(dpy, SCREEN), ZPixmap, 0, s,
  2140. +              width, height, 8, 0);
  2141. +     image->bitmap_bit_order = MSBFirst;
  2142. +     XPutImage(dpy, hard->w, fillgc[GXcopy], image, 0, 0, 0, 0, width, height);
  2143. +     free((char *) image);
  2144. +     return h;
  2145. + }
  2146. + /*
  2147. +  *     
  2148. +  * StringFromHardware () produces a string from its argument which describes
  2149. +  * the bitmap.  The bitmap is returned in row-major order with the leftmost
  2150. +  * bit of each byte in the most significant position. Rows are padded to byte
  2151. +  * boundaries. Only single plane bitmaps are used.
  2152. +  *     
  2153. +  * HardwareFromString () performs the inverse mapping, generating a bitmap
  2154. +  * from a set of bits, given a width and height. Only single plane bitmaps are
  2155. +  * used.
  2156. +  */
  2157. + 
  2158. + /************************* HALF-TONE SCREEN *******************************/
  2159. + 
  2160. + #ifdef CANON
  2161. + int ScreenSize (freq, rotation)
  2162. + float freq, rotation;
  2163. + {}
  2164. + #endif CANON
  2165. + 
  2166. + #ifdef CANON
  2167. + void BuildScreen (freq, rotation, x, y)
  2168. + float freq, rotation, *x, *y;
  2169. + {}
  2170. + #endif CANON
  2171. + 
  2172. + #ifdef CANON
  2173. + void SetScreen (freq, rotation, thresh)
  2174. + float freq, rotation, *thresh;
  2175. + {}
  2176. + #endif CANON
  2177. + /*
  2178. +  * ScreenSize () allows PostScript to determine how large an array of sample
  2179. +  * points to expect.  It should return the length of the side of the sample
  2180. +  * square.
  2181. +  *     
  2182. +  * BuildScreen () returns a set of sampling coordinates to PostScript to hand
  2183. +  * to the users spot-function
  2184. +  *     
  2185. +  * SetScreen () allows PostScript to set the thresholds for each sample point
  2186. +  * so that half-tone bitmaps can be made.
  2187. +  */
  2188. + 
  2189. + /************************* CLIPPING ******************************************/
  2190. + 
  2191. + #ifdef CANON
  2192. + void SetClipHardware (h, clip)
  2193. + struct hardware *h, *clip;
  2194. + {}
  2195. + #endif
  2196. + /*
  2197. +  *     
  2198. +  * SetClipHardware sets hardware which is a clip mask for BitBlt. This mask
  2199. +  * should be ANDed with any output operation. If clip is NULL, masking will
  2200. +  * not be needed.
  2201. +  */
  2202. + 
  2203. + /************************ UPDATE CONTROLS **********************************/
  2204. + 
  2205. + void HardUpdate ()
  2206. + {
  2207. +     XFlush(dpy, 0);
  2208. + }
  2209. + /*
  2210. +  * HardUpdate is a hook to allow devices which do output buffering to flush
  2211. +  * that buffering when appropriate.  This allows an interactive user to see
  2212. +  * completed graphics between prompts (it is called as a side-effect of the
  2213. +  * PostScript flush operator). Typically is is a no-op.
  2214. +  */
  2215. + 
  2216. + void UpdateControl (h, on)
  2217. + struct hardware *h;
  2218. + int on;
  2219. + {}
  2220. + /*
  2221. +  * This call can be used to enable batching of output operations.
  2222. +  * UpdateControl (h, FALSE) means ``start of batching'' UpdateControl (h,
  2223. +  * TRUE) means ``end of batching''. It is used to improve performance on
  2224. +  * machines where screen updates have a high locking overhead. It may be a
  2225. +  * no-op.  The operation should nest if batching is already in progress: FALSE
  2226. +  * increments a counter, TRUE decrements a counter. Display changes are
  2227. +  * allowed when the counter is non-zero.
  2228. +  */
  2229. + 
  2230. + /********************************** CANONICAL IMPLEMENTATION LIBRARY ******************************/
  2231. + 
  2232. + /*
  2233. +  * Some parts of the above interface can be supported by a canonical library.
  2234. +  * This library contains:
  2235. + 
  2236. + SetClipHardware
  2237. + HardUpdate
  2238. + IsWindowHardware
  2239. + HardwareExtent
  2240. + 
  2241. + PaintTrapezoid
  2242. + BitBltTrapezoid
  2243. + 
  2244. + Paint
  2245. + PaintLine
  2246. + 
  2247. + DeviceMatrix
  2248. + InitTransfer
  2249. + TransferSize
  2250. + SetTransfer
  2251. + ScreenSize
  2252. + BuildScreen
  2253. + SetScreen
  2254. + 
  2255. +  *
  2256. +  * As the driver matures, the user may provide his own versions of the
  2257. +  * canonical routines.  This leaves the following for implementation by 
  2258. +  * the user.
  2259. +  *
  2260. + 
  2261. + InitHardware
  2262. + NewBitmapHardware
  2263. + NewWindowHardware
  2264. + DestroyHardware
  2265. + HardwareFromString
  2266. + StringFromHardware
  2267. + UpdateControl
  2268. + RasterTile
  2269. + BitBlt
  2270. + BitBltLine
  2271. + BitBltBlob
  2272. + 
  2273. +  * There is a pedagogical implementation in null.c
  2274. +  *    
  2275. +  * There are a number of interface issues concerning the canonical driver.
  2276. +  * Firstly, a canonical struct hardware is defined, which contains a union of
  2277. +  * a char * and an int handle. The remainder are expected to use this to store
  2278. +  * device specific information.
  2279. +  *
  2280. +  * InitTransfer() should be called during InitHardware with the number of 
  2281. +  * pixels per inch on the display as an argument.
  2282. +  */
  2283. + 
  2284. + /* I tacked this lot on the end to avoid altering canon.c - CAAG */
  2285. + 
  2286. + int pixels_per_inch;
  2287. + 
  2288. + int single_rop [] =
  2289. +  {
  2290. +     ROP_FALSE, ROP_DEST, ROP_NOTDEST, ROP_TRUE,
  2291. +     ROP_FALSE, ROP_DEST, ROP_NOTDEST, ROP_TRUE,
  2292. +     ROP_FALSE, ROP_DEST, ROP_NOTDEST, ROP_TRUE,
  2293. +     ROP_FALSE, ROP_DEST, ROP_NOTDEST, ROP_TRUE
  2294. +  };
  2295. + 
  2296. + /*ARGSUSED*/
  2297. + Matrix DeviceMatrix (width, height) int width, height;
  2298. +  {
  2299. +      return NewMatrix (pixels_per_inch / 72.0, 0.0, 0.0, -pixels_per_inch / 72.0, 0.0, (float) height);
  2300. +  }
  2301. + 
  2302. + int IsWindowHardware (h) struct hardware *h;
  2303. +  {
  2304. +      return h->flags & ISWIN;
  2305. +  }
  2306. + 
  2307. + #define IsWindowHardware(h) ((h)->flags & ISWIN)
  2308. + 
  2309. + DevicePoint HardwareExtent (h) struct hardware *h;
  2310. +  {
  2311. +      if (h)
  2312. +          return h->extent;
  2313. +      else
  2314. +          return NewDevicePoint (0, 0);
  2315. +  }
  2316. + 
  2317. + void SetClipHardware (h, clip) struct hardware *h, *clip;
  2318. +  {
  2319. +      if (h)
  2320. +         h->clip = clip;
  2321. +  }
  2322. + 
  2323. diff -cr /usr/tmp/ps/source/array.c ./source/array.c
  2324. *** /usr/tmp/ps/source/array.c    Thu Jul 28 14:01:14 1988
  2325. --- ./source/array.c    Wed Jul 27 12:02:11 1988
  2326. ***************
  2327. *** 142,151 ****
  2328. --- 142,165 ----
  2329.   int ExecArray (item) Object item;
  2330.    {
  2331.        int l = lengthArray (item);
  2332. +     Object res;
  2333. +     register Object *rp = &res;
  2334.        
  2335.       if (l == 0)
  2336.            return TRUE;
  2337. +     /*
  2338. +      * BZS - try some open-coding here
  2339. +      *
  2340.        Push (ExecStack, SameFlags (item, Make (Body (item) + 1, l - 1)));
  2341. +     */
  2342. +     rp->type = Array;
  2343. +     rp->flags = READABLE | WRITEABLE;
  2344. +     rp->u.Integer = 0;
  2345. +     rp->u.Array = item.u.Array + 1;
  2346. +     rp->Length = l - 1;
  2347. +     rp->flags = item.flags;
  2348. +     Push(ExecStack,res);
  2349. +     /* end open-coding */
  2350.        if (TypeOf (Body (item) [0]) == Name || TypeOf (Body (item) [0]) == Operator)
  2351.            Push (ExecStack, Body (item) [0]);
  2352.        else
  2353. diff -cr /usr/tmp/ps/source/config.c ./source/config.c
  2354. *** /usr/tmp/ps/source/config.c    Thu Jul 28 14:01:20 1988
  2355. --- ./source/config.c    Thu Jul 28 14:07:25 1988
  2356. ***************
  2357. *** 92,98 ****
  2358.       
  2359.       /* Begin jgm */
  2360.       strcpy(versionbuf, DriverType);
  2361. !     strcat(versionbuf, " version 1.4 with jgm mods v2");
  2362.       Install ("version",    StringFrom (versionbuf));
  2363.       /* End jgm */
  2364.    }
  2365. --- 92,98 ----
  2366.       
  2367.       /* Begin jgm */
  2368.       strcpy(versionbuf, DriverType);
  2369. !     strcat(versionbuf, " version 1.4 with jgm/bzs mods v3");
  2370.       Install ("version",    StringFrom (versionbuf));
  2371.       /* End jgm */
  2372.    }
  2373. diff -cr /usr/tmp/ps/source/device.c ./source/device.c
  2374. *** /usr/tmp/ps/source/device.c    Thu Jul 28 14:01:23 1988
  2375. --- ./source/device.c    Sat Apr 30 17:45:35 1988
  2376. ***************
  2377. *** 25,31 ****
  2378.        struct hardware *h;
  2379.        DevicePoint extent;
  2380.        
  2381. !     InstallOp ("framedevice",    FrameDevice,         4, 0, 0, 0, Array, Integer, Integer, Array);
  2382.       InstallOp ("nulldevice",    NullDevice,        0, 0, 0, 0);
  2383.       InstallOp ("grabbits",        GrabBits,        4, 0, 0, 0, Float, Float, Float, Float);
  2384.       
  2385. --- 25,31 ----
  2386.        struct hardware *h;
  2387.        DevicePoint extent;
  2388.        
  2389. !     InstallOp ("framedevice",    FrameDevice,         4, 0, 0, 0, Array, Integer, Integer, Poly /* jgm */);
  2390.       InstallOp ("nulldevice",    NullDevice,        0, 0, 0, 0);
  2391.       InstallOp ("grabbits",        GrabBits,        4, 0, 0, 0, Float, Float, Float, Float);
  2392.       
  2393. ***************
  2394. *** 79,94 ****
  2395.        return TRUE;
  2396.    }
  2397.   
  2398. - /*ARGSUSED*/
  2399.   static int FrameDevice (mat, width, height, proc) Object mat, width, height, proc;
  2400.    {
  2401.        Matrix m;
  2402.        
  2403.        if (lengthArray (mat) != 6 || !ExtractMatrix (&m, mat))
  2404.            return Error (PTypeCheck);
  2405.        if (BodyInteger (width) < 0 || BodyInteger (height) < 0)
  2406.            return Error (PRangeCheck);
  2407. !      SetDevice (NewWindowDevice (BodyInteger (width) * 8, BodyInteger (height), m));
  2408.        ErasePage ();
  2409.        
  2410.       return TRUE;
  2411. --- 79,98 ----
  2412.        return TRUE;
  2413.    }
  2414.   
  2415.   static int FrameDevice (mat, width, height, proc) Object mat, width, height, proc;
  2416.    {
  2417.        Matrix m;
  2418. +     struct device *d;
  2419.        
  2420.        if (lengthArray (mat) != 6 || !ExtractMatrix (&m, mat))
  2421.            return Error (PTypeCheck);
  2422.        if (BodyInteger (width) < 0 || BodyInteger (height) < 0)
  2423.            return Error (PRangeCheck);
  2424. !     /* Begin jgm */
  2425. !      d = NewWindowDevice (BodyInteger (width) * 8, BodyInteger (height), m);
  2426. !     d->output_routine = proc;
  2427. !      SetDevice (d);
  2428. !     /* End jgm */
  2429.        ErasePage ();
  2430.        
  2431.       return TRUE;
  2432. ***************
  2433. *** 148,155 ****
  2434.        res->link_count = 0;
  2435.        res->default_clip = clip;
  2436.        res->default_matrix = m;
  2437.        res->dev = dev;
  2438. !      
  2439.        return res;
  2440.    }
  2441.   
  2442. --- 152,160 ----
  2443.        res->link_count = 0;
  2444.        res->default_clip = clip;
  2445.        res->default_matrix = m;
  2446. +     res->output_routine = Nil;
  2447.        res->dev = dev;
  2448. !     
  2449.        return res;
  2450.    }
  2451.   
  2452. diff -cr /usr/tmp/ps/source/device.h ./source/device.h
  2453. *** /usr/tmp/ps/source/device.h    Thu Jul 28 13:43:09 1988
  2454. --- ./source/device.h    Sat Apr 30 16:34:02 1988
  2455. ***************
  2456. *** 9,14 ****
  2457. --- 9,15 ----
  2458.        Matrix default_matrix;
  2459.        Path default_clip;
  2460.        int link_count;
  2461. +     Object output_routine; /* jgm */
  2462.        struct hardware *dev;
  2463.    };
  2464.   
  2465. diff -cr /usr/tmp/ps/source/dictionary.c ./source/dictionary.c
  2466. *** /usr/tmp/ps/source/dictionary.c    Thu Jul 28 13:53:28 1988
  2467. --- ./source/dictionary.c    Wed Jul 27 12:02:12 1988
  2468. ***************
  2469. *** 17,24 ****
  2470.   
  2471.   Object Absent, Nil, SysDict;
  2472.   
  2473. ! Object DictLookup (), MakeDict (), DictLoad ();
  2474.   
  2475.   static int LengthDict (), CopyDict (), forDict (), ForDict (), PutDict (), GetDict ();
  2476.   static int PDict (), PBegin (), PEnd (), PDef (), PStore (), PKnown (), PLoad ();
  2477.   static int PrCheck (), PwCheck (), PReadOnly (), EqDict (); 
  2478. --- 17,29 ----
  2479.   
  2480.   Object Absent, Nil, SysDict;
  2481.   
  2482. ! /* BZS - DictLoad open-coded */
  2483. ! #ifndef DictLoad
  2484. ! Object DictLoad();
  2485. ! #endif
  2486.   
  2487. + Object DictLookup (), MakeDict ();
  2488. + 
  2489.   static int LengthDict (), CopyDict (), forDict (), ForDict (), PutDict (), GetDict ();
  2490.   static int PDict (), PBegin (), PEnd (), PDef (), PStore (), PKnown (), PLoad ();
  2491.   static int PrCheck (), PwCheck (), PReadOnly (), EqDict (); 
  2492. ***************
  2493. *** 166,171 ****
  2494. --- 171,182 ----
  2495.           (a.u.Integer == b.u.Integer || TypeOf (a) == Array && a.Length == 0);
  2496.    }
  2497.   
  2498. + /* BZS - open code Equal */
  2499. + #define Equal(A,B) ((TypeOf(A) == TypeOf(B)) && \
  2500. +             (A.Length == B.Length) && \
  2501. +             ((A.u.Integer == B.u.Integer)|| \
  2502. +              (TypeOf(A) == Array) && (A.Length == 0)))
  2503. + 
  2504.   static DictReplace (hash, key, value, size, h) struct dict_entry *hash; Object key, value; int size, h;
  2505.    {
  2506.        int i;
  2507. ***************
  2508. *** 250,258 ****
  2509.       DictStore (SysDict, NameFrom (key), value);
  2510.    }
  2511.   
  2512. ! static Object DictFind (hash, key, size) struct dict_entry *hash; Object key; int size;
  2513.    {
  2514. !      int i, h;
  2515.        
  2516.        ++hash_attempts;
  2517.        
  2518. --- 261,272 ----
  2519.       DictStore (SysDict, NameFrom (key), value);
  2520.    }
  2521.   
  2522. ! /*
  2523. !  * BZS - add some register decls, make global for macrification (remove static)
  2524. !  */
  2525. ! Object DictFind (hash, key, size) struct dict_entry *hash; Object key; int size;
  2526.    {
  2527. !      register int i, h;
  2528.        
  2529.        ++hash_attempts;
  2530.        
  2531. ***************
  2532. *** 266,271 ****
  2533. --- 280,286 ----
  2534.        {
  2535.            if (TypeOf (hash[i].entry_key) == Null)
  2536.                return Absent;
  2537. + 
  2538.            if (Equal (key, hash[i].entry_key))
  2539.             {
  2540.               ++hash_tries;
  2541. ***************
  2542. *** 279,289 ****
  2543. --- 294,308 ----
  2544.        }
  2545.       return Absent;
  2546.    }
  2547. + #undef Equal
  2548.   
  2549. + /* BZS - macro-ified */
  2550. + #ifndef DictLoad
  2551.   Object DictLoad (dict, key) Object dict, key;
  2552.    {
  2553.       return DictFind (Body (dict)->dict_body, key, Body (dict)->dict_size);
  2554.    }
  2555. + #endif
  2556.   
  2557.   Object Lookup (dict, key) Type dict; Object key;
  2558.    {
  2559. diff -cr /usr/tmp/ps/source/fill.c ./source/fill.c
  2560. *** /usr/tmp/ps/source/fill.c    Thu Jul 28 14:02:56 1988
  2561. --- ./source/fill.c    Wed Jul 27 12:02:15 1988
  2562. ***************
  2563. *** 35,41 ****
  2564.    *    pool
  2565.    */        
  2566.   
  2567. ! static struct edge
  2568.    {
  2569.       int topX, topY, bottomX, bottomY; short dir;
  2570.       struct edge *pair;
  2571. --- 35,41 ----
  2572.    *    pool
  2573.    */        
  2574.   
  2575. ! /* static (removed --jgm) */ struct edge
  2576.    {
  2577.       int topX, topY, bottomX, bottomY; short dir;
  2578.       struct edge *pair;
  2579. ***************
  2580. *** 70,75 ****
  2581. --- 70,126 ----
  2582.   static int FillIt ();
  2583.   static int EoRule (), NwRule ();
  2584.   
  2585. + /*
  2586. +  * BZS - Open Code
  2587. +  */
  2588. + #define NotThisBit(EDGE,WHERE,EMITFN) { \
  2589. +   if((EDGE)->pair != NULL) { \
  2590. +      (*EMITFN)((EDGE),(EDGE)->pair,(EDGE)->startingY,WHERE); \
  2591. +      (EDGE)->pair->startingY = WHERE; \
  2592. +      (EDGE)->pair->where = WHERE; \
  2593. +      (EDGE)->pair->pair = NULL; \
  2594. +      (EDGE)->pair = NULL; \
  2595. +    } \
  2596. +   (EDGE)->startingY = WHERE; \
  2597. +   (EDGE)->where = WHERE; \
  2598. + }
  2599. + 
  2600. + #define ThisBit(LEFT,RIGHT,WHERE,EMITFN) { \
  2601. +    if((LEFT)->pair != (RIGHT) || (RIGHT)->up) { \
  2602. +      if((LEFT)->pair != NULL) { \
  2603. +         (*EMITFN)(LEFT,(LEFT)->pair,(LEFT)->startingY,(LEFT)->where); \
  2604. +         (LEFT)->pair->startingY = (LEFT)->pair->where; \
  2605. +       (LEFT)->pair->pair->startingY = (LEFT)->pair->pair->where; \
  2606. +       (LEFT)->pair->pair = NULL; \
  2607. +      } \
  2608. +      if ((RIGHT)->pair != NULL) { \
  2609. +         (*EMITFN) (RIGHT, (RIGHT)->pair, (RIGHT)->startingY, (RIGHT)->where); \
  2610. +     (RIGHT)->pair->startingY = (RIGHT)->pair->where; \
  2611. +       (RIGHT)->pair->pair->startingY = (RIGHT)->pair->pair->where; \
  2612. +       (RIGHT)->pair->pair = NULL; \
  2613. +      }  \
  2614. +      (LEFT)->pair = RIGHT; \
  2615. +      (RIGHT)->pair = LEFT; \
  2616. +      (LEFT)->startingY = (RIGHT)->startingY = WHERE; \
  2617. +    } \
  2618. +    (LEFT)->where = (RIGHT)->where = WHERE; \
  2619. +    (LEFT)->up = TRUE; \
  2620. +    (RIGHT)->up = FALSE; \
  2621. + }
  2622. + 
  2623. + #define UpEdge(COUNT_A,COUNT_B,INC_A,INC_B,RULE_A,RULE_B) \
  2624. +   ((*RULE_B)(COUNT_B+INC_B) && !(*RULE_A)(COUNT_A) && \
  2625. +    (*RULE_A)(COUNT_A+INC_A)||(*RULE_A)(COUNT_A+INC_A) && \
  2626. +    !(*RULE_B)(COUNT_B) && (*RULE_B)(COUNT_B+INC_B))
  2627. + 
  2628. + #define DownEdge(COUNT_A,COUNT_B,INC_A,INC_B,RULE_A,RULE_B) \
  2629. +   ((*RULE_B)(COUNT_B+INC_B) && (*RULE_A)(COUNT_A) && \
  2630. +    !(*RULE_A)(COUNT_A+INC_A)||(*RULE_A)(COUNT_A+INC_A) && \
  2631. +    (*RULE_B)(COUNT_B) && !(*RULE_B)(COUNT_B+INC_B))
  2632. + 
  2633. + #define Xvalue(AX,AY,BX,BY,CY) \
  2634. +   ((BX)+((CY)-(BY))*((AX)-(BX))/(float)((AY)-(BY)))
  2635. + 
  2636.   static void EmitTrapezoid (left, right, top, bottom) struct edge *left, *right; int top, bottom;
  2637.    {
  2638.        struct edge *temp;
  2639. ***************
  2640. *** 286,320 ****
  2641.   
  2642.   ProcessEdges (rule_a, rule_b, emitfn) int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  2643.    {
  2644. !     struct edge *up_edge;
  2645. !     int i, count_a = 0, count_b = 0;
  2646. !     /* static void RemoveEdges (); (unused --jgm) */
  2647. !     
  2648. !     for (i = 0; i < ninteresting; i++)
  2649. !      {
  2650. !          /* static void Emit (); (unused --jgm) */
  2651. !          int d_a = 0, d_b = 0;
  2652. !          
  2653. !          if (interesting[i]->clip)
  2654. !              d_a = interesting[i]->dir;
  2655. !          else
  2656. !              d_b = interesting[i]->dir;
  2657.   
  2658. !          if (UpEdge (count_a, count_b, d_a, d_b, rule_a, rule_b))
  2659. !              up_edge = interesting[i];
  2660. !          else if (DownEdge (count_a, count_b, d_a, d_b, rule_a, rule_b))
  2661. !               ThisBit (up_edge, interesting[i], interestingY, emitfn);
  2662. !          else
  2663. !               NotThisBit (interesting[i], interestingY, emitfn);
  2664. !          
  2665. !          count_a += d_a;
  2666. !          count_b += d_b;
  2667. !      }
  2668. !     if (count_a || count_b)
  2669. !         fprintf (stderr, "count_a = %dcount_b = %d\n", count_a, count_b);
  2670. !     PanicIf (count_a || count_b, "something wrong in area fill");
  2671.    }
  2672.   
  2673.   ThisBit (left, right, where, emitfn) struct edge *left, *right; int where; void (*emitfn)();    
  2674.    {
  2675.        if (left->pair != right || right->up)
  2676. --- 337,379 ----
  2677.   
  2678.   ProcessEdges (rule_a, rule_b, emitfn) int (*rule_a)(), (*rule_b)(); void (*emitfn)();
  2679.    {
  2680. !     register struct edge **intp;
  2681. !         register struct edge *up_edge;
  2682. !     register int count_a = 0, count_b = 0;
  2683. !     register int i;
  2684.   
  2685. !     i = ninteresting;
  2686. !     intp = interesting;
  2687. !     while(i-- > 0) {
  2688. !       register int d_a = 0, d_b = 0;
  2689. ! 
  2690. !       if ((*intp)->clip)
  2691. !         d_a = (*intp)->dir;
  2692. !       else
  2693. !         d_b = (*intp)->dir;
  2694. ! 
  2695. !       if (UpEdge (count_a, count_b, d_a, d_b, rule_a, rule_b))
  2696. !         up_edge = *intp;
  2697. !       else if(DownEdge (count_a, count_b, d_a, d_b, rule_a, rule_b)){
  2698. !         ThisBit (up_edge,(*intp), interestingY, emitfn);
  2699. !       }
  2700. !       else {
  2701. !         NotThisBit ((*intp),interestingY,emitfn);
  2702. !       }
  2703. !       count_a += d_a;
  2704. !       count_b += d_b;
  2705. ! 
  2706. !       intp++;
  2707. !     }
  2708. ! 
  2709. !     if (count_a || count_b) {
  2710. !       fprintf (stderr, "count_a = %dcount_b = %d\n", count_a, count_b);
  2711. !       Panic("something wrong in area fill");
  2712. !     }
  2713.    }
  2714.   
  2715. + /* BZS - Open code */
  2716. + #ifndef ThisBit
  2717.   ThisBit (left, right, where, emitfn) struct edge *left, *right; int where; void (*emitfn)();    
  2718.    {
  2719.        if (left->pair != right || right->up)
  2720. ***************
  2721. *** 341,347 ****
  2722. --- 400,412 ----
  2723.        left->where = right->where = where;
  2724.        left->up = TRUE; right->up = FALSE;
  2725.    }
  2726. + #endif
  2727.   
  2728. + /*
  2729. +  * BZS - Open Code this, it can be called hundreds of thousands of times
  2730. +  * in even simple pictures. Mooreforms spend 50% of its time in this.
  2731. +  */
  2732. + #ifndef NotThisBit
  2733.   NotThisBit (edge, where, emitfn) struct edge *edge; int where; void (*emitfn)();    
  2734.    {
  2735.        if (edge->pair != NULL)
  2736. ***************
  2737. *** 355,364 ****
  2738.         edge->startingY = where;
  2739.        edge->where = where;
  2740.    }
  2741.   
  2742.   static void RemoveEdges (interestingY, emitfn) int interestingY; void (*emitfn)();
  2743.    {
  2744. !      int i, j = 0;
  2745.        
  2746.        for (i = 0; i < ninteresting; i++)
  2747.           if (interesting [i]->bottomY > interestingY)
  2748. --- 420,430 ----
  2749.         edge->startingY = where;
  2750.        edge->where = where;
  2751.    }
  2752. + #endif
  2753.   
  2754.   static void RemoveEdges (interestingY, emitfn) int interestingY; void (*emitfn)();
  2755.    {
  2756. !      register int i, j = 0;
  2757.        
  2758.        for (i = 0; i < ninteresting; i++)
  2759.           if (interesting [i]->bottomY > interestingY)
  2760. ***************
  2761. *** 368,385 ****
  2762.        ninteresting = j;
  2763.    }
  2764.   
  2765.   static int UpEdge (count_a, count_b, inc_a, inc_b, rule_a, rule_b) int count_a, count_b, inc_a, inc_b, (*rule_a) (), (*rule_b) ();
  2766.    {
  2767.        return (*rule_b)(count_b + inc_b) && !(*rule_a) (count_a) && (*rule_a) (count_a + inc_a) ||
  2768.            (*rule_a)(count_a + inc_a) && !(*rule_b) (count_b) && (*rule_b) (count_b + inc_b);
  2769.    }
  2770. ! 
  2771.   static int DownEdge (count_a, count_b, inc_a, inc_b, rule_a, rule_b) int count_a, count_b, inc_a, inc_b, (*rule_a) (), (*rule_b) ();
  2772.    {
  2773.        return (*rule_b)(count_b + inc_b) && (*rule_a) (count_a) && !(*rule_a) (count_a + inc_a) ||
  2774.            (*rule_a)(count_a + inc_a) && (*rule_b) (count_b) && !(*rule_b) (count_b + inc_b);
  2775.    }
  2776. ! 
  2777.   static int EoRule (n) int n;
  2778.    {
  2779.       return n & 1;
  2780. --- 434,453 ----
  2781.        ninteresting = j;
  2782.    }
  2783.   
  2784. + #ifndef UpEdge
  2785.   static int UpEdge (count_a, count_b, inc_a, inc_b, rule_a, rule_b) int count_a, count_b, inc_a, inc_b, (*rule_a) (), (*rule_b) ();
  2786.    {
  2787.        return (*rule_b)(count_b + inc_b) && !(*rule_a) (count_a) && (*rule_a) (count_a + inc_a) ||
  2788.            (*rule_a)(count_a + inc_a) && !(*rule_b) (count_b) && (*rule_b) (count_b + inc_b);
  2789.    }
  2790. ! #endif
  2791. ! #ifndef DownEdge
  2792.   static int DownEdge (count_a, count_b, inc_a, inc_b, rule_a, rule_b) int count_a, count_b, inc_a, inc_b, (*rule_a) (), (*rule_b) ();
  2793.    {
  2794.        return (*rule_b)(count_b + inc_b) && (*rule_a) (count_a) && !(*rule_a) (count_a + inc_a) ||
  2795.            (*rule_a)(count_a + inc_a) && (*rule_b) (count_b) && !(*rule_b) (count_b + inc_b);
  2796.    }
  2797. ! #endif
  2798.   static int EoRule (n) int n;
  2799.    {
  2800.       return n & 1;
  2801. ***************
  2802. *** 405,419 ****
  2803.       return num / denom;
  2804.    }
  2805.   
  2806.   static int Xvalue (ax, ay, bx, by, cy) int ax, ay, bx, by, cy;
  2807.    {
  2808.        return bx + (cy - by) * (ax - bx) / (float) (ay - by);
  2809.    }
  2810.   
  2811.   static int intercmp (aa, bb) char *aa, *bb;
  2812.    {
  2813. !      struct edge *a = *(struct edge **) aa, *b = *(struct edge **) bb;
  2814. !      int sign;
  2815.       
  2816.       sign = Xvalue (a->topX, a->topY, a->bottomX, a->bottomY, interestingY + 1) -
  2817.                Xvalue (b->topX, b->topY, b->bottomX, b->bottomY, interestingY + 1);
  2818. --- 473,489 ----
  2819.       return num / denom;
  2820.    }
  2821.   
  2822. + #ifndef Xvalue
  2823.   static int Xvalue (ax, ay, bx, by, cy) int ax, ay, bx, by, cy;
  2824.    {
  2825.        return bx + (cy - by) * (ax - bx) / (float) (ay - by);
  2826.    }
  2827. + #endif
  2828.   
  2829.   static int intercmp (aa, bb) char *aa, *bb;
  2830.    {
  2831. !    register struct edge *a = *(struct edge **) aa, *b = *(struct edge **) bb;
  2832. !    int sign;
  2833.       
  2834.       sign = Xvalue (a->topX, a->topY, a->bottomX, a->bottomY, interestingY + 1) -
  2835.                Xvalue (b->topX, b->topY, b->bottomX, b->bottomY, interestingY + 1);
  2836. ***************
  2837. *** 424,449 ****
  2838.   
  2839.   static void AddInteresting ()
  2840.    {
  2841. !     int i;
  2842.            
  2843.       nextY = infinity;
  2844.       for (; here < nedges && edge[here].topY <= interestingY; here++) /* look at each new interesting edge */
  2845.        {
  2846. !          int i, n;
  2847. !          
  2848. !         for (i = 0; i < ninteresting; i++) /* look at all possible intersections */
  2849.            {
  2850. !              int inter = Yintersect (&edge[here], interesting[i]);
  2851.                
  2852. !              if (inter >= interestingY && inter <= edge[here].bottomY && inter <= interesting[i]->bottomY)
  2853.                    AddLowest (inter);
  2854.            }
  2855.           n = ninteresting++;
  2856. !         interesting[n] = &edge[here];
  2857. !         interesting[n]->pair = NULL;
  2858. !         interesting[n]->up = FALSE;
  2859. !         interesting[n]->startingY = interesting[n]->where = edge[here].topY;
  2860. !         interesting[n]->name = names++;
  2861.        }
  2862.       i = NextLowest (interestingY);
  2863.       if (i)
  2864. --- 494,526 ----
  2865.   
  2866.   static void AddInteresting ()
  2867.    {
  2868. !     register int i;
  2869. !     register struct edge **intp;
  2870.            
  2871.       nextY = infinity;
  2872.       for (; here < nedges && edge[here].topY <= interestingY; here++) /* look at each new interesting edge */
  2873.        {
  2874. !          register int i, n;
  2875. ! 
  2876. !         i = ninteresting;
  2877. !         intp = interesting;
  2878. !         while(i-- > 0) /* look at all possible intersections */
  2879.            {
  2880. !              int inter = Yintersect (&edge[here], (*intp));
  2881.                
  2882. !              if (inter >= interestingY &&
  2883. !                 inter <= edge[here].bottomY &&
  2884. !                 inter <= (*intp)->bottomY)
  2885.                    AddLowest (inter);
  2886. +             intp++;
  2887.            }
  2888.           n = ninteresting++;
  2889. !         intp = &interesting[n];
  2890. !         *intp = &edge[here];
  2891. !         (*intp)->pair = NULL;
  2892. !         (*intp)->up = FALSE;
  2893. !         (*intp)->startingY = (*intp)->where = edge[here].topY;
  2894. !         (*intp)->name = names++;
  2895.        }
  2896.       i = NextLowest (interestingY);
  2897.       if (i)
  2898. ***************
  2899. *** 450,461 ****
  2900.           nextY = i;
  2901.       if (here != nedges && edge[here].topY < nextY)
  2902.           nextY = edge[here].topY;
  2903. !     for (i = 0; i < ninteresting; i++)
  2904. !      {
  2905. !         if (interesting[i]->topY > interestingY && interesting[i]->topY < nextY)
  2906. !             nextY = interesting[i]->topY;
  2907. !         if (interesting[i]->bottomY > interestingY && interesting[i]->bottomY < nextY)
  2908. !             nextY = interesting[i]->bottomY;
  2909.        }
  2910.       qsort ((char *) interesting, (unsigned) ninteresting, sizeof (struct edge *), intercmp);
  2911.    }
  2912. --- 527,541 ----
  2913.           nextY = i;
  2914.       if (here != nedges && edge[here].topY < nextY)
  2915.           nextY = edge[here].topY;
  2916. !     i = ninteresting;
  2917. !     intp = interesting;
  2918. !     while(i-- > 0)
  2919. !       {
  2920. !         if ((*intp)->topY > interestingY && (*intp)->topY < nextY)
  2921. !             nextY = (*intp)->topY;
  2922. !         if ((*intp)->bottomY > interestingY && (*intp)->bottomY < nextY)
  2923. !             nextY = (*intp)->bottomY;
  2924. !         intp++;
  2925.        }
  2926.       qsort ((char *) interesting, (unsigned) ninteresting, sizeof (struct edge *), intercmp);
  2927.    }
  2928. ***************
  2929. *** 462,468 ****
  2930.   
  2931.   static void FindInfinity ()
  2932.    {
  2933. !      int i;
  2934.        
  2935.       infinity = edge[0].topY;
  2936.       for (i = 0; i < nedges; i++)
  2937. --- 542,548 ----
  2938.   
  2939.   static void FindInfinity ()
  2940.    {
  2941. !      register int i;
  2942.        
  2943.       infinity = edge[0].topY;
  2944.       for (i = 0; i < nedges; i++)
  2945. ***************
  2946. *** 503,509 ****
  2947.   
  2948.   static void BuildEdgeList (path, clip) Path path; int clip;
  2949.    {
  2950. !      Path p;
  2951.        HardPoint move, here;
  2952.        
  2953.        for (p = path->next; p != path; p = p->next)
  2954. --- 583,589 ----
  2955.   
  2956.   static void BuildEdgeList (path, clip) Path path; int clip;
  2957.    {
  2958. !      register Path p;
  2959.        HardPoint move, here;
  2960.        
  2961.        for (p = path->next; p != path; p = p->next)
  2962. ***************
  2963. *** 533,539 ****
  2964.   static int NextLowest (y) int y;
  2965.    {
  2966.       int res;
  2967. !     struct lowest *p;
  2968.       
  2969.       for (p = lowest; p && p->e <= y; p = lowest)    /* delete any which are now irrelevent */
  2970.        {
  2971. --- 613,619 ----
  2972.   static int NextLowest (y) int y;
  2973.    {
  2974.       int res;
  2975. !     register struct lowest *p;
  2976.       
  2977.       for (p = lowest; p && p->e <= y; p = lowest)    /* delete any which are now irrelevent */
  2978.        {
  2979. ***************
  2980. *** 551,557 ****
  2981.   
  2982.   static void AddLowest (e) int e;
  2983.    {
  2984. !      struct lowest *res, *p, *q;
  2985.        
  2986.        for (p = lowest; p && p->e < e; q = p, p = p->higher)
  2987.            ;
  2988. --- 631,637 ----
  2989.   
  2990.   static void AddLowest (e) int e;
  2991.    {
  2992. !      register struct lowest *res, *p, *q;
  2993.        
  2994.        for (p = lowest; p && p->e < e; q = p, p = p->higher)
  2995.            ;
  2996. diff -cr /usr/tmp/ps/source/font.c ./source/font.c
  2997. *** /usr/tmp/ps/source/font.c    Thu Jul 28 14:02:59 1988
  2998. --- ./source/font.c    Wed Jul 27 12:02:18 1988
  2999. ***************
  3000. *** 362,372 ****
  3001.        else
  3002.            return NewVector (0.0, 0.0, 1.0);
  3003.    }
  3004. ! 
  3005.   static int BuildHershey (font, code) Object font, code;
  3006.    {
  3007.       Vector met;
  3008. !     Object *bbox, string, nm;
  3009.        unsigned char *s;
  3010.        Path p;
  3011.        int i, l;
  3012. --- 362,374 ----
  3013.        else
  3014.            return NewVector (0.0, 0.0, 1.0);
  3015.    }
  3016. ! /*
  3017. !  * BZS - some small changes to allow macrification of DictLoad()
  3018. !  */
  3019.   static int BuildHershey (font, code) Object font, code;
  3020.    {
  3021.       Vector met;
  3022. !     Object *bbox, string, nm, tmp;
  3023.        unsigned char *s;
  3024.        Path p;
  3025.        int i, l;
  3026. ***************
  3027. *** 373,381 ****
  3028. --- 375,391 ----
  3029.        
  3030.       bbox     = BodyArray (DictLoad (font, FontBBox));
  3031.       nm     = BodyArray (DictLoad (font, Encoding)) [BodyInteger (code)];
  3032. +     /*
  3033.       met     = GetMetrics (DictLoad (DictLoad (font, Metrics), nm));
  3034. +     */
  3035. +     tmp = DictLoad(font,Metrics);
  3036. +     met = GetMetrics(DictLoad(tmp,nm));
  3037.       met.vx -= 2; /* hershey bodge - they look better closer */
  3038. +     /*
  3039.       string     = DictLoad (DictLoad (font, CharStrings), nm);
  3040. +     */
  3041. +     tmp = DictLoad(font,CharStrings);
  3042. +     string = DictLoad(tmp,nm);
  3043.       
  3044.       SetCacheDevice (nm, NewPoint (met.vx, met.vy),
  3045.           BodyReal (bbox[0]), BodyReal (bbox[1]),
  3046. diff -cr /usr/tmp/ps/source/main.h ./source/main.h
  3047. *** /usr/tmp/ps/source/main.h    Thu Jul 28 13:53:36 1988
  3048. --- ./source/main.h    Wed Jul 27 12:02:21 1988
  3049. ***************
  3050. *** 166,170 ****
  3051. --- 166,176 ----
  3052.           ((getchbuf != EOF) ? getchbuf : ((BodyFile(file)->available = 0), Close (file), EOF))) \
  3053.       : GeneralGetch (file))
  3054.   
  3055. + /*
  3056. +  * BZS - macro-ify some things
  3057. +  */
  3058. + Object DictFind();
  3059. + #define DictLoad(DICT,KEY) DictFind((DICT.u.Dictionary)->dict_body,KEY,\
  3060. +                     (DICT.u.Dictionary)->dict_size)
  3061.   /* Next line --jgm */
  3062.   #define PanicIf(flag,s) do { if (flag) Panic(s); } while (0)
  3063. diff -cr /usr/tmp/ps/source/matrix.c ./source/matrix.c
  3064. *** /usr/tmp/ps/source/matrix.c    Thu Jul 28 14:03:05 1988
  3065. --- ./source/matrix.c    Wed Jul 27 12:02:22 1988
  3066. ***************
  3067. *** 393,400 ****
  3068.   HardPoint ExtToInt (p) Point p;
  3069.    {
  3070.       Vector v;
  3071. !     
  3072.       v = Transform (NewVector (p.x, p.y, 1.0), gstate->CTM);
  3073.       return NewHardPoint (v.vx, v.vy);
  3074.    }
  3075.   
  3076. --- 393,413 ----
  3077.   HardPoint ExtToInt (p) Point p;
  3078.    {
  3079.       Vector v;
  3080. !     register Vector *vp;
  3081. !     register Matrix *mp;
  3082. !     register Point *pp;
  3083. ! /*
  3084. !  * BZS - try open coding this
  3085. !  *    
  3086.       v = Transform (NewVector (p.x, p.y, 1.0), gstate->CTM);
  3087. +  */
  3088. +     mp = &gstate->CTM;
  3089. +     vp = &v;
  3090. +     pp = &p;
  3091. + 
  3092. +     vp->vx = pp->x * mp->A + pp->y * mp->C + mp->tx;
  3093. +     vp->vy = pp->x * mp->B + pp->y * mp->D + mp->ty;
  3094. + 
  3095.       return NewHardPoint (v.vx, v.vy);
  3096.    }
  3097.   
  3098. diff -cr /usr/tmp/ps/source/misc.c ./source/misc.c
  3099. No differences encountered
  3100. diff -cr /usr/tmp/ps/source/operator.c ./source/operator.c
  3101. *** /usr/tmp/ps/source/operator.c    Thu Jul 28 14:03:10 1988
  3102. --- ./source/operator.c    Wed Jul 27 12:02:23 1988
  3103. ***************
  3104. *** 203,212 ****
  3105.    *
  3106.    */
  3107.   
  3108.   int ExecOperator (item) Object item;
  3109.    {
  3110. !     struct op_struct *op = Body (item);
  3111. !     int i, res, (*fn)() = op->fn;
  3112.       Object arg[7];
  3113.       
  3114.       Self = NameOperator (item);
  3115. --- 203,216 ----
  3116.    *
  3117.    */
  3118.   
  3119. + /*
  3120. +  * BZS - try to speed up a little
  3121. +  */
  3122.   int ExecOperator (item) Object item;
  3123.    {
  3124. !     register struct op_struct *op = Body (item);
  3125. !     register int i, res;
  3126. !     int (*fn)() = op->fn;
  3127.       Object arg[7];
  3128.       
  3129.       Self = NameOperator (item);
  3130. ***************
  3131. *** 219,225 ****
  3132.           arg[i] = Pop (OpStack);
  3133.       for (i = op->arguments - 1; i >= 0; i--)
  3134.        {
  3135. !          Type formal = op->argtypes[i], actual = TypeOf (arg[i]);
  3136.            
  3137.            if (formal == Float && actual == Integer)
  3138.                 arg[i] = RealInteger (arg[i]);
  3139. --- 223,229 ----
  3140.           arg[i] = Pop (OpStack);
  3141.       for (i = op->arguments - 1; i >= 0; i--)
  3142.        {
  3143. !          register Type formal = op->argtypes[i], actual = TypeOf (arg[i]);
  3144.            
  3145.            if (formal == Float && actual == Integer)
  3146.                 arg[i] = RealInteger (arg[i]);
  3147. diff -cr /usr/tmp/ps/source/screen.c ./source/screen.c
  3148. *** /usr/tmp/ps/source/screen.c    Thu Jul 28 13:44:08 1988
  3149. --- ./source/screen.c    Sat Apr 30 18:44:06 1988
  3150. ***************
  3151. *** 55,61 ****
  3152.        struct hardware *shade;
  3153.    } *screen = NULL;
  3154.   
  3155. ! static int screen_size, screen_side;
  3156.   
  3157.   static int FreqSize (freq) float freq;
  3158.    {
  3159. --- 55,61 ----
  3160.        struct hardware *shade;
  3161.    } *screen = NULL;
  3162.   
  3163. ! static int screen_size /* , screen_side (unused --jgm) */;
  3164.   
  3165.   static int FreqSize (freq) float freq;
  3166.    {
  3167. ***************
  3168. *** 121,127 ****
  3169.             free ((char *) screen);
  3170.         }
  3171.        p = screen = (struct screen *) Malloc ((unsigned) (((screen_size = size * size) + 1) * sizeof (struct screen)));
  3172. !      screen_side = size;
  3173.        for (i = 0; i < size; i++)
  3174.            for (j = 0; j < size; j++)
  3175.             {
  3176. --- 121,127 ----
  3177.             free ((char *) screen);
  3178.         }
  3179.        p = screen = (struct screen *) Malloc ((unsigned) (((screen_size = size * size) + 1) * sizeof (struct screen)));
  3180. !      /* screen_side = size; (unused --jgm) */
  3181.        for (i = 0; i < size; i++)
  3182.            for (j = 0; j < size; j++)
  3183.             {
  3184. diff -cr /usr/tmp/ps/source/state.c ./source/state.c
  3185. *** /usr/tmp/ps/source/state.c    Thu Jul 28 14:03:20 1988
  3186. --- ./source/state.c    Sat Apr 30 16:47:57 1988
  3187. ***************
  3188. *** 123,128 ****
  3189. --- 123,133 ----
  3190.   
  3191.   static int CopyPage ()
  3192.    {
  3193. +         /* Begin jgm */
  3194. +         if (TypeOf(gstate->device->output_routine) != Null) {
  3195. +         Push(ExecStack, gstate->device->output_routine);
  3196. +     }
  3197. +     /* End jgm */
  3198.        return TRUE;
  3199.    }
  3200.   
  3201. diff -cr /usr/tmp/ps/source/stroke.c ./source/stroke.c
  3202. *** /usr/tmp/ps/source/stroke.c    Thu Jul 28 13:48:04 1988
  3203. --- ./source/stroke.c    Sat Apr 30 18:26:27 1988
  3204. ***************
  3205. *** 358,364 ****
  3206.   int PStrokePath ()
  3207.    {
  3208.        Path p, new = NewPath ();
  3209. !      HardPoint prev, here, move;
  3210.        enum pelem_type last_type = EHeader;
  3211.        float angle, last_angle, width = gstate->line_width;
  3212.        
  3213. --- 358,364 ----
  3214.   int PStrokePath ()
  3215.    {
  3216.        Path p, new = NewPath ();
  3217. !      HardPoint /* prev, (unused --jgm) */ here, move;
  3218.        enum pelem_type last_type = EHeader;
  3219.        float angle, last_angle, width = gstate->line_width;
  3220.        
  3221. ***************
  3222. *** 370,376 ****
  3223.            switch (p->ptype)
  3224.             {
  3225.                  case EMove:
  3226. !                  prev = here;
  3227.                    move = here = p->pe.point;
  3228.                    break;
  3229.                    
  3230. --- 370,376 ----
  3231.            switch (p->ptype)
  3232.             {
  3233.                  case EMove:
  3234. !                  /* prev = here; (unused --jgm) */
  3235.                    move = here = p->pe.point;
  3236.                    break;
  3237.                    
  3238. ***************
  3239. *** 378,384 ****
  3240.                      if (last_type == EMove)
  3241.                          break;
  3242.                   angle = LineSegment (p, new, IntToExt (here), IntToExt (move), width, last_angle, last_type);
  3243. !                  prev = here;
  3244.                    here = move;
  3245.                    last_type = EHeader;
  3246.                    break;
  3247. --- 378,384 ----
  3248.                      if (last_type == EMove)
  3249.                          break;
  3250.                   angle = LineSegment (p, new, IntToExt (here), IntToExt (move), width, last_angle, last_type);
  3251. !                  /* prev = here; (unused --jgm) */
  3252.                    here = move;
  3253.                    last_type = EHeader;
  3254.                    break;
  3255. ***************
  3256. *** 385,391 ****
  3257.                    
  3258.                  case ELine:
  3259.                   angle = LineSegment (p, new, IntToExt (here), IntToExt (p->pe.point), width, last_angle, last_type);
  3260. !                  prev = here;
  3261.                    here = p->pe.point;
  3262.                      break;
  3263.                      
  3264. --- 385,391 ----
  3265.                    
  3266.                  case ELine:
  3267.                   angle = LineSegment (p, new, IntToExt (here), IntToExt (p->pe.point), width, last_angle, last_type);
  3268. !                  /* prev = here; (unused --jgm) */
  3269.                    here = p->pe.point;
  3270.                      break;
  3271.                      
  3272. *** /dev/null    Thu Jul 28 10:26:48 1988
  3273. --- wwinfo.h    Thu Jul 28 14:36:37 1988
  3274. ***************
  3275. *** 0 ****
  3276. --- 1,14 ----
  3277. + Now that I've gotten your attention...
  3278. + 
  3279. + If your system doesn't have the wwinfo.h file, that probably means
  3280. + that you don't have the ww window manager, which is rumored to be
  3281. + available only to academic sites in the U.K.  In that case, a version
  3282. + of the Postscript Interpreter compiled to produce output for ww
  3283. + is probably worthless to you.
  3284. + 
  3285. + Please examine the file source/makefile and select a version that is
  3286. + appropriate for you--possible choices include "sunPS", "XPS", and
  3287. + "xps".
  3288. + 
  3289. +                 _.John G. Myers
  3290. + 
  3291.