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

Last change on this file was 415, checked in by Maxim Reznik, 5 years ago

Set svn:keywords

  • Property svn:keywords set to Author Date Revision
File size: 565 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 Is_String (Self : Value) return Boolean;
11 function Value_Image (Self : Value) return Asis.Program_Text;
12
13private
14
15 type Value is tagged record
16 Is_Static : Boolean := False;
17 Is_String : Boolean := False;
18 Image : League.Strings.Universal_String;
19 end record;
20
21end Asis.Extensions.Static_Expressions;
Note: See TracBrowser for help on using the repository browser.