source: trunk/ada-2012/src/semantic/gela-int-symbols.ads@ 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: 611 bytes
Line 
1with Gela.Lexical_Types;
2
3package Gela.Int.Symbols is
4 pragma Preelaborate;
5
6 type Symbol is new Interpretation with private;
7
8 function Create
9 (Down : Gela.Interpretations.Interpretation_Index_Array;
10 Value : Gela.Lexical_Types.Symbol)
11 return Symbol;
12
13 function Get_Symbol
14 (Self : Symbol)
15 return Gela.Lexical_Types.Symbol;
16
17private
18
19 type Symbol is new Interpretation with record
20 Symbol : Gela.Lexical_Types.Symbol;
21 end record;
22
23 overriding procedure Visit
24 (Self : Symbol;
25 Visiter : access Gela.Int.Visiters.Visiter'Class);
26
27end Gela.Int.Symbols;
Note: See TracBrowser for help on using the repository browser.