1 |
|
(progn (in-package 'sys) t) t |
2 |
|
(PRIN1-TO-STRING (MAKE-BROADCAST-STREAM)) |
3 |
|
#+XCL "#<%TYPE-STRUCTURE-STREAM NIL>" |
4 |
|
#+CLISP "#<BROADCAST-STREAM>" |
5 |
|
|
6 |
|
(PROGN (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) |
7 |
|
(SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) |
8 |
|
(SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) |
9 |
|
(SETQ B1 (MAKE-BROADCAST-STREAM S1 S2 S3 *STANDARD-OUTPUT*)) T) T |
10 |
|
|
11 |
|
(PRINT "test broadcast satz 1" B1) "test broadcast satz 1" |
12 |
|
|
13 |
|
(PRINT "test broadcast satz 2" B1) "test broadcast satz 2" |
14 |
|
|
15 |
|
(PRINT "test broadcast satz 3" B1) "test broadcast satz 3" |
16 |
|
|
17 |
|
(CLOSE S1) T |
18 |
|
|
19 |
|
(CLOSE S2) T |
20 |
|
|
21 |
|
(CLOSE S3) T |
22 |
|
|
23 |
|
(PROGN (SETQ S (OPEN "d1.plc")) T) T |
24 |
|
|
25 |
|
(READ S) "test broadcast satz 1" |
26 |
|
|
27 |
|
(READ S) "test broadcast satz 2" |
28 |
|
|
29 |
|
(READ S) "test broadcast satz 3" |
30 |
|
|
31 |
|
(CLOSE S) T |
32 |
|
|
33 |
|
(PROGN (SETQ S (OPEN "d2.plc")) T) T |
34 |
|
|
35 |
|
(READ S) "test broadcast satz 1" |
36 |
|
|
37 |
|
(READ S) "test broadcast satz 2" |
38 |
|
|
39 |
|
(READ S) "test broadcast satz 3" |
40 |
|
|
41 |
|
(CLOSE S) T |
42 |
|
|
43 |
|
(PROGN (SETQ S (OPEN "d3.plc")) T) T |
44 |
|
|
45 |
|
(READ S) "test broadcast satz 1" |
46 |
|
|
47 |
|
(READ S) "test broadcast satz 2" |
48 |
|
|
49 |
|
(READ S) "test broadcast satz 3" |
50 |
|
|
51 |
|
(CLOSE S) T |
52 |
|
|
53 |
|
(PROGN (SETQ S (OPEN "t0.plc" :DIRECTION :OUTPUT)) T) T |
54 |
|
|
55 |
|
(PRINT (QUOTE READ1) S) READ1 |
56 |
|
|
57 |
|
(PRINT (QUOTE READ2) S) READ2 |
58 |
|
|
59 |
|
(CLOSE S) T |
60 |
|
|
61 |
|
(PROGN (SETQ INPTW (OPEN "t0.plc")) |
62 |
|
(SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) |
63 |
|
(SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) |
64 |
|
(SETQ SY (MAKE-SYNONYM-STREAM (QUOTE S2))) |
65 |
|
(SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) |
66 |
|
(SETQ TW (MAKE-TWO-WAY-STREAM INPTW S3)) |
67 |
|
(SETQ S4 (OPEN "d4.plc" :DIRECTION :OUTPUT)) |
68 |
|
(SETQ EC (MAKE-ECHO-STREAM INPTW S4)) |
69 |
|
(SETQ S5 (OPEN "d5.plc" :DIRECTION :OUTPUT)) |
70 |
|
(SETQ S6 (OPEN "d6.plc" :DIRECTION :OUTPUT)) |
71 |
|
(SETQ B1 (MAKE-BROADCAST-STREAM S5 S6)) |
72 |
|
(SETQ S7 (OPEN "d7.plc" :DIRECTION :OUTPUT)) |
73 |
|
(SETQ B2 (MAKE-BROADCAST-STREAM S1 SY TW EC B1 S7)) T) T |
74 |
|
|
75 |
|
(PRINT "w to b2 1.satz" B2) "w to b2 1.satz" |
76 |
|
|
77 |
|
(PRINT "w to sy" SY) "w to sy" |
78 |
|
|
79 |
|
(PRINT "w to b2 2.satz" B2) "w to b2 2.satz" |
80 |
|
|
81 |
|
(PRINT "w to tw" TW) "w to tw" |
82 |
|
|
83 |
|
(PRINT "w to b2 3.satz" B2) "w to b2 3.satz" |
84 |
|
|
85 |
|
(PRINT "w to ec" EC) "w to ec" |
86 |
|
|
87 |
|
(PRINT "w to b2 4.satz" B2) "w to b2 4.satz" |
88 |
|
|
89 |
|
(PRINT "w to b1" B1) "w to b1" |
90 |
|
|
91 |
|
(PRINT "w to b2 5.satz" B2) "w to b2 5.satz" |
92 |
|
|
93 |
|
(PRINT "w to s7" S7) "w to s7" |
94 |
|
|
95 |
|
(PRINT "w to b2 6.satz" B2) "w to b2 6.satz" |
96 |
|
|
97 |
|
(READ TW) READ1 |
98 |
|
|
99 |
|
(READ EC) READ2 |
100 |
|
|
101 |
|
(PRINT "w to b2 7.satz" B2) "w to b2 7.satz" |
102 |
|
|
103 |
|
(PRINT "w to b2 8.satz" B2) "w to b2 8.satz" |
104 |
|
|
105 |
|
(CLOSE INPTW) T |
106 |
|
|
107 |
|
(CLOSE S1) T |
108 |
|
|
109 |
|
(CLOSE S2) T |
110 |
|
|
111 |
|
(CLOSE S3) T |
112 |
|
|
113 |
|
(CLOSE S4) T |
114 |
|
|
115 |
|
(CLOSE S5) T |
116 |
|
|
117 |
|
(CLOSE S6) T |
118 |
|
|
119 |
|
(CLOSE S7) T |
120 |
|
|
121 |
|
(PROGN (SETQ S (OPEN "d1.plc")) T) T |
122 |
|
|
123 |
|
(READ S) "w to b2 1.satz" |
124 |
|
|
125 |
|
(READ S) "w to b2 2.satz" |
126 |
|
|
127 |
|
(READ S) "w to b2 3.satz" |
128 |
|
|
129 |
|
(READ S) "w to b2 4.satz" |
130 |
|
|
131 |
|
(READ S) "w to b2 5.satz" |
132 |
|
|
133 |
|
(READ S) "w to b2 6.satz" |
134 |
|
|
135 |
|
(READ S) "w to b2 7.satz" |
136 |
|
|
137 |
|
(READ S) "w to b2 8.satz" |
138 |
|
|
139 |
|
(CLOSE S) T |
140 |
|
|
141 |
|
(PROGN (SETQ S (OPEN "d2.plc")) T) T |
142 |
|
|
143 |
|
(READ S) "w to b2 1.satz" |
144 |
|
|
145 |
|
(READ S) "w to sy" |
146 |
|
|
147 |
|
(READ S) "w to b2 2.satz" |
148 |
|
|
149 |
|
(READ S) "w to b2 3.satz" |
150 |
|
|
151 |
|
(READ S) "w to b2 4.satz" |
152 |
|
|
153 |
|
(READ S) "w to b2 5.satz" |
154 |
|
|
155 |
|
(READ S) "w to b2 6.satz" |
156 |
|
|
157 |
|
(READ S) "w to b2 7.satz" |
158 |
|
|
159 |
|
(READ S) "w to b2 8.satz" |
160 |
|
|
161 |
|
(CLOSE S) T |
162 |
|
|
163 |
|
(PROGN (SETQ S (OPEN "d3.plc")) T) T |
164 |
|
|
165 |
|
(READ S) "w to b2 1.satz" |
166 |
|
|
167 |
|
(READ S) "w to b2 2.satz" |
168 |
|
|
169 |
|
(READ S) "w to tw" |
170 |
|
|
171 |
|
(READ S) "w to b2 3.satz" |
172 |
|
|
173 |
|
(READ S) "w to b2 4.satz" |
174 |
|
|
175 |
|
(READ S) "w to b2 5.satz" |
176 |
|
|
177 |
|
(READ S) "w to b2 6.satz" |
178 |
|
|
179 |
|
(READ S) "w to b2 7.satz" |
180 |
|
|
181 |
|
(READ S) "w to b2 8.satz" |
182 |
|
|
183 |
|
(CLOSE S) T |
184 |
|
|
185 |
|
(PROGN (SETQ S (OPEN "d4.plc")) T) T |
186 |
|
|
187 |
|
(READ S) "w to b2 1.satz" |
188 |
|
|
189 |
|
(READ S) "w to b2 2.satz" |
190 |
|
|
191 |
|
(READ S) "w to b2 3.satz" |
192 |
|
|
193 |
|
(READ S) "w to ec" |
194 |
|
|
195 |
|
(READ S) "w to b2 4.satz" |
196 |
|
|
197 |
|
(READ S) "w to b2 5.satz" |
198 |
|
|
199 |
|
(READ S) "w to b2 6.satz" |
200 |
|
|
201 |
|
(READ S) READ2 |
202 |
|
|
203 |
|
(READ S) "w to b2 7.satz" |
204 |
|
|
205 |
|
(READ S) "w to b2 8.satz" |
206 |
|
|
207 |
|
(CLOSE S) T |
208 |
|
|
209 |
|
(PROGN (SETQ S (OPEN "d5.plc")) T) T |
210 |
|
|
211 |
|
(READ S) "w to b2 1.satz" |
212 |
|
|
213 |
|
(READ S) "w to b2 2.satz" |
214 |
|
|
215 |
|
(READ S) "w to b2 3.satz" |
216 |
|
|
217 |
|
(READ S) "w to b2 4.satz" |
218 |
|
|
219 |
|
(READ S) "w to b1" |
220 |
|
|
221 |
|
(READ S) "w to b2 5.satz" |
222 |
|
|
223 |
|
(READ S) "w to b2 6.satz" |
224 |
|
|
225 |
|
(READ S) "w to b2 7.satz" |
226 |
|
|
227 |
|
(READ S) "w to b2 8.satz" |
228 |
|
|
229 |
|
(CLOSE S) T |
230 |
|
|
231 |
|
(PROGN (SETQ S (OPEN "d6.plc")) T) T |
232 |
|
|
233 |
|
(READ S) "w to b2 1.satz" |
234 |
|
|
235 |
|
(READ S) "w to b2 2.satz" |
236 |
|
|
237 |
|
(READ S) "w to b2 3.satz" |
238 |
|
|
239 |
|
(READ S) "w to b2 4.satz" |
240 |
|
|
241 |
|
(READ S) "w to b1" |
242 |
|
|
243 |
|
(READ S) "w to b2 5.satz" |
244 |
|
|
245 |
|
(READ S) "w to b2 6.satz" |
246 |
|
|
247 |
|
(READ S) "w to b2 7.satz" |
248 |
|
|
249 |
|
(READ S) "w to b2 8.satz" |
250 |
|
|
251 |
|
(CLOSE S) T |
252 |
|
|
253 |
|
(PROGN (SETQ S (OPEN "d7.plc")) T) T |
254 |
|
|
255 |
|
(READ S) "w to b2 1.satz" |
256 |
|
|
257 |
|
(READ S) "w to b2 2.satz" |
258 |
|
|
259 |
|
(READ S) "w to b2 3.satz" |
260 |
|
|
261 |
|
(READ S) "w to b2 4.satz" |
262 |
|
|
263 |
|
(READ S) "w to b2 5.satz" |
264 |
|
|
265 |
|
(READ S) "w to s7" |
266 |
|
|
267 |
|
(READ S) "w to b2 6.satz" |
268 |
|
|
269 |
|
(READ S) "w to b2 7.satz" |
270 |
|
|
271 |
|
(READ S) "w to b2 8.satz" |
272 |
|
|
273 |
|
(CLOSE S) T |
274 |
|
|
275 |
|
(PROGN (SETQ S (OPEN "t1.plc" :DIRECTION :OUTPUT)) T) T |
276 |
|
|
277 |
|
(PRINT "1.satz t1" S) "1.satz t1" |
278 |
|
|
279 |
|
(PRINT "2.satz t1" S) "2.satz t1" |
280 |
|
|
281 |
|
(CLOSE S) T |
282 |
|
|
283 |
|
(PROGN (SETQ S (OPEN "t2.plc" :DIRECTION :OUTPUT)) T) T |
284 |
|
|
285 |
|
(PRINT "1.satz t2" S) "1.satz t2" |
286 |
|
|
287 |
|
(PRINT "2.satz t2" S) "2.satz t2" |
288 |
|
|
289 |
|
(CLOSE S) T |
290 |
|
|
291 |
|
(PROGN (SETQ S (OPEN "t3.plc" :DIRECTION :OUTPUT)) T) T |
292 |
|
|
293 |
|
(PRINT "1.satz t3" S) "1.satz t3" |
294 |
|
|
295 |
|
(PRINT "2.satz t3" S) "2.satz t3" |
296 |
|
|
297 |
|
(CLOSE S) T |
298 |
|
|
299 |
|
(PROGN (SETQ S (OPEN "t4.plc" :DIRECTION :OUTPUT)) T) T |
300 |
|
|
301 |
|
(PRINT "1.satz t4" S) "1.satz t4" |
302 |
|
|
303 |
|
(PRINT "2.satz t4" S) "2.satz t4" |
304 |
|
|
305 |
|
(CLOSE S) T |
306 |
|
|
307 |
|
(PROGN (SETQ S (OPEN "t5.plc" :DIRECTION :OUTPUT)) T) T |
308 |
|
|
309 |
|
(PRINT "1.satz t5" S) "1.satz t5" |
310 |
|
|
311 |
|
(PRINT "2.satz t5" S) "2.satz t5" |
312 |
|
|
313 |
|
(CLOSE S) T |
314 |
|
|
315 |
|
(PROGN (SETQ S (OPEN "t6.plc" :DIRECTION :OUTPUT)) T) T |
316 |
|
|
317 |
|
(PRINT "1.satz t6" S) "1.satz t6" |
318 |
|
|
319 |
|
(PRINT "2.satz t6" S) "2.satz t6" |
320 |
|
|
321 |
|
(CLOSE S) T |
322 |
|
|
323 |
|
(PROGN (SETQ S (OPEN "t7.plc" :DIRECTION :OUTPUT)) T) T |
324 |
|
|
325 |
|
(PRINT "1.satz t7" S) "1.satz t7" |
326 |
|
|
327 |
|
(PRINT "2.satz t7" S) "2.satz t7" |
328 |
|
|
329 |
|
(CLOSE S) T |
330 |
|
|
331 |
|
(PROGN (SETQ S (OPEN "t8.plc" :DIRECTION :OUTPUT)) T) T |
332 |
|
|
333 |
|
(PRINT "1.satz t8" S) "1.satz t8" |
334 |
|
|
335 |
|
(PRINT "2.satz t8" S) "2.satz t8" |
336 |
|
|
337 |
|
(CLOSE S) T |
338 |
|
|
339 |
|
(PROGN (SETQ S (OPEN "t9.plc" :DIRECTION :OUTPUT)) T) T |
340 |
|
|
341 |
|
(PRINT "1.satz t9" S) "1.satz t9" |
342 |
|
|
343 |
|
(PRINT "2.satz t9" S) "2.satz t9" |
344 |
|
|
345 |
|
(CLOSE S) T |
346 |
|
|
347 |
|
(PROGN (SETQ S (OPEN "t10.plc" :DIRECTION :OUTPUT)) T) T |
348 |
|
|
349 |
|
(PRINT "1.satz t10" S) "1.satz t10" |
350 |
|
|
351 |
|
(PRINT "2.satz t10" S) "2.satz t10" |
352 |
|
|
353 |
|
(CLOSE S) T |
354 |
|
|
355 |
|
(PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) |
356 |
|
(SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN |
357 |
|
"t5.plc")) |
358 |
|
(SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2 S3)) |
359 |
|
(SETQ C2 (MAKE-CONCATENATED-STREAM S4 S5)) T) T |
360 |
|
|
361 |
|
(READ C1) "1.satz t1" |
362 |
|
|
363 |
|
(READ C2) "1.satz t4" |
364 |
|
|
365 |
|
(READ C1) "2.satz t1" |
366 |
|
|
367 |
|
(READ C1) "1.satz t2" |
368 |
|
|
369 |
|
(READ C2) "2.satz t4" |
370 |
|
|
371 |
|
(READ C2) "1.satz t5" |
372 |
|
|
373 |
|
(READ C1) "2.satz t2" |
374 |
|
|
375 |
|
(READ C1) "1.satz t3" |
376 |
|
|
377 |
|
(READ C1) "2.satz t3" |
378 |
|
|
379 |
|
(READ C2) "2.satz t5" |
380 |
|
|
381 |
|
(CLOSE S1) T |
382 |
|
|
383 |
|
(CLOSE S2) T |
384 |
|
|
385 |
|
(CLOSE S3) T |
386 |
|
|
387 |
|
(CLOSE S4) T |
388 |
|
|
389 |
|
(CLOSE S5) T |
390 |
|
|
391 |
|
(PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) |
392 |
|
(SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN |
393 |
|
"t5.plc")) |
394 |
|
(SETQ S6 (OPEN "t6.plc")) (SETQ S7 (OPEN "t7.plc")) (SETQ S8 (OPEN |
395 |
|
"t8.plc")) |
396 |
|
(SETQ S9 (OPEN "t9.plc")) (SETQ S10 (OPEN "t10.plc")) |
397 |
|
(SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2)) |
398 |
|
(SETQ C2 (MAKE-CONCATENATED-STREAM S3)) |
399 |
|
(SETQ C3 (MAKE-CONCATENATED-STREAM C1 C2 S4)) |
400 |
|
(SETQ C4 (MAKE-CONCATENATED-STREAM S5 S6 S7 S8 S9 S10)) T) T |
401 |
|
|
402 |
|
(READ C4) "1.satz t5" |
403 |
|
|
404 |
|
(READ C3) "1.satz t1" |
405 |
|
|
406 |
|
(READ C4) "2.satz t5" |
407 |
|
|
408 |
|
(READ C4) "1.satz t6" |
409 |
|
|
410 |
|
(READ C3) "2.satz t1" |
411 |
|
|
412 |
|
(READ C3) "1.satz t2" |
413 |
|
|
414 |
|
(READ C4) "2.satz t6" |
415 |
|
|
416 |
|
(READ C4) "1.satz t7" |
417 |
|
|
418 |
|
(READ C4) "2.satz t7" |
419 |
|
|
420 |
|
(READ C3) "2.satz t2" |
421 |
|
|
422 |
|
(READ C3) "1.satz t3" |
423 |
|
|
424 |
|
(READ C3) "2.satz t3" |
425 |
|
|
426 |
|
(READ C4) "1.satz t8" |
427 |
|
|
428 |
|
(READ C4) "2.satz t8" |
429 |
|
|
430 |
|
(READ C4) "1.satz t9" |
431 |
|
|
432 |
|
(READ C4) "2.satz t9" |
433 |
|
|
434 |
|
(READ C3) "1.satz t4" |
435 |
|
|
436 |
|
(READ C3) "2.satz t4" |
437 |
|
|
438 |
|
(READ C4) "1.satz t10" |
439 |
|
|
440 |
|
(READ C4) "2.satz t10" |
441 |
|
|
442 |
|
(CLOSE S1) T |
443 |
|
|
444 |
|
(CLOSE S2) T |
445 |
|
|
446 |
|
(CLOSE S3) T |
447 |
|
|
448 |
|
(CLOSE S4) T |
449 |
|
|
450 |
|
(CLOSE S5) T |
451 |
|
|
452 |
|
(CLOSE S6) T |
453 |
|
|
454 |
|
(CLOSE S7) T |
455 |
|
|
456 |
|
(CLOSE S8) T |
457 |
|
|
458 |
|
(CLOSE S9) T |
459 |
|
|
460 |
|
(CLOSE S10) T |
461 |
|
|
462 |
|
(SETQ STR1 "test 123456") "test 123456" |
463 |
|
|
464 |
|
(PROGN (SETQ S1 (MAKE-STRING-INPUT-STREAM STR1)) T) T |
465 |
|
|
466 |
|
(READ S1) TEST |
467 |
|
|
468 |
|
(READ-CHAR S1) #\1 |
469 |
|
|
470 |
|
(READ-CHAR S1) #\2 |
471 |
|
|
472 |
|
(UNREAD-CHAR #\2 S1) NIL |
473 |
|
|
474 |
|
(READ-CHAR S1) #\2 |
475 |
|
|
476 |
|
(READ-CHAR S1) #\3 |
477 |
|
|
478 |
|
(READ-CHAR S1) #\4 |
479 |
|
|
480 |
|
(UNREAD-CHAR #\A S1) ERROR |
481 |
|
|
482 |
|
(READ-CHAR S1) #\5 |
483 |
|
|
484 |
|
(READ-CHAR S1) #\6 |
485 |
|
|
486 |
|
(CLOSE S1) T |
487 |
|
|
488 |
|
STR1 "test 123456" |
489 |
|
|
490 |
|
(multiple-value-list (READ-FROM-STRING "012345 789")) (12345 7) |
491 |
|
|
492 |
|
(multiple-value-list (READ-FROM-STRING "012345 789" T NIL |
493 |
|
:PRESERVE-WHITESPACE T)) (12345 6) |
494 |
|
|
495 |
|
(multiple-value-list (READ-FROM-STRING "012345 789" T NIL :END 4)) |
496 |
|
(123 4) |
497 |
|
|
498 |
|
(multiple-value-list (READ-FROM-STRING "012345 789" T NIL :START 2)) |
499 |
|
(2345 7) |
500 |
|
|
501 |
|
(PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "0123456789" 5 8)) |
502 |
|
T) T |
503 |
|
|
504 |
|
(READ STRGSTREAM) 567 |
505 |
|
|
506 |
|
(PROGN (SETQ STRGSTREAM |
507 |
|
(MAKE-STRING-INPUT-STREAM "wenn alles gut geht ist das ein stream 012")) |
508 |
|
T) T |
509 |
|
|
510 |
|
(READ STRGSTREAM) WENN |
511 |
|
|
512 |
|
(READ STRGSTREAM) ALLES |
513 |
|
|
514 |
|
(READ STRGSTREAM) GUT |
515 |
|
|
516 |
|
(READ STRGSTREAM) GEHT |
517 |
|
|
518 |
|
(READ STRGSTREAM) IST |
519 |
|
|
520 |
|
(READ STRGSTREAM) DAS |
521 |
|
|
522 |
|
(READ STRGSTREAM) EIN |
523 |
|
|
524 |
|
(READ STRGSTREAM) STREAM |
525 |
|
|
526 |
|
(READ STRGSTREAM) 12 |
527 |
|
|
528 |
|
(PROGN (SETQ STRGSTREAM (MAKE-STRING-OUTPUT-STREAM)) T) T |
529 |
|
|
530 |
|
(PRINC "das " STRGSTREAM) "das " |
531 |
|
|
532 |
|
(PRINC "ist " STRGSTREAM) "ist " |
533 |
|
|
534 |
|
(PRINC "ein " STRGSTREAM) "ein " |
535 |
|
|
536 |
|
(PRINC "string " STRGSTREAM) "string " |
537 |
|
|
538 |
|
(PRINC "output " STRGSTREAM) "output " |
539 |
|
|
540 |
|
(PRINC "stream " STRGSTREAM) "stream " |
541 |
|
|
542 |
|
(GET-OUTPUT-STREAM-STRING STRGSTREAM) "das ist ein string output stream " |
543 |
|
|
544 |
|
(GET-OUTPUT-STREAM-STRING STRGSTREAM) "" |
545 |
|
|
546 |
|
(PRINC "das ist ein neuer string output stream" STRGSTREAM) |
547 |
|
"das ist ein neuer string output stream" |
548 |
|
|
549 |
|
(GET-OUTPUT-STREAM-STRING STRGSTREAM) |
550 |
|
"das ist ein neuer string output stream" |
551 |
|
|
552 |
|
(SETQ *PRINT-LENGTH* 50) 50 |
553 |
|
|
554 |
|
(WRITE-TO-STRING 123456789) "123456789" |
555 |
|
|
556 |
|
"(write-to-string '#1=(123456789 . #1#))" |
557 |
|
"(write-to-string '#1=(123456789 . #1#))" |
558 |
|
|
559 |
|
(PRIN1-TO-STRING "abc") "\"abc\"" |
560 |
|
|
561 |
|
(PRINC-TO-STRING "abc") "abc" |
562 |
|
|
563 |
|
(PROGN (SETQ OS (MAKE-STRING-OUTPUT-STREAM)) T) T |
564 |
|
|
565 |
|
(SETQ S50 "123456789A123456789B123456789C123456789D12345678 |
566 |
|
E") "123456789A123456789B123456789C123456789D12345678 |
567 |
|
E" |
568 |
|
|
569 |
|
(SETQ S49 "123456789A123456789B123456789C123456789D1234567 |
570 |
|
*") "123456789A123456789B123456789C123456789D1234567 |
571 |
|
*" |
572 |
|
|
573 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
574 |
|
E" |
575 |
|
|
576 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
577 |
|
E" |
578 |
|
|
579 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
580 |
|
E" |
581 |
|
|
582 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
583 |
|
E" |
584 |
|
|
585 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
586 |
|
E" |
587 |
|
|
588 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
589 |
|
E" |
590 |
|
|
591 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
592 |
|
E" |
593 |
|
|
594 |
|
(PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 |
595 |
|
*" |
596 |
|
|
597 |
|
(PRINC "A" OS) "A" |
598 |
|
|
599 |
|
(PRINC "B" OS) "B" |
600 |
|
|
601 |
|
(PRINC "C" OS) "C" |
602 |
|
|
603 |
|
(LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS))) 402 |
604 |
|
|
605 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
606 |
|
E" |
607 |
|
|
608 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
609 |
|
E" |
610 |
|
|
611 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
612 |
|
E" |
613 |
|
|
614 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
615 |
|
E" |
616 |
|
|
617 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
618 |
|
E" |
619 |
|
|
620 |
|
(PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 |
621 |
|
E" |
622 |
|
|
623 |
|
(PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 |
624 |
|
*" |
625 |
|
|
626 |
|
(PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 |
627 |
|
*" |
628 |
|
|
629 |
|
(PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 |
630 |
|
*" |
631 |
|
|
632 |
|
(PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 |
633 |
|
*" |
634 |
|
|
635 |
|
(LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS))) 496 |
636 |
|
|
637 |
|
(PROGN (SETQ OS (OPEN "d0.plc" :DIRECTION :OUTPUT)) |
638 |
|
(SETQ OS1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) |
639 |
|
(SETQ IS (OPEN "t0.plc" :DIRECTION :OUTPUT)) T) T |
640 |
|
|
641 |
|
(PRINC "'(a b #.(print \"1.zwischenwert\" os1) c d)" IS) |
642 |
|
"'(a b #.(print \"1.zwischenwert\" os1) c d)" |
643 |
|
|
644 |
|
(PRINC "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" IS) |
645 |
|
"'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" |
646 |
|
|
647 |
|
(PRINC "'(a b #.(format nil \"3.zwischenwert\") c d)" IS) |
648 |
|
"'(a b #.(format nil \"3.zwischenwert\") c d)" |
649 |
|
|
650 |
|
(CLOSE IS) T |
651 |
|
|
652 |
|
(PROGN (SETQ IS (OPEN "t0.plc")) (SETQ ES (MAKE-ECHO-STREAM IS OS)) |
653 |
|
T) T |
654 |
|
|
655 |
|
(PRINT "ausgabe os1" OS1) "ausgabe os1" |
656 |
|
|
657 |
|
(READ ES) (QUOTE (A B "1.zwischenwert" C D)) |
658 |
|
|
659 |
|
(PRINT "ausgabe os1" OS1) "ausgabe os1" |
660 |
|
|
661 |
|
(READ ES) (QUOTE (A B "\"2.zwischenwert\"" C D)) |
662 |
|
|
663 |
|
(PRINT "ausgabe os1" OS1) "ausgabe os1" |
664 |
|
|
665 |
|
(READ ES) (QUOTE (A B "3.zwischenwert" C D)) |
666 |
|
|
667 |
|
(PRINT "ausgabe os1" OS1) "ausgabe os1" |
668 |
|
|
669 |
|
(CLOSE IS) T |
670 |
|
|
671 |
|
(CLOSE OS) T |
672 |
|
|
673 |
|
(PROGN (SETQ IS (OPEN "d0.plc")) T) T |
674 |
|
|
675 |
|
(READ IS) (QUOTE (A B "1.zwischenwert" C D)) |
676 |
|
|
677 |
|
(READ IS) (QUOTE (A B "\"2.zwischenwert\"" C D)) |
678 |
|
|
679 |
|
(READ IS) (QUOTE (A B "3.zwischenwert" C D)) |
680 |
|
|
681 |
|
(CLOSE IS) T |
682 |
|
|
683 |
|
(CLOSE OS1) T |
684 |
|
|
685 |
|
(PROGN (SETQ IS (OPEN "d1.plc")) T) T |
686 |
|
|
687 |
|
(READ IS) "ausgabe os1" |
688 |
|
|
689 |
|
(READ IS) "1.zwischenwert" |
690 |
|
|
691 |
|
(READ IS) "ausgabe os1" |
692 |
|
|
693 |
|
(READ IS) "ausgabe os1" |
694 |
|
|
695 |
|
(READ IS) "ausgabe os1" |
696 |
|
|
697 |
|
(READ IS) "1.zwischenwert" |
698 |
|
|
699 |
|
(CLOSE IS) T |
700 |
|
|
701 |
|
(progn (mapc #'delete-file (directory "*.plc")) t) |
702 |
|
T |
703 |
|
|
704 |
|
(progn |
705 |
|
(makunbound 's) |
706 |
|
(makunbound 's1) |
707 |
|
(makunbound 's2) |
708 |
|
(makunbound 's3) |
709 |
|
(makunbound 's4) |
710 |
|
(makunbound 's5) |
711 |
|
(makunbound 's6) |
712 |
|
(makunbound 's7) |
713 |
|
(makunbound 's8) |
714 |
|
(makunbound 's9) |
715 |
|
(makunbound 's10) |
716 |
|
(makunbound 'b1) |
717 |
|
(makunbound 'b2) |
718 |
|
(makunbound 'c1) |
719 |
|
(makunbound 'c2) |
720 |
|
(makunbound 'c3) |
721 |
|
(makunbound 'c4) |
722 |
|
(makunbound 'inptw) |
723 |
|
(makunbound 'sy) |
724 |
|
(makunbound 'tw) |
725 |
|
(makunbound 'ec) |
726 |
|
(makunbound 'str1) |
727 |
|
(makunbound 'strgstream) |
728 |
|
(makunbound 'os) |
729 |
|
(makunbound 'os1) |
730 |
|
(makunbound 'is) |
731 |
|
(makunbound 'es) |
732 |
|
(makunbound 's50) |
733 |
|
(makunbound 's49) |
734 |
|
(setq *print-length* nil) |
735 |
|
t) |
736 |
|
T |
737 |
|
|