(2 . 7)(2 . 7)
37 ------------------------------------------------------------------------------
38 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
39 -- --
40 -- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) --
41 -- (C) 2018 Stanislav Datskovskiy ( www.loper-os.org ) --
42 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
43 -- --
44 -- You do not have, nor can you ever acquire the right to use, copy or --
(33 . 7)(33 . 7)
46
47 -- Fill the provided string with the text of Number-th cmdline arg
48 procedure Get_Argument(Number : in Natural;
49 Result : out String) is
50 Result : out CmdLineArg) is
51 begin
52 if Number >= Arg_Count or (not Initialized) then
53 raise Constraint_Error;