source: trunk/ada-2012/src/parser/gela-nodes-fixed_operator_symbols.adb@ 324

Last change on this file since 324 was 324, checked in by Maxim Reznik, 6 years ago

Implement more Asis queries

File size: 1005 bytes
Line 
1package body Gela.Nodes.Fixed_Operator_Symbols is
2
3 --------------------------
4 -- String_Literal_Token --
5 --------------------------
6
7 overriding function String_Literal_Token
8 (Self : Operator_Symbol)
9 return Gela.Lexical_Types.Token_Count
10 is
11 begin
12 return Self.Operator_Symbol_Token;
13 end String_Literal_Token;
14
15 -----------
16 -- Visit --
17 -----------
18
19 overriding procedure Visit
20 (Self : access Operator_Symbol;
21 Visiter : in out Gela.Element_Visiters.Visiter'Class)
22 is
23 use type Gela.Lexical_Types.Symbol;
24 Comp : constant Gela.Compilations.Compilation_Access :=
25 Self.Enclosing_Compilation;
26 Token : constant Gela.Lexical_Types.Token :=
27 Comp.Get_Token (Self.Operator_Symbol_Token);
28 begin
29 if Token.Symbol = Gela.Lexical_Types.No_Symbol then
30 Visiter.String_Literal (Self);
31 else
32 Visiter.Operator_Symbol (Self);
33 end if;
34 end Visit;
35
36end Gela.Nodes.Fixed_Operator_Symbols;
Note: See TracBrowser for help on using the repository browser.