source: trunk/ada-2012/src/asis/asis-extensions-static_expressions.ads@ 332

Last change on this file since 332 was 332, checked in by Maxim Reznik, 6 years ago

Add Asis.Extensions for static expressions

File size: 476 bytes
Line 
1with League.Strings;
2
3package Asis.Extensions.Static_Expressions is
4
5 type Value is tagged private;
6
7 function Static_Value (Expression : Asis.Expression) return Value;
8
9 function Is_Static (Self : Value) return Boolean;
10 function Value_Image (Self : Value) return Asis.Program_Text;
11
12private
13
14 type Value is tagged record
15 Is_Static : Boolean := False;
16 Image : League.Strings.Universal_String;
17 end record;
18
19end Asis.Extensions.Static_Expressions;
Note: See TracBrowser for help on using the repository browser.