Re: How To Write A Record To File ?

[patrick@spellingbeewinnars.org]

Hi Adamagica

Please see this failing program:

-Patrick

       with sequential_io ;
       procedure compute_total_population is
        type foo_type is
        record
          moo              : integer ;
          boo              : integer ;
        end record ;
 
        foo                : foo_type ;
       -- will fail here with error:
       -- expect valid subtype mark to instantiate "Element_Type"
        package si is        new sequential_io(foo);

        data_file          : si.file_type ;
        result_file        : si.file_type ;
        value              : integer ;
        total              : integer := 0 ;




       begin 

        si.open(data_file, si.in_file, "census74") ;
        while not si.end_of_file(data_file)
         loop
          si.read(data_file, value) ;
          total := total + value ;
         end loop ;

        si.close(data_file) ;

        si.create(result_file, name => "total74") ;
        si.write(result_file, total);
        si.close(result_file) ;

       end compute_total_population ;