(34 . 12)(34 . 12)
5 procedure Get_Argument(Number : in Natural;
6 Result : out String);
7
8 function Len_Arg (Arg_Num : Integer) return Integer;
9 pragma Import(C, Len_Arg, "__gnat_len_arg");
10
11 private
12
13 procedure Fill_Arg (A : System.Address; Arg_Num : Integer);
14 pragma Import(C, Fill_Arg, "__gnat_fill_arg");
15
16 function Len_Arg (Arg_Num : Integer) return Integer;
17 pragma Import(C, Len_Arg, "__gnat_len_arg");
18
19 end CmdLine;