[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 19:33:08 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.12.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mwith[m Gnos[31m.[mOptions[31m;[m
[01;34mpackage[m Gnos[31m.[mParameters [01;34mis[m      
   
   
      
   
   
   [01;34mtype[m Projects_Parameters_Type [01;34mis[m [01;34mnew[m Parameters_Kit_Record [01;34mwith[m
      [01;34mrecord[m
	 Name_Length [31m:[m Name_Index_Type [31m:=[m [35m1024[m[31m;[m
	 Unit_Max    [31m:[m Unit_Index_Type [31m:=[m [35m1024[m[31m;[m
	 With_Gtk [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 With_Ada [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 With_Aws [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m      
   
   [01;34mtype[m Language_Parameters_Type [01;34mis[m [01;34mnew[m Projects_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Char_Max	[31m:[m char_index_type [31m:=[m [35m256[m[31m;[m
	 Version        [31m:[m version_index_type [31m:=[m [35m2016[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m Objects_Parameters_Type [01;34mis[m [01;34mnew[m Language_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Objects_Max [31m:[m Object_Index_Type [31m:=[m [35m65536[m[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
         
   [01;34mtype[m System_Parameters_Type [01;34mis[m [01;34mnew[m Objects_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Self_Programming	[31m:[m [32mboolean[m [31m:=[m False[31m;[m
	 Self_Executed		[31m:[m [32mboolean[m [31m:=[m False[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m Neural_Parameters_Type [01;34mis[m [01;34mnew[m System_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Self_Wait [31m:[m [32mDuration[m [31m:=[m [35m0.00005[m[31m;[m
	 User_Wait [31m:[m [32mDuration[m [31m:=[m [35m86400.0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Gnose_Parameters_Type [01;34mis[m [01;34mnew[m Neural_Parameters_Type [01;34mwith[m
      [01;34mrecord[m
	 Human_Lang [31m:[m Human_Lang_Enum [31m:=[m Human_Lang_Enum'First[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mprocedure[m [01;30minitialize[m[31m([mGnose_Parameters [31m:[m [01;34min[m [01;34mout[m Gnose_Parameters_Type[31m;[m End_Of_Task [31m:[m [01;34mout[m [32mboolean[m[31m);[m
   
   [01;34mfunction[m Set_Parameters_From
     
     [31m([mFilename [31m:[m [01;34min[m [32mWide_String[m[31m)[m 
     
     [01;34mreturn[m Parameters_Kit_Record[31m;[m
   
   [01;34muse[m Gnos[31m.[mOptions[31m;[m
   [01;34mprocedure[m [01;30mSet_Parameters[m[31m([mthe_Parameters [31m:[m [01;34mout[m Parameters_Kit_Record[31m;[m			    
			    Options_Kit [31m:[m [01;34min[m Options_Kit_Array_Type[31m);[m
   
   
   [01;34mfunction[m Get_Parameter
     [31m([mFrom [31m:[m [01;34min[m Parameters_Kit_Array_Type[31m;[m
      Flag [31m:[m [01;34min[m Parameters_Flags_Enum_Type[31m)[m
     [01;34mreturn[m Parameter_Tagged_Record_Type[31m;[m   
   
   [01;34mprocedure[m Parameters_Descriptions
     [31m([mFrom [31m:[m [01;34min[m Parameters_Kit_Array_Type[31m);[m
   
   [01;34mprocedure[m [01;30mPrint_Parameters[m [31m([mKit [31m:[m [01;34min[m Parameters_Kit_Array_Type[31m);[m
   
   [01;34mprocedure[m [01;30mAll_Parameters[m[31m([mAll_Params [31m:[m [01;34min[m [01;34mout[m Gnose_Parameters_Type[31m);[m
   
[01;34mend[m Gnos[31m.[mParameters[31m;[m
