generic
package Packrat.Lexer.Debug is


    Empty_Fail : constant Combinator_Result;


    function Create_Result
           (Length : in Natural;
            Status : in Result_Status;
            Value  : in Element_Array)
        return Combinator_Result;

    function Join
           (Left, Right : in Combinator_Result)
        return Combinator_Result;

    function Status
           (This : in Combinator_Result)
        return Result_Status;

    function Debug_String
           (This : in Combinator_Result)
        return String;


private


    Empty_Fail : constant Combinator_Result := Packrat.Lexer.Empty_Fail;


end Packrat.Lexer.Debug;