Re: Assembling Complex Strings Containing Carriage Returns Prior to Using Ada.Text_IO.Put?

[NiGHTS <nights@unku.us>]

On Wednesday, October 22, 2014 2:20:35 AM UTC-4, mockturtle wrote:
> On Wednesday, October 22, 2014 7:57:39 AM UTC+2, NiGHTS wrote:
> 
> > I am converting some code from C to Ada which involves building a complex string containing '\n' characters which would eventually be displayed on the standard output console using the printf() function. 
> 
> > 
> 
> > 
> 
> > 
> 
> > I tried to copy the same strategy of building the string in Ada like this:
> 
> > 
> 
> > 
> 
> > 
> 
> > 
> 
> > 
> 
> > Complex_String : Ada.Strings.Unbounded.Unbounded_String;
> 
> > 
> 
> > EOL            : String := ASCII.CR'Img;
> 
> > 
> 
> > 
> 
> > 
> 
> > ...
> 
> > 
> 
> > 
> 
> > 
> 
> > Ada.Strings.Unbounded.Append (Complex_String, 
> 
> > 
> 
> >     "Menu Title"                            & EOL & 
> 
> > 
> 
> >     "-------------------------------------" & EOL
> 
> > 
> 
> > );
> 
> > 
> 
> > 
> 
> > 
> 
> > ...
> 
> > 
> 
> > 
> 
> > 
> 
> > Ada.Text_Io.Put ( 
> 
> > 
> 
> > Ada.Strings.Unbounded.To_String( Complex_String ) );
> 
> > 
> 
> > Instead of breaking the line in the places where EOL has been inserted, it seems to show the letters "CR" in its place. 
> 
> > 
> 
> > The searches I performed on Google seem to be void of any hints on how to get this working. I can't imagine that I am the only one with this requirement in Ada.
> 
> > 
> 
> > Thanks in advance for your advice.
> 
> 
> 
> Do not use 'Img (that, by the way, I guess it is a GNAT extension).  Just do this
> 
> 
> 
>     EOL  : String := "" & ASCII.CR;
> 
> 
> 
> or this
> 
> 
> 
>     EOL : String(1..1) := (1 => ASCII.CR);
> 
> 
> 
> These funny syntaxes are necessary if you want EOL to be a string, since CR is a character. 
> 
> 
> 
> I think that in your case this would work too
> 
> 
> 
>     EOL : constant Character := ASCII.CR;

Thank you for your help. This is the version that eventually worked for me:

EOL : String(1..2) := (1 => Ada.Characters.Latin_1.CR, 2 => Ada.Characters.Latin_1.LF) ;