source: trunk/ada-2012/src/semantic/gela-int-tuples.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: 1.0 KB
Line 
1with Gela.Int.Visiters;
2
3package body Gela.Int.Tuples is
4
5 ------------
6 -- Create --
7 ------------
8
9 function Create
10 (Value : Gela.Interpretations.Interpretation_Set_Index_Array)
11 return Tuple is
12 begin
13 return (Index => 0,
14 Length => 0,
15 Value => Value,
16 Size => Value'Length,
17 Down => (others => 0));
18 end Create;
19
20 -----------
21 -- Value --
22 -----------
23
24 function Value
25 (Self : Tuple) return Gela.Interpretations.Interpretation_Set_Index_Array
26 is
27 begin
28 return Self.Value;
29 end Value;
30
31 -----------
32 -- Visit --
33 -----------
34
35 overriding procedure Visit
36 (Self : Tuple;
37 Visiter : access Gela.Int.Visiters.Visiter'Class) is
38 begin
39 Visiter.Tuple (Self);
40 end Visit;
41
42 -----------
43 -- Visit --
44 -----------
45
46 overriding procedure Visit
47 (Self : Chosen_Tuple;
48 Visiter : access Gela.Int.Visiters.Visiter'Class) is
49 begin
50 Visiter.Chosen_Tuple (Self);
51 end Visit;
52
53end Gela.Int.Tuples;
Note: See TracBrowser for help on using the repository browser.