|
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 - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Channel_Operator_To_Bal, seg_05748a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Channel_Operator;
with Bal;
with Message;
with Task_Io;
package body Channel_Operator_To_Bal is
task Channel_Operator_Transfert is
entry Init (My_Channel : Channel_Operator.Object);
entry Dispose;
end Channel_Operator_Transfert;
procedure Init (My_Channel : Channel_Operator.Object) is
begin
Channel_Operator_Transfert.Init (My_Channel);
end Init;
procedure Dispose is
begin
Bal.Dispose;
Channel_Operator_Transfert.Dispose;
end Dispose;
task body Channel_Operator_Transfert is
Mess : Message.Object;
Continue : Boolean := True;
Channel : Channel_Operator.Object;
Result : Boolean;
begin
accept Init (My_Channel : Channel_Operator.Object) do
Channel := My_Channel;
end Init;
loop
select
accept Dispose do
Continue := False;
end Dispose;
else
Message.Receive (Mess, Channel, Result);
if Result then
Bal.Put (Mess);
end if;
end select;
if not Continue then
exit;
end if;
end loop;
Task_Io.Put_Line ("fin channel_operator_to_bal");
end Channel_Operator_Transfert;
end Channel_Operator_To_Bal;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=29 rec1=00 rec2=01 rec3=004
[0x01] rec0=0e rec1=00 rec2=02 rec3=000
tail 0x2176452ee87c77f36c6c9 0x42a00088462060003