UnboundedExternalStream.st
changeset 308 f04744ef7b5d
parent 216 a8abff749575
child 379 5b5a130ccd09
--- 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