Changes between Version 1 and Version 2 of ru/uaflex


Ignore:
Timestamp:
Jan 3, 2012, 4:16:38 AM (9 years ago)
Author:
vadim.godunko
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • ru/uaflex

    v1 v2  
    4444   type Source is limited interface;
    4545
     46   type Source_Access is access all Source'Class;
     47
    4648   not overriding function Get_Next
    4749    (Self : not null access Source) return Code_Unit_32 is abstract;
     
    6567   type Handler is limited interface;
    6668
     69   type Handler_Access is access all Handler'Class;
     70
    6771   not overriding procedure On_Token
    6872    (Self    : not null access Handler;
     
    8488    (Self : in out Scanner'Class; Source : not null Source_Access);
    8589
     90   procedure Set_Handler
     91    (Self : in out Scanner'Class; Handler : not null Handler_Access);
     92
    8693   procedure Set_Start_Condition
    8794    (Self : in out Scanner'Class; Condition : Start_Condition);