Annotation of OpenXM_contrib/PHC/Ada/Root_Counts/Stalift/floating_integer_convertors.ads, Revision 1.1.1.1
1.1 maekawa 1: with Standard_Integer_Vectors;
2: with Standard_Floating_Vectors;
3: with Lists_of_Integer_Vectors;
4: with Lists_of_Floating_Vectors;
5: with Arrays_of_Integer_Vector_Lists;
6: with Arrays_of_Floating_Vector_Lists;
7: with Integer_Mixed_Subdivisions;
8: with Floating_Mixed_Subdivisions;
9:
10: package Floating_Integer_Convertors is
11:
12: -- DESCRIPTION :
13: -- This package provides routines to convert lists of integer and floating-
14: -- point vectors into lists of floating-point and integer vectors.
15: -- The conversion from float to integer is done by merely rounding.
16:
17: function Convert ( v : Standard_Integer_Vectors.Vector )
18: return Standard_Floating_Vectors.Vector;
19: function Convert ( v : Standard_Floating_Vectors.Vector )
20: return Standard_Integer_Vectors.Vector;
21:
22: function Convert ( l : Lists_of_Integer_Vectors.List )
23: return Lists_of_Floating_Vectors.List;
24: function Convert ( l : Lists_of_Floating_Vectors.List )
25: return Lists_of_Integer_Vectors.List;
26:
27: function Convert ( l : Arrays_of_Integer_Vector_Lists.Array_of_Lists )
28: return Arrays_of_Floating_Vector_Lists.Array_of_Lists;
29: function Convert ( l : Arrays_of_Floating_Vector_Lists.Array_of_Lists )
30: return Arrays_of_Integer_Vector_Lists.Array_of_Lists;
31:
32: function Convert ( m : Integer_Mixed_Subdivisions.Mixed_Cell )
33: return Floating_Mixed_Subdivisions.Mixed_Cell;
34: function Convert ( m : Floating_Mixed_Subdivisions.Mixed_Cell )
35: return Integer_Mixed_Subdivisions.Mixed_Cell;
36:
37: function Convert ( s : Integer_Mixed_Subdivisions.Mixed_Subdivision )
38: return Floating_Mixed_Subdivisions.Mixed_Subdivision;
39: function Convert ( s : Floating_Mixed_Subdivisions.Mixed_Subdivision )
40: return Integer_Mixed_Subdivisions.Mixed_Subdivision;
41:
42: end Floating_Integer_Convertors;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>