Re: Problem with Unbounded Strings

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Fri, 4 Dec 2015 07:49:28 -0800 (PST), Laurent wrote:

> I have a problem with unbounded strings. When I append a String(1..10) to
> my Buffer which is an unbounded string it works. 

You should not use Ubounded_String for I/O and parsing.
 
> procedure Read_Message (File         : in Ada.Text_IO.File_Type;
>                                            Buffer       : out Ub_S;
>                                       Has_Finished : out Boolean)

Pass a String buffer inside. Read into that buffer (Get_Line procedure, not
function). Handle buffer overrun (Last = Buffer'Last) as a protocol error. 

Don't make any dynamic allocations inside. If you have to return the
payload data, do that through the indices to the beginning and end of the
data in the buffer. Better yet to call a semantic callback with the buffer
slice.

>          begin -- declare
>             Line (1 .. Line'Last) := S (38 .. S'Last);

Don't copy anything, use indices in the raw buffer or pass a slice
downward. The only case where copying comes in question is when decoding
data.
             
>             elsif Line (1 .. 5) = ETX
>               or Line (1 .. 5) = ACK
>               or Line (1 .. 5) = ENQ
>               or Line (1 .. 5) = STX
>               or Line (1 .. 4) = GS

Always use a case statement instead of cascaded IFs. (I have no idea how
ETX could be 5 characters long...)

P.S. Ubounded_String Append certainly works OK. You just don't use it.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de