Return to generic_matrices_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/generic_matrices_io.ads, Revision 1.1.1.1

1.1       maekawa     1: with text_io;                            use text_io;
                      2: with Abstract_Ring_io;
                      3: with Generic_Vectors;
                      4: with Generic_Matrices;
                      5:
                      6: generic
                      7:
                      8:   with package Ring_io is new Abstract_Ring_io(<>);  use Ring_io.Ring;
                      9:   with package Vectors is new Generic_Vectors(Ring_io.Ring);
                     10:   with package Matrices is new Generic_Matrices(Ring_io.Ring,Vectors);
                     11:
                     12: package Generic_Matrices_io is
                     13:
                     14: -- DESCRIPTION :
                     15: --   Provides input/output routines for matrices with any entries.
                     16:
                     17:   use Matrices;
                     18:
                     19:   procedure get ( m : out Matrix );
                     20:   procedure get ( file : in file_type; m : out Matrix );
                     21:
                     22:   procedure get ( m : out Matrix; rw1,rw2 : in integer );
                     23:   procedure get ( file : in file_type; m : out Matrix; rw1,rw2 : in integer );
                     24:
                     25:   -- DESCRIPTION :
                     26:   --   Reads an integer matrix m or m(rw1..rw2,m'range(2))
                     27:   --   from standard input or on file.
                     28:
                     29:   procedure put ( m : in Matrix );
                     30:   procedure put ( file : in file_type; m : in Matrix );
                     31:
                     32:   procedure put ( m : in Matrix; rw1,rw2 : in integer );
                     33:   procedure put ( file : in file_type; m : in Matrix; rw1,rw2 : in integer );
                     34:
                     35:   -- DESCRIPTION :
                     36:   --   Writes a matrix m or submatrix m(rw1..rw2,m'range(2))
                     37:   --   on standard output or on file.
                     38:
                     39:   procedure put ( m : in Matrix; dp : in natural );
                     40:   procedure put ( file : in file_type; m : in Matrix; dp : in natural );
                     41:
                     42:   procedure put ( m : in Matrix; rw1,rw2 : in integer; dp : in natural );
                     43:   procedure put ( file : in file_type;
                     44:                   m : in Matrix; rw1,rw2 : in integer; dp : in natural );
                     45:
                     46:   -- DESCRIPTION :
                     47:   --   Writes a matrix m or submatrix m(rw1..rw2,m'range(2))
                     48:   --   on standard output or on file, with dp decimal places.
                     49:
                     50: end Generic_Matrices_io;