Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Tue, 16 May 1995 20:01:39 +0200
changeset 346 0972a503d783
parent 345 cf2301210c47
child 347 0d4c08ca9da3
.
ReadStr.st file | annotate | diff | comparison | revisions
ReadStream.st file | annotate | diff | comparison | revisions
Stream.st file | annotate | diff | comparison | revisions 
--- a/ReadStr.st	Tue May 16 19:09:45 1995 +0200
+++ b/ReadStr.st	Tue May 16 20:01:39 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.13 1995-05-16 17:08:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.14 1995-05-16 18:01:26 claus Exp $
 '!
 
 !ReadStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.13 1995-05-16 17:08:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.14 1995-05-16 18:01:26 claus Exp $
 "
 !
 
@@ -265,10 +265,6 @@
     ^ value
 !
 
-nextWord
-    ^ self nextAlphaNumericWord
-!
-
 nextAlphaNumericWord
     "read the next word (i.e. up to non letter-or-digit).
      return a string containing those characters.
--- a/ReadStream.st	Tue May 16 19:09:45 1995 +0200
+++ b/ReadStream.st	Tue May 16 20:01:39 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.13 1995-05-16 17:08:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.14 1995-05-16 18:01:26 claus Exp $
 '!
 
 !ReadStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.13 1995-05-16 17:08:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.14 1995-05-16 18:01:26 claus Exp $
 "
 !
 
@@ -265,10 +265,6 @@
     ^ value
 !
 
-nextWord
-    ^ self nextAlphaNumericWord
-!
-
 nextAlphaNumericWord
     "read the next word (i.e. up to non letter-or-digit).
      return a string containing those characters.
--- a/Stream.st	Tue May 16 19:09:45 1995 +0200
+++ b/Stream.st	Tue May 16 20:01:39 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.18 1995-05-16 17:09:11 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.19 1995-05-16 18:01:39 claus Exp $
 '!
 
 !Stream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.18 1995-05-16 17:09:11 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.19 1995-05-16 18:01:39 claus Exp $
 "
 !
 
@@ -692,6 +692,16 @@
 	s := s * 256 + self next
     ].
     ^ s truncated
+!
+
+nextWord
+    ^ self nextAlphaNumericWord
+!
+
+nextLine
+    "for compatibility with externalStreams"
+
+    ^ self upTo:Character cr.
 ! !
 
 !Stream methodsFor:'closing'!
hg/stx-libbasic