Navigation

Changeset 2669

Timestamp:

11/10/08 10:13:40 (2 months ago)

Author:

maxr

Message:

ada: disable character_literal after identifiers in unicode scanner

Files:

r2666	r2669
1	1	package body Asis.Gela.Scanners is
	2
	3	-----------
	4	-- Enter --
	5	-----------
	6
	7	procedure Enter
	8	(Object : in out Scanner;
	9	State : in Scanner_Tables.State) is
	10	begin
	11	Object.Start := State;
	12	end Enter;
2	13
3	14	----------------

r2663	r2669
31	31	From : out Source_Buffers.Cursor;
32	32	To : out Source_Buffers.Cursor);
	33	pragma Inline (Token_Span);
33	34
34	35	procedure Initialize
35	36	(Object : out Scanner;
36	37	Cursor : in Source_Buffers.Cursor);
	38
	39	procedure Enter
	40	(Object : in out Scanner;
	41	State : in Scanner_Tables.State);
	42	pragma Inline (Enter);
37	43
38	44	private

r2668	r2669
35	35
36	36	with Asis.Gela.Scanners;
	37	with Asis.Gela.Scanner_Tables;
37	38	with Gela.Character_Class_Buffers;
38	39	with Gela.Classificators;
…	…
143	144	end loop;
144	145
	146	if Token = Identifier_Token then
	147	Scanners.Enter (Scanner, Scanner_Tables.Default);
	148	else
	149	Scanners.Enter (Scanner, Scanner_Tables.Allow_Char);
	150	end if;
	151
145	152	return Token;
146	153	end YYLex;

r2663	r2669
	1	%s Allow_Char
	2
1	3	-- identifier_start ::=
2	4	-- letter_uppercase
…	…
68	70	Real_Literal_Token {real_decimal_literal}\|{real_based_literal}
69	71	Integer_Literal_Token {integer_decimal_literal}\|{integer_based_literal}
70		Character_Literal_Token '{graphic_character}'
	72	<Allow_Char> Character_Literal_Token '{graphic_character}'
71	73	String_Literal_Token "{string_element}*"
72	74