From 3cbaca82291139d89c90865920b489e0dc00593c Mon Sep 17 00:00:00 2001 From: "Alejandro R. Mosteo" Date: Tue, 16 Jan 2007 23:53:40 +0000 Subject: [PATCH] M agpl-strings.adb M agpl-strings.ads --- agpl-strings.adb | 19 +++++++++++++++++++ agpl-strings.ads | 13 ++++++++++++- 2 files changed, 31 insertions(+), 1 deletion(-) diff --git a/agpl-strings.adb b/agpl-strings.adb index 5b760fa..66da654 100644 --- a/agpl-strings.adb +++ b/agpl-strings.adb @@ -164,4 +164,23 @@ package body Agpl.Strings is end Replace; + ---------- + -- Left -- + ---------- + + function Left (This : in String; Count : Natural) return String is + begin + return This (This'First .. Natural'Min (This'Last, This'First + Count - 1)); + end Left; + + ---------------- + -- Capitalize -- + ---------------- + + function Capitalize (This : in String) return String is + begin + return U (This (This'First .. This'First)) & + L (This (This'First + 1 .. This'Last)); + end Capitalize; + end Agpl.Strings; diff --git a/agpl-strings.ads b/agpl-strings.ads index 65104c1..3419422 100644 --- a/agpl-strings.ads +++ b/agpl-strings.ads @@ -100,6 +100,12 @@ package Agpl.Strings is function U (This : in String) return String renames To_upper; pragma Inline (To_upper); + ---------------- + -- Capitalize -- + ---------------- + function Capitalize (This : in String) return String; + -- Mixed case + ------------------------------------------------------------------------ -- To_string -- ------------------------------------------------------------------------ @@ -110,6 +116,11 @@ package Agpl.Strings is -- Trim -- ------------------------------------------------------------------------ function Trim (This : in String) return String - renames Conversions.Trim; + renames Conversions.Trim; + + ---------- + -- Left -- + ---------- + function Left (This : in String; Count : Natural) return String; end Agpl.Strings;