source: trunk/ada-2012/src/semantic/gela-int-visiters.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: 1.3 KB
Line 
1with Gela.Int.Attr_Functions;
2with Gela.Int.Categories;
3with Gela.Int.Defining_Names;
4with Gela.Int.Expressions;
5with Gela.Int.Placeholders;
6with Gela.Int.Symbols;
7with Gela.Int.Tuples;
8
9package Gela.Int.Visiters is
10 pragma Preelaborate;
11
12 type Visiter is limited interface;
13
14 not overriding procedure Attr_Function
15 (Self : access Visiter;
16 Value : Gela.Int.Attr_Functions.Attr_Function) is abstract;
17
18 not overriding procedure Chosen_Tuple
19 (Self : access Visiter;
20 Value : Gela.Int.Tuples.Chosen_Tuple) is abstract;
21
22 not overriding procedure Defining_Name
23 (Self : access Visiter;
24 Value : Gela.Int.Defining_Names.Defining_Name) is abstract;
25
26 not overriding procedure Expression
27 (Self : access Visiter;
28 Value : Gela.Int.Expressions.Expression) is abstract;
29
30 not overriding procedure Expression_Category
31 (Self : access Visiter;
32 Value : Gela.Int.Categories.Category) is abstract;
33
34 not overriding procedure Placeholder
35 (Self : access Visiter;
36 Value : Gela.Int.Placeholders.Placeholder) is abstract;
37
38 not overriding procedure Symbol
39 (Self : access Visiter;
40 Value : Gela.Int.Symbols.Symbol) is abstract;
41
42 not overriding procedure Tuple
43 (Self : access Visiter;
44 Value : Gela.Int.Tuples.Tuple) is abstract;
45
46end Gela.Int.Visiters;
Note: See TracBrowser for help on using the repository browser.