Re: Length of unbounded_string.

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

The complete code of which I would conclude that the comma should be present 
is:
--------------------------------------------------------------------------------
-- The procedure adds Lines together when a "," is the end of the line
-- statements or when the end of the line is not a ";" or "{" or "}"
--------------------------------------------------------------------------------
   procedure Continuation(str : in out Unbounded_String; nr : in out 
integer) is
      len : integer;
      ch  : character;
      ok  : boolean := false;
   begin
      Proc_Stack.Push(To_Unbounded_String("Continuation"));                  
                 -- a Stack procedure that is used for the error messages 
the program can produce
      while not ok loop
         len := Length(str);
         if len /= 0 then
            ch := Element(str, len);
            if ch = ',' or (ch /= ';' and ch /= '{' and ch /= '}') then
               nr := nr + 1;
               ch := Element(Next_Line, 
    -- Next_LIne is a unbounded_string that can be connected to str
               while ch = ' ' or ch = ASCII.HT loop
                  Replace_Slice(Next_Line, 1, 1, "");
                  ch := Element(Next_Line, 1);
               end loop;
               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
               if nr < Buffer1.Length - 1 
     -- Buffer1 is a buffer of unbounded_atring's thatis the source for as 
well str as Next_Line
                  Next_Line := Buffer1.Get_Buffer( nr + 
     -- nr is the line nr in the buffer where str is located
               else
                  Next_Line := To_Unbounded_String("");
            end if;
            else
               ok := true;
            end if;
         else
            ok := true;
         end if;
      end loop;
      Proc_Stack.Remove;                                                     
                                           -- Removes "continuation" from 
the stack
   end Continuation;

The error is somewhere in this routine

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

On 11-10-18 13:47 , ldries46 wrote:
> The program I am writing is a window oriented program. I am using GTKADA
> for the windows. When I write the string to the window it also misses
> the comma.
> Also further on in the program before writing to the window I check for
> the comma but the function I need to do is not performed so that is
> another reason why I think the comma is not present.

So, it is likely that the comma is absent. But I can't think about why
it is absent, and whether this is a compiler/library erroror an error in
your code, until you show the complete code that you think should make
the comma present.

Sorry, but I can do nothing more.

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