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
|
Line | |
---|
1 | with League.Strings;
|
---|
2 |
|
---|
3 | package 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 |
|
---|
13 | private
|
---|
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 |
|
---|
21 | end Asis.Extensions.Static_Expressions;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.