[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 20:03:03 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.13.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mwith[m Ada[31m.[mCalendar[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m Gnos[31m.[mResults[31m;[m
[01;34muse[m Gnos[31m.[mResults[31m;[m
[01;34mwith[m Gnos[31m.[mProjects[31m;[m
[01;34mgeneric[m
   [01;34mwith[m [01;34mpackage[m Projects [01;34mis[m [01;34mnew[m Gnos[31m.[m[01;30mProjects[m [31m(<>);[m
[01;34mpackage[m Gnos[31m.[mVersions[31m.[mEnvironment [01;34mis[m
   [01;34muse[m Projects[31m;[m
   [01;34mfunction[m Version_Update [01;34mreturn[m [32mInteger[m[31m;[m
   
   [01;34mfunction[m Version_Reset [01;34mreturn[m [32mInteger[m[31m;[m
   
   [01;34mprocedure[m [01;30mSet_Start_Time[m[31m([mDate [31m:[m [01;34min[m Calendar[31m.[mTime [31m:=[m Calendar[31m.[mClock[31m);[m
   
   [31m-- Modified file for Specifications.[m
   Specifications_Filenames_Search  [31m:[m Results[31m.[mSpawn_Result_Type[31m;[m
   
   [31m-- Modified file for Implementations.[m
   Implementations_Filenames_Search [31m:[m Results[31m.[mSpawn_Result_Type[31m;[m
   
   
   [01;34mfunction[m [01;30mCheck_Modification_To_New_Description[m[31m([mProject_Context [31m:[m [01;34min[m Projects_Context_Record[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   [01;34mfunction[m [01;30mCheck_Modification_To_New_Action[m[31m([mProject_Context [31m:[m [01;34min[m Projects_Context_Record[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m        
   
[01;34mend[m Gnos[31m.[mversions[31m.[mEnvironment[31m;[m
