--------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Gnostic is Ada Generic Neural Object System Engineering.                                                                                                --
-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --
--------------------------------------------------------------------------------------------------------------------------------------------------------------
  
--------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Date        := 2016-11-27 19:33:08 ; 
-- Description : Ada Generic Neural Object System Engineering.                                                                                              --
-- Version     := 2016.12.1a ; 
-- Authors     : Manuel De Girardi.                                                                                                                         --
--------------------------------------------------------------------------------------------------------------------------------------------------------------
with Gnos.Tools;
package body Gnos.Versions.Version_io is
   function To_String (Version : in     Version_Type; Separator : in Character := '.') return String is
            
   begin
      
      return 	
	Tools.Integer_Image(Version.Major_Version) & Separator &
	Tools.Integer_Image(Version.Minor_Version) & Separator &
	Tools.Integer_Image(Version.Revision_Version) &
        Version.release_Version;
   end To_String;   
   
end Gnos.Versions.Version_Io;