[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.[mProjects[31m;[m
[01;34mgeneric[m   
   
   Params [31m:[m Parameters[31m.[mLanguage_Parameters_Type[31m;[m
[01;34mpackage[m Gnos[31m.[mMachines [01;34mis[m
   [01;34muse[m Parameters[31m;[m
   [01;34mpackage[m Agnose_Projects [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mProjects[m[31m([m[01;30mProjects_Parameters_Type[m[31m([mparams[31m));[m
   Machines_Params [31m:[m Parameters[31m.[mLanguage_Parameters_Type [31m:=[m Params[31m;[m
   
   [01;34muse[m Agnose_Projects[31m;[m
   
   [01;34mtype[m Language_Context_Record [01;34mis[m [01;34mnew[m Projects_Context_Record [01;34mwith[m
      [01;34mrecord[m
	 Language_Params  [31m:[m Parameters[31m.[mLanguage_Parameters_Type [31m:=[m Machines[31m.[mParams[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m

   
   [01;34mprocedure[m [01;30minitialize[m[31m([mLanguage_Context [31m:[m [01;34min[m [01;34mout[m Language_Context_Record[31m;[m
			Language_Params  [31m:[m [01;34min[m Language_Parameters_Type[31m);[m			
   [01;34mprocedure[m [01;30mLoad_project[m[31m([mLanguage_Context [31m:[m [01;34min[m [01;34mout[m Language_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([mLanguage_Context [31m:[m [01;34min[m Language_Context_Record'class[31m;[m
			     Params [31m:[m [01;34min[m Language_Parameters_Type'class[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m      
	

    [01;34mtype[m Language_unit_record [01;34mis[m [01;34mtagged[m
	[01;34mrecord[m
	   Machine_Lang [31m:[m Machine_Lang_Enum [31m:=[m Machine_Lang_Enum'First[31m;[m
	[01;34mend[m [01;34mrecord[m[31m;[m
   [01;34mtype[m Language_Unit_Access [01;34mis[m [01;34maccess[m [01;34mall[m Language_Unit_record[31m;[m
   [01;34mtype[m Language_set_array_type [01;34mis[m [01;34marray[m [31m([mMachine_Lang_Enum [01;34mrange[m [31m<>)[m [01;34mof[m Language_Unit_Access[31m;[m
   [01;34mtype[m Language_set_access [01;34mis[m [01;34maccess[m Language_Set_array_type[31m;[m
   [01;34mtype[m Language_System [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
	 Language_set [31m:[m Language_set_access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mLoad_Language[m[31m([mLanguage_Set [31m:[m [01;34min[m [01;34mout[m Language_Set_Array_Type[31m;[m Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m);[m
   
   
[01;34mend[m Gnos[31m.[mMachines[31m;[m
