Return to generic_vecvecs_io.adb CVS log

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

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

1.1       maekawa     1: package body Generic_VecVecs_io is
                      2:
                      3:   use Vectors,Vectors_io;
                      4:
                      5:   procedure get ( n : in natural; v : in out VecVec ) is
                      6:   begin
                      7:     get(Standard_Input,n,v);
                      8:   end get;
                      9:
                     10:   procedure get ( file : in file_type; n : in natural; v : in out VecVec ) is
                     11:   begin
                     12:     for i in v'range loop
                     13:       get(file,n,v(i));
                     14:     end loop;
                     15:   end get;
                     16:
                     17:   procedure get ( n1,n2 : in natural; v : in out Link_to_VecVec ) is
                     18:   begin
                     19:     get(Standard_Input,n1,n2,v);
                     20:   end get;
                     21:
                     22:   procedure get ( file : in file_type; n1,n2 : in natural;
                     23:                   v : in out Link_to_VecVec ) is
                     24:   begin
                     25:     v := new VecVec(1..n1);
                     26:     get(file,n2,v.all);
                     27:   end get;
                     28:
                     29:   procedure put ( v : in VecVec ) is
                     30:   begin
                     31:     put(Standard_Output,v);
                     32:   end put;
                     33:
                     34:   procedure put ( file : in file_type; v : in VecVec ) is
                     35:   begin
                     36:     for i in v'range loop
                     37:       put(file,v(i)); new_line(file);
                     38:     end loop;
                     39:   end put;
                     40:
                     41:   procedure put ( v : in Link_to_VecVec ) is
                     42:   begin
                     43:     put(Standard_Output,v);
                     44:   end put;
                     45:
                     46:   procedure put ( file : in file_type; v : in Link_to_VecVec ) is
                     47:   begin
                     48:     if v /= null
                     49:      then put(file,v.all);
                     50:     end if;
                     51:   end put;
                     52:
                     53:   procedure put_line ( v : in VecVec ) is
                     54:   begin
                     55:     put_line(Standard_Output,v);
                     56:   end put_line;
                     57:
                     58:   procedure put_line ( file : in file_type; v : in VecVec ) is
                     59:   begin
                     60:     for i in v'range loop
                     61:       put_line(file,v(i)); new_line(file);
                     62:     end loop;
                     63:   end put_line;
                     64:
                     65:   procedure put_line ( v : in Link_to_VecVec ) is
                     66:   begin
                     67:     put_line(Standard_Output,v);
                     68:   end put_line;
                     69:
                     70:   procedure put_line ( file : in file_type; v : in Link_to_VecVec ) is
                     71:   begin
                     72:     if v /= null
                     73:      then put_line(file,v.all);
                     74:     end if;
                     75:   end put_line;
                     76:
                     77:   procedure put ( v : in VecVec; dp : in natural ) is
                     78:   begin
                     79:     put(Standard_Output,v,dp);
                     80:   end put;
                     81:
                     82:   procedure put ( file : in file_type; v : in VecVec; dp : in natural ) is
                     83:   begin
                     84:     for i in v'range loop
                     85:       put(file,v(i),dp); new_line(file);
                     86:     end loop;
                     87:   end put;
                     88:
                     89:   procedure put ( v : in Link_to_VecVec; dp : in natural ) is
                     90:   begin
                     91:     put(Standard_Output,v,dp);
                     92:   end put;
                     93:
                     94:   procedure put ( file : in file_type;
                     95:                   v : in Link_to_VecVec; dp : in natural ) is
                     96:   begin
                     97:     if v /= null
                     98:      then put(file,v.all,dp);
                     99:     end if;
                    100:   end put;
                    101:
                    102:   procedure put_line ( v : in VecVec; dp : in natural ) is
                    103:   begin
                    104:     put_line(Standard_Output,v,dp);
                    105:   end put_line;
                    106:
                    107:   procedure put_line ( file : in file_type; v : in VecVec; dp : in natural ) is
                    108:   begin
                    109:     for i in v'range loop
                    110:       put_line(file,v(i),dp); new_line(file);
                    111:     end loop;
                    112:   end put_line;
                    113:
                    114:   procedure put_line ( v : in Link_to_VecVec; dp : in natural ) is
                    115:   begin
                    116:     put_line(Standard_Output,v,dp);
                    117:   end put_line;
                    118:
                    119:   procedure put_line ( file : in file_type;
                    120:                        v : in Link_to_VecVec; dp : in natural ) is
                    121:   begin
                    122:     if v /= null
                    123:      then put_line(file,v.all,dp);
                    124:     end if;
                    125:   end put_line;
                    126:
                    127: end Generic_VecVecs_io;