M agpl-strings.adb

M agpl-strings.ads
mosteo · Jan 16, 2007 · 3cbaca8 · 3cbaca8
1 parent e5a58ec
commit 3cbaca8
Show file tree

Hide file tree

Showing 2 changed files with 31 additions and 1 deletion.
diff --git 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
@@ -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;