with Adam.Compiling_System;
with Adam.Tools;
package body Adam.Versions.Editting is
   
   procedure To_Major is
   begin
      Compiling_System.Replace_Description ("Current_Major", Tools.Integer_Image(Version.Major_Version), "Versions");
   end To_Major;
   
   procedure To_Minor is
   begin
      Compiling_System.Replace_Description ("Current_Minor", Tools.Integer_Image(Version.Minor_Version), "Versions");
   end To_Minor;
   
   procedure To_Revision is
   begin
      Compiling_System.Replace_Description ("Current_Revision", Tools.Integer_Image(Version.Revision_Version), "Versions");
   end To_Revision;
   
   procedure To_Release is
   begin
      Compiling_System.Replace_Description ("Current_Release", Character'image(Version.Release_Version), "Versions");
   end To_Release;
       
end Adam.Versions.Editting;