Import sources from 2011-03-30 iso image - sys/lib

1 files changed, 156 insertions, 0 deletions

diff --git a/sys/lib/ghostscript/gs_resst.ps b/sys/lib/ghostscript/gs_resst.ps
new file mode 100755
index 000000000..e947dc704
--- /dev/null
+++ b/sys/lib/ghostscript/gs_resst.ps
@@ -0,0 +1,156 @@
+%    Copyright (C) 2000 artofcode LLC.  All rights reserved.
+% 
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% 
+% This software is distributed under license and may not be copied,
+% modified or distributed except as expressly authorized under the terms
+% of the license contained in the file LICENSE in this distribution.
+% 
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+% San Rafael, CA  94903, U.S.A., +1(415)492-9861.
+
+% $Id: gs_resst.ps,v 1.3 2003/08/08 18:45:05 ray Exp $
+% Redefine generic category with static resource table.
+
+languagelevel 2 .setlanguagelevel
+
+15 dict begin    % a temporary dictionary for local binding.
+
+/sep (/) def %  The %static%  device uses platform independent paths.
+
+/tempstring 8192 string def
+
+/IsMyRecord      % <raw_record> IsMyRecord <raw_record> bool
+{ dup type /dicttype eq { dup /StaticFilePos known } { false } ifelse
+} bind def
+
+/append_string    % <scratch> <index> <string> append_string <scratch> <index> 
+{
+   dup length 3 index 3 index 2 index getinterval   % (scratch) index (string) l (scr_substr)
+   3 2 roll exch copy pop add                       % (scratch) index'
+} bind def
+
+/StaticResourceRecordVirtualMethods 4 dict begin
+
+  /GetFilePath    % <scratch> <Name> <record> GetFilePath <filepath>
+  { pop exch                                                % /Name (scratch)
+    (%static%) dup length exch 2 index copy pop             % /Name (scratch) l
+    //sep //append_string exec                              % /Name (scratch) l
+    Category //tempstring cvs //append_string exec          % /Name (scratch) l
+    //sep //append_string exec                              % /Name (scratch) l
+    3 2 roll //tempstring cvs                               % (scratch) l (Name)
+    //append_string exec                                    % (scratch) l
+    0 exch getinterval                                      % (path)
+  } bind def
+
+  /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
+  {
+    begin
+      STRESDEBUG { (Loading a static resource ) print dup = } if
+      8192 string 2 index 2 index //GetFilePath exec
+      (r) file run
+      STRESDEBUG { (Completed loading the static resource ) print dup = } if
+      StaticFileEnd StaticFilePos sub
+    end
+    1 index Category findresource
+    exch
+  } bind def
+
+  /GetSize        % <Name> <record> GetSize <size>
+  {
+    % WARNING : this retrives file sise rather than VM size
+    begin
+    pop
+    StaticFileEnd StaticFilePos sub
+    end
+  } bind def
+
+  /IsActive       % <record> IsActive <bool>
+  { pop true
+  } bind def
+
+currentdict end def
+
+mark
+/MappedCategoryRedefiner /ProcSet findresource begin
+
+/.StaticResourcesBeg % <end_string> <no_of_resources> <category_name> .StaticResourcesBeg <category_name>
+%     Puts .map dictionary to dstack.
+{
+  STRESDEBUG { (Starting static resources for category ) print dup = } if
+  dup /Category resourcestatus {
+    pop pop exch dict begin exch pop
+  } {
+    STRESDEBUG { (Skipping the resources because the category isn't defined.) = } if
+    pop pop .skipeof
+  } ifelse
+} bind
+
+/.StaticResourcesEnd % <category_name> .StaticResourcesEnd -
+%     Removes .map dictionary from dstack.
+{
+  STRESDEBUG { (Completting static resources for category ) print dup = } if
+  currentdict end dup                                      % /CatName <map> <map>
+  systemdict /.io_static_root .knownget not {
+    10 dict                                                % /CatName <map> <map> <dir>
+    % Save it for garbager and for debug purpose :
+    dup systemdict exch /.io_static_root exch put          % /CatName <map> <map> <dir>
+    dup .setup_io_static                                   % /CatName <map> <map> <dir>
+  } if                                                     % /CatName <map> <map> <dir>
+  exch 3 index exch put                                    % /CatName <map>
+  14 dict begin
+    /.map exch def                                         % /CatName
+    /CategoryName exch def                                 %
+    /IsMapFileOptional true def
+    /VerifyMap  { pop } bind def
+    /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
+    { //IsMyRecord exec dup {
+        pop dup /RecordVirtualMethods //StaticResourceRecordVirtualMethods put
+        true
+      } if
+    } bind def
+  currentdict end
+  //Redefine exec
+} bind
+
+end  % MappedCategoryRedefiner
+end  % the temporary dictionary for local binding.
+
+/.BeginResource  % <instance_name> BeginResource <instance_name> 
+%     Puts a record dictionary to dstack.
+{
+  STRESDEBUG { (Static resource ) print dup =string cvs print } if
+  currentfile fileposition
+  currentfile =string readline pop dup length 0 exch 10 .min getinterval (%% Replace) ne {
+    % We are in COMPILE_INITS=1 .
+    4 dict begin
+    /StaticFilePos exch def    
+  } {
+    % We are in COMPILE_INITS=0 .
+    pop
+  } ifelse
+  (%END_RESOURCE) .skipeof
+} bind
+
+/.EndResource  % <instance_name> EndResource -
+%     Removes a record dictionary from dstack.
+{
+  currentdict /StaticFilePos known {
+    /StaticFileEnd currentfile fileposition
+    (.EndResource) length sub
+    def
+    STRESDEBUG { ( from position ) print StaticFilePos =string cvs print ( to position ) print StaticFileEnd = } if
+    currentdict end def
+  } {
+    pop
+    STRESDEBUG { ( ignored with COMPILE_INITS=0. ) = } if
+  } ifelse
+} bind
+
+.dicttomark /StaticCategoryRedefiner exch /ProcSet defineresource pop
+
+.setlanguagelevel