[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.[mParameters[31m;[m
[01;34mwith[m Gnos[31m.[mSystems[31m;[m
[01;34mgeneric[m   
   
   Params [31m:[m Parameters[31m.[mNeural_Parameters_Type[31m;[m
   
[01;34mpackage[m Gnos[31m.[mNeural [01;34mis[m
   [01;34muse[m Parameters[31m;[m
   System_Params [31m:[m [01;34mconstant[m System_Parameters_Type [31m:=[m [01;30mSystem_Parameters_Type[m[31m([mparams[31m);[m
   [01;34mpackage[m Objects_System [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mSystems[m[31m([mSystem_Params[31m);[m
   
   Neural_Params [31m:[m Parameters[31m.[mNeural_Parameters_Type [31m:=[m Params[31m;[m
   [01;34muse[m Objects_System[31m;[m
   [01;34muse[m Objects_System[31m.[mObjects_system[31m;[m
   [01;34muse[m Objects_System[31m.[mObjects_System[31m.[mLanguage[31m;[m
   [01;34muse[m Objects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m;[m
   
   
   [01;34mtype[m Neural_Context_Record [01;34mis[m [01;34mnew[m Objects_System[31m.[mSystem_Context_record [01;34mwith[m
      [01;34mrecord[m
	 Neural_Params [31m:[m Parameters[31m.[mNeural_Parameters_Type [31m:=[m Neural[31m.[mParams[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30minitialize[m[31m([mNeural_Context [31m:[m [01;34min[m [01;34mout[m Neural_Context_Record[31m;[m
			Neural_Params  [31m:[m [01;34min[m Neural_Parameters_Type[31m);[m
   [01;34mprocedure[m [01;30mLoad_Project[m[31m([mNeural_Context [31m:[m [01;34min[m [01;34mout[m Neural_Context_Record[31m;[m
			  Ada_Path [31m:[m [01;34min[m [32mString[m[31m;[m
			  Gtk_Path [31m:[m [01;34min[m [32mString[m[31m;[m
			  Aws_Path [31m:[m [01;34min[m [32mString[m[31m;[m
			  Project_Path [31m:[m [01;34min[m [32mString[m[31m);[m
   
   [01;34mfunction[m [01;30mCheck_Parameters[m[31m([mNeural_Context [31m:[m [01;34min[m Neural_Context_Record[31m;[m
			     Params [31m:[m [01;34min[m Neural_Parameters_Type[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m

   [01;34mtype[m Neural_unit_record [01;34mis[m [01;34mtagged[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;34mtype[m Neural_Unit_Access [01;34mis[m [01;34maccess[m [01;34mall[m Neural_Unit_record[31m;[m
   [01;34mtype[m Neural_set_array_type [01;34mis[m [01;34marray[m [31m([mHuman_Lang_Enum [01;34mrange[m [31m<>)[m [01;34mof[m Neural_Unit_Access[31m;[m
   [01;34mtype[m Neural_set_access [01;34mis[m [01;34maccess[m Neural_Set_array_type[31m;[m
   [01;34mtype[m Neural_System [01;34mis[m [01;34mnew[m System_record [01;34mwith[m
      [01;34mrecord[m
	 Neural_Lang [31m:[m Human_Lang_Enum [31m:=[m Human_Lang_Enum'First[31m;[m
	 Neural_Set [31m:[m Neural_set_access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mLoad_Network[m[31m([mNeural_Set [31m:[m [01;34min[m [01;34mout[m Neural_Set_Array_Type[31m;[m Human_Lang [31m:[m [01;34min[m Human_Lang_Enum[31m);[m
[01;34mend[m Gnos[31m.[mNeural[31m;[m
