[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-12-06 15:54:11 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.35.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mpackage[m Gnos[31m.[mVersions [01;34mis[m
   
   [01;34mpragma[m [01;30mShared_Passive[m [31m([mGnos[31m.[mVersions[31m);[m
   
   [01;34msubtype[m Major_Version_Type [01;34mis[m Natural [01;34mrange[m Natural'First [31m..[m [35m2399[m[31m;[m
   [01;34msubtype[m Minor_Version_Type [01;34mis[m Natural [01;34mrange[m Natural'First [31m..[m [35m366[m[31m;[m
   [01;34msubtype[m Revision_Version_Type [01;34mis[m Natural [01;34mrange[m Natural'First [31m..[m [35m86400[m[31m;[m
   [01;34msubtype[m Release_Version_Type [01;34mis[m [32mCharacter[m [01;34mrange[m [31m'a'[m [31m..[m [31m'b'[m [31m;[m 
         
   [31m-- Initiale version :[m
   Current_Major    [31m:[m [01;34mconstant[m Major_Version_Type    [31m:=[m [35m2016[m [31m;[m 
   Current_Minor    [31m:[m [01;34mconstant[m Minor_Version_Type    [31m:=[m [35m37[m [31m;[m 
   Current_Revision [31m:[m [01;34mconstant[m Revision_Version_Type [31m:=[m [35m1[m [31m;[m 
   Current_Release  [31m:[m [01;34mconstant[m Release_Version_Type  [31m:=[m [31m'b'[m [31m;[m 
      
   [01;34mtype[m Version_Type [01;34mis[m
      [01;34mrecord[m
	 Major_Version    [31m:[m Major_Version_Type [31m:=[m Major_Version_Type'First[31m;[m
	 Minor_Version    [31m:[m Minor_Version_Type [31m:=[m Minor_Version_Type'First[31m;[m
	 Revision_Version [31m:[m Revision_Version_Type [31m:=[m Revision_Version_Type'First[31m;[m
	 Release_Version  [31m:[m Release_Version_Type [31m:=[m Release_Version_Type'First[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   Null_Version [31m:[m [01;34mconstant[m Version_Type [31m:=[m 
     [31m([mMajor_Version [31m=>[m Major_Version_Type'First[31m,[m
      Minor_Version [31m=>[m Minor_Version_Type'First[31m,[m
      Revision_Version [31m=>[m Revision_Version_Type'First[31m,[m
      Release_Version [31m=>[m Release_Version_Type'First[31m);[m

   Version [31m:[m Version_Type [31m:=[m 
     [31m([mMajor_Version [31m=>[m Current_Major[31m,[m
      Minor_Version [31m=>[m Current_Minor[31m,[m
      Revision_Version [31m=>[m Current_Revision[31m,[m
      Release_Version [31m=>[m Current_Release[31m);[m
   
   
   New_Action      [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   New_Description [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   New_Version     [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   
   
   [01;34msubtype[m Year_Number  [01;34mis[m [32mInteger[m [01;34mrange[m [35m1901[m [31m..[m [35m2399[m[31m;[m
   [01;34msubtype[m Month_Number [01;34mis[m [32mInteger[m [01;34mrange[m [35m1[m [31m..[m [35m12[m[31m;[m
   [01;34msubtype[m Day_Number   [01;34mis[m [32mInteger[m [01;34mrange[m [35m1[m [31m..[m [35m31[m[31m;[m
   [01;34msubtype[m Day_Duration [01;34mis[m [32mDuration[m [01;34mrange[m [35m0.0[m [31m..[m 86_399[31m.[m[35m0[m[31m;[m
   
   
   
   
   [01;34mtype[m date_Type [01;34mis[m 
      [01;34mrecord[m
         Year    [31m:[m    Year_Number   [31m:=[m Year_Number'First[31m;[m
         Month   [31m:[m    Month_Number  [31m:=[m Month_Number'First[31m;[m
         Day     [31m:[m    Day_Number    [31m:=[m Day_Number'First[31m;[m
         Hours   [31m:[m    Day_Duration  [31m:=[m Day_Duration'First[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   shared_Date [31m:[m Date_Type [31m:=[m [31m([mYear_Number'First[31m,[m 
			      Month_Number'First[31m,[m 
			      Day_Number'First[31m,[m
			      Day_Duration'First[31m);[m        
   
   
   Start_Date [31m:[m Date_Type [31m:=[m [31m([mYear_Number'First[31m,[m 
                                    Month_Number'First[31m,[m 
                                    Day_Number'First[31m,[m
                                    Day_Duration'First[31m);[m        
   
   Date_Locked [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
   [01;34mtype[m Timer_Type [01;34mis[m
      [01;34mrecord[m
         Start_Date [31m:[m Date_Type [31m:=[m [31m([mYear_Number'First[31m,[m 
                                    Month_Number'First[31m,[m 
                                    Day_Number'First[31m,[m
                                    Day_Duration'First[31m);[m        
         Is_Set     [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   Shared_Timer [31m:[m Timer_Type [31m:=[m [31m(([mYear_Number'First[31m,[m 
                                  Month_Number'First[31m,[m 
                                  Day_Number'First[31m,[m
                                  Day_Duration'First[31m),[m
                                 False[31m);[m
   
   [01;34mtype[m Alarm_Type [01;34mis[m
      [01;34mrecord[m
   
         Start_Date [31m:[m Date_Type [31m:=[m [31m([mYear_Number'First[31m,[m 
                                    Month_Number'First[31m,[m 
                                    Day_Number'First[31m,[m
                                    Day_Duration'First[31m);[m
         Stop_Date  [31m:[m Date_Type [31m:=[m [31m([mYear_Number'First[31m,[m 
                                    Month_Number'First[31m,[m 
                                    Day_Number'First[31m,[m
                                    Day_Duration'First[31m);[m
         Is_Set     [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
         
   Shared_Alarm [31m:[m Alarm_Type [31m:=[m [31m(([mYear_Number'First[31m,[m 
                                  Month_Number'First[31m,[m 
                                  Day_Number'First[31m,[m
                                  Day_Duration'First[31m),[m
                                 [31m([mYear_Number'First[31m,[m 
                                 Month_Number'First[31m,[m 
                                 Day_Number'First[31m,[m
                                 Day_Duration'First[31m),[m
                                 False[31m);[m
     

[01;34mend[m Gnos[31m.[mVersions[31m;[m
