nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lace.event.Logger.text: Code cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2023-04-20 14:50:11 +10:00
parent 27ab3950bc
commit c69e792ddc
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
1-base/lace/source/events/utility/lace-event-logger-text.adb
View File

@@ -23,6 +23,7 @@ is
end to_Logger; end to_Logger;
overriding overriding
procedure destruct (Self : in out Item) procedure destruct (Self : in out Item)
is is
@@ -31,6 +32,7 @@ is
end destruct; end destruct;
------------- -------------
-- Operations -- Operations
-- --
@@ -47,6 +49,7 @@ is
end log_Connection; end log_Connection;
overriding overriding
procedure log_Disconnection (Self : in out Item; From : in Observer.view; procedure log_Disconnection (Self : in out Item; From : in Observer.view;
To : in Subject .view; To : in Subject .view;
@@ -74,6 +77,7 @@ is
end log_Disconnection; end log_Disconnection;
overriding overriding
procedure log_Emit (Self : in out Item; From : in Subject .view; procedure log_Emit (Self : in out Item; From : in Subject .view;
To : in Observer.view; To : in Observer.view;
@@ -104,6 +108,7 @@ is
end log_Emit; end log_Emit;
overriding overriding
procedure log_Relay (Self : in out Item; From : in Observer.view; procedure log_Relay (Self : in out Item; From : in Observer.view;
To : in Observer.view; To : in Observer.view;
@@ -116,6 +121,7 @@ is
end log_Relay; end log_Relay;
overriding overriding
procedure log_new_Response (Self : in out Item; the_Response : in Response.view; procedure log_new_Response (Self : in out Item; the_Response : in Response.view;
of_Observer : in Observer.item'Class; of_Observer : in Observer.item'Class;
@@ -131,6 +137,7 @@ is
end log_new_Response; end log_new_Response;
overriding overriding
procedure log_rid_Response (Self : in out Item; the_Response : in Response.view; procedure log_rid_Response (Self : in out Item; the_Response : in Response.view;
of_Observer : in Observer.item'Class; of_Observer : in Observer.item'Class;
@@ -146,6 +153,7 @@ is
end log_rid_Response; end log_rid_Response;
overriding overriding
procedure log_Response (Self : in out Item; the_Response : in Response.view; procedure log_Response (Self : in out Item; the_Response : in Response.view;
of_Observer : in Observer.view; of_Observer : in Observer.view;
@@ -166,6 +174,7 @@ is
end log_Response; end log_Response;
overriding overriding
procedure log (Self : in out Item; Message : in String) procedure log (Self : in out Item; Message : in String)
is is
@@ -174,6 +183,7 @@ is
end log; end log;
overriding overriding
procedure ignore (Self : in out Item; Kind : in Event.Kind) procedure ignore (Self : in out Item; Kind : in Event.Kind)
is is