Changeset 148


Ignore:
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:
2 added
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • trunk/source/asis/asis-gela-parser.adt

    r77 r148  
    111111      Last_Access_Kind   : Asis.Access_Type_Kinds;
    112112      Last_Overriding_Kind : Asis.Overriding_Indicator_Kinds;
     113      Last_Token         : Tokens.Token := Tokens.Token'First;
    113114
    114115      package Modes is
     
    191192         elsif Token = Apostrophe_Token then
    192193            Scanners.Enter (Scanner, Scanner_Tables.Default);
     194         elsif Token = Interface_Token and Last_Token = Pragma_Token then
     195            Token := Identifier_Token;
    193196         else
    194197            Scanners.Enter (Scanner, Scanner_Tables.Allow_Char);
    195198         end if;
    196199
     200         Last_Token := Token;
    197201         return Token;
    198202      end YYLex;
  • trunk/tests/asis/ts_00016/ts_00027.in

    r147 r148  
    1 Associate -I../../../source/asis/spec ts_00XXX/nadege.ada
    2 Process_Context Library_Unit_Declaration Example2000
     1Associate -I../../../source/asis/spec ts_00XXX/pragma_interface.ada
     2Action Print Any
     3Process_Context Library_Unit_Declaration Hello
Note: See TracChangeset for help on using the changeset viewer.