blob: f93b65b0bc8ecad0f472eacdced9e1d4498c56b4 (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
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;
|