-
+ 80B0A736F6D5DE9CB0C563A254465CC6AB2CD3A045BFBFECBB347069CE8A748AA9CD9C9268FE578CE10F29595A5A3EFB4C67ADC3F46ECE432A2A8C7663BB2CA3ffa/ffacalc/cmdline.ads(0 . 0)(1 . 45)
114 ------------------------------------------------------------------------------
115 ------------------------------------------------------------------------------
116 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
117 -- --
118 -- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) --
119 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
120 -- --
121 -- You do not have, nor can you ever acquire the right to use, copy or --
122 -- distribute this software ; Should you use this software for any purpose, --
123 -- or copy and distribute it to anyone or in any manner, you are breaking --
124 -- the laws of whatever soi-disant jurisdiction, and you promise to --
125 -- continue doing so for the indefinite future. In any case, please --
126 -- always : read and understand any software ; verify any PGP signatures --
127 -- that you use - for any purpose. --
128 -- --
129 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
130 ------------------------------------------------------------------------------
131 ------------------------------------------------------------------------------
132
133 with System;
134
135 package CmdLine is
136
137 -- IMHO this is reasonable.
138 CmdLineArg_Length : constant Positive := 256;
139
140 subtype CmdLineArg is String(1 .. CmdLineArg_Length);
141
142 function Initialized return Boolean;
143
144 function Arg_Count return Natural;
145 pragma Import(C, Arg_Count, "__gnat_arg_count");
146
147 procedure Get_Argument(Number : in Natural;
148 Result : out String);
149
150 private
151
152 procedure Fill_Arg (A : System.Address; Arg_Num : Integer);
153 pragma Import(C, Fill_Arg, "__gnat_fill_arg");
154
155 function Len_Arg (Arg_Num : Integer) return Integer;
156 pragma Import(C, Len_Arg, "__gnat_len_arg");
157
158 end CmdLine;