blob: 611a40730e8ecdbf48a3c2d57693bf0fc8935f35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
generic
type Label_Enum is (<>);
type Element is private;
type Element_Array is array (Positive range <>) of Element;
with package Gen_Tokens is new Tokens (Label_Enum, Element, Element_Array);
package Packrat.Lexer is
type Combinator is access function
(Input : in Element_Array;
Start : in Positive;
Length : out Natural;
Value : out Element_Array)
return Result;
type Combinator_Array is array (Positive range <>) of Combinator;
private
end Packrat.Lexer;
|