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.
ff is a separator too (in #skipSeparators*)
authorClaus Gittinger <cg@exept.de>
Tue, 14 Jan 1997 15:16:36 +0100
changeset 2163 2fcc0e7c11f8
parent 2162 7e1601f633b6
child 2164 063b0227aeda
ff is a separator too (in #skipSeparators*)
ExtStream.st file | annotate | diff | comparison | revisions
ExternalStream.st file | annotate | diff | comparison | revisions 
--- a/ExtStream.st	Tue Jan 14 15:14:39 1997 +0100
+++ b/ExtStream.st	Tue Jan 14 15:16:36 1997 +0100
@@ -2933,10 +2933,10 @@
         && (__INST(binary) != true)
     ) {
         f = __FILEVal(fp);
-	_buffered = (__INST(buffered) == true);
-	if (_buffered) {
+        _buffered = (__INST(buffered) == true);
+        if (_buffered) {
             __READING__(f)
-	}
+        }
 
         while (1) {
             __READBYTE__(ret, f, &c, _buffered);
@@ -2954,11 +2954,11 @@
                 case '\n':
                 case '\r':
                 case '\b':
-                case '\014':
+                case '\f':
                     break;
 
                 default:
-	            __UNGETC__(c, f, _buffered);
+                    __UNGETC__(c, f, _buffered);
                     RETURN ( __MKCHARACTER(c & 0xFF) );
             }
         }
@@ -2990,10 +2990,10 @@
         && (__INST(binary) != true)
     ) {
         f = __FILEVal(fp);
-	_buffered = (__INST(buffered) == true);
-	if (_buffered) {
+        _buffered = (__INST(buffered) == true);
+        if (_buffered) {
             __READING__(f)
-	}
+        }
         while (1) {
             __READBYTE__(ret, f, &c, _buffered);
             if (ret <= 0) {
@@ -3008,10 +3008,11 @@
                 case ' ':
                 case '\t':
                 case '\b':
+                case '\f':
                     break;
 
                 default:
-	            __UNGETC__(c, f, _buffered);
+                    __UNGETC__(c, f, _buffered);
                     RETURN ( __MKCHARACTER(c & 0xFF) );
             }
         }
@@ -3591,6 +3592,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.117 1997-01-11 17:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.118 1997-01-14 14:16:36 cg Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Tue Jan 14 15:14:39 1997 +0100
+++ b/ExternalStream.st	Tue Jan 14 15:16:36 1997 +0100
@@ -2933,10 +2933,10 @@
         && (__INST(binary) != true)
     ) {
         f = __FILEVal(fp);
-	_buffered = (__INST(buffered) == true);
-	if (_buffered) {
+        _buffered = (__INST(buffered) == true);
+        if (_buffered) {
             __READING__(f)
-	}
+        }
 
         while (1) {
             __READBYTE__(ret, f, &c, _buffered);
@@ -2954,11 +2954,11 @@
                 case '\n':
                 case '\r':
                 case '\b':
-                case '\014':
+                case '\f':
                     break;
 
                 default:
-	            __UNGETC__(c, f, _buffered);
+                    __UNGETC__(c, f, _buffered);
                     RETURN ( __MKCHARACTER(c & 0xFF) );
             }
         }
@@ -2990,10 +2990,10 @@
         && (__INST(binary) != true)
     ) {
         f = __FILEVal(fp);
-	_buffered = (__INST(buffered) == true);
-	if (_buffered) {
+        _buffered = (__INST(buffered) == true);
+        if (_buffered) {
             __READING__(f)
-	}
+        }
         while (1) {
             __READBYTE__(ret, f, &c, _buffered);
             if (ret <= 0) {
@@ -3008,10 +3008,11 @@
                 case ' ':
                 case '\t':
                 case '\b':
+                case '\f':
                     break;
 
                 default:
-	            __UNGETC__(c, f, _buffered);
+                    __UNGETC__(c, f, _buffered);
                     RETURN ( __MKCHARACTER(c & 0xFF) );
             }
         }
@@ -3591,6 +3592,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.117 1997-01-11 17:54:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.118 1997-01-14 14:16:36 cg Exp $'
 ! !
 ExternalStream initialize!
hg/stx-libbasic