Re: How to use GNAT.Serial_Communications ?

[Simon Wright <simon@pushface.org>]

elbric0 <jasmin.stlaurent@gmail.com> writes:

> with GNAT.Serial_Communications; use GNAT.Serial_Communications;
>
> procedure Test_Serial is
>
>    Serial : Serial_Port;

     Serial : aliased Serial_Port;

>    C : Character;
>
> begin
>
>    Open (Port => Serial, Name => Name (1));
>
>    C := 'A';
>
>    Character'Write (Serial, C);

     Character'Write (Serial'Access, C);

>    Close (Serial);
>
> end Test_Serial;
> ----------------------------------------------------------------
>
> However the type of the first parameter of Character'Write is not
> correct. I get this error message: "expected access to
> Ada.Streams.Root_Stream_Type'Class".
>
> Can someone tell me what I should put there instead of Serial?

... as above; in GNAT.Serial_Communications,

   type Serial_Port is new Ada.Streams.Root_Stream_Type with private;

and, as the error message said, you need an access to one of those.

Serial has to be declared aliased so that 'Access can be taken
(otherwise, who knows, it might be kept in a register).

> Do you know any tutorial or code example that can help me?

Sorry, someone else may.