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