interrupt handling and COM port

interrupt handling and COM port

[Kris Hermans]

Hello,

I`m trying to write 2 programs that communicate through a serial line on
COM2 (2 PC`s with MS_DOS, I use GNAT310).

I believe I can set up the ports correctly, but my problem is to attach
an interrupt handler correctly.  I use the following construct:
protected type Interrupt_Interface(Int_Id: Interrupt_Id)
  entry Read_N(N: out Natural);
  entry Write_N(N: in Natural);
  private
    entry Done(N: out Natural);
    procedure Handler;
    pragma Attach_Handler(Handler, Int_Id);
    Interrupt_Occurred: Boolean := False;
    Next_Request: Boolean := True;
  end Interrupt_Interface;

Every time PC1 writes a number to the line, PC2 gets an interrupt and
reads the number for further use.  The problem is that I don`t know what
to use for Int_Id.  I don`t think it is predefined in Interrupt.Names

Do you know the solution to this or do you have written similar programs
in ADA95? I would appreciate it if you mailed it to me.

friendly regards,

Kris.Hermans@cs.kuleuven.ac.be

interrupt handling and COM port

[Kris Hermans]

Hello,

I`m trying to write 2 programs that communicate through a serial line on
COM2 (2 PC`s with MS_DOS, I use GNAT310).

I believe I can set up the ports correctly, but my problem is to attach
an interrupt handler correctly.  I use the following construct:
protected type Interrupt_Interface(Int_Id: Interrupt_Id)
  entry Read_N(N: out Natural);
  entry Write_N(N: in Natural);
  private
    entry Done(N: out Natural);
    procedure Handler;
    pragma Attach_Handler(Handler, Int_Id);
    Interrupt_Occurred: Boolean := False;
    Next_Request: Boolean := True;
  end Interrupt_Interface;

Every time PC1 writes a number to the line, PC2 gets an interrupt and
reads the number for further use.  The problem is that I don`t know what
to use for Int_Id.  I don`t think it is predefined in Interrupt.Names

Do you know the solution to this or do you have written similar programs
in ADA95? I would appreciate it if you mailed it to me.

friendly regards,

Kris.Hermans@cs.kuleuven.ac.be

Re: interrupt handling and COM port

[Jerry van Dijk]

Kris Hermans (kris.hermans@cs.kuleuven.ac.be) wrote:

: I`m trying to write 2 programs that communicate through a serial line on
: COM2 (2 PC`s with MS_DOS, I use GNAT310).

: I believe I can set up the ports correctly, but my problem is to attach
: an interrupt handler correctly. 

GNAT for DOS does not support interrupt handling due to the real/protected
mode complexities. However, interrupt handling can be done using the
underlying DJGPP library. See my homepage (http://stad.dsl.nl/~jvandyk)
for an example program and interrupt package.

Jerry.

-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada
-- Ada & Win32: http://stad.dsl.nl/~jvandyk