[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 23:02:04 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.17.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mwith[m Gnos[31m.[mParameters[31m;[m
[01;34mwith[m Gnos[31m.[mMachines[31m;[m
[01;34mwith[m Gnos[31m.[mlexical[31m;[m
[01;34mgeneric[m   
   Params [31m:[m Parameters[31m.[mObjects_Parameters_Type[31m;[m
   

[01;34mpackage[m Gnos[31m.[mObjects [01;34mis[m
   [01;34muse[m Parameters[31m;[m
   Machines_Params [31m:[m [01;34mconstant[m Language_Parameters_Type [31m:=[m [01;30mLanguage_Parameters_Type[m[31m([mparams[31m);[m
   [01;34mpackage[m Language [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mMachines[m[31m([mMachines_Params[31m);[m

   Objects_Params [31m:[m Parameters[31m.[mObjects_Parameters_Type [31m:=[m Params[31m;[m
   
   [01;34muse[m Language[31m;[m
   [01;34muse[m Language[31m.[mAgnose_Projects[31m;[m   

   [01;34mpackage[m Name_8 [01;34mis[m [01;34mnew[m Gnos[31m.[mlexical[31m.[m[01;30mcode_random[m[31m([m[35m8[m[31m);[m
   [01;34muse[m Name_8[31m;[m
   [01;34mpackage[m Name_12 [01;34mis[m [01;34mnew[m Gnos[31m.[mlexical[31m.[m[01;30mcode_random[m[31m([m[35m12[m[31m);[m
   [01;34muse[m Name_12[31m;[m
   [01;34mpackage[m Name_16 [01;34mis[m [01;34mnew[m Gnos[31m.[mlexical[31m.[m[01;30mcode_random[m[31m([m[35m16[m[31m);[m
   [01;34muse[m Name_16[31m;[m

   [01;34mtype[m Abstract_Object [01;34mis[m [01;34mabstract[m [01;34mtagged[m [01;34mnull[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Object_Access [01;34mis[m [01;34maccess[m [01;34mall[m Abstract_Object'Class[31m;[m
   
      
   Objects_Max [31m:[m Natural [31m:=[m Params[31m.[mObjects_Max[31m;[m
   
   [01;34mtype[m Object_Index_Type [01;34mis[m [01;34mnew[m Natural [01;34mrange[m [35m0[m[31m..[mObjects_Max[31m;[m
   
   [01;34mtype[m Objects_Array_Type [01;34mis[m [01;34marray[m [31m([mObject_Index_Type [01;34mrange[m [31m<>)[m [01;34mof[m Object_Access[31m;[m
   
     
   [01;34mtype[m Objects_Context_Record [01;34mis[m [01;34mnew[m Language_Context_Record [01;34mwith[m
      [01;34mrecord[m
	 Objects_Params [31m:[m Parameters[31m.[mObjects_Parameters_Type [31m:=[m Objects[31m.[mParams[31m;[m
	 Objects_Table  [31m:[m [01;30mObjects_Array_Type[m[31m([m[35m1[m[31m..[mObject_Index_Type'Last[31m);[m
	 Object_Index   [31m:[m Object_Index_Type [31m:=[m [35m0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mprocedure[m [01;30minitialize[m[31m([mObjects_Context [31m:[m [01;34min[m [01;34mout[m Objects_Context_Record[31m;[m
			Objects_Params  [31m:[m [01;34min[m Objects_Parameters_Type[31m);[m
   
   [01;34mprocedure[m [01;30mLoad_project[m[31m([mObjects_Context [31m:[m [01;34min[m [01;34mout[m Objects_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([mObjects_Context [31m:[m [01;34min[m Objects_Context_Record'Class[31m;[m
			    Params [31m:[m [01;34min[m Objects_Parameters_Type'class[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   

   [01;34mtype[m Object_unit_record [01;34mis[m [01;34mnew[m Language_unit_record [01;34mwith[m
      [01;34mrecord[m
	 [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   [01;34mtype[m Object_Unit_Access [01;34mis[m [01;34maccess[m [01;34mall[m Language_Unit_record[31m;[m
   [01;34mtype[m Objects_set_array_type [01;34mis[m [01;34marray[m [31m([mPositive[31m)[m [01;34mof[m Language_Unit_Access[31m;[m
   [01;34mtype[m objects_set_access [01;34mis[m [01;34maccess[m Language_Set_array_type[31m;[m
   [01;34mtype[m objects_System [01;34mis[m [01;34mnew[m Language_System [01;34mwith[m
	[01;34mrecord[m
		Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
		Objects_set [31m:[m Objects_set_access[31m;[m
	[01;34mend[m [01;34mrecord[m[31m;[m
	
[01;34mend[m Gnos[31m.[mObjects[31m;[m

