| blob | a08997200ff13a50f154735079635314c2c84b63 |
1 %!PS-Adobe-2.0
2 statusdict /setduplexmode known {
3 false statusdict /setduplexmode get exec
4 } if
5 /Ps 8 def
6 /SPs 6 def
7 /Lh 15 def
8 /Rm 575 def
9 /Tm 746 def
10 /Bh 13 def
11 /Bf 13 def
12 /CF /Courier findfont Ps scalefont def
13 /IF /Courier-Oblique findfont Ps scalefont def
14 /BF /Courier-Bold findfont Ps scalefont def
15 /CFs /Courier findfont SPs scalefont def
16 /IFs /Courier-Oblique findfont SPs scalefont def
17 /BFs /Courier-Bold findfont SPs scalefont def
18 /HF /Helvetica findfont Ps scalefont def
19 /Li CFs setfont (1234567890) stringwidth pop def
20 /Nl { /Vpos Vpos Lh sub def } def
21 /Lpt { 0 Vpos moveto } def
22 /Gb {
23 } def
24 /Ip { Gb .5 setlinewidth
25 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath
26 gsave .98 setgray fill grestore stroke
27 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath
28 gsave .98 setgray fill grestore stroke
29 0 Bf moveto 0 Tm Bh sub lineto stroke newpath
30 } def
31 /Cp { Ip .3 setlinewidth newpath
32 Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath
33 } def
34 /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def
35 /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def
36 /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def
37 <</PageSize [605 806]>> setpagedevice
38 %%Page: Cover 1
39 70 70 moveto
40 /Helvetica findfont 10 scalefont setfont
41 (Trueprint 3.6.5) show
42 70 725 moveto
43 /Helvetica-Bold findfont 20 scalefont setfont
44 (For: testuser) show
45 70 700 moveto
46 (Printed on: Fri Apr 16 03:00:00 1982) show
47 70 675 moveto
48 (Last page number: 6) show
49 70 650 moveto (File: test1.c) show
50 70 625 moveto (File: test3) show
51 showpage
52 %%Page: 1 2
53 15 30 translate
54 Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def
55 Ps Ypos moveto
56 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto
57 (Page 1) show
58 exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto
59 (Function Index) show
60 HF setfont /Ypos Ps 2 div def
61 Ps Ypos moveto
62 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto
63 (Page 1) show
64 exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto
65 (Function Index) show
66 CF setfont /Vpos Tm Bh sub Ps sub def
67 Lpt( closepipe 3 (test1.c)
68 ) show Nl
69 Lpt( fclosepipe..................3 (test1.c)) show Nl
70 Lpt( fopenpipe 3 (test1.c)
71 ) show Nl
72 Lpt( openpipe....................1 (test1.c)) show Nl
73 showpage
74 %%Page: 2 3
75 15 30 translate
76 Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def
77 Ps Ypos moveto
78 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto
79 (Page 1) show
80 exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto
81 (File Index) show
82 HF setfont /Ypos Ps 2 div def
83 Ps Ypos moveto
84 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto
85 (Page 1) show
86 exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto
87 (File Index) show
88 CF setfont /Vpos Tm Bh sub Ps sub def
89 Lpt( test1.c 1) BF setfont show CF setfont Nl
90 Lpt( closepipe...................3) show Nl
91 Lpt( fclosepipe 3) show Nl
92 Lpt( fopenpipe...................3) show Nl
93 Lpt( openpipe 1) show Nl
94 Lpt( test3 4) BF setfont show CF setfont Nl
95 showpage
96 %%Page: 3 4
97 15 30 translate
98 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
99 Ps Ypos moveto
100 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto
101 (Page 1 of 6) show
102 exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto
103 (openpipe) show
104 HF setfont /Ypos Ps 2 div def
105 Ps Ypos moveto
106 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto
107 (Page 1 of 6) show
108 exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto
109 (test1.c 1) show
110 /Vpos Tm Bh sub Ps sub def
111 Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl
112 Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl
113 Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl
114 Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl
115 Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl
116 Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl
117 Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl
118 Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl
119 Lpt CFs setfont ( ) show () IF setfont show Nl
120 Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl
121 Lpt CFs setfont ( ) show () CF setfont show Nl
122 Lpt CFs setfont ( 12 ) show (#include <errno.h>) CF setfont show Nl
123 Lpt CFs setfont ( 13 ) show (#include <stdio.h>) CF setfont show Nl
124 Lpt CFs setfont ( 14 ) show (#include <stdlib.h>) CF setfont show Nl
125 Lpt CFs setfont ( 15 ) show (#include <string.h>) CF setfont show Nl
126 Lpt CFs setfont ( 16 ) show (#include <sys/types.h>) CF setfont show Nl
127 Lpt CFs setfont ( 17 ) show (#include <sys/wait.h>) CF setfont show Nl
128 Lpt CFs setfont ( ) show () CF setfont show Nl
129 Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl
130 Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl
131 Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl
132 Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl
133 Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl
134 Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl
135 Lpt CFs setfont ( 25 ) show (#include <unistd.h>) CF setfont show Nl
136 Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl
137 Lpt CFs setfont ( ) show () CF setfont show Nl
138 Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl
139 Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl
140 Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl
141 Lpt CFs setfont ( ) show () CF setfont show Nl
142 Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl
143 Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl
144 Lpt CFs setfont ( ) show () BF setfont show Nl
145 Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl
146 Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl
147 Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl
148 Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl
149 Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl
150 Lpt CFs setfont ( ) show () CF setfont show Nl
151 Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl
152 Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl
153 Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl
154 Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl
155 Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl
156 showpage
157 %%Page: 4 5
158 15 30 translate
159 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
160 Ps Ypos moveto
161 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto
162 (Page 2 of 6) show
163 exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto
164 (openpipe) show
165 HF setfont /Ypos Ps 2 div def
166 Ps Ypos moveto
167 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto
168 (Page 2 of 6) show
169 exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto
170 (test1.c 2) show
171 /Vpos Tm Bh sub Ps sub def
172 Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl
173 Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl
174 Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl
175 Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl
176 Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl
177 Lpt CFs setfont ( ) show () CF setfont show Nl
178 Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl
179 Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl
180 Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl
181 Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl
182 Lpt CFs setfont ( ) show () CF setfont show Nl
183 Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl
184 Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl
185 Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl
186 Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl
187 Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl
188 Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl
189 Lpt CFs setfont ( ) show () CF setfont show Nl
190 Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl
191 Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl
192 Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl
193 Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl
194 Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl
195 Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl
196 Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl
197 Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl
198 Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl
199 Lpt CFs setfont ( ) show () CF setfont show Nl
200 Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl
201 Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl
202 Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl
203 Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl
204 Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl
205 Lpt CFs setfont ( ) show () CF setfont show Nl
206 Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl
207 Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl
208 Lpt CFs setfont ( ) show () CF setfont show Nl
209 Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl
210 Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl
211 Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl
212 Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl
213 Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl
214 Lpt CFs setfont ( ) show () CF setfont show Nl
215 Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl
216 Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl
217 showpage
218 %%Page: 5 6
219 15 30 translate
220 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
221 Ps Ypos moveto
222 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto
223 (Page 3 of 6) show
224 exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto
225 (openpipe) show
226 HF setfont /Ypos Ps 2 div def
227 Ps Ypos moveto
228 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto
229 (Page 3 of 6) show
230 exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto
231 (test1.c 3) show
232 /Vpos Tm Bh sub Ps sub def
233 Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl
234 Lpt CFs setfont ( ) show () CF setfont show Nl
235 Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl
236 Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl
237 Lpt CFs setfont ( ) show () BF setfont show Nl
238 Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl
239 Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl
240 Lpt CFs setfont ( ) show () CF setfont show Nl
241 Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl
242 Lpt CFs setfont ( ) show () CF setfont show Nl
243 Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl
244 Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl
245 Lpt CFs setfont ( ) show () CF setfont show Nl
246 Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl
247 Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl
248 Lpt CFs setfont ( ) show () BF setfont show Nl
249 Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl
250 Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl
251 Lpt CFs setfont ( ) show () CF setfont show Nl
252 Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl
253 Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl
254 Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl
255 Lpt CFs setfont ( ) show () CF setfont show Nl
256 Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl
257 Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl
258 Lpt CFs setfont ( ) show () BF setfont show Nl
259 Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl
260 Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl
261 Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl
262 showpage
263 %%Page: 6 7
264 15 30 translate
265 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
266 Ps Ypos moveto
267 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto
268 (Page 4 of 6) show
269 exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto
270 () show
271 HF setfont /Ypos Ps 2 div def
272 Ps Ypos moveto
273 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto
274 (Page 4 of 6) show
275 exch sub 2 div add (test3 1) stringwidth pop 2 div sub Ypos moveto
276 (test3 1) show
277 /Vpos Tm Bh sub Ps sub def
278 Lpt CFs setfont ( 1 ) show (/*) CF setfont show Nl
279 Lpt CFs setfont ( 2 ) show ( * Source file:) CF setfont show Nl
280 Lpt CFs setfont ( 3 ) show ( * openpipe.c) CF setfont show Nl
281 Lpt CFs setfont ( 4 ) show ( *) CF setfont show Nl
282 Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl
283 Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl
284 Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl
285 Lpt CFs setfont ( 8 ) show ( */) CF setfont show Nl
286 Lpt CFs setfont ( ) show () CF setfont show Nl
287 Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl
288 Lpt CFs setfont ( ) show () CF setfont show Nl
289 Lpt CFs setfont ( 12 ) show (#include <errno.h>) CF setfont show Nl
290 Lpt CFs setfont ( 13 ) show (#include <stdio.h>) CF setfont show Nl
291 Lpt CFs setfont ( 14 ) show (#include <stdlib.h>) CF setfont show Nl
292 Lpt CFs setfont ( 15 ) show (#include <string.h>) CF setfont show Nl
293 Lpt CFs setfont ( 16 ) show (#include <sys/types.h>) CF setfont show Nl
294 Lpt CFs setfont ( 17 ) show (#include <sys/wait.h>) CF setfont show Nl
295 Lpt CFs setfont ( ) show () CF setfont show Nl
296 Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl
297 Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl
298 Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl
299 Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl
300 Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl
301 Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl
302 Lpt CFs setfont ( 25 ) show (#include <unistd.h>) CF setfont show Nl
303 Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl
304 Lpt CFs setfont ( ) show () CF setfont show Nl
305 Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl
306 Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl
307 Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl
308 Lpt CFs setfont ( ) show () CF setfont show Nl
309 Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl
310 Lpt CFs setfont ( 33 ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl
311 Lpt CFs setfont ( ) show () CF setfont show Nl
312 Lpt CFs setfont ( 35 ) show ({) CF setfont show Nl
313 Lpt CFs setfont ( 36 ) show ( int fildes[2];) CF setfont show Nl
314 Lpt CFs setfont ( 37 ) show ( int parent_pipe_end;) CF setfont show Nl
315 Lpt CFs setfont ( 38 ) show ( int child_pipe_end;) CF setfont show Nl
316 Lpt CFs setfont ( 39 ) show ( char *child_pipe_mode;) CF setfont show Nl
317 Lpt CFs setfont ( ) show () CF setfont show Nl
318 Lpt CFs setfont ( 41 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl
319 Lpt CFs setfont ( 42 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl
320 Lpt CFs setfont ( 43 ) show ( child_pipe_mode = "read";) CF setfont show Nl
321 Lpt CFs setfont ( 44 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl
322 Lpt CFs setfont ( 45 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl
323 showpage
324 %%Page: 7 8
325 15 30 translate
326 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
327 Ps Ypos moveto
328 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto
329 (Page 5 of 6) show
330 exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto
331 () show
332 HF setfont /Ypos Ps 2 div def
333 Ps Ypos moveto
334 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto
335 (Page 5 of 6) show
336 exch sub 2 div add (test3 2) stringwidth pop 2 div sub Ypos moveto
337 (test3 2) show
338 /Vpos Tm Bh sub Ps sub def
339 Lpt CFs setfont ( 46 ) show ( child_pipe_mode = "write";) CF setfont show Nl
340 Lpt CFs setfont ( 47 ) show ( } else {) CF setfont show Nl
341 Lpt CFs setfont ( 48 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl
342 Lpt CFs setfont ( 49 ) show ( exit\(2\);) CF setfont show Nl
343 Lpt CFs setfont ( 50 ) show ( }) CF setfont show Nl
344 Lpt CFs setfont ( ) show () CF setfont show Nl
345 Lpt CFs setfont ( 52 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl
346 Lpt CFs setfont ( 53 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl
347 Lpt CFs setfont ( 54 ) show ( exit\(2\);) CF setfont show Nl
348 Lpt CFs setfont ( 55 ) show ( }) CF setfont show Nl
349 Lpt CFs setfont ( ) show () CF setfont show Nl
350 Lpt CFs setfont ( 57 ) show ( switch \(fork\(\)\) {) CF setfont show Nl
351 Lpt CFs setfont ( 58 ) show ( case -1:) CF setfont show Nl
352 Lpt CFs setfont ( 59 ) show ( /* Error */) CF setfont show Nl
353 Lpt CFs setfont ( 60 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl
354 Lpt CFs setfont ( 61 ) show ( exit\(2\);) CF setfont show Nl
355 Lpt CFs setfont ( 62 ) show ( /*NOTREACHED*/) CF setfont show Nl
356 Lpt CFs setfont ( ) show () CF setfont show Nl
357 Lpt CFs setfont ( 64 ) show ( case 0:) CF setfont show Nl
358 Lpt CFs setfont ( 65 ) show ( /* Child process */) CF setfont show Nl
359 Lpt CFs setfont ( 66 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl
360 Lpt CFs setfont ( 67 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl
361 Lpt CFs setfont ( 68 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl
362 Lpt CFs setfont ( 69 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl
363 Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl
364 Lpt CFs setfont ( 70 ) show ( exit\(2\);) CF setfont show Nl
365 Lpt CFs setfont ( 71 ) show ( }) CF setfont show Nl
366 Lpt CFs setfont ( ) show () CF setfont show Nl
367 Lpt CFs setfont ( 73 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl
368 Lpt CFs setfont ( 74 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl
369 Lpt CFs setfont ( 75 ) show ( exit\(2\);) CF setfont show Nl
370 Lpt CFs setfont ( 76 ) show ( } else exit\(0\);) CF setfont show Nl
371 Lpt CFs setfont ( 77 ) show ( /*NOTREACHED*/) CF setfont show Nl
372 Lpt CFs setfont ( ) show () CF setfont show Nl
373 Lpt CFs setfont ( 79 ) show ( default:) CF setfont show Nl
374 Lpt CFs setfont ( 80 ) show ( /* Parent process */) CF setfont show Nl
375 Lpt CFs setfont ( ) show () CF setfont show Nl
376 Lpt CFs setfont ( 82 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl
377 Lpt CFs setfont ( 83 ) show ( \(void\)fprintf\() CF setfont show Nl
378 Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl
379 Lpt CFs setfont ( 84 ) show ( exit\(2\);) CF setfont show Nl
380 Lpt CFs setfont ( 85 ) show ( }) CF setfont show Nl
381 Lpt CFs setfont ( ) show () CF setfont show Nl
382 Lpt CFs setfont ( 87 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl
383 Lpt CFs setfont ( 88 ) show ( }) CF setfont show Nl
384 showpage
385 %%Page: 8 9
386 15 30 translate
387 Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def
388 Ps Ypos moveto
389 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto
390 (Page 6 of 6) show
391 exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto
392 () show
393 HF setfont /Ypos Ps 2 div def
394 Ps Ypos moveto
395 (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto
396 (Page 6 of 6) show
397 exch sub 2 div add (test3 3) stringwidth pop 2 div sub Ypos moveto
398 (test3 3) show
399 /Vpos Tm Bh sub Ps sub def
400 Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl
401 Lpt CFs setfont ( ) show () CF setfont show Nl
402 Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl
403 Lpt CFs setfont ( 92 ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl
404 Lpt CFs setfont ( ) show () CF setfont show Nl
405 Lpt CFs setfont ( 94 ) show ({) CF setfont show Nl
406 Lpt CFs setfont ( 95 ) show ( int handle;) CF setfont show Nl
407 Lpt CFs setfont ( ) show () CF setfont show Nl
408 Lpt CFs setfont ( 97 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl
409 Lpt CFs setfont ( ) show () CF setfont show Nl
410 Lpt CFs setfont ( 99 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl
411 Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl
412 Lpt CFs setfont ( ) show () CF setfont show Nl
413 Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl
414 Lpt CFs setfont ( 103 ) show (closepipe\(int handle\)) CF setfont show Nl
415 Lpt CFs setfont ( ) show () CF setfont show Nl
416 Lpt CFs setfont ( 105 ) show ({) CF setfont show Nl
417 Lpt CFs setfont ( 106 ) show ( int statloc;) CF setfont show Nl
418 Lpt CFs setfont ( ) show () CF setfont show Nl
419 Lpt CFs setfont ( 108 ) show ( \(void\)close\(handle\);) CF setfont show Nl
420 Lpt CFs setfont ( 109 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl
421 Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl
422 Lpt CFs setfont ( ) show () CF setfont show Nl
423 Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl
424 Lpt CFs setfont ( 113 ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl
425 Lpt CFs setfont ( ) show () CF setfont show Nl
426 Lpt CFs setfont ( 115 ) show ({) CF setfont show Nl
427 Lpt CFs setfont ( 116 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl
428 Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl
429 showpage
430 %%Trailer
431 %%EOF