[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Gnostic is Ada Generic Neural Object System Engineering.                                                                                                --[m
[31m-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
  
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Date        := 2016-11-27 20:53:00 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.14.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mpackage[m Gnos[31m.[mOptions [01;34mis[m

   
   [01;34mtype[m Optionals_Flags_Enum_Type [01;34mis[m
     [31m-- Options flags enumeration ;[m
     [31m([m
      Null_option[31m,[m
      Config_Filename[31m,[m
      Help[31m,[m
      Version_Edition[31m,[m
      Name_Length[31m,[m
      Unit_Max[31m,[m
      Char_Max[31m,[m
      Version[31m,[m
      Objects_Max[31m,[m
      Self_Programming[31m,[m
      Self_Executed[31m,[m
      Self_Wait[31m,[m
      User_Wait[31m,[m
      Lang[31m,[m
      With_Gtk[31m,[m
      With_Ada[31m,[m
      With_Aws
     [31m);[m
   
   [01;34mtype[m [01;30mOption_Tagged_Type[m [31m([mRequiered_Parameter [31m:[m [32mBoolean[m[31m)[m [01;34mis[m [01;34mtagged[m
     [31m-- Option type is tagged ; with Requiered_Parameters is Boolean ;[m
      [01;34mrecord[m
     
         Is_Setted    [31m:[m [32mBoolean[m            [31m:=[m False[31m;[m
	 [31m-- True if occure on Command line ; Default False ;[m
	 
	 Optionals_Flags [31m:[m Optionals_Flags_Enum_Type [31m:=[m Null_Option[31m;[m
	 [31m-- Flag of Option occurence ; Default Nul_Option ;[m
	 
	 [01;34mcase[m Requiered_Parameter [01;34mis[m
	    [31m-- case Requiered_Parameter is[m
	    [01;34mwhen[m False [31m=>[m	       
	    [31m-- when False =>[m
	       
	       [01;34mnull[m[31m;[m
	       
	       [31m--null ;[m
	       
	    [01;34mwhen[m True [31m=>[m
	       [31m-- when True =>[m
	       Value [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	      
	      [31m-- Value is image of parameter.[m
	      
	 [01;34mend[m [01;34mcase[m[31m;[m
	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Options_Kit_Array_Type [01;34mis[m 
     [31m-- Option_Kit is array ;[m
     [01;34marray[m [31m([mOptionals_Flags_Enum_Type[31m)[m 
     [31m-- range Options_Flags_Enum_Type enumeration[m
     [01;34mof[m [01;34maccess[m Option_Tagged_Type[31m;[m
   [31m-- of access to Option_Type ;[m
   
   
   Full_Line_Options_Kit [31m:[m [01;34mconstant[m Options_Kit_Array_Type [31m:=[m
     [31m-- Full_Options_Kit is constant Options_Kit_Array_Type     [m
     [31m([m
      [31m-- where[m
      Null_Option [31m=>[m 
     	[31m-- Nul_Option is[m
     	[01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      
      Config_filename [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Help [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      Version_Edition [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      Name_length [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Unit_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Char_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Version [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m      
      Objects_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_programming [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_executed [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_wait [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      User_wait [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Lang [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_gtk [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_Ada [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_Aws [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m)[m
     [31m);[m     
   
   Full_File_Options_Kit [31m:[m [01;34mconstant[m Options_Kit_Array_Type [31m:=[m
     [31m-- Full_Options_Kit is constant Options_Kit_Array_Type     [m
     [31m([m
      [31m-- where[m
      Null_Option [31m=>[m 
     	[31m-- Nul_Option is[m
     	[01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      
      Config_filename [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Help [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      Version_Edition [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m),[m
      Name_length [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Unit_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Char_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Version [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m      
      Objects_max [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_programming [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_executed [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Self_wait [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      User_wait [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      Lang [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_gtk [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_Ada [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m),[m
      With_Aws [31m=>[m [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mTrue[31m)[m
	
     [31m);[m     
   
   Default_Nul_Option [31m:[m [01;34mconstant[m [01;34maccess[m Option_Tagged_Type [31m:=[m
       [31m-- Default_Nul_Option is constant access to[m
     [01;34mnew[m [01;30mOption_Tagged_Type[m [31m([mFalse[31m);[m     
   [31m-- new Option_Tagged_Type(False);   [m
   
   [01;34mfunction[m Get_Options_From_Command_Line
     [31m-- To get Options_Kit_array_Type from argument in command_line ;[m
     
     [01;34mreturn[m Options_Kit_Array_Type[31m;[m
   [31m-- return Options_Kit_Array_Type;  [m
   
   
   [01;34mfunction[m Get_Options_From_File
     [31m([mFilename [31m:[m [01;34min[m [32mWide_String[m[31m)[m
     [31m-- To get Options_Kit_array_Type from argument in file ;[m
     
     [01;34mreturn[m Options_Kit_Array_Type[31m;[m
   [31m-- return Options_Kit_Array_Type;  [m
   
[01;34mend[m Gnos[31m.[mOptions[31m;[m
