Fixed ExternalStream>>tcgetattr
authorJan Vrany <jan.vrany@fit.cvut.cz>
Mon, 02 Jun 2014 13:50:27 +0200
changeset 16509 2cf139885242
parent 16508 f2d6afb19d35
child 16510 c56ce0737f3b
Fixed ExternalStream>>tcgetattr Added iuclc temp var and add it into output value.
ExternalStream.st
--- a/ExternalStream.st	Mon Jun 02 13:24:26 2014 +0200
+++ b/ExternalStream.st	Mon Jun 02 13:50:27 2014 +0200
@@ -3002,7 +3002,7 @@
     |error ret
      iflags "/ input flags
      ignbrk brkint ignpar parmrk inpck istrip inlcr igncr
-     icrnl ixon ixoff ixany imaxbel iutf8
+     icrnl iuclc ixon ixoff ixany imaxbel iutf8
      oflags "/ output flags
      opost onlcr ocrnl olcuc onocr onlret oxtabs onoteot
      cflags "/ control flags
@@ -3150,6 +3150,7 @@
     iflags at:#inlcr put:inlcr.
     iflags at:#igncr put:igncr.
     iflags at:#icrnl put:icrnl.
+    iflags at:#uiclc put:iuclc.
     iflags at:#ixon put:ixon.
     iflags at:#ixoff put:ixoff.
     iflags at:#ixany put:ixany.
@@ -6087,11 +6088,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.391 2014-06-02 11:24:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.392 2014-06-02 11:50:27 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.391 2014-06-02 11:24:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.392 2014-06-02 11:50:27 vrany Exp $'
 ! !