equal
deleted
inserted
replaced
14 Useful for debugging - stream operations are logged in human readable form |
14 Useful for debugging - stream operations are logged in human readable form |
15 on a separate logger stream, while stream operations are forwarded to the underlying |
15 on a separate logger stream, while stream operations are forwarded to the underlying |
16 loggedStream. |
16 loggedStream. |
17 |
17 |
18 Unfinished - may need more protocol to be intercepted. |
18 Unfinished - may need more protocol to be intercepted. |
|
19 |
|
20 sample use, logging operations on a socket stream: |
|
21 sock := ... Socket connectTo: ... |
|
22 s := LoggingStream new loggedStream: sock. |
|
23 ... |
|
24 use s instead of sock |
|
25 ... |
19 |
26 |
20 [author:] |
27 [author:] |
21 cg |
28 cg |
22 |
29 |
23 [instance variables:] |
30 [instance variables:] |
99 ! ! |
106 ! ! |
100 |
107 |
101 !LoggingStream class methodsFor:'documentation'! |
108 !LoggingStream class methodsFor:'documentation'! |
102 |
109 |
103 version |
110 version |
104 ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.3 2013-03-19 19:55:06 cg Exp $' |
111 ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.4 2013-03-19 19:57:19 cg Exp $' |
105 ! |
112 ! |
106 |
113 |
107 version_CVS |
114 version_CVS |
108 ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.3 2013-03-19 19:55:06 cg Exp $' |
115 ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.4 2013-03-19 19:57:19 cg Exp $' |
109 ! ! |
116 ! ! |
110 |
117 |