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

[01;34mpackage[m [01;34mbody[m Gnos[31m.[mGnose [01;34mis[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;34mis[m
      
      
   [01;34mbegin[m            
      
      
      
      [01;34mnull[m[31m;[m
      Gnose_Context[31m.[mGnose_Params [31m:=[m Gnose_Params[31m;[m
      Neural[31m.[m[01;30mInitialize[m[31m([m[01;30mNeural_Context_Record[m[31m([mGnose_Context[31m),[m Parameters[31m.[m[01;30mNeural_Parameters_Type[m[31m([mGnose_Params[31m));[m
   [01;34mend[m initialize[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;34mis[m
      
      
      
   [01;34mbegin[m
      
      Neural[31m.[m[01;30mLoad_Project[m[31m([m[01;30mNeural_Context_Record[m[31m([mGnose_Context[31m),[m 
		  Ada_Path[31m,[m Gtk_Path[31m,[m Aws_Path[31m,[m Project_Path[31m);[m            
      
   [01;34mend[m Load_Project[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 [01;34mis[m
      
      Checked [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Neural_Context [31m:[m Neural_Context_Record [31m:=[m [01;30mNeural_Context_Record[m[31m([mGnose_Context[31m);[m
   [01;34mbegin[m
      Wide_Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Gnose Context :"[m[31m);[m
      
      Checked [31m:=[m Gnose_Context[31m.[mGnose_Params [31m=[m Params[31m;[m
      [01;34mif[m [01;34mnot[m Checked [01;34mthen[m
	 Text_Io[31m.[mNew_Line[31m;[m
	 [01;34mif[m Gnose_Context[31m.[mGnose_Params[31m.[mHuman_Lang [31m/=[m [01;30mGnose_Parameters_Type[m[31m([mParams[31m).[mHuman_Lang [01;34mthen[m
	    
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Human_Lang : "[m [31m&[m 
		       Human_Lang_Enum'[01;30mImage[m[31m([mGnose_Context[31m.[mGnose_Params[31m.[mHuman_Lang[31m)[m [31m&[m [31m" /= "[m [31m&[m
			       Human_Lang_Enum'[01;30mImage[m[31m([m[01;30mGnose_Parameters_Type[m[31m([mParams[31m).[mHuman_Lang[31m));[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mraise[m Program_Error[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      Wide_Text_Io[31m.[m[01;30mPut[m[31m([m[31m"Ok, "[m[31m);[m
      Checked [31m:=[m Checked [01;34mand[m Neural[31m.[m[01;30mCheck_Parameters[m[31m([mNeural_Context[31m,[m [01;30mNeural_Parameters_Type[m[31m([mParams[31m));[m
      [01;34mreturn[m Checked[31m;[m
   [01;34mend[m Check_Parameters[31m;[m
   
   [01;34mprocedure[m [01;30mPrint_Context[m [31m([mGnose_Context [31m:[m [01;34min[m Gnose_Context_Record[31m)[m [01;34mis[m
   [01;34mbegin[m
      
      [31m--  Text_Io.Put_Line("Human_Lang : " & [m
      [31m--  			 Human_Lang_Enum'Image(Gnose_Context.Gnose_Params.Human_Lang));[m

      [31m--  Text_Io.Put_Line("Self_Wait : " & [m
      [31m--  		 Duration'Image(Gnose_Context.Gnose_Params.Self_Wait));[m

      
      [31m--  Text_Io.Put_Line("User_Wait : " & [m
      [31m--  		 Duration'Image(Gnose_Context.Gnose_Params.User_Wait));[m
      
      [31m--  Text_Io.Put_Line("Self_Programming : " & [m
      [31m--  			 Boolean'Image(Gnose_Context.Gnose_Params.Self_Programming));[m
      
      [31m--  Text_Io.Put_Line("Self_Executed : " & [m
      [31m--  			 Boolean'Image(Gnose_Context.Gnose_Params.Self_Executed));[m
      
      [31m--  Text_Io.Put_Line("Objects_Max : " & [m
      [31m--  			 Integer'Image(Gnose_Context.Gnose_Params.Objects_Max));[m
      
      [31m--  Text_Io.Put_Line("Char_Max : " & [m
      [31m--  			 Integer'Image(Gnose_Context.Gnose_Params.Char_Max));[m
      
      [31m--  Text_Io.Put_Line("Version : " & [m
      [31m--  			 Integer'Image(Gnose_Context.Gnose_Params.Version));[m
      
      [31m--  Text_Io.Put_Line("Name_Length : " & [m
      [31m--  			 Integer'Image(Gnose_Context.Gnose_Params.Name_Length));[m
      
      [31m--  Text_Io.Put_Line("Unit_Max : " & [m
      [31m--  			 Integer'Image(Gnose_Context.Gnose_Params.Unit_Max));[m
      
      [31m--  Text_Io.Put_Line("With_Gtk : " & [m
      [31m--  			 Boolean'Image(Gnose_Context.Gnose_Params.With_Gtk));[m
      
      [31m--  Text_Io.Put_Line("With_Ada : " & [m
      [31m--  			 Boolean'Image(Gnose_Context.Gnose_Params.With_Ada));[m
      
      [31m--  Text_Io.Put_Line("With_Aws : " & [m
      [31m--  			 Boolean'Image(Gnose_Context.Gnose_Params.With_Aws));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Human_Lang : "[m [31m&[m 
			 Human_Lang_Enum'[01;30mImage[m[31m([mGnose_Context[31m.[mGnose_Params[31m.[mHuman_Lang[31m));[m

      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Self_Wait : "[m [31m&[m 
		 [32mDuration[m'[01;30mImage[m[31m([mGnose_Context[31m.[mNeural_Params[31m.[mSelf_Wait[31m));[m

      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"User_Wait : "[m [31m&[m 
		 [32mDuration[m'[01;30mImage[m[31m([mGnose_Context[31m.[mNeural_Params[31m.[mUser_Wait[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Self_Programming : "[m [31m&[m 
			 [32mBoolean[m'[01;30mImage[m[31m([mGnose_Context[31m.[mSystem_Params[31m.[mSelf_Programming[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Self_Executed : "[m [31m&[m 
			 [32mBoolean[m'[01;30mImage[m[31m([mGnose_Context[31m.[mSystem_Params[31m.[mSelf_Executed[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Objects_Max : "[m [31m&[m 
			 [32mInteger[m'[01;30mImage[m[31m([mGnose_Context[31m.[mObjects_Params[31m.[mObjects_Max[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Char_Max : "[m [31m&[m 
			 [32mInteger[m'[01;30mImage[m[31m([mGnose_Context[31m.[mLanguage_Params[31m.[mChar_Max[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Version : "[m [31m&[m 
			 [32mInteger[m'[01;30mImage[m[31m([mGnose_Context[31m.[mLanguage_Params[31m.[mVersion[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Name_Length : "[m [31m&[m 
			 [32mInteger[m'[01;30mImage[m[31m([mGnose_Context[31m.[mProjects_Params[31m.[mName_Length[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Unit_Max : "[m [31m&[m 
			 [32mInteger[m'[01;30mImage[m[31m([mGnose_Context[31m.[mProjects_Params[31m.[mUnit_Max[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"With_Gtk : "[m [31m&[m 
			 [32mBoolean[m'[01;30mImage[m[31m([mGnose_Context[31m.[mProjects_Params[31m.[mWith_Gtk[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"With_Ada : "[m [31m&[m 
			 [32mBoolean[m'[01;30mImage[m[31m([mGnose_Context[31m.[mProjects_Params[31m.[mWith_Ada[31m));[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"With_Aws : "[m [31m&[m 
			 [32mBoolean[m'[01;30mImage[m[31m([mGnose_Context[31m.[mProjects_Params[31m.[mWith_Aws[31m));[m

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