Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Supports/generic_lists_of_vectors_io.adb, Revision 1.1.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>