[31m-- aish is another attempt of A. i. written with Ada.[m
[31m-- Aish is Copyright (C) 2024 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 := "2024-04-29 20:25:34"[m
[31m-- Version := "1.1.0r"[m
[01;34mpackage[m Ai[31m.[mVersions [01;34mis[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 [35m255[m[31m;[m
   [01;34msubtype[m Revision_Version_Type [01;34mis[m Natural [01;34mrange[m Natural'First [31m..[m [35m1023[m[31m;[m
   [01;34msubtype[m Release_Version_Type [01;34mis[m [32mCharacter[m [01;34mrange[m [31m'a'[m [31m..[m [31m'z'[m [31m;[m 
         
   [31m-- Initiale version :[m
   Current_Major    [31m:[m [01;34mconstant[m Major_Version_Type    [31m:=[m [35m2[m [31m;[m 
   Current_Minor    [31m:[m [01;34mconstant[m Minor_Version_Type    [31m:=[m [35m2[m [31m;[m 
   Current_Revision [31m:[m [01;34mconstant[m Revision_Version_Type [31m:=[m [35m0[m [31m;[m 
   Current_Release  [31m:[m [01;34mconstant[m Release_Version_Type  [31m:=[m [31m'r'[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;34mend[m Ai[31m.[mVersions [31m;[m 
