Wrapper of Value for simplified command line package.

AdaCore · Jan 22, 2024 · 1bda7c0 · 1bda7c0
1 parent f416495
commit 1bda7c0
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/source/os/implementation/vss-command_line.adb b/source/os/implementation/vss-command_line.adb
@@ -234,6 +234,17 @@ package body VSS.Command_Line is
    -- Values --
    ------------
 
+   function Values
+     (Option : Multivalue_Positional_Option'Class)
+      return VSS.String_Vectors.Virtual_String_Vector is
+   begin
+      return Parser.Values (Option);
+   end Values;
+
+   ------------
+   -- Values --
+   ------------
+
    function Values
      (Option : Name_Value_Option'Class) return Name_Value_Vectors.Vector is
    begin

diff --git a/source/os/vss-command_line.ads b/source/os/vss-command_line.ads
@@ -75,6 +75,11 @@ package VSS.Command_Line is
       return VSS.String_Vectors.Virtual_String_Vector;
    --  Return all values of the given option specified in the command line.
 
+   function Values
+     (Option : Multivalue_Positional_Option'Class)
+      return VSS.String_Vectors.Virtual_String_Vector;
+   --  Return all values of the given option specified in the command line.
+
    function Values
      (Option : Name_Value_Option'Class) return Name_Value_Vectors.Vector;
    --  Return all name=value pairs of the given option specified in the