home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_frsd.ps < prev    next >
Text File  |  2000-12-05  |  3KB  |  85 lines
  1. %    Copyright (C) 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_frsd.ps,v 1.4 2000/09/19 18:29:11 lpd Exp $
  19. % Implementation of ReusableStreamDecode filter.
  20. % This file must be loaded after gs_lev2.ps and gs_res.ps.
  21.  
  22. level2dict begin
  23.  
  24. % ------ ReusableStreamDecode filter ------ %
  25.  
  26. /.reusablestreamdecode {    % <source> <dict> .reusablestreamdecode <file>
  27.                 % <source> .reusablestreamdecode <file>
  28.         % Collect the filter parameters.
  29.   dup type /dicttype eq { 2 copy } { dup 0 dict } ifelse
  30.   dup .rsdparams
  31.         % Construct the filter pipeline.
  32.         % The very first filter should use the value of CloseSource
  33.         % from the RSD dictionary; all the others should have
  34.         % CloseSource = true.
  35.         % Stack: source dict filters parms
  36.   2 index /CloseSource .knownget not { false } if 5 -1 roll
  37.         % Stack: dict filters parms CloseSource source
  38.   0 1 5 index length 1 sub {
  39.     4 index 1 index get
  40.         % Stack: dict filters parms CloseSource source index filtname
  41.     4 index null eq {
  42.       0 dict
  43.     } {
  44.       4 index 2 index get dup null eq { pop } if
  45.     } ifelse
  46.     3 -1 roll pop exch filter
  47.     exch pop true exch        % set CloseSource for further filters
  48.   } for
  49.         % If AsyncRead is true, try to create the filter directly.
  50.         % Stack: dict filters parms CloseSource source
  51.   4 index /AsyncRead .knownget not { false } if {
  52.     1 index { .reusablestream } .internalstopped
  53.   } {
  54.     null true
  55.   } ifelse {
  56.     pop
  57.         % No luck.  Read the entire contents of the stream now.
  58.     dup type /filetype ne {
  59.         % Make a stream from a procedure or string data source.
  60.       0 () .subfiledecode
  61.     } if
  62.     10 dict exch {
  63.         % Stack: dict filters parms CloseSource contdict file
  64.       dup 1000 string readstring
  65.       3 index dup length 4 -1 roll put not { exit } if
  66.     } loop pop
  67.         % Concatenate the contents into one big string.
  68.         % Stack: dict filters parms CloseSource contdict
  69.     0 1 index { length exch pop add } forall
  70.     .bigstring exch {
  71.         % Stack: dict filters parms CloseSource string index substring
  72.       exch 1000 mul exch 2 index 3 1 roll putinterval
  73.     } forall
  74.         % Now create the stream on the string.
  75.     1 index .reusablestream
  76.   } if
  77.         % We created the stream successfully: clean up.
  78.   4 { exch pop } repeat
  79.   1 index type /dicttype eq { exch pop } if exch pop
  80. } odef
  81.  
  82. filterdict /ReusableStreamDecode /.reusablestreamdecode load put
  83.  
  84. end            % level2dict
  85.