adagsl_335d13f0/toolkit/templates/clitool/src/cli.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
with Interfaces ; use Interfaces ;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded ;
with Ada.Containers.Vectors ;


package cli is

   VERSION : string := "0.1" ;
   NAME : String := "clitool" ;
      
   Verbosity : aliased Integer := 0;

   
   procedure ProcessCommandLine ;
   function GetNextArgument return String ;
   
end cli ;