Virtual_String_Vector.Join with string separator.

AdaCore · Nov 7, 2024 · cea0fbb · cea0fbb
1 parent 2f9babd
commit cea0fbb
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/source/text/implementation/vss-string_vectors.adb b/source/text/implementation/vss-string_vectors.adb
@@ -268,6 +268,32 @@ package body VSS.String_Vectors is
       end return;
    end Join;
 
+   ----------
+   -- Join --
+   ----------
+
+   function Join
+     (Self      : Virtual_String_Vector'Class;
+      Separator : VSS.Strings.Virtual_String)
+      return VSS.Strings.Virtual_String
+   is
+      First_Segment : Boolean := True;
+
+   begin
+      return Result : VSS.Strings.Virtual_String do
+         for Item of Self loop
+            if First_Segment then
+               First_Segment := False;
+
+            else
+               Result.Append (Separator);
+            end if;
+
+            Result.Append (Item);
+         end loop;
+      end return;
+   end Join;
+
    ----------------
    -- Join_Lines --
    ----------------

diff --git a/source/text/vss-string_vectors.ads b/source/text/vss-string_vectors.ads
@@ -119,6 +119,10 @@ package VSS.String_Vectors is
      (Self      : Virtual_String_Vector'Class;
       Separator : VSS.Characters.Virtual_Character)
       return VSS.Strings.Virtual_String;
+   function Join
+     (Self      : Virtual_String_Vector'Class;
+      Separator : VSS.Strings.Virtual_String)
+      return VSS.Strings.Virtual_String;
    --  Join all strings in the string vector into single string with each
    --  element separated by the given separator.