(2 . 7)(2 . 7)
58 ------------------------------------------------------------------------------
59 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
60 -- --
61 -- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) --
62 -- (C) 2018 Stanislav Datskovskiy ( www.loper-os.org ) --
63 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
64 -- --
65 -- You do not have, nor can you ever acquire the right to use, copy or --
(32 . 7)(32 . 7)
67 pragma Import(C, Arg_Count, "__gnat_arg_count");
68
69 procedure Get_Argument(Number : in Natural;
70 Result : out String);
71 Result : out CmdLineArg);
72
73 function Len_Arg (Arg_Num : Integer) return Integer;
74 pragma Import(C, Len_Arg, "__gnat_len_arg");