[gs-cvs] rev 7547 - in trunk/gs: doc lib

[alexcher at ghostscript.com]

Author: alexcher
Date: 2007-01-01 20:58:50 -0800 (Mon, 01 Jan 2007)
New Revision: 7547

Modified:
   trunk/gs/doc/pscet_status.txt
   trunk/gs/lib/gs_dps2.ps
   trunk/gs/lib/gs_lev2.ps
Log:
Implement setucacheparams, ucachestatus using MaxUPathItem user parameter
to match CET 27-05-02. The test results mow match Tek 360 hard copy.

DIFFERENCES:
None.


Modified: trunk/gs/doc/pscet_status.txt
===================================================================
--- trunk/gs/doc/pscet_status.txt	2007-01-01 10:13:59 UTC (rev 7546)
+++ trunk/gs/doc/pscet_status.txt	2007-01-02 04:58:50 UTC (rev 7547)
@@ -2835,7 +2835,9 @@
 
 13-03-3  OK	Minor differences visually reviewed by RJJ
 
-13-03-4  DIFF	GS error inconformity. assign: Alex
+13-03-4  DIFF	GS error inconformity.
+                {{/a /b add } (abc) cshow} stopped
+                returns only true on the stack. assign: Alex
 
 13-03-5  OK	Minor differences visually reviewed by RJJ
 
@@ -4671,14 +4673,17 @@
 27-05-1  DIFF	Inconforming currentuserparams. Analyzed by Igor.
 		Igor assigns this to Ray for further analyzis.
 
-27-05-2  DIFF	memo36 - setvmthreshold; cash18 ucachestatus;
+27-05-2  OK  	memo36 - setvmthreshold; cash18 ucachestatus;
 		Igor assigns this to Ray for further analyzis.
 		more15 - same as currentstrokeadjust in 09-49D-3
                 peter writes:
                 These CET files will not run on my 64-bit build (they expect to be able to
                 'cvs' any integer into a 12-character string), and I don't seem to be able
                 to get gcc to produce 32-bit output, even with Ralph's help.  Please
-                reassign these files.  Assign Alex.
+                reassign these files.
+                -
+                After implementing setucacheparams, ucachestatus using MaxUPathItem user
+                parameter the test results match Tek 360 hard copy. - Alex
 
 27-06-1  OK  	Fixed in rev. 7157 - Alex.
 

Modified: trunk/gs/lib/gs_dps2.ps
===================================================================
--- trunk/gs/lib/gs_dps2.ps	2007-01-01 10:13:59 UTC (rev 7546)
+++ trunk/gs/lib/gs_dps2.ps	2007-01-02 04:58:50 UTC (rev 7547)
@@ -234,12 +234,13 @@
 % Dummy definitions for cache control operators
 
 /ucachestatus {			% - ucachestatus -mark- ? ? ? ? <size>
-	mark 0 0 0 0 .userdict /.ucachesize .knownget not { 0 } if
+	mark 0 0 0 0 /MaxUPathItem getuserparam
 } odef
 /setucacheparams {		% -mark- ... <size> setucacheparams -
 		% Provoke an appropriate error if needed.
 	counttomark 1 lt { () 0 get } if
-	0 or .userdict /.ucachesize 2 index 0 .max put cleartomark
+	dup 0 or /MaxUPathItem getuserparam .max
+        1 dict dup /MaxUPathItem 4 -1 roll put setuserparams cleartomark
 } odef
 
 end				% level2dict

Modified: trunk/gs/lib/gs_lev2.ps
===================================================================
--- trunk/gs/lib/gs_lev2.ps	2007-01-01 10:13:59 UTC (rev 7546)
+++ trunk/gs/lib/gs_lev2.ps	2007-01-02 04:58:50 UTC (rev 7547)
@@ -270,7 +270,7 @@
   /MaxFormItem 100000 .definepsuserparam
   /MaxPatternItem 20000 .definepsuserparam
   /MaxScreenItem 48000 .definepsuserparam
-  /MaxUPathItem 5000 .definepsuserparam
+  /MaxUPathItem 0 .definepsuserparam
 
 % File Access Permission parameters
   .currentglobal true .setglobal