home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume12 / postscript / ps.diff.v1 < prev    next >
Encoding:
Text File  |  1989-02-16  |  19.8 KB  |  680 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.