-------------------------------------------------------------------------------
---
-- NOM DU CSU (corps)               : BasicDef.adb
-- AUTEUR DU CSU                    : P. Pignard
-- VERSION DU CSU                   : 1.1a
-- DATE DE LA DERNIERE MISE A JOUR  : 18 octobre 2008
-- ROLE DU CSU                      : Unité de définition de types et procédures.
--
--
-- FONCTIONS EXPORTEES DU CSU       :
--
--
-- FONCTIONS LOCALES DU CSU         :
--
--
-- NOTES                            :
--
-- COPYRIGHT                        : (c) Pascal Pignard 2008
-- LICENCE                          : CeCILL V2 (http://www.cecill.info)
-- CONTACT                          : http://blady.pagesperso-orange.fr
--------------------------------------------------------------------------------

with Ada.Calendar;             use Ada.Calendar;
with Ada.Text_IO;              use Ada.Text_IO;
with Ada.Directories;          use Ada.Directories;
with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO;
with Ada.Characters.Handling;  use Ada.Characters.Handling;

package body BasicDef is

   -- Fonction qui, à partir du chemin complet d'un fichier, retourne le nom du fichier seul.
   function FSplitName (WithPath : TText) return TText is
   begin
      return To_Unbounded_String (To_Lower (Simple_Name (To_String (WithPath))));
   end FSplitName;

   --Renvoie le compteur horaire interne en milisecondes.
   function HorlogeMS return Natural is
   begin
      return Natural (Seconds (Clock) * 1000.0);
   end HorlogeMS;

   procedure Get_Line (Item : out TText) is
   begin
      Get_Line (Unbounded_String (Item));
   end Get_Line;

   procedure Put_Line (Item : TText) is
   begin
      Put_Line (Unbounded_String (Item));
   end Put_Line;

   -- Fonction retournant une chaîne sans le dernier élément séparé par un point
   function TruncLast (S : TText) return TText is
   begin
      return Head (S, Index (S, ".", Ada.Strings.Backward) - 1);
   end TruncLast;

   -- Renvoie la chaîne en minuscule.
   function LowStr (S : TText) return TText is
   begin
      return To_Unbounded_String (To_Lower (To_String (S)));
   end LowStr;

end BasicDef;