[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Agnostic 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.[mClassified[31m;[m
[01;34muse[m Gnos[31m.[mClassified[31m;[m
[01;34mwith[m Gnos[31m.[mEngineering[31m;[m
[01;34muse[m Gnos[31m.[mEngineering[31m;[m
[01;34mwith[m Gnos[31m.[mVersions[31m;[m
[01;34mwith[m Gnos[31m.[mVersions[31m.[mEditting[31m;[m
[01;34mgeneric[m
   Params [31m:[m Parameters[31m.[mprojects_Parameters_Type[31m;[m
[01;34mpackage[m Gnos[31m.[mProjects [01;34mis[m            
   
   
   [01;34msubtype[m Name_Type [01;34mis[m [32mString[m[31m([m[35m1[m[31m..[mParams[31m.[mName_Length[31m);[m
   
   [01;34mtype[m Ada_With_Type [01;34mis[m [31m([mWithout_Ada[31m,[m With_Ada[31m);[m
   [01;34mtype[m Gtk_With_Type [01;34mis[m [31m([mWithout_Gtk[31m,[m With_Gtk[31m);[m
   [01;34mtype[m Aws_With_Type [01;34mis[m [31m([mWithout_Aws[31m,[m With_AWS[31m);[m
            
   [01;34mtype[m Abstract_Unit_Type [01;34mis[m [01;34mabstract[m [01;34mtagged[m
      [01;34mrecord[m	 
	 Unit_Name [31m:[m Name_type[31m;[m
	 File_Name [31m:[m Name_type[31m;[m
	 Path_Name [31m:[m Name_type[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
            
   [01;34mtype[m Unit_Record_Type [01;34mis[m [01;34mnew[m Abstract_Unit_Type [01;34mwith[m
      [01;34mrecord[m
	 Path_Dir [31m:[m Name_type[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34msubtype[m Unit_Index_Type [01;34mis[m Positive [01;34mrange[m [35m1[m[31m..[mParams[31m.[mUnit_Max[31m;[m
   
   
   [01;34mtype[m Unit_Array_Type [01;34mis[m [01;34marray[m [31m([mUnit_Index_Type [01;34mrange[m [35m1[m[31m..[mUnit_Index_Type'last[31m)[m [01;34mof[m Unit_Record_Type[31m;[m
   
   [01;34mtype[m Main_Record_Type [01;34mis[m [01;34mnew[m Abstract_Unit_Type [01;34mwith[m
      [01;34mrecord[m
	 Path_Dir [31m:[m Name_type[31m;[m	 	 	 	 
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   
   [01;34mtype[m Library_Record_Type [01;34mis[m [01;34mnew[m Abstract_Unit_Type [01;34mwith[m
      [01;34mrecord[m
	 Path_Dir [31m:[m Name_type[31m;[m
	 Library_unit [31m:[m Unit_Array_Type[31m;[m
	 Unit_Index   [31m:[m Natural [31m:=[m [35m0[m[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m [01;30mProject_Record_Type[m[31m([mAda_With [31m:[m Ada_With_Type[31m)[m [01;34mis[m [01;34mnew[m Data_Class [01;34mwith[m
      [01;34mrecord[m	 	 
	 Project_Prefix [31m:[m [01;34maccess[m [32mString[m[31m;[m
	 Project_Name [31m:[m [01;34maccess[m [32mString[m[31m;[m	 	 
	 Working_Directory [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m"."[m[31m);[m	 
	 Main         [31m:[m Main_Record_Type[31m;[m
	 Proj_Library [31m:[m Library_Record_Type[31m;[m	 
	 Gtk_Library  [31m:[m Library_Record_Type[31m;[m
	 Aws_Library  [31m:[m Library_Record_Type[31m;[m
	 [01;34mcase[m Ada_With [01;34mis[m
	    [01;34mwhen[m Without_Ada [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       Ada_Library [31m:[m Library_Record_Type[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   
   [01;34mtype[m Project_Access [01;34mis[m [01;34maccess[m [01;34mall[m Project_Record_Type'Class[31m;[m
   
   [01;34mtype[m Projects_Context_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Ada_Path [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 Gtk_Path [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 Aws_Path [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 Pro_Path [31m:[m [01;34maccess[m [32mWide_String[m[31m;[m
	 Projects_Params [31m:[m Parameters[31m.[mProjects_Parameters_Type [31m:=[m Projects[31m.[mParams[31m;[m
	 Project [31m:[m Project_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mtype[m [01;30mProject_Without_Ada_Record_Type[m[31m([mGtk_With [31m:[m Gtk_With_Type[31m)[m [01;34mis[m [01;34mnew[m [01;30mProject_Record_Type[m[31m([mWithout_Ada[31m)[m [01;34mwith[m 
     [01;34mnull[m [01;34mrecord[m[31m;[m	 
   
   [01;34mtype[m [01;30mProject_With_Ada_Record_Type[m[31m([mGtk_With [31m:[m Gtk_With_Type[31m)[m [01;34mis[m [01;34mnew[m [01;30mProject_Record_Type[m[31m([mWith_Ada[31m)[m [01;34mwith[m
     [01;34mnull[m [01;34mrecord[m[31m;[m
   
   Project_Default [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Project.default"[m[31m;[m      
   
   [01;34muse[m Parameters[31m;[m
   
   [01;34mprocedure[m [01;30minitialize[m[31m([mProjects_Context [31m:[m [01;34min[m [01;34mout[m Projects_Context_Record'Class[31m;[m
			Projects_Params  [31m:[m [01;34min[m Projects_Parameters_Type[31m);[m
   
   [01;34mprocedure[m [01;30mLoad_Project[m[31m([mProject [31m:[m [01;34mout[m Project_Record_Type'Class[31m;[m 
			  Path_Name [31m:[m [01;34min[m [32mString[m[31m);[m   
   [01;34mprocedure[m [01;30mLoad_Ada[m[31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Record_Type'Class[31m;[m
		      Path_Name [31m:[m [01;34min[m [32mString[m[31m);[m
   [01;34mprocedure[m [01;30mLoad_GtkAda[m[31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Record_Type'Class[31m;[m
			 Path_Name [31m:[m [01;34min[m [32mString[m[31m);[m
   [01;34mprocedure[m [01;30mLoad_Aws[m[31m([mProject [31m:[m [01;34min[m [01;34mout[m Project_Record_Type'Class[31m;[m
		      Path_Name [31m:[m [01;34min[m [32mString[m[31m);[m   
   
   [01;34mfunction[m [01;30mCheck_Parameters[m[31m([mProjects_Context [31m:[m [01;34min[m Projects_Context_Record'Class[31m;[m
			     Params [31m:[m [01;34min[m Projects_Parameters_Type'class[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m      
   
   
[01;34mend[m Gnos[31m.[mProjects[31m;[m
