Re: Annoying behavior

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 15-04-25 00:40 , Laurent wrote:
> Hi
>
> Trying to build a program which generates this type of txt files:

Irrelevant.

> For the moment I try to get the part done which generates the
> content in the middle of the file,

Irrelevant.

> The annoying behavior (for me, perhaps it is absolutely normal) I get
> is this while I try to read in the configuration file

The annoying behaviour (for me) is the way you are asking this 
question... half- :-)

> raised ANTIBIOTIQUES.NAME_TOO_SHORT : antibiotiques.adb:90

You should have showed the part of the program that raises this 
exception, and explained why you think it should NOT happen. Forcing us 
to download code from github is... annoying behaviour. At least, you 
should have put the github link at the start and explained why we should 
go there.

In summary, your configuration file consists of groups of lines of the form:

string Name, read with Text_IO.Get_Line
string Code_SIL, read with Text_IO.Get_Line
string CMI, read with Text_IO.Get_Line
literal SIR, read with an instance of Enumeration_IO.Get.

> 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.

This should have pushed you to look at (and show us) how you are reading 
in the SIR, which is with an instance of Enumeration_IO.Get.

> I am a bit lost because I don't understand what the reading
> procedure is getting to fail like this.

Text_IO.Get_Line reads the whole rest of the line, and then skips the 
line terminator.

Enumeration_IO.Get reads an enumeration literal, stops after the 
literal, and does NOT skip the line terminator.

Therefore, the next Get_Line sees only the line terminator, returns a 
null string, and then skips the line terminator. The null string leads 
to raising Name_Too_Short.

> Putting a Skip_Line behind doesn't help, makes things even worse.

Uncommenting your Skip_Line after the SIR_Type_IO.Get works perfectly 
for me, giving the output:

    Begin of reading loop
    read name: Amikacine
    read code: am
    read cmi: test
    read sir: S
    Begin of reading loop
    read name: Augmentin

and so on.

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