Re: Annoying behavior

[gautier_niouzes@hotmail.com]

[...]
> So the first antibiotic is read but then something blows up. Has to to with the SIR which is an enumeration. The others are strings. If I remove the SIR's from the config file then all items are read.

So instead of using SIR_Type_IO it is perhaps better to read the SIR like another item, them do Temp_Record.SIR := SIR'Value(item_str). Especially, it's not sure that Enumeration_IO understands the '|'-separated parsing rule.

[...]
> Another strange behavior (for me, perhaps it is absolutely normal) is this one:
> 
> laurent-lutgens-mac-pro-2:Build laurent$ ./generateur_trame_vt2
> Begin of reading loop
> read name: Amikacine      
> read code: amk
> read cmi: testtest
> 
> Begin of reading loop
> read name: Augkacine  <-- should be "Aug"
> read code: pmk   <-- should be "p"             
> read cmi: 123ttest <-- should be "123"

What is happenning is exactly what you have programmed:
 Name (1 .. S'Length) := S;

At some point Name is "Amikacine      "
Then you have S = "Aug", so the 3 first letters are replaced and you get
"Augkacine      ". If you stuff with spaces it will solve the problem.
Either with Name:= (others => ' '); before copying S or
Name(S'Length+1..Name'Last):= (others => ' '); before or after.

HTH
_________________________
Gautier's Ada programming
http://gautiersblog.blogspot.com/search/label/Ada
NB: follow the above link for a valid e-mail address