GNAT.Serial_Communication and Streams

[rrr.eee.27@gmail.com]

I want to send text strings via a serial line (actually, it is a USB device that presents itself as a serial CDC device).

For sending text snippets I had to declare the following routine:

   procedure Send_Command (Cmd : String)
   is
      Output_Max_Length : constant Ada.Streams.Stream_Element_Offset := 50;
      Output : Ada.Streams.Stream_Element_Array (1 .. Output_Max_Length);
   begin
      for I in 1 .. Cmd'Length loop
         Output (Ada.Streams.Stream_Element_Offset(I)) := Character'Pos(Cmd (Cmd'First + I - 1));
      end loop;
      Output (Cmd'Length+1) := Character'Pos(ASCII.LF);
      GNAT.Serial_Communication.Write (P, Output(1..Cmd'Length+1));
   end Send_Command;


That works but feels completely strange to me. I'm sure that I'm missing something here. There must be an easier way to fill the output buffer with a standard string.

RE