blob: 10593579bf32d26da68a995438bbe6023266b965 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
% Copyright (C) 2000 Aladdin Enterprises. All rights reserved.
%
% This program is free software; you can redistribute it and/or modify it
% under the terms of the GNU General Public License as published by the
% Free Software Foundation; either version 2 of the License, or (at your
% option) any later version.
%
% This program is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
% Public License for more details.
%
% You should have received a copy of the GNU General Public License along
% with this program; if not, write to the Free Software Foundation, Inc.,
% 59 Temple Place, Suite 330, Boston, MA, 02111-1307.
% $Id: gs_frsd.ps,v 1.4.6.1.2.1 2003/04/12 14:02:38 giles Exp $
% Implementation of ReusableStreamDecode filter.
% This file must be loaded after gs_lev2.ps and gs_res.ps.
level2dict begin
% ------ ReusableStreamDecode filter ------ %
/.reusablestreamdecode { % <source> <dict> .reusablestreamdecode <file>
% <source> .reusablestreamdecode <file>
% Collect the filter parameters.
dup type /dicttype eq { 2 copy } { dup 0 dict } ifelse
dup .rsdparams
% Construct the filter pipeline.
% The very first filter should use the value of CloseSource
% from the RSD dictionary; all the others should have
% CloseSource = true.
% Stack: source dict filters parms
2 index /CloseSource .knownget not { false } if 5 -1 roll
% Stack: dict filters parms CloseSource source
0 1 5 index length 1 sub {
4 index 1 index get
% Stack: dict filters parms CloseSource source index filtname
4 index null eq {
0 dict
} {
4 index 2 index get dup null eq { pop } if
} ifelse
3 -1 roll pop exch filter
exch pop true exch % set CloseSource for further filters
} for
% If AsyncRead is true, try to create the filter directly.
% Stack: dict filters parms CloseSource source
4 index /AsyncRead .knownget not { false } if {
1 index { .reusablestream } .internalstopped
} {
null true
} ifelse {
pop
% No luck. Read the entire contents of the stream now.
dup type /filetype ne {
% Make a stream from a procedure or string data source.
0 () .subfiledecode
} if
10 dict exch {
% Stack: dict filters parms CloseSource contdict file
dup 1000 string readstring
3 index dup length 4 -1 roll put not { exit } if
} loop pop
% Concatenate the contents into one big string.
% Stack: dict filters parms CloseSource contdict
0 1 index { length exch pop add } forall
.bigstring exch {
% Stack: dict filters parms CloseSource string index substring
exch 1000 mul exch 2 index 3 1 roll putinterval
} forall
% Now create the stream on the string.
1 index .reusablestream
} if
% We created the stream successfully: clean up.
4 { exch pop } repeat
1 index type /dicttype eq { exch pop } if exch pop
} odef
filterdict /ReusableStreamDecode /.reusablestreamdecode load put
end % level2dict
|