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