equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 ExternalStream subclass:#NonPositionableExternalStream |
13 UnboundedExternalStream subclass:#NonPositionableExternalStream |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'StdInStream StdOutStream StdErrorStream' |
15 classVariableNames:'StdInStream StdOutStream StdErrorStream' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Streams-External' |
17 category:'Streams-External' |
18 ! |
18 ! |
19 |
19 |
20 NonPositionableExternalStream comment:' |
20 NonPositionableExternalStream comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.8 1994-08-05 00:59:05 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.9 1994-10-10 00:26:52 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 %{ |
27 %{ |
28 #include <stdio.h> |
28 #include <stdio.h> |
29 %} |
29 %} |
44 " |
44 " |
45 ! |
45 ! |
46 |
46 |
47 version |
47 version |
48 " |
48 " |
49 $Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.8 1994-08-05 00:59:05 claus Exp $ |
49 $Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.9 1994-10-10 00:26:52 claus Exp $ |
50 " |
50 " |
51 ! |
51 ! |
52 |
52 |
53 documentation |
53 documentation |
54 " |
54 " |
57 PrinterStreams, Sockets etc. |
57 PrinterStreams, Sockets etc. |
58 |
58 |
59 There are three special instances of this class, representing stdin, |
59 There are three special instances of this class, representing stdin, |
60 stdout and stderr of the smalltalk/X process (see Unix manuals, if you |
60 stdout and stderr of the smalltalk/X process (see Unix manuals, if you |
61 dont know what those are used for). |
61 dont know what those are used for). |
|
62 |
|
63 The name of this class is a historical leftover - it should be called |
|
64 'TTYStream' or similar. |
62 " |
65 " |
63 ! ! |
66 ! ! |
64 |
67 |
65 !NonPositionableExternalStream class methodsFor:'instance creation'! |
68 !NonPositionableExternalStream class methodsFor:'instance creation'! |
66 |
69 |
139 (self == #StdErrorStream) ifTrue:[ |
142 (self == #StdErrorStream) ifTrue:[ |
140 ^ self initializeForStderr |
143 ^ self initializeForStderr |
141 ]. |
144 ]. |
142 ^ super reOpen |
145 ^ super reOpen |
143 ! ! |
146 ! ! |
144 |
|
145 !NonPositionableExternalStream methodsFor:'redefind basic'! |
|
146 |
|
147 size |
|
148 "report an error that this stream has no concept of size" |
|
149 |
|
150 self shouldNotImplement |
|
151 ! |
|
152 |
|
153 position |
|
154 "report an error that this stream has no concept of position" |
|
155 |
|
156 self shouldNotImplement |
|
157 ! |
|
158 |
|
159 position:anInteger |
|
160 "report an error that this stream has no concept of position" |
|
161 |
|
162 self shouldNotImplement |
|
163 ! ! |
|