Changeset 148

Timestamp:

Jul 16, 2013, 9:15:53 AM (9 years ago)

Author:

Maxim Reznik

Message:

Add support for pragma Interface. fix #27

Location:

trunk

Files:

• source/asis/asis-gela-parser.adt (modified) (2 diffs)
• tests/asis/ts_00016/ts_00027.in (copied) (copied from trunk/tests/asis/ts_00016/ts_00025.in ) (1 diff)
• tests/asis/ts_00016/ts_00027.out (added)
• tests/asis/ts_00016/ts_00XXX/pragma_interface.ada (added)

trunk/source/asis/asis-gela-parser.adt

@@ -111 +111 @@
       Last_Access_Kind   : Asis.Access_Type_Kinds;
       Last_Overriding_Kind : Asis.Overriding_Indicator_Kinds;
+      Last_Token         : Tokens.Token := Tokens.Token'First;
 
       package Modes is
@@ -191 +192 @@
          elsif Token = Apostrophe_Token then
             Scanners.Enter (Scanner, Scanner_Tables.Default);
+         elsif Token = Interface_Token and Last_Token = Pragma_Token then
+            Token := Identifier_Token;
          else
             Scanners.Enter (Scanner, Scanner_Tables.Allow_Char);
          end if;
 
+         Last_Token := Token;
          return Token;
       end YYLex;

trunk/tests/asis/ts_00016/ts_00027.in

@@ -1 @@
-Associate -I../../../source/asis/spec ts_00XXX/nadege.ada
-Process_Context Library_Unit_Declaration Example2000
+Associate -I../../../source/asis/spec ts_00XXX/pragma_interface.ada
+Action Print Any
+Process_Context Library_Unit_Declaration Hello