-- RT_C132A2A6 : Lecture des 20 premieres valeurs
--               du fichier aleatoire RT_C132A2A5.dat
-- Coyright Jacques-deric Rouault
-- Version 1.1 du 20120228
              
WITH Text_io, sequential_io;
USE  Text_io;

PROCEDURE RT_C132A2A6 IS
      
  PACKAGE  IIO IS NEW Integer_io (Integer);
  PACKAGE LIIO IS NEW Integer_io (Long_Integer);
  PACKAGE  FIO IS NEW Float_io (Float);
  PACKAGE siof IS NEW sequential_io (Float);

  Probleme : EXCEPTION;

------------------------------------------------------------------------------------------------------------------

  PROCEDURE lecture_fichier_data IS
  
    ff : siof.File_type;
    fident1 : Float := 1.23456789;
    fident2 : Float;
    
    code_format1 : Float := 1.0;
    code_format2 : Float;
    
    fnvals : Float;
    invals : Long_Integer;
    
    val : Float;
    
  BEGIN
  
    siof.Open (ff,siof.in_file,"RT_C132A2A5.dat");
    siof.Read (ff,fident2);
    IF fident1/=fident2 THEN
      Put_line ("ERREUR B1 : IDENTIFICATEUR FICHIER AUTO LISIBLE NON RECONNU");
      RAISE probleme;
    END IF;
    
    siof.Read (ff,code_format2);
    IF code_format1/=code_format2 THEN
      Put_line ("ERREUR B2 : CODE FORMAT FICHIER AUTO LISIBLE NON RECONNU");
      RAISE probleme;
    END IF;
    
    siof.Read (ff,fnvals);
    invals := Long_Integer (fnvals);
    Put ("nombre de valeurs = ");
    liio.put (invals,5);
    new_line;
    
    FOR n In 1..20 LOOP
      siof.Read (ff,val); 
      iio.put (n,4);
      put (" - ");
      fio.put (val,3,7,0); 
      new_line;  
    END LOOP;  

    siof.Close (ff);

  END lecture_fichier_data;
  
------------------------------------------------------------------------------------------------------------------
  
BEGIN

  Put_line ("Debut d'execution du programme Ada RT_C132A2A6"); 
  lecture_fichier_data;   
  Put_line ("Fin   d'execution du programme Ada RT_C132A2A6");
  
  EXCEPTION
    WHEN probleme =>
      Put_line ("ERREUR : PROBLEME LECTURE FICHIER DONNEES");
  
END RT_C132A2A6;