Return to generic_vecmats_io.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/generic_vecmats_io.adb, Revision 1.1.1.1

1.1       maekawa     1: with integer_io;                         use integer_io;
                      2:
                      3: package body Generic_VecMats_io is
                      4:
                      5:   use Matrices,Matrices_io;
                      6:
                      7:   procedure get ( n : in natural; v : in out VecMat ) is
                      8:   begin
                      9:     get(Standard_Input,n,v);
                     10:   end get;
                     11:
                     12:   procedure get ( file : in file_type; n : in natural; v : in out VecMat ) is
                     13:
                     14:     n1,n2 : natural;
                     15:
                     16:   begin
                     17:     for i in v'range loop
                     18:       get(file,n1);
                     19:       get(file,n2);
                     20:       v(i) := new Matrix(1..n1,1..n2);
                     21:       get(file,v(i).all);
                     22:     end loop;
                     23:   end get;
                     24:
                     25:   procedure get ( n,n1,n2 : in natural; v : in out Link_to_VecMat ) is
                     26:   begin
                     27:     get(Standard_Input,n,n1,n2,v);
                     28:   end get;
                     29:
                     30:   procedure get ( file : in file_type; n,n1,n2 : in natural;
                     31:                   v : in out Link_to_VecMat ) is
                     32:   begin
                     33:     v := new VecMat(1..n);
                     34:     for i in 1..n loop
                     35:       v(i) := new Matrix(1..n1,1..n2);
                     36:       get(file,v(i).all);
                     37:     end loop;
                     38:   end get;
                     39:
                     40:   procedure put ( v : in VecMat ) is
                     41:   begin
                     42:     put(Standard_Output,v);
                     43:   end put;
                     44:
                     45:   procedure put ( file : in file_type; v : in VecMat ) is
                     46:   begin
                     47:     for i in v'range loop
                     48:       put(file,v(i).all); new_line(file);
                     49:     end loop;
                     50:   end put;
                     51:
                     52:   procedure put ( v : in Link_to_VecMat ) is
                     53:   begin
                     54:     put(Standard_Output,v);
                     55:   end put;
                     56:
                     57:   procedure put ( file : in file_type; v : in Link_to_VecMat ) is
                     58:   begin
                     59:     if v /= null
                     60:      then put(file,v.all);
                     61:     end if;
                     62:   end put;
                     63:
                     64:   procedure put ( v : in VecMat; dp : in natural ) is
                     65:   begin
                     66:     put(Standard_Output,v,dp);
                     67:   end put;
                     68:
                     69:   procedure put ( file : in file_type; v : in VecMat; dp : in natural ) is
                     70:   begin
                     71:     for i in v'range loop
                     72:       put(file,v(i).all,dp); new_line(file);
                     73:     end loop;
                     74:   end put;
                     75:
                     76:   procedure put ( v : in Link_to_VecMat; dp : in natural ) is
                     77:   begin
                     78:     put(Standard_Output,v,dp);
                     79:   end put;
                     80:
                     81:   procedure put ( file : in file_type;
                     82:                   v : in Link_to_VecMat; dp : in natural ) is
                     83:   begin
                     84:     if v /= null
                     85:      then put(file,v.all,dp);
                     86:     end if;
                     87:   end put;
                     88:
                     89: end Generic_VecMats_io;