Re: Length of unbounded_string.

["ldries46" <bertus.dries@planet.nl>]

1. Indeed for some reason then the 1); is of the E-mail but the compiler 
would not have compiled the program without.
ch now has the value of the first character of Next_Line.
2. Next Line is a Global variable to be used in a lot of routines before and 
after this one.
3. You are right but I am sure the Next_Line has other characters in the 
line. If not the program would have never come in this routine.
4. I see that the message was not correctly received both statements also 
had correct syntax.
    str := str & " " & Next_Line;
    Original_Line := str;
5. The string should not have BackSpaces but I think that if so comma should 
be found with a next position statement searching for it, and it did not.

"Niklas Holsti"  schreef in bericht news:9g77mgFribU1@mid.individual.net...

On 11-10-19 04:38 , ldries46 wrote:
> The complete code of which I would conclude that the comma should be
> present is:

    [ snip ]

>    nr := nr + 1;
>    ch := Element(Next_Line,    -- Next_LIne is a unbounded_string
>          that can be connected to str

The assignment to ch is incomplete, there should be something after the
comma. Looking at the loop below, I guess the statement is meant to be

    ch := Element(Next_Line, 1);

Also, at this point in the code, Next_Line has not been given any value,
it has not even been declared. Is it a global variable? What does it
contain when your problem occurs?

>  while ch = ' ' or ch = ASCII.HT loop
>     Replace_Slice(Next_Line, 1, 1, "");
>     ch := Element(Next_Line, 1);
>  end loop;

That loop will end badly if Next_Line contains only whitespace. You
should exit the loop when the Replace_Slice makes Next_Line a null string.

> str := str & " " & -- After this statement the error is found by the
>        display function of the GDB
> Original_Line := -- Original Line is only meant for the error messges

Both those statements are syntactically incomplete. The first one ends
with an operator "&"; there should be at least one more operand, and a
terminating semicolon. The second one ends with ":=".

>     Next_Line := To_Unbounded_String("");

You should exit the outer loop ("while not ok") at this point, I think,
because otherwise you can loop back to the statement

    ch := Element(Next_Line, 1);

with Next_Line holding a null string, which is an indexing error.

I notice that you check for tab characters (HT). Can it happen that the
string contains backspace characters? If the string has a comma, then a
backspace, the comma is perhaps not visible on the screen when the
string is displayed.

-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
       .      @       .