mirror of
https://github.com/AdaCore/langkit.git
synced 2026-02-12 12:28:12 -08:00
36 lines
1.0 KiB
Ada
36 lines
1.0 KiB
Ada
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
|
|
|
with Langkit_Support.Text; use Langkit_Support.Text;
|
|
|
|
with Libfoolang.Analysis; use Libfoolang.Analysis;
|
|
|
|
package Support is
|
|
|
|
type Event_Handler is new Libfoolang.Analysis.Event_Handler_Interface
|
|
with record
|
|
Label : Unbounded_String;
|
|
end record;
|
|
|
|
overriding procedure Unit_Requested_Callback
|
|
(Self : in out Event_Handler;
|
|
Context : Analysis_Context'Class;
|
|
Name : Text_Type;
|
|
From : Analysis_Unit'Class;
|
|
Found : Boolean;
|
|
Is_Not_Found_Error : Boolean);
|
|
|
|
overriding procedure Unit_Parsed_Callback
|
|
(Self : in out Event_Handler;
|
|
Context : Analysis_Context'Class;
|
|
Unit : Analysis_Unit'Class;
|
|
Reparsed : Boolean);
|
|
|
|
overriding procedure Release (Self : in out Event_Handler);
|
|
|
|
function Create_Event_Handler
|
|
(Label : String) return Event_Handler_Reference;
|
|
|
|
procedure Log (Self : Event_Handler; Subp : String);
|
|
|
|
end Support;
|