--------------------------------------------------------------------------------
-- NOM DU CSU (corps) : BasicDef.adb
-- AUTEUR DU CSU : P. Pignard
-- VERSION DU CSU : 3.0a
-- DATE DE LA DERNIERE MISE A JOUR : Octobre 2023
-- 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 2023
-- LICENCE : CeCILL V2.1 (https://cecill.info)
-- CONTACT : http://blady.pagesperso-orange.fr
--------------------------------------------------------------------------------
with Ada.Calendar; use Ada.Calendar;
with Ada.Directories; use Ada.Directories;
with Ada.Strings;
package body BasicDef is
-- Fonction qui, à partir du chemin complet d'un fichier, retourne le nom du fichier seul.
function FSplitName (WithPath : UXString) return UXString is
begin
return From_UTF_8 (Simple_Name (To_UTF_8 (WithPath)));
end FSplitName;
--Renvoie le compteur horaire interne en milisecondes.
function Horlogems return Natural is
begin
return Natural (Seconds (Clock) * 1_000.0);
end Horlogems;
-- Fonction retournant une chaîne sans le dernier élément séparé par un point
function TruncLast (S : UXString) return UXString is
begin
return Head (S, Index (S, ".", Ada.Strings.Backward) - 1);
end TruncLast;
end BasicDef;