diff options
Diffstat (limited to 'src/packrat-lexer.ads')
-rw-r--r-- | src/packrat-lexer.ads | 41 |
1 files changed, 19 insertions, 22 deletions
diff --git a/src/packrat-lexer.ads b/src/packrat-lexer.ads index 1da9662..2d152bf 100644 --- a/src/packrat-lexer.ads +++ b/src/packrat-lexer.ads @@ -48,6 +48,12 @@ package Packrat.Lexer is + type Lexer_With_Input is access function + return Element_Array; + + + + generic Label : in Label_Enum; with function Combo @@ -59,6 +65,7 @@ package Packrat.Lexer is Context : in out Lexer_Context); generic + Label : in Label_Enum; with function Combo (Input : in Element_Array; Start : in Positive) @@ -79,43 +86,33 @@ package Packrat.Lexer is generic Components : in Component_Array; - Padding : in Gen_Tokens.Token; - procedure Scan_Set + function Scan_Only (Input : in Element_Array; - Context : in out Lexer_Context; - Output : out Gen_Tokens.Token_Array); + Context : in out Lexer_Context) + return Gen_Tokens.Token_Array; generic Components : in Component_Array; - function Scan_Only - (Input : in Element_Array; + function Scan_With + (Input : in Lexer_With_Input; Context : in out Lexer_Context) return Gen_Tokens.Token_Array; generic - Gomponents : in Component_Array; - Padding : in Gen_Tokens.Token; - procedure Scan_Set_Only + Components : in Component_Array; + Pad_In : in Element; + Pad_Out : in Gen_Tokens.Token; + procedure Scan_Set (Input : in Element_Array; Context : in out Lexer_Context; Output : out Gen_Tokens.Token_Array); generic Components : in Component_Array; - with function More - return Element_Array; - function Scan_With - (Input : in Element_Array; - Context : in out Lexer_Context) - return Gen_Tokens.Token_Array; - - generic - Components : in Component_Array; - Padding : in Gen_Tokens.Token; - with function More - return Element_Array; + Pad_In : in Element; + Pad_Out : in Gen_Tokens.Token; procedure Scan_Set_With - (Input : in Element_Array; + (Input : in Lexer_With_Input; Context : in out Lexer_Context; Output : out Gen_Tokens.Token_Array); |