-- integer_arrays_io.adb    generic package body

package body Integer_Arrays_IO is

  procedure PUT (A     : in INTEGER_MATRIX ;
                 WIDTH : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_WIDTH;
                 BASE  : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_BASE) is
  begin
    for I in A'RANGE ( 1 ) loop
      for J in A'RANGE ( 2 ) loop
        Ada.Text_IO.PUT ( "INTEGER_MATRIX( " ) ;
        Ada.Text_IO.PUT ( INTEGER'IMAGE ( I ) ) ;
        Ada.Text_IO.PUT ( " , " ) ;
        Ada.Text_IO.PUT ( INTEGER'IMAGE ( J ) ) ;
        Ada.Text_IO.PUT ( " ) = " ) ;
        INTEGER_TYPE_IO.PUT ( A( I , J ), WIDTH, BASE) ;
        Ada.Text_IO.NEW_LINE ;
      end loop ;
    end loop ;
  end PUT ;

  procedure PUT (V    : in INTEGER_VECTOR ;
                 WIDTH : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_WIDTH;
                 BASE  : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_BASE) is
  begin
    for I in V'RANGE loop
      Ada.Text_IO.PUT ( " INTEGER_VECTOR( " ) ;
      Ada.Text_IO.PUT ( INTEGER'IMAGE ( I ) ) ;
      Ada.Text_IO.PUT ( " ) = " ) ;
      INTEGER_TYPE_IO.PUT ( V( I ), WIDTH, BASE) ;
      Ada.Text_IO.NEW_LINE ;
    end loop ;
  end PUT ;

  procedure GET (A     : out INTEGER_MATRIX ;
                 WIDTH : in Ada.Text_IO.FIELD := 0) is
  begin
    for I in A'RANGE ( 1 ) loop
      for J in A'RANGE ( 2 ) loop
        INTEGER_TYPE_IO.GET ( A( I , J ), WIDTH) ;
      end loop ;
    end loop ;
  end GET ;


  procedure GET (V     : out INTEGER_VECTOR ;
                 WIDTH : in Ada.Text_IO.FIELD := 0) is
  begin
    for I in V'RANGE loop
      INTEGER_TYPE_IO.GET ( V( I ), WIDTH) ;
    end loop ;
  end GET ;




  procedure PUT (FILE  : in  Ada.Text_IO.FILE_TYPE;
                 A     : in INTEGER_MATRIX ;
                 WIDTH : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_WIDTH;
                 BASE  : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_BASE) is
  begin
    for I in A'RANGE ( 1 ) loop
      for J in A'RANGE ( 2 ) loop
        INTEGER_TYPE_IO.PUT ( FILE, A( I , J ), WIDTH, BASE) ;
      end loop ;
    end loop ;
  end PUT ;

  procedure PUT (FILE  : in  Ada.Text_IO.FILE_TYPE;
                 V    : in INTEGER_VECTOR ;
                 WIDTH : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_WIDTH;
                 BASE  : in Ada.Text_IO.FIELD := INTEGER_TYPE_IO.DEFAULT_BASE) is
  begin
    for I in V'RANGE loop
      INTEGER_TYPE_IO.PUT ( FILE, V( I ), WIDTH, BASE) ;
    end loop ;
  end PUT ;

  procedure GET (FILE  : in  Ada.Text_IO.FILE_TYPE;
                 A     : out INTEGER_MATRIX ;
                 WIDTH : in Ada.Text_IO.FIELD := 0) is
  begin
    for I in A'RANGE ( 1 ) loop
      for J in A'RANGE ( 2 ) loop
        INTEGER_TYPE_IO.GET ( FILE, A( I , J ), WIDTH) ;
      end loop ;
    end loop ;
  end GET ;


  procedure GET (FILE  : in  Ada.Text_IO.FILE_TYPE;
                 V     : out INTEGER_VECTOR ;
                 WIDTH : in Ada.Text_IO.FIELD := 0) is
  begin
    for I in V'RANGE loop
      INTEGER_TYPE_IO.GET ( FILE, V( I ), WIDTH) ;
    end loop ;
  end GET ;

end Integer_Arrays_IO;