Set -> Vector -> Set conversion functions

src/aaa-strings.adb

@@ -409,13 +409,39 @@ package body AAA.Strings is
  -- To_Vector --
  ---------------
 
+ function To_Vector (This : Set) return Vector is
+ begin
+ return V : Vector do
+ for Elem of This loop
+ V.Append (Elem);
+ end loop;
+ end return;
+ end To_Vector;
+
+ ---------------
+ -- To_Vector --
+ ---------------
+
  function To_Vector (S : String) return Vector is
  begin
  return V : Vector do
  V.Append (S);
  end return;
  end To_Vector;
 
+ ------------
+ -- To_Set --
+ ------------
+
+ function To_Set (V : Vector'Class) return Set is
+ begin
+ return S : Set do
+ for Elem of V loop
+ S.Include (Elem);
+ end loop;
+ end return;
+ end To_Set;
+
  ----------
  -- Trim --
  ----------

src/aaa-strings.ads

@@ -6,6 +6,8 @@ with Ada.Containers.Indefinite_Vectors;
 
 package AAA.Strings with Preelaborate is
 
+ type Vector;
+
  function Camel_To_Mixed (S : String) return String;
  -- Converts ThisThing into This_Thing
 
@@ -86,6 +88,8 @@ package AAA.Strings with Preelaborate is
 
  Empty_Set : constant Set;
 
+ function To_Vector (This : Set) return Vector;
+
  -------------
  -- Vectors --
  -------------
@@ -180,6 +184,9 @@ package AAA.Strings with Preelaborate is
  -- Return V without its first element. If Allow_Empty, tail of an empty
  -- vector will be another empty vector.
 
+ function To_Set (V : Vector'Class) return Set;
+ -- Note that this will drop duplicates
+
  not overriding
  function To_Vector (S : String) return Vector;