source: trunk/ada-2012/src/semantic/gela-int-symbols.adb@ 552

Last change on this file since 552 was 415, checked in by Maxim Reznik, 7 years ago

Set svn:keywords

  • Property svn:keywords set to Author Date Revision
File size: 824 bytes
Line 
1with Gela.Int.Visiters;
2
3package body Gela.Int.Symbols is
4
5 ------------
6 -- Create --
7 ------------
8
9 function Create
10 (Down : Gela.Interpretations.Interpretation_Index_Array;
11 Value : Gela.Lexical_Types.Symbol) return Symbol is
12 begin
13 return (Index => 0,
14 Length => Down'Length,
15 Symbol => Value,
16 Down => Down);
17 end Create;
18
19 ----------------
20 -- Get_Symbol --
21 ----------------
22
23 function Get_Symbol (Self : Symbol) return Gela.Lexical_Types.Symbol is
24 begin
25 return Self.Symbol;
26 end Get_Symbol;
27
28 -----------
29 -- Visit --
30 -----------
31
32 overriding procedure Visit
33 (Self : Symbol;
34 Visiter : access Gela.Int.Visiters.Visiter'Class) is
35 begin
36 Visiter.Symbol (Self);
37 end Visit;
38
39end Gela.Int.Symbols;
Note: See TracBrowser for help on using the repository browser.