[31m-- main is main file of main project written with Ada.[m
[31m-- Main is Copyright (C) 2025 Manuel De Girardi ; [m
[31m--[m
[31m--   This program is free software; you can redistribute it and/or modify[m
[31m--   it under the terms of the GNU General Public License as published by[m
[31m--   the Free Software Foundation; either version 2 of the License, or[m
[31m--   (at your option) any later version.[m
[31m--[m
[31m--   This program is distributed in the hope that it will be useful,[m
[31m--   but WITHOUT ANY WARRANTY; without even the implied warranty of[m
[31m--   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the[m
[31m--   GNU General Public License for more details.[m
[31m--[m
[31m--   You should have received a copy of the GNU General Public License[m
[31m--   along with this program; if not, write to the Free Software[m
[31m--   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA[m
[31m--[m
[31m-- Date := 2025-09-28 09:21:58 ; [m
[31m-- Version := 0.20.0a ; [m
[01;34mwith[m M[31m.[mProjects_Manager[31m;[m
[01;34muse[m M[31m.[mProjects_Manager[31m;[m
[01;34mwith[m M[31m.[mProject[31m;[m
[01;34muse[m M[31m.[mProject[31m;[m
[01;34mwith[m M[31m.[mClasses[31m;[m
[01;34mwith[m M[31m.[mEngine[31m;[m
[01;34mwith[m M[31m.[mLogs[31m;[m
[01;34muse[m M[31m.[mLogs[31m;[m
[01;34mwith[m El[31m.[mClasse[31m;[m
[01;34muse[m El[31m;[m
[01;34mwith[m M[31m.[mWindows [31m;[m
[01;34mwith[m Ada[31m.[mContainers[31m;[m
[01;34muse[m Ada[31m.[mContainers[31m;[m

[01;34mgeneric[m
   [01;34mwith[m [01;34mpackage[m Windows [01;34mis[m [01;34mnew[m M[31m.[m[01;30mWindows[m [31m(<>)[m [31m;[m
   [01;34mwith[m [01;34mpackage[m Classes [01;34mis[m [01;34mnew[m M[31m.[m[01;30mClasses[m [31m(<>)[m [31m;[m
   [01;34mwith[m [01;34mpackage[m Engine [01;34mis[m [01;34mnew[m M[31m.[m[01;30mEngine[m [31m(<>)[m [31m;[m
[01;34mpackage[m M[31m.[mEngineering [01;34mis[m
   [01;34muse[m Classes[31m;[m
   [01;34muse[m Engine[31m;[m
   [01;34muse[m Abstract_Vectors[31m;[m
   
   
   
   [01;34mtype[m Terminal_Type [01;34mis[m
      [01;34mrecord[m
	 Root [31m:[m Abstract_Access[31m;[m
	 Path [31m:[m Abstract_Vectors[31m.[mVector[31m;[m
	 Cur  [31m:[m Abstract_Access[31m;[m
	 U_Count  [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mprocedure[m [01;30mAdd_To[m [31m([mTerminal [31m:[m [01;34min[m [01;34mout[m Terminal_Type[31m;[m Obj [31m:[m Abstract_Access[31m);[m
   [01;34mfunction[m [31m"<"[m [31m([mLeft[31m,[m Right [31m:[m [01;34min[m Abstract_Access[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   [01;34mpackage[m Date_Sorting [01;34mis[m [01;34mnew[m Abstract_Vectors[31m.[m[01;30mGeneric_Sorting[m[31m([m[31m"<"[m[31m);[m
   
   [01;34mtype[m Project_Type [01;34mis[m
      [01;34mrecord[m
	 Root [31m:[m Element_Access[31m;[m
	 Path [31m:[m Element_Vectors[31m.[mVector[31m;[m
	 Cur  [31m:[m Element_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mtype[m Engineering_Record [01;34mis[m [01;34mtagged[m [01;34mlimited[m
      [01;34mrecord[m
	 [31m------------------------------------------------------------[m
	 [31m--                Project Manager[m
	 
	 Projects          [31m:[m [01;30mProjects_Record[m[31m([mProject_Num_Range'Last[31m);[m
	 Archives          [31m:[m [01;30mProjects_Record[m[31m([mProject_Num_Range'Last[31m);[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                Organizer[m
	 
	 Terminal [31m:[m Terminal_Type[31m;[m
	 
	 
	  
	 [31m------------------------------------------------------------[m
	 [31m--                Engine[m
	 Project [31m:[m Project_Type[31m;[m
	 	 
	 [31m------------------------------------------------------------[m
	 [31m--                   Master[m
	 Borg [31m:[m  Project_Type[31m;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                   Logs[m
	 Logs [31m:[m Log_Array [31m:=[m [31m([m[01;34mothers[m [31m=>[m [31m([m[35m0.0[m[31m,[m [35m0.0[m[31m));[m
	 Sessions [31m:[m Session_Array[31m;[m
	 
	 [31m------------------------------------------------------------[m
	 [31m--                        Engineer                        --[m
	 [31m------------------------------------------------------------[m
	 [31m--                                                        --[m
	 [31m--          Self programming process of Enginner          --[m
	 [31m--                                                        --[m
	 [31m------------------------------------------------------------[m
	 [31m--[m
	 [31m-- Editor[m
	 [31m--[m
	 [31m------------------------------------------------------------[m
	 [31m--[m
	 [31m-- [m
	 [31m--[m
	 [31m------------------------------------------------------------[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
[01;34mend[m M[31m.[mEngineering [31m;[m 
