diff options
Diffstat (limited to 'src/packrat-lexer.ads')
-rw-r--r-- | src/packrat-lexer.ads | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/packrat-lexer.ads b/src/packrat-lexer.ads index ef08cb5..6c28bf8 100644 --- a/src/packrat-lexer.ads +++ b/src/packrat-lexer.ads @@ -21,7 +21,7 @@ package Packrat.Lexer is type Combinator_Array is array (Positive range <>) of Combinator; - Fail_Result : constant Combinator_Result; + Empty_Fail : constant Combinator_Result; function Create_Result @@ -42,6 +42,10 @@ package Packrat.Lexer is (This : in Combinator_Result) return Result_Status; + function Debug_String + (This : in Combinator_Result) + return String; + private @@ -49,6 +53,9 @@ private type Element_Array_Access is access Element_Array; + Empty_Array : Element_Array (1 .. 0); + + type Combinator_Result is new Ada.Finalization.Controlled with record Length : Natural; Status : Result_Status; @@ -66,7 +73,7 @@ private (This : in out Combinator_Result); - Fail_Result : constant Combinator_Result := + Empty_Fail : constant Combinator_Result := (Ada.Finalization.Controlled with Length => 0, Status => Failure, |