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

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

Rewrite procedure_call as wrapper around function_call

File size: 802 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 begin
25 if Self.Full_Name = Gela.Lexical_Types.No_Symbol then
26 Visiter.String_Literal (Self);
27 else
28 Visiter.Operator_Symbol (Self);
29 end if;
30 end Visit;
31
32end Gela.Nodes.Fixed_Operator_Symbols;
Note: See TracBrowser for help on using the repository browser.