Return to generic_arrays_of_vector_lists_io.adb CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Supports/generic_arrays_of_vector_lists_io.adb, Revision 1.1.1.1

1.1       maekawa     1: with integer_io;                         use integer_io;
                      2: with Standard_Natural_Vectors_io;        use Standard_Natural_Vectors_io;
                      3:
                      4: package body Generic_Arrays_of_Vector_Lists_io is
                      5:
                      6:   use Lists_io;
                      7:
                      8:   procedure get ( al : in out Link_to_Array_of_Lists ) is
                      9:   begin
                     10:     get(Standard_Input,al);
                     11:   end get;
                     12:
                     13:   procedure get ( n : in natural; m : in Standard_Natural_Vectors.Vector;
                     14:                   al : out Array_of_Lists ) is
                     15:   begin
                     16:     get(Standard_Input,n,m,al);
                     17:   end get;
                     18:
                     19:   procedure get ( file : in file_type; al : in out Link_to_Array_of_Lists ) is
                     20:
                     21:     n : natural;
                     22:
                     23:   begin
                     24:     get(file,n);
                     25:     al := new Array_of_Lists(1..n);
                     26:     declare
                     27:       m : Standard_Natural_Vectors.Vector(1..n) := (1..n => 0);
                     28:     begin
                     29:       get(file,m);
                     30:       get(file,n,m,al.all);
                     31:     end;
                     32:   end get;
                     33:
                     34:   procedure get ( file : in file_type;
                     35:                   n : in natural; m : in Standard_Natural_Vectors.Vector;
                     36:                  al : out Array_of_Lists ) is
                     37:   begin
                     38:     for i in al'range loop
                     39:       get(file,n,m(i),al(i));
                     40:     end loop;
                     41:   end get;
                     42:
                     43:   procedure put ( al : in Array_of_Lists ) is
                     44:   begin
                     45:     put(Standard_Output,al);
                     46:   end put;
                     47:
                     48:   procedure put ( file : in file_type; al : in Array_of_Lists ) is
                     49:   begin
                     50:     for i in al'range loop
                     51:       put(file,al(i)); new_line(file);
                     52:     end loop;
                     53:   end put;
                     54:
                     55: end Generic_Arrays_of_Vector_Lists_io;