ExternalStream.st
changeset 20795 1bce9acbd4c8
parent 20744 44d7ef116eac
child 20974 b21d8e5f3ae4
child 21024 8734987eb5c7
--- a/ExternalStream.st	Fri Nov 04 16:00:34 2016 +0100
+++ b/ExternalStream.st	Fri Nov 04 16:04:10 2016 +0100
@@ -5928,57 +5928,57 @@
      || (__INST(handleType) == @symbol(socketHandle))
      || (__INST(handleType) == @symbol(socketFilePointer))
      || (__INST(handleType) == @symbol(pipeFilePointer))) {
-	OBJ fp;
-
-	__INST(lastErrorNumber) = nil;
-	if (((fp = __INST(handle)) != nil)
-	 && (__INST(mode) != @symbol(readonly))
-	 && (__INST(binary) != true)
-	) {
-	    FILEPOINTER f = __FILEVal(fp);
-	    int _buffered = (__INST(buffered) == true);
-	    int len, cnt;
-	    char *cp;
-
-	    if (_buffered) {
-		__WRITING__(f)
-	    }
-	    {
-		OBJ mode = __INST(eolMode);
-
-		if (mode == @symbol(cr)) {
-		    cp = "\r"; len = 1;
-		} else if (mode == @symbol(crlf)) {
-		    cp = "\r\n"; len = 2;
-		} else if (mode == @symbol(eot)) {
-		    cp = "\004"; len = 1;
-		} else if (mode == @symbol(etx)) {
-		    cp = "\003"; len = 1;
-		} else {
-		    cp = "\n"; len = 1;
-		}
-	    }
+        OBJ fp;
+
+        __INST(lastErrorNumber) = nil;
+        if (((fp = __INST(handle)) != nil)
+         && (__INST(mode) != @symbol(readonly))
+         && (__INST(binary) != true)
+        ) {
+            FILEPOINTER f = __FILEVal(fp);
+            int _buffered = (__INST(buffered) == true);
+            int len, cnt;
+            char *cp;
+
+            if (_buffered) {
+                __WRITING__(f)
+            }
+            {
+                OBJ mode = __INST(eolMode);
+
+                if (mode == @symbol(cr)) {
+                    cp = "\r"; len = 1;
+                } else if (mode == @symbol(crlf)) {
+                    cp = "\r\n"; len = 2;
+                } else if (mode == @symbol(eot)) {
+                    cp = "\004"; len = 1;
+                } else if (mode == @symbol(etx)) {
+                    cp = "\003"; len = 1;
+                } else {
+                    cp = "\n"; len = 1;
+                }
+            }
 #ifdef __win32__
-	    if ((f == __win32_stdout()) || (f == __win32_stderr())) {
-		cnt = __win32_fwrite(cp, 1, len, f);
-	    } else
+            if ((f == __win32_stdout()) || (f == __win32_stderr())) {
+                cnt = __win32_fwrite(cp, 1, len, f);
+            } else
 #endif
-	    {
-		__WRITEBYTES__(cnt, f, cp, len, _buffered, __INST(handleType));
-	    }
-	    if (cnt == len) {
-		if (__isSmallInteger(__INST(position))) {
-		    INT np = __intVal(__INST(position)) + len;
-		    OBJ t;
-
-		    t = __MKINT(np); __INST(position) = t; __STORE(self, t);
-		} else {
-		    __INST(position) = nil; /* i.e: dont know */
-		}
-		RETURN ( self );
-	    }
-	    __INST(lastErrorNumber) = __mkSmallInteger(__threadErrno);
-	}
+            {
+                __WRITEBYTES__(cnt, f, cp, len, _buffered, __INST(handleType));
+            }
+            if (cnt == len) {
+                if (__isSmallInteger(__INST(position))) {
+                    INT np = __intVal(__INST(position)) + len;
+                    OBJ t;
+
+                    t = __MKINT(np); __INST(position) = t; __STORE(self, t);
+                } else {
+                    __INST(position) = nil; /* i.e: don't know */
+                }
+                RETURN ( self );
+            }
+            __INST(lastErrorNumber) = __mkSmallInteger(__threadErrno);
+        }
     }
 %}.
     lastErrorNumber notNil ifTrue:[self writeError. ^ self].
@@ -5987,11 +5987,11 @@
     (binary==true) ifTrue:[self errorBinary. ^ self].
 
     (eolMode == #cr) ifTrue:[
-	self nextPut:(Character return).
-	^ self
+        self nextPut:(Character return).
+        ^ self
     ].
     (eolMode == #crlf) ifTrue:[
-	self nextPut:(Character return).
+        self nextPut:(Character return).
     ].
     self nextPut:(Character nl).
     ^ self