Re: Re-write a file in Ada

[Anh Vo <anhvofrcaus@gmail.com>]

On Tuesday, January 19, 2016 at 4:04:22 AM UTC-8, comicf...@gmail.com wrote:
> It compile now .
> 
> At launching , there is empty lines in the test_file , instead of the this_file'lines .
> 
> Am i missing something ?
> 
> WITH Ada.Text_IO.Unbounded_IO ; USE Ada.Text_IO.Unbounded_IO ;
> WITH Ada.Strings.Unbounded ;    USE Ada.Strings.Unbounded ;
> WITH Ada.Text_IO  ;             USE Ada.Text_IO  ;
> 
>    loop exit when End_Of_File( this_file );
>      skip_line( this_file );
>      count := count + 1 ;
>    end loop ;

This loop can be simplified by replacing exit when by not.

>     Loop exit when End_Of_File( this_file );
>         for i in 1..count loop
>          case_array(i) := get_line(this_file);
>        end loop ;
>    End loop;

This loop can be simplified same as previous loop.

Anh Vo