source: trunk/ada-2012/src/ag/main.ag.pp@ 383

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

Improve def_name test to print each name

If def_name is started with last argument in form "+hash" then
traverse all elements for given compilation unit and print
Corresponding_Name_Definition where appropriate.

File size: 846 bytes
Line 
1#include "syntax.ag"
2#include "full_name.ag"
3#include "env_in.ag"
4#include "env_out.ag"
5#include "with_list.ag"
6#include "name_list.ag"
7#include "up.ag"
8#include "down.ag"
9#include "def_name.ag"
10#include "errors.ag"
11#include "static_value.ag"
12
13Synthesized attributes
14 root_type_definition
15 : Gela.Semantic_Types.Type_Index : type_kind;
16
17Rules for root_type_definition.dummy_token :
18(.
19 ${root_type_definition.type_kind} := 0;
20.)
21
22Synthesized attributes
23 function_declaration,
24 procedure_declaration
25 : Gela.Elements.Element_Access : corresponding_type ;
26
27Rules for function_declaration. :
28(.
29 -- This attribute is custom code
30 ${function_declaration.corresponding_type} := null;
31.)
32
33Rules for procedure_declaration. :
34(.
35 -- This attribute is custom code
36 ${procedure_declaration.corresponding_type} := null;
37.)
Note: See TracBrowser for help on using the repository browser.