-----
    -- Get Next Parameter
    --
    -- This is used to parse out the next parameter in the parameter list.
    --
    -- @access Private
    -----
    Function Get_Next_Parameter (Parameter_List : String; Index : Integer) Return String is

      Current : Integer := Index;
      Result : Ada.Strings.Unbounded.Unbounded_String := nus;

    Begin

      If Current /= Parameter_List'Last Then

        While Parameter_List(Current) /= ',' Loop

          Ada.Strings.Unbounded.Append(Result, Parameter_List(Current));
          Exit When Current = Parameter_List'Last;
          Current := Current + 1;

        End Loop;

      End If;

      Return Ada.Strings.Unbounded.To_String(Result);

    End Get_Next_Parameter;
    Pragma Inline (Get_Next_Parameter);