package body Packrat.Lexer is


    procedure Initialize
           (This : in out Combinator_Result) is
    begin
        null;
    end Initialize;


    procedure Adjust
           (This : in out Combinator_Result) is
    begin
        null;
    end Adjust;


    procedure Finalize
           (This : in out Combinator_Result) is
    begin
        null;
    end Finalize;





    function Create_Result
           (Length : in Natural;
            Status : in Result_Status;
            Value  : in Element_Array)
        return Combinator_Result is
    begin
        return Fail_Result;
    end Create_Result;


    function Join
           (Left, Right : in Combinator_Result)
        return Combinator_Result is
    begin
        return Fail_Result;
    end Join;


    function Is_Failure
           (This : in Combinator_Result)
        return Boolean is
    begin
        return True;
    end Is_Failure;


end Packrat.Lexer;