|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 2095 (0x82f)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
with Behavior;
with Identifier;
with Method;
with Message;
with Message_Transport;
with Parameter;
with Signature;
with Text_Io;
use Text_Io;
package body Log_Client is
procedure Process_Message (M : Message.Object);
task Tx is
entry Go;
entry Ok;
entry Put_Line (Message : String);
end Tx;
package B is new Behavior (Tx.Go, Process_Message);
task body Tx is
Mes : Message.Object;
begin
accept Go;
accept Ok;
loop
accept Put_Line (Message : String) do
B.Send_Message (Message =>
Standard.Message.Create
(Class => Standard.Message.Request,
Addressee => Identifier.Hash
(Identifier.Broker),
Sender => Identifier.Hash
(B.Get_Identity),
Method => "put_line",
Parameter1_Name => "display",
Parameter1_Class => "string",
Parameter1_Value => "grenouille:0",
Parameter2_Name => "message",
Parameter2_Class => "string",
Parameter2_Value => Message,
Parameter3_Name => "severity",
Parameter3_Class => "string",
Parameter3_Value => "warning"));
end Put_Line;
end loop;
end Tx;
procedure Process_Message (M : Message.Object) is
begin
Put_Line (Message.Image (M));
end Process_Message;
procedure Start is
Mes : Message.Object;
begin
Tx.Ok;
loop
Tx.Put_Line ("hello world");
delay 1.0;
end loop;
end Start;
end Log_Client;