MODULE V24 IN Oberon; (** AUTHOR "AFI"; PURPOSE "Backward compatibility module" *)
(* Ensures the further validity of the earlier Aos.V24.Mod (object module V24.Obx)
authored by "pjm".
Most of the port control is now displaced to the new driver module
V24.Obx module (Source V24.Mod *)
IMPORT SYSTEM, Serials IN A2;
CONST (* Needed for compatibility *)
(** Port aliases (check with NumberOfPorts) *)
COM1* = 1; COM2* = 2; COM3* = 3; COM4* = 4;
COM5* = 5; COM6* = 6; COM7* = 7; COM8* = 8;
(** Parity *)
ParNo* = Serials.ParNo; ParOdd* = Serials.ParOdd; ParEven* = Serials.ParEven;
ParMark* = Serials.ParMark; ParSpace* = Serials.ParSpace;
(** Stop bits *)
Stop1* = Serials.Stop1; Stop2* = Serials.Stop2; Stop1dot5* = Serials.Stop1dot5;
(** Modem control lines *)
DTR* = Serials.DTR; RTS* = Serials.RTS; (** output *)
Break* = Serials.Break; (** input/output - Bit 6 in LCR *)
DSR* = Serials.DSR; CTS* = Serials.CTS; RI* = Serials.RI; DCD* = Serials.DCD; (** input *)
(** Receive error diagnostic *)
OE* = Serials.OverrunError;
PE* = Serials.ParityError;
FE* = Serials.FramingError;
BI* = Serials.BreakInterrupt;
termination* = Serials.Closed; (* Indicates that the port is being closed *)
Ok* = Serials.Ok; PortInUse* = Serials.PortInUse; NoSuchPort* = Serials.NoSuchPort;
WrongBPS* = Serials.WrongBPS; WrongData* = Serials.WrongData; WrongParity* = Serials.WrongParity;
WrongStop* = Serials.WrongStop;
VAR ports: ARRAY Serials.MaxPorts + 1 OF Serials.Port; (* ports[0] is unused *)
(** NumberOfPorts - Return number of ports available. *)
PROCEDURE NumberOfPorts*(): SIGNED32;
BEGIN
RETURN Serials.MaxPorts;
END NumberOfPorts;
(** Start - Open a serial port (numbered from 0) connection. bps is the required bits per second.
data is the number of bits per communication unit. parity is the parity mode (Par
values above). stop is the number of stop bits (Stop values above). res returns 0
if ok, or error code on error. 1 means port already in use. 2 means no such port.
3 means bad bps value. 4 means bad data/parity/stop. DTR and RTS are enabled. *)
PROCEDURE Start*(portNo, bps, data, parity, stop: SIGNED32; VAR res: INTEGER);
VAR port : Serials.Port;
BEGIN
res := NoSuchPort;
port := Serials.GetPort(portNo);
IF port # NIL THEN
ports[portNo] := port;
ports[portNo].Open(bps, data, parity, stop, res)
END;
END Start;
(** Stop - Close the connection of the specified port. Effect on Modem Control lines is undefined. *)
PROCEDURE Stop*(portNo: SIGNED32);
BEGIN
ports[portNo].Close()
END Stop;
(** Send - Send a byte to the specified port. Waits until buffer space is available. res = Ok iff ok. *)
(** Antediluvian: Kept for compatibility. - Use Writer... instead. *)
PROCEDURE Send*(portNo: SIGNED32; x: SYSTEM.BYTE; VAR res: INTEGER);
BEGIN
ports[portNo].SendChar(CHR(x), res);
END Send;
(** SendBytes - Send n bytes to the specified port. Waits until buffer space is available. res = Ok iff all ok. *)
(** Antediluvian: Kept for compatibility. - Use Writer... instead. *)
PROCEDURE SendBytes*(portNo: SIGNED32; VAR x: ARRAY OF SYSTEM.BYTE; n: SIGNED32; VAR res: INTEGER);
VAR i: SIGNED32;
BEGIN
i := 0; res := Serials.Ok;
WHILE (i # n) & (res = Serials.Ok) DO
Send(portNo, x[i], res); INC(i)
END
END SendBytes;
(** Receive - Read one byte from the specified port. Waits until a byte is available. res = Ok iff ok. *)
PROCEDURE Receive*(portNo: SIGNED32; VAR x: SYSTEM.BYTE; VAR res: INTEGER);
VAR ch: CHAR;
BEGIN
ports[portNo].ReceiveChar(ch, res);
x := ch
END Receive;
(** ReceiveBytes - Read n bytes from the specified port. Waits until n bytes are available. res = Ok iff ok.
In case of error, the reception ends immediately at the first character in error. More data may be left in the buffer. *)
PROCEDURE ReceiveBytes*(portNo: SIGNED32; VAR x: ARRAY OF SYSTEM.BYTE; n: SIGNED32; VAR res: INTEGER);
VAR i: SIGNED32;
BEGIN
i := 0; res := Serials.Ok;
WHILE (i # n) & (res = Serials.Ok) DO
Receive(portNo, x[i], res); INC(i)
END
END ReceiveBytes;
(** ClearMC - Clear the specified modem control lines. s may contain DTR, RTS & Break. *)
PROCEDURE ClearMC*(portNo: SIGNED32; s: SET);
BEGIN
ports[portNo].ClearMC(s)
END ClearMC;
(** SetMC - Set the specified modem control lines. s may contain DTR, RTS & Break. *)
PROCEDURE SetMC*(portNo: SIGNED32; s: SET);
BEGIN
ports[portNo].SetMC(s)
END SetMC;
(** GetMC - Return the state of the specified modem control lines. s contains
the current state of DSR, CTS, RI, DCD & Break. *)
PROCEDURE GetMC*(portNo: SIGNED32; VAR s: SET);
BEGIN
ports[portNo].GetMC(s)
END GetMC;
(** Available - Return the number of bytes available in the specified port's buffer. *)
PROCEDURE Available*(portNo: SIGNED32): SIZE;
BEGIN
RETURN ports[portNo].Available()
END Available;
END V24.
System.Free V24 ~
