Return to generic_matrices_io.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/generic_matrices_io.adb, Revision 1.1

1.1     ! maekawa     1: package body Generic_Matrices_io is
        !             2:
        !             3:   use Ring_io;
        !             4:
        !             5:   procedure get ( m : out Matrix ) is
        !             6:   begin
        !             7:     get(Standard_Input,m);
        !             8:   end get;
        !             9:
        !            10:   procedure get ( m : out Matrix; rw1,rw2 : in integer ) is
        !            11:   begin
        !            12:     get(Standard_Input,m,rw1,rw2);
        !            13:   end get;
        !            14:
        !            15:   procedure get ( file : in file_type; m : out Matrix ) is
        !            16:   begin
        !            17:     for i in m'range(1) loop
        !            18:       for j in m'range(2) loop
        !            19:         get(file,m(i,j));
        !            20:       end loop;
        !            21:     end loop;
        !            22:   end get;
        !            23:
        !            24:   procedure get ( file : in file_type;
        !            25:                   m : out Matrix; rw1,rw2 : in integer ) is
        !            26:   begin
        !            27:     for i in rw1..rw2 loop
        !            28:       for j in m'range(2) loop
        !            29:         get(file,m(i,j));
        !            30:       end loop;
        !            31:     end loop;
        !            32:   end get;
        !            33:
        !            34:   procedure put ( m : in Matrix ) is
        !            35:   begin
        !            36:     put(Standard_Output,m);
        !            37:   end put;
        !            38:
        !            39:   procedure put ( m : in Matrix; rw1,rw2 : in integer ) is
        !            40:   begin
        !            41:     put(Standard_Output,m,rw1,rw2);
        !            42:   end put;
        !            43:
        !            44:   procedure put ( file : in file_type; m : in Matrix ) is
        !            45:   begin
        !            46:     for i in m'range(1) loop
        !            47:       for j in m'range(2) loop
        !            48:         put(file,' '); put(file,m(i,j));
        !            49:       end loop;
        !            50:       new_line(file);
        !            51:     end loop;
        !            52:   end put;
        !            53:
        !            54:   procedure put ( file : in file_type; m : in Matrix; rw1,rw2 : in integer ) is
        !            55:   begin
        !            56:     for i in rw1..rw2 loop
        !            57:       for j in m'range(2) loop
        !            58:         put(file,' '); put(file,m(i,j));
        !            59:       end loop;
        !            60:       new_line(file);
        !            61:     end loop;
        !            62:   end put;
        !            63:
        !            64:   procedure put ( m : in Matrix; dp : in natural ) is
        !            65:   begin
        !            66:     put(Standard_Output,m,dp);
        !            67:   end put;
        !            68:
        !            69:   procedure put ( m : in Matrix; rw1,rw2 : in integer; dp : in natural ) is
        !            70:   begin
        !            71:     put(Standard_Output,m,rw1,rw2,dp);
        !            72:   end put;
        !            73:
        !            74:   procedure put ( file : in file_type; m : in Matrix; dp : in natural ) is
        !            75:   begin
        !            76:     for i in m'range(1) loop
        !            77:       for j in m'range(2) loop
        !            78:         put(file,' '); put(file,m(i,j),dp);
        !            79:       end loop;
        !            80:       new_line(file);
        !            81:     end loop;
        !            82:   end put;
        !            83:
        !            84:   procedure put ( file : in file_type;
        !            85:                   m : in Matrix; rw1,rw2 : in integer; dp : in natural ) is
        !            86:   begin
        !            87:     for i in rw1..rw2 loop
        !            88:       for j in m'range(2) loop
        !            89:         put(file,' '); put(file,m(i,j),dp);
        !            90:       end loop;
        !            91:       new_line(file);
        !            92:     end loop;
        !            93:   end put;
        !            94:
        !            95: end Generic_Matrices_io;