with text_io; use text_io;
with Abstract_Ring_io;
with Generic_Vectors;
with Generic_Matrices;
generic
with package Ring_io is new Abstract_Ring_io(<>); use Ring_io.Ring;
with package Vectors is new Generic_Vectors(Ring_io.Ring);
with package Matrices is new Generic_Matrices(Ring_io.Ring,Vectors);
package Generic_Matrices_io is
-- DESCRIPTION :
-- Provides input/output routines for matrices with any entries.
use Matrices;
procedure get ( m : out Matrix );
procedure get ( file : in file_type; m : out Matrix );
procedure get ( m : out Matrix; rw1,rw2 : in integer );
procedure get ( file : in file_type; m : out Matrix; rw1,rw2 : in integer );
-- DESCRIPTION :
-- Reads an integer matrix m or m(rw1..rw2,m'range(2))
-- from standard input or on file.
procedure put ( m : in Matrix );
procedure put ( file : in file_type; m : in Matrix );
procedure put ( m : in Matrix; rw1,rw2 : in integer );
procedure put ( file : in file_type; m : in Matrix; rw1,rw2 : in integer );
-- DESCRIPTION :
-- Writes a matrix m or submatrix m(rw1..rw2,m'range(2))
-- on standard output or on file.
procedure put ( m : in Matrix; dp : in natural );
procedure put ( file : in file_type; m : in Matrix; dp : in natural );
procedure put ( m : in Matrix; rw1,rw2 : in integer; dp : in natural );
procedure put ( file : in file_type;
m : in Matrix; rw1,rw2 : in integer; dp : in natural );
-- DESCRIPTION :
-- Writes a matrix m or submatrix m(rw1..rw2,m'range(2))
-- on standard output or on file, with dp decimal places.
end Generic_Matrices_io;