with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with GNATCOLL.Traces;       use GNATCOLL.Traces;

package Support is

   type Custom_Decorator is new Trace_Decorator_Record with null record;
   overriding procedure Start_Of_Line
     (Self            : in out Custom_Decorator;
      Msg             : in out Msg_Strings.XString;
      Is_Continuation : Boolean);
   overriding procedure Before_Message
     (Self    : in out Custom_Decorator;
      Handle  : not null Logger;
      Msg     : in out Msg_Strings.XString);
   overriding procedure After_Message
     (Self    : in out Custom_Decorator;
      Handle  : not null Logger;
      Msg     : in out Msg_Strings.XString);

end Support;
