•  Construire des algorithmes en séparant le traitement des erreurs du traitement des cas "normaux"
• Traitement des cas particuliers par le mécanisme des exceptions
•  Utilisation de fichiers séquentiels

Exercice 2

On veut écrire un programme qui lit un fichier texte et affiche les données lues ligne par ligne.

Question 1

• Ecrire l'algorithme, puis le programme en considérant qu'aucune erreur n'est possible.

-- Algorithme

début
  ouvrir le fichier;
 tant que non fin du fichier faire
    lire une ligne;
   écrire la ligne lue sur la sortie standard;
   aller à la ligne;
 fin tant que;
fin.
 

-- Programme

with Ada.Text_io;use Ada.Text_io;
procedure lecturefichier is
--On veut écrire un programme qui lit un fichier texte et affiche les
--données lues ligne par ligne.
  f:FILE_TYPE; -- f est un fichier texte
  ligne:String(1..80);
  nbCar:Natural;
  nomFichier:String(1..100);
  lg:Natural;
begin
  put("Nom du fichier texte ? : ");
  get_line(nomFichier,lg);
  OPEN(f,IN_FILE,nomFichier(1..lg));
  while not(END_OF_FILE(f)) loop
    get_line(f,ligne,nbCar);
    put(ligne(1..nbCar));new_line;
 end loop;
   close(f);
end lecturefichier;

Question 2

• Modifier ce programme en considérant que le fichier ouvert peut ne pas exister. On utilisera l'exception prédéfinie NAME_ERROR déclenchée par la procédure OPEN.

with Ada.Text_io;use Ada.Text_io;
procedure lecturefichier is
--On veut écrire un programme qui lit un fichier texte et affiche les
--données lues ligne par ligne.
  f:FILE_TYPE; -- f est un fichier texte
  ligne:String(1..80);
  nbCar:Natural;
  nomFichier:String(1..100);
  lg:Natural;
begin
  put("Nom du fichier texte ? : ");
  get_line(nomFichier,lg);
  OPEN(f,IN_FILE,nomFichier(1..lg));
  while not(END_OF_FILE(f)) loop
    get_line(f,ligne,nbCar);
    put(ligne(1..nbCar));new_line;
 end loop;
   close(f);
exception
  when NAME_ERROR=>put("Le fichier n'xiste pas!");new_line;
end lecturefichier;
 

Question 3

• On souhaite gérer la fin de lecture du fichier par l'exception END_ERROR déclenchée par GET_LINE, le test de fin de fichier par la fonction END_OF_FILE faisant double emploi. Modifier ce programme en conséquence.

with Ada.Text_io;use Ada.Text_io;
procedure lecturefichier is
--On veut écrire un programme qui lit un fichier texte et affiche les
--données lues ligne par ligne.
  f:FILE_TYPE; -- f est un fichier texte
  ligne:String(1..80);
  nbCar:Natural;
  nomFichier:String(1..100);
  lg:Natural;
begin
  put("Nom du fichier texte ? : ");
  get_line(nomFichier,lg);
  OPEN(f,IN_FILE,nomFichier(1..lg));
  while not(END_OF_FILE(f)) loop
    get_line(f,ligne,nbCar);
    put(ligne(1..nbCar));new_line;
 end loop;
exception
  when NAME_ERROR=>put("Le fichier n'xiste pas!");new_line;
  when END_ERROR=>close(f);
end lecturefichier;
 

Question 4

• Modifier le programme précédent de manière à arrêter le programme dès qu'une ligne du fichier est vide. On déclarera une exception LIGNE_VIDE.

procedure lecturefichier is

--On veut écrire un programme qui lit un fichier texte et affiche les
--données lues ligne par ligne.

  f:FILE_TYPE; -- f est un fichier texte
  ligne:String(1..80);
  nbCar:Natural;
  LIGNE_VIDE:exception;
  nomFichier:String(1..100);
  lg:Natural;
begin
   put("Nom du fichier texte ? : ");
  get_line(nomFichier,lg);
  OPEN(f,IN_FILE,nomFichier(1..lg));
  loop
    get_line(f,ligne,nbCar);
    if nbCar=0
    then
       raise LIGNE_VIDE;
    else
       put(ligne(1..nbCar));new_line;
    end if;
  end loop;
exception
 when NAME_ERROR =>
   -- le nom de ce fichier n'existe pas
   put("Le fichier n'existe pas ");new_line;
 when END_ERROR =>
   -- tentative de lecture après la fin de fichier
   put("fin de fichier !");new_line;
   close(f);
 when LIGNE_VIDE =>
   put("ligne vide. arrêt!");new_line;
   close(f);
end lecturefichier;