Re: Length of unbounded_string.

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

Sorry I just thought to simplify the problem but did that the  wrong way
my real problem is in the following code:

ch := Element(str, len);
if ch = ',' or (ch /= ';' and ch /= '{' and ch /= '}') then
   nr := nr + 1;
   str := str & " " & Next_Line;

where  in the first line
print str.reference.data
$24 = "static void gtk_print_job_set_property (GObject *object", ','
<repeats 11 times>,
"["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]"
len = 56
ch =  ',' in fact the first
print str.reference.data
$386 = "static void gtk_print_job_set_property (GObject *object, guint", ' ' 
<repeats 18 times>,
"prop_id,["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]"
in the display option instead of rhe print option this shows as
"static void gtk_print_job_set_property (GObject *object guint", ' ' 
<repeats 18 times>,
"prop_id,["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]["0d"]["f0"]["ad"]["ba"]"
and when I save that line later on the comma after object is also 
disapperared

L. Dries

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

On 11-10-16 10:48 , ldries46 wrote:
> In my program I use unbounded_string str
>
> I want to change the last character of the string using the program lines
>
> 2205 len := Length(str);
> 2206 Replace_Slice(str, len, len, "G");

Similar code works for me (debian, gnat).

It seems to me that code like the above can fail with Constraint_Error
only if str is the null string, in which case len = 0, which causes a
Constraint_Error in the call because the 2nd parameter of Replace_Slice
is of subtype Positive.

> Then I get the following message printed in my exception part of the
> program
   ...
> Original line : /* GtkPrintJob
   ...
> In this print out the Original line represents "str".

Are you certain that your "str" is really that, and is not a null
string? I would put a check in the code, before the call of
Replace_Slice, and not trust the exception messages.

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