diff --git a/source/os/implementation/vss-command_line.adb b/source/os/implementation/vss-command_line.adb index 61ec7ba6..f4bec837 100644 --- 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 index a50926e6..a8946d1d 100644 --- 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