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

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

Add Is_String function for check static values

File size: 565 bytes
RevLine 
[332]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;
[374]10 function Is_String (Self : Value) return Boolean;
[332]11 function Value_Image (Self : Value) return Asis.Program_Text;
12
13private
14
15 type Value is tagged record
16 Is_Static : Boolean := False;
[374]17 Is_String : Boolean := False;
[332]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.