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     ! 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;