|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Log_Client, seg_02c2ac
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=28 rec1=00 rec2=01 rec3=07e
[0x01] rec0=01 rec1=00 rec2=04 rec3=056
[0x02] rec0=19 rec1=00 rec2=02 rec3=010
[0x03] rec0=0b rec1=00 rec2=03 rec3=000
tail 0x215245cd483f77d437f23 0x42a00088462060003