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

lace.event.Logger.text: Cosmetics for log messages.

Browse Source
This commit is contained in:
Rod Kay
2023-04-20 14:48:42 +10:00
parent 9d1dddaae2
commit 27ab3950bc
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -41,7 +41,7 @@ is
for_Kind : in Event.Kind) for_Kind : in Event.Kind)
is is
begin begin
put_Line (Self.File, "log Connection => " put_Line (Self.File, "new Connection => "
& From.Name & " observes " & To.Name & From.Name & " observes " & To.Name
& " for event kind " & Name_of (for_Kind) & "."); & " for event kind " & Name_of (for_Kind) & ".");
end log_Connection; end log_Connection;
@@ -66,7 +66,7 @@ is
end from_Name; end from_Name;
begin begin
put_Line (Self.File, "log Disconnection => " put_Line (Self.File, "Disconnection => "
& from_Name & from_Name
& " no longer observes " & " no longer observes "
& To.Name & To.Name
@@ -97,8 +97,9 @@ is
return; return;
end if; end if;
put_Line (Self.File, "log Emit => " new_Line (Self.File);
& From.Name & " sends " & Name_of (Kind_of (the_Event)) put_Line (Self.File, "Emit => "
& From.Name & " sends " & Name_of (Kind_of (the_Event))
& " to " & to_Name & "."); & " to " & to_Name & ".");
end log_Emit; end log_Emit;
@@ -109,7 +110,7 @@ is
the_Event : in Event.item'Class) the_Event : in Event.item'Class)
is is
begin begin
put_Line (Self.File, "log Relay => " put_Line (Self.File, "Relay => "
& From.Name & " relays " & Name_of (Kind_of (the_Event)) & From.Name & " relays " & Name_of (Kind_of (the_Event))
& " to " & To.Name & "."); & " to " & To.Name & ".");
end log_Relay; end log_Relay;
@@ -122,7 +123,7 @@ is
from_Subject : in subject_Name) from_Subject : in subject_Name)
is is
begin begin
put_Line (Self.File, "log new Response => " put_Line (Self.File, "new Response => "
& of_Observer.Name & of_Observer.Name
& " responds to " & Name_of (to_Kind) & " responds to " & Name_of (to_Kind)
& " from " & from_Subject & " from " & from_Subject
@@ -137,7 +138,7 @@ is
from_Subject : in subject_Name) from_Subject : in subject_Name)
is is
begin begin
put_Line (Self.File, "log rid Response => " put_Line (Self.File, "rid Response => "
& of_Observer.Name & of_Observer.Name
& " no longer responds to " & Name_of (to_Kind) & " no longer responds to " & Name_of (to_Kind)
& " from " & from_Subject & " from " & from_Subject
@@ -157,7 +158,7 @@ is
return; return;
end if; end if;
put_Line (Self.File, "log Response => " put_Line (Self.File, "Response => "
& of_Observer.Name & of_Observer.Name
& " responds to " & Name_of (to_Kind (to_Event'Tag)) & " responds to " & Name_of (to_Kind (to_Event'Tag))
& " from " & from_Subject & " from " & from_Subject