[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-12-02 14:09:36 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.27.0a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mpackage[m Gnos [01;34mis[m

   [01;34mpragma[m [01;30mpure[m [31m([mGnos[31m);[m
   
   [01;34msubtype[m Name_Type [01;34mis[m [32mString[m[31m([m[35m1[m[31m..[m[35m1024[m[31m);[m
   [31m-- Name is string of 1024 characters.[m
   
   [01;34msubtype[m Version_Type [01;34mis[m [32mString[m[31m([m[35m1[m[31m..[m[35m128[m[31m);[m
   [31m-- Version is string of 128 characters.   [m
   
   [01;34mtype[m Project_Type [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Name    [31m:[m Name_Type[31m;[m
	 Version [31m:[m Version_Type[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   [31m-- Project is a name and version.            [m
   
   Max_Projects [31m:[m [01;34mconstant[m Positive [31m:=[m [35m128[m[31m;[m
   [31m-- Maximum number of project in Adam.Systemic.Project_Set.[m
   [01;34msubtype[m Project_Index_Type [01;34mis[m Natural [01;34mrange[m [35m1[m[31m..[mMax_Projects[31m;[m
   [31m-- Project_Index is the index of project in Adam.Systemic.Project_Set.[m
   
   [01;34mtype[m Project_Set_Type [01;34mis[m [01;34marray[m [31m([mProject_Index_Type [01;34mrange[m [31m<>)[m [01;34mof[m Project_Type[31m;[m
   [31m-- Project_Set is positive array of project.   [m
   [01;34msubtype[m Extended_Project_Index_Type [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[mProject_Index_Type'Last[31m;[m   
   [01;34mtype[m Manufacture_Type [01;34mis[m
      [01;34mrecord[m
	 Projects [31m:[m [01;30mProject_Set_Type[m[31m([m[35m1[m[31m..[mMax_Projects[31m);[m
	 
      [01;34mend[m [01;34mrecord[m[31m;[m   
   
   Bad_Passwd[31m,[m Already_registered [31m:[m [01;34mexception[m[31m;[m
   Full_Set[31m,[m Empty_Set[31m,[m Project_Not_Match [31m:[m [01;34mexception[m[31m;[m
   Not_Initialized[31m,[m Already_Initialized [31m:[m [01;34mexception[m[31m;[m
   
   [31m-------------------------------------[m
   [31m-- Used by Timer, Dater and Alarm. --[m
   [31m-------------------------------------[m
   [01;34msubtype[m Years_Count [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[m[35m385[m[31m;[m [31m-- Max Years of Ada implementation (2399) - Current Year (2015) + 1.[m
   [01;34msubtype[m Months_Count [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[m[35m11[m[31m;[m
   [01;34msubtype[m Days_Count [01;34mis[m Natural [01;34mrange[m [35m0[m[31m..[m[35m365[m[31m;[m   
     
   [31m-----------------------------------------------------------------[m
   [31m-- Parameters type definitions :[m
   
   Name_Length_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m1024[m[31m;[m
   
   [01;34msubtype[m Name_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mName_Length_Max[31m;[m
   
   Units_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m65536[m[31m;[m
   
   [01;34msubtype[m Unit_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mUnits_Max[31m;[m   
   
   Ada_Line_Length_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m256[m[31m;[m
   
   [01;34msubtype[m Char_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mAda_Line_Length_Max[31m;[m
   
   
   Ada_Version_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m2399[m[31m;[m
   
   [01;34msubtype[m Version_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1983[m[31m..[mAda_Version_Max[31m;[m
   
   Objects_Max [31m:[m [01;34mconstant[m Positive [31m:=[m [35m65536[m[31m;[m
   
   [01;34msubtype[m Object_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mObjects_Max[31m;[m
      
   [01;34mtype[m Human_Lang_Enum [01;34mis[m [31m([mEn[31m,[m Fr[31m);[m
   
   [01;34mtype[m Machine_Lang_Enum [01;34mis[m [31m([mProject_Define[31m,[m Ada_2012[31m,[m Gtk_Ada[31m,[m Ada_Web_Server[31m);[m
         
   [01;34mtype[m Parameters_Flags_Enum_Type [01;34mis[m
     
     [31m([m
      Null_Parameter[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
      Object_Max[31m,[m
      Self_Programming[31m,[m
      Self_Executed[31m,[m
      Self_Wait[31m,[m
      User_Wait[31m,[m
      Human_Lang[31m,[m
      With_Gtk[31m,[m
      With_Ada[31m,[m
      With_Aws	
     [31m);[m
   
   [01;34mtype[m [01;30mParameter_Tagged_Record_Type[m [31m([mRequiered_Parameter [31m:[m [32mBoolean[m[31m)[m [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
	 Switch   [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 	 
	 Num_Iter [31m:[m Natural [31m:=[m [35m0[m[31m;[m	 	 
	 Is_Setted [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
	 Parameter_Flag [31m:[m Parameters_Flags_Enum_Type [31m:=[m Null_Parameter[31m;[m	 
	 Descr [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m	 
	 [01;34mcase[m Requiered_Parameter [01;34mis[m
	    [01;34mwhen[m False [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m True [31m=>[m
	       
	       param [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	       Value [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m Parameters_Kit_Array_Type [01;34mis[m 
     [01;34marray[m [31m([mParameters_Flags_Enum_Type[31m)[m [01;34mof[m 
     [01;34maccess[m Parameter_Tagged_Record_Type[31m;[m
               
   Line_Parameters [31m:[m [01;34mconstant[m Parameters_Kit_Array_Type [31m:=[m 
     [31m([m
      
      Null_parameter [31m=>[m [01;34mnull[m[31m,[m
      
      Config_Filename [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m	 
      Help [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
      Version_Edition [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version_Edition[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the edition version"[m[31m)),[m
      Name_Length [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Name_Length[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Unit_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Unit_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Units max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Unit_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Char_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Char_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Char_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Version [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"V"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Language version"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Version_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Object_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"o"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Object_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object_index_type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Programming [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"p"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Programming[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self programming"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Executed [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Executed[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self Executed"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Wait [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"w"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      User_wait [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m User_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"User wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Human_Lang [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Human_Lang[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human Language I18 abrev"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human_Lang_Enum"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Gtk [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Gtk[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with GtkAda"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Ada [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Ada[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with Ada"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Aws [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Aws[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with AWS"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m)[m
     [31m);[m
     
   File_Parameters [31m:[m [01;34mconstant[m Parameters_Kit_Array_Type [31m:=[m 
     [31m([m
      
      Null_parameter [31m=>[m [01;34mnull[m[31m,[m
      Config_Filename [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"F"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Config_Filename[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Configuration filename"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Wide_String"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
	 
      Help [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"h"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m help[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print this message"[m[31m)),[m
      Version_Edition [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type '
	[31m([mRequiered_Parameter [31m=>[m False[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"v"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version_Edition[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"print the edition version"[m[31m)),[m
      Name_Length [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"n"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Name_Length[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Name_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Unit_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"u"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Unit_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Units max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Unit_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Char_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"c"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Char_Max[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Line length max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Char_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Version [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"V"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Version[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Language version"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Version_Index_Type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Object_Max [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"o"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Object_Max[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Object max"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Objetcs_index_type"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Programming [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"p"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Programming[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self programming"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Executed [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"e"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Executed[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self Executed"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Self_Wait [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"w"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Self_Wait[31m,[m
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Self wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      User_wait [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"W"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m User_wait[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"User wait"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Duration"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      Human_Lang [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"l"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m Human_Lang[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human Language I18 abrev"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Human_Lang_Enum"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Gtk [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"g"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Gtk[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with GtkAda"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Ada [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"a"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Ada[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with Ada"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m),[m
      With_Aws [31m=>[m [01;34mnew[m Parameter_Tagged_Record_Type ' 
	[31m([mRequiered_Parameter [31m=>[m True[31m,[m Switch [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"s"[m[31m),[m Num_Iter [31m=>[m [35m0[m[31m,[m
	 Is_Setted [31m=>[m False[31m,[m Parameter_Flag [31m=>[m With_Aws[31m,[m 
	 Descr [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"with AWS"[m[31m),[m
	 Param [31m=>[m [01;34mnew[m [32mWide_String[m ' [31m([m[31m"Boolean"[m[31m),[m
	 Value [31m=>[m [01;34mnull[m[31m)[m
     [31m);[m
      
   
   [01;34mtype[m Abstract_Parameters_Type [01;34mis[m [01;34mabstract[m [01;34mtagged[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Parameters_Kit_Record [01;34mis[m [01;34mnew[m Abstract_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Kit [31m:[m Parameters_Kit_Array_Type[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   Spec_Error [31m:[m [01;34mexception[m[31m;[m
   Impl_Limit [31m:[m [01;34mexception[m[31m;[m
           
[01;34mend[m Gnos[31m;[m
