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 "{ Package: 'stx:libbasic2' }" |
12 "{ Package: 'stx:libbasic2' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Stream subclass:#ConsStream |
16 Stream subclass:#ConsStream |
15 instanceVariableNames:'list' |
17 instanceVariableNames:'list' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
87 |
89 |
88 !ConsStream methodsFor:'reading'! |
90 !ConsStream methodsFor:'reading'! |
89 |
91 |
90 atEnd |
92 atEnd |
91 ^ list isNil |
93 ^ list isNil |
92 ! |
94 ! ! |
|
95 |
|
96 !ConsStream methodsFor:'stream protocol-reading'! |
93 |
97 |
94 next |
98 next |
95 |rslt| |
99 |rslt| |
96 |
100 |
97 list isNil ifTrue:[ |
101 list isNil ifTrue:[ |
103 ! ! |
107 ! ! |
104 |
108 |
105 !ConsStream class methodsFor:'documentation'! |
109 !ConsStream class methodsFor:'documentation'! |
106 |
110 |
107 version |
111 version |
108 ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.4 2011-09-27 09:42:44 cg Exp $' |
112 ^ '$Header$' |
109 ! |
113 ! |
110 |
114 |
111 version_CVS |
115 version_CVS |
112 ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.4 2011-09-27 09:42:44 cg Exp $' |
116 ^ '$Header$' |
113 ! ! |
117 ! ! |
|
118 |