home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / os2pm.zip / commport.def next >
Text File  |  1990-08-27  |  2KB  |  56 lines
  1. (*************************************************************)
  2. (*                                                           *)
  3. (*                Copyright (C) 1988, 1989                   *)
  4. (*                 by Stony Brook Software                   *)
  5. (*                                                           *)
  6. (*                   All rights reserved.                    *)
  7. (*                                                           *)
  8. (*************************************************************)
  9.  
  10. DEFINITION MODULE CommPort;
  11.  
  12.    TYPE
  13.       CommStatus = (
  14.                Success,
  15.                InvalidPort,
  16.                InvalidParameter,
  17.                AlreadyReceiving,
  18.                NotReceiving,
  19.                NoCharacter,
  20.                FramingError,
  21.                OverrunError,
  22.                ParityError,
  23.                BufferOverflow,
  24.                TimeOut
  25.       );
  26.  
  27.       BaudRate = (
  28.                Baud110,
  29.                Baud150,
  30.                Baud300,
  31.                Baud600,
  32.                Baud1200,
  33.                Baud2400,
  34.                Baud4800,
  35.                Baud9600,
  36.                Baud19200
  37.       );
  38.  
  39.       DataBits = [7..8];
  40.       StopBits = [1..2];
  41.       Parity = (Even, Odd, None);
  42.  
  43.  
  44.    PROCEDURE InitPort(port : CARDINAL; speed : BaudRate; data : DataBits;
  45.                           stop : StopBits; check : Parity) : CommStatus;
  46.  
  47.    PROCEDURE StartReceiving(port, bufsize : CARDINAL) : CommStatus;
  48.  
  49.    PROCEDURE StopReceiving(port : CARDINAL) : CommStatus;
  50.  
  51.    PROCEDURE GetChar(port : CARDINAL; VAR ch : CHAR) : CommStatus;
  52.  
  53.    PROCEDURE SendChar(port : CARDINAL; ch : CHAR; modem : BOOLEAN) : CommStatus;
  54.  
  55. END CommPort.
  56.