paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* serial ports are now set to raw mode

Browse Source
This commit is contained in:
sg 2002-08-06 13:31:50 +00:00
parent a2b52783db
commit 62f2051d6f
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/serial.pp
View File

@ -70,7 +70,7 @@ implementation
function SerOpen(const DeviceName: String): TSerialHandle; function SerOpen(const DeviceName: String): TSerialHandle;
begin begin
Result := fdOpen(DeviceName, OPEN_RDWR or OPEN_EXCL or OPEN_NOCTTY); Result := fdOpen(DeviceName, OPEN_RDWR or OPEN_NOCTTY);
end; end;
procedure SerClose(Handle: TSerialHandle); procedure SerClose(Handle: TSerialHandle);
@ -99,8 +99,7 @@ procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
var var
tios: termios; tios: termios;
begin begin
TcGetAttr(handle,tios); FillChar(tios, SizeOf(tios), #0);
// ioctl(Handle, TCGETS, @tios);
case BitsPerSec of case BitsPerSec of
50: tios.c_cflag := B50; 50: tios.c_cflag := B50;
@ -125,6 +124,10 @@ begin
{$endif} {$endif}
else tios.c_cflag := B9600; else tios.c_cflag := B9600;
end; end;
tios.c_ispeed := tios.c_cflag;
tios.c_ospeed := tios.c_ispeed;
tios.c_cflag := tios.c_cflag or CREAD or CLOCAL;
case ByteSize of case ByteSize of
5: tios.c_cflag := tios.c_cflag or CS5; 5: tios.c_cflag := tios.c_cflag or CS5;
@ -144,9 +147,8 @@ begin
if RtsCtsFlowControl in Flags then if RtsCtsFlowControl in Flags then
tios.c_cflag := tios.c_cflag or CRTSCTS; tios.c_cflag := tios.c_cflag or CRTSCTS;
tios.c_cflag := tios.c_cflag or CLOCAL or CREAD; tcflush(Handle, TCIOFLUSH);
TCSetAttr(handle,TCSANOW,tios) tcsetattr(Handle, TCSANOW, tios)
// ioctl(Handle, TCSETS, @tios);
end; end;
function SerSaveState(Handle: TSerialHandle): TSerialState; function SerSaveState(Handle: TSerialHandle): TSerialState;
@ -213,7 +215,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2001-01-21 20:21:40 marco Revision 1.6 2002-08-06 13:31:50 sg
* serial ports are now set to raw mode
Revision 1.5 2001/01/21 20:21:40 marco
* Rename fest II. Rtl OK * Rename fest II. Rtl OK
Revision 1.4 2000/12/28 20:50:04 peter Revision 1.4 2000/12/28 20:50:04 peter