unit Serial;

{
  Заглушка RTL-модуля Serial для проверки WINDOWS-ветки SerialPort.pas на Linux.
  Повторяет ровно ту часть API, которую наша обёртка переадресует под Windows,
  включая типы: разъезд сигнатур должен ловиться здесь, а не на сборочной
  машине.
}

{$MODE Delphi}

interface

uses
  SysUtils;

type
  TSerialHandle = THandle;
  TParityType   = (NoneParity, OddParity, EvenParity);
  TSerialFlags  = set of (RtsCtsFlowControl);

function  SerOpen(const DeviceName: string): TSerialHandle;
procedure SerClose(Handle: TSerialHandle);
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
  ByteSize: Integer; Parity: TParityType; StopBits: Integer;
  Flags: TSerialFlags);
function  SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt;
function  SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt;
function  SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt;
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean);
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean);
function  SerGetCTS(Handle: TSerialHandle): Boolean;
function  SerGetDSR(Handle: TSerialHandle): Boolean;
function  SerGetCD(Handle: TSerialHandle): Boolean;
function  SerGetRI(Handle: TSerialHandle): Boolean;

implementation

function  SerOpen(const DeviceName: string): TSerialHandle; begin Result := 0; end;
procedure SerClose(Handle: TSerialHandle); begin end;
procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
  ByteSize: Integer; Parity: TParityType; StopBits: Integer;
  Flags: TSerialFlags); begin end;
function  SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; begin Result := 0; end;
function  SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt; begin Result := 0; end;
function  SerReadTimeout(Handle: TSerialHandle; var Buffer; mSec: LongInt): LongInt; begin Result := 0; end;
procedure SerSetDTR(Handle: TSerialHandle; State: Boolean); begin end;
procedure SerSetRTS(Handle: TSerialHandle; State: Boolean); begin end;
function  SerGetCTS(Handle: TSerialHandle): Boolean; begin Result := False; end;
function  SerGetDSR(Handle: TSerialHandle): Boolean; begin Result := False; end;
function  SerGetCD(Handle: TSerialHandle): Boolean; begin Result := False; end;
function  SerGetRI(Handle: TSerialHandle): Boolean; begin Result := False; end;

end.