Last change
on this file since 359 was 359, checked in by Maxim Reznik, 6 years ago 
Reuse interpretation index
Return the same value for each call of Get_Index with the same arg.

File size:
900 bytes

Line  

1  with Gela.Int.Visiters;


2 


3  package body Gela.Int.Attr_Functions is


4 


5  


6   Create 


7  


8 


9  function Create


10  (Down : Gela.Interpretations.Interpretation_Index_Array;


11  Kind : Gela.Lexical_Types.Predefined_Symbols.Attribute)


12  return Attr_Function is


13  begin


14  return (Index => 0,


15  Length => Down'Length,


16  Kind => Kind,


17  Down => Down);


18  end Create;


19 


20  


21   Kind 


22  


23 


24  function Kind


25  (Self : Attr_Function)


26  return Gela.Lexical_Types.Predefined_Symbols.Attribute is


27  begin


28  return Self.Kind;


29  end Kind;


30 


31  


32   Visit 


33  


34 


35  overriding procedure Visit


36  (Self : Attr_Function;


37  Visiter : access Gela.Int.Visiters.Visiter'Class) is


38  begin


39  Visiter.Attr_Function (Self);


40  end Visit;


41 


42  end Gela.Int.Attr_Functions;


Note:
See
TracBrowser
for help on using the repository browser.