3 function N return Positive;
4 pragma Import (Ada, N);
6 type Path is array(1 .. N) of Long_Float;
7 type Path_Vector is array (Positive range <>) of Path;
8 type Path_Vector_P is access all Path_Vector;
9 type Path_Vector_PV is array(Positive range <>) of Path_Vector_P;
10 type Path_Vector_P2 is access all Path_Vector_PV;
12 type Vector is array (Positive range <>) of Natural;
13 type Vector_Access is access Vector;
20 function Get (R : Rec; I : Positive; M : Natural) return Path;