Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Supports/generic_lists_of_vectors_io.adb, Revision 1.1
1.1 ! maekawa 1: package body Generic_Lists_of_Vectors_io is
! 2:
! 3: use Vectors,Vectors_io;
! 4:
! 5: procedure get ( n,m : in natural; l : out List ) is
! 6: begin
! 7: get(Standard_Input,n,m,l);
! 8: end get;
! 9:
! 10: procedure get ( file : in file_type; n,m : in natural; l : out List ) is
! 11:
! 12: res,res_last : List;
! 13:
! 14: begin
! 15: for i in 1..m loop
! 16: declare
! 17: v : Link_to_Vector;
! 18: begin
! 19: get(file,n,v);
! 20: Append(res,res_last,v);
! 21: end;
! 22: end loop;
! 23: l := res;
! 24: end get;
! 25:
! 26: procedure put ( l : in List ) is
! 27: begin
! 28: put(Standard_Output,l);
! 29: end put;
! 30:
! 31: procedure put ( file : in file_type; l : in List ) is
! 32:
! 33: tmp : List := l;
! 34:
! 35: begin
! 36: while not Is_Null(tmp) loop
! 37: put(file,Head_Of(tmp)); new_line(file);
! 38: tmp := Tail_Of(tmp);
! 39: end loop;
! 40: end put;
! 41:
! 42: end Generic_Lists_of_Vectors_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>