--- a/UnboundedExternalStream.st Thu Mar 09 11:52:57 1995 +0100
+++ b/UnboundedExternalStream.st Sat Mar 18 06:06:59 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.2 1995-02-02 12:22:54 claus Exp $
+$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.3 1995-03-18 05:06:41 claus Exp $
'!
!UnboundedExternalStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.2 1995-02-02 12:22:54 claus Exp $
+$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.3 1995-03-18 05:06:41 claus Exp $
"
!
@@ -54,46 +54,6 @@
"
! !
-!UnboundedExternalStream primitiveDefinitions!
-
-%{
-#include <stdio.h>
-%}
-
-! !
-
-!UnboundedExternalStream methodsFor:'testing'!
-
-atEnd
- "return true, if position is at end"
-
-%{ /* NOCONTEXT */
- FILE *f;
- OBJ t;
- OBJ _true = true;
- int c;
-
- if (_INST(hitEOF) == _true) {
- RETURN (_true);
- }
- /*
- * has to be redefined, since EOF is never really
- * reached (although stdio library thinks so ...)
- */
- if ((t = _INST(filePointer)) != nil) {
- f = MKFD(t);
- if (feof(f)) {
- if (ferror(f)) {
- _INST(hitEOF) = true;
- RETURN (true);
- }
- }
- RETURN ( false );
- }
-%}.
- ^ self errorNotOpen
-! !
-
!UnboundedExternalStream methodsFor:'redefind basic'!
size