-- RT_C132A2A4 : Lecture du fichier de 1 000 000 de chiffres au hasard sous le forme de caractères
--               et création d'un fichier autolisible de flottants
-- Coyright Jacques-deric Rouault
-- Version 1.1 du 20120215
              
WITH Text_io, sequential_io;
USE  Text_io;

PROCEDURE RT_C132A2A4 IS
 
  PACKAGE sioc IS NEW sequential_io (Character);
  fc : sioc.File_type;
  c : Character;
  
  f : Float;
  d : Float;
  
  fident : Float := 1.23456789;
  code_format : Float := 1.0;
  taille : Float :=1_000_000.0;
  
  PACKAGE iio IS NEW integer_io (Integer);
  PACKAGE fio IS NEW float_io (float);
  
  PACKAGE siof IS NEW sequential_io (Float);
  ff : siof.File_type;

BEGIN

  Put_line ("Debut d'execution du programme Ada RT_C132A2A4");
  
  siof.create (ff,siof.out_file,"RT_C132A2A5.dat");
  
  --  création de la structure autolisible;
  siof.write (ff,fident);
  siof.write (ff,code_format);
  siof.write (ff,taille);  
  
  FOR decalage IN 0..9 LOOP
    sioc.open   (fc,sioc.in_file ,"RT_C132A2A3.dat");
    FOR dec IN 0..decalage LOOP
        sioc.read(fc,c);
    END LOOP;
  
    FOR n IN 1..100_000 LOOP
      f:=0.0;
      FOR i IN 1..10 LOOP
        sioc.read(fc,c);
        CASE c IS
          WHEN '0' => d:=0.0;
          WHEN '1' => d:=1.0;
          WHEN '2' => d:=2.0;
          WHEN '3' => d:=3.0;
          WHEN '4' => d:=4.0;
          WHEN '5' => d:=5.0;
          WHEN '6' => d:=6.0;
          WHEN '7' => d:=7.0;
          WHEN '8' => d:=8.0;
          WHEN '9' => d:=9.0;
          WHEN OTHERS => 
            Put_line ("PROBLEME : LECTURE D'UN CARACTERE NON DECIMAL");
            RETURN;
        END CASE;
        FOR j IN 1..i LOOP
          d:=d/10.0;
        END LOOP;
        f:=f+d;
      END LOOP;
      iio.put (decalage,1);
      put (" ");
      iio.put (n,6);
      put ("  ");
      fio.put (f,1,10,0);
      New_line;
      siof.write (ff,f);
    END LOOP;
  
    sioc.Close (fc);
  
  END LOOP;
  siof.Close (ff);
  
  Put_line ("Fin   d'execution du programme Ada RT_C132A2A4");

END RT_C132A2A4;