[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 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.[mTools[31m;[m
[01;34mpackage[m [01;34mbody[m Gnos[31m.[mVersions[31m.[mVersion_io [01;34mis[m
   [01;34mfunction[m [01;30mTo_String[m [31m([mVersion [31m:[m [01;34min[m     Version_Type[31m;[m Separator [31m:[m [01;34min[m [32mCharacter[m [31m:=[m [31m'.'[m[31m)[m [01;34mreturn[m [32mString[m [01;34mis[m
            
   [01;34mbegin[m
      
      [01;34mreturn[m 	
	Tools[31m.[m[01;30mInteger_Image[m[31m([mVersion[31m.[mMajor_Version[31m)[m [31m&[m Separator [31m&[m
	Tools[31m.[m[01;30mInteger_Image[m[31m([mVersion[31m.[mMinor_Version[31m)[m [31m&[m Separator [31m&[m
	Tools[31m.[m[01;30mInteger_Image[m[31m([mVersion[31m.[mRevision_Version[31m)[m [31m&[m
        Version[31m.[mrelease_Version[31m;[m
   [01;34mend[m To_String[31m;[m   
   
[01;34mend[m Gnos[31m.[mVersions[31m.[mVersion_Io[31m;[m
