[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.[mNeural[31m;[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m;[m

[01;34mgeneric[m      
   Params [31m:[m Parameters[31m.[mGnose_Parameters_Type[31m;[m
   
[01;34mpackage[m Gnos[31m.[mGnose [01;34mis[m
   
   [01;34muse[m Parameters[31m;[m
   Neural_params [31m:[m [01;34mconstant[m Neural_Parameters_Type [31m:=[m [01;30mNeural_Parameters_Type[m[31m([mparams[31m);[m
   [01;34mpackage[m Neural [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mNeural[m[31m([mNeural_Params[31m);[m
   
   
   
   [01;34mtype[m Gnose_Context_Record [01;34mis[m [01;34mnew[m Neural[31m.[mNeural_Context_Record [01;34mwith[m
      [01;34mrecord[m	 
	 Gnose_Params [31m:[m Parameters[31m.[mGnose_Parameters_Type[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m	       
   
   [01;34muse[m Neural[31m;[m
   [01;34muse[m Neural[31m.[mObjects_System[31m;[m
   [01;34muse[m Neural[31m.[mObjects_System[31m.[mObjects_System[31m;[m
   [01;34muse[m Neural[31m.[mObjects_System[31m.[mObjects_system[31m.[mLanguage[31m;[m
   [01;34muse[m Neural[31m.[mObjects_System[31m.[mObjects_System[31m.[mLanguage[31m.[mAgnose_Projects[31m;[m
   
   
   
   [01;34mprocedure[m [01;30minitialize[m[31m([mGnose_Context [31m:[m [01;34min[m [01;34mout[m Gnose_Context_Record[31m;[m
			Gnose_Params  [31m:[m [01;34min[m [01;34mout[m Gnose_Parameters_Type[31m);[m
   
   [01;34mprocedure[m [01;30mLoad_Project[m[31m([mGnose_Context [31m:[m [01;34min[m [01;34mout[m Gnose_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([mGnose_Context [31m:[m [01;34min[m Gnose_Context_Record[31m;[m Params [31m:[m [01;34min[m Gnose_Parameters_Type[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m     
   
   
   [01;34mprocedure[m [01;30mPrint_Context[m [31m([mGnose_Context [31m:[m [01;34min[m Gnose_Context_Record[31m);[m
   

   
[01;34mend[m Gnos[31m.[mGnose[31m;[m
