# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1405417045 -7200
# Node ID fd62ae0ff6fa72bbd23064d05173a87bbcb5060b
# Parent  7a313614ae19b6d12a7f24f01794d6e7fd609093
class: ExternalStream
added: #eolMode

diff -r 7a313614ae19 -r fd62ae0ff6fa ExternalStream.st
--- a/ExternalStream.st	Tue Jul 15 11:37:09 2014 +0200
+++ b/ExternalStream.st	Tue Jul 15 11:37:25 2014 +0200
@@ -2024,6 +2024,18 @@
     ^ String
 !
 
+eolMode
+    "return how end-of-line (EOL) is to be marked.
+     Returns one one of:
+        #crlf         -> add a CR-NL, as in MSDOS
+        #cr           -> add a CR, as in VMS
+        #nl           -> add a NL, as in Unix
+        nil           -> transparent
+    "
+
+    ^ eolMode 
+!
+
 eolMode:aSymbolOrNil
     "specify how end-of-line (EOL) is to be marked.
      The argument may be one of:
@@ -6091,11 +6103,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.393 2014-06-07 15:09:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.394 2014-07-15 09:37:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.393 2014-06-07 15:09:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.394 2014-07-15 09:37:25 cg Exp $'
 ! !