Browse Source

* fixed CFMakeRaw

florian 20 years ago
parent
commit
bb795481e8
1 changed files with 6 additions and 20 deletions
  1. 6 20
      rtl/linux/termiosproc.inc

+ 6 - 20
rtl/linux/termiosproc.inc

@@ -62,10 +62,9 @@ begin
 end;
 
 
-
+{ checked against glibc 2.3.3 (FK) }
 Procedure CFMakeRaw(var tios:TermIOS);
 begin
- {$ifndef BSD}
   with tios do
    begin
      c_iflag:=c_iflag and (not (IGNBRK or BRKINT or PARMRK or ISTRIP or
@@ -73,31 +72,15 @@ begin
      c_oflag:=c_oflag and (not OPOST);
      c_lflag:=c_lflag and (not (ECHO or ECHONL or ICANON or ISIG or IEXTEN));
      c_cflag:=(c_cflag and (not (CSIZE or PARENB))) or CS8;
-   end;
- {$else}
-  with tios do
-   begin
-     c_iflag:=c_iflag and (not (IMAXBEL or IXOFF or INPCK or BRKINT or
-                PARMRK or ISTRIP or INLCR or IGNCR or ICRNL or IXON or
-                IGNPAR));
-     c_iflag:=c_iflag OR IGNBRK;
-     c_oflag:=c_oflag and (not OPOST);
-     c_lflag:=c_lflag and (not (ECHO or ECHOE or ECHOK or ECHONL or ICANON or
-                                ISIG or IEXTEN or NOFLSH or TOSTOP or PENDIN));
-     c_cflag:=(c_cflag and (not (CSIZE or PARENB))) or (CS8 OR cread);
      c_cc[VMIN]:=1;
      c_cc[VTIME]:=0;
    end;
- {$endif}
 end;
 
+
 Function TCSendBreak(fd,duration:cint):cint;
 begin
-  {$ifndef BSD}
   TCSendBreak:=fpIOCtl(fd,TCSBRK,pointer(ptrint(duration)));
-  {$else}
-  TCSendBreak:=fpIOCtl(fd,TIOCSBRK,0);
-  {$endif}
 end;
 
 
@@ -168,7 +151,10 @@ end;
 
 {
   $Log$
-  Revision 1.5  2004-11-03 10:03:39  peter
+  Revision 1.6  2004-12-28 12:45:54  florian
+    * fixed CFMakeRaw
+
+  Revision 1.5  2004/11/03 10:03:39  peter
     * fix isatty, ioctl returns 0 on success, but isatty needs to return 1
 
   Revision 1.4  2004/07/09 19:03:35  peter