|
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, function Identified, seg_04bca6, separate Behavior_Test_1
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
separate (Behavior_Test_1)
function Identified (M : String) return Boolean is
Mes : Message_New.Object;
Met : Method.Object;
Sig : Signature.Object;
Par : Parameter.Object;
Iter : Signature.Iterator;
begin
Mes := Message_New.Value (M);
if not Message_New."=" (Message_New.Get_Class (Mes),
Message_New.Notification) then
return False;
end if;
Met := Message_New.Get_Method (Mes);
if Method.Get_Name (Met) /= Behavior_Defs.Identification_Name then
return False;
end if;
Sig := Method.Get_Signature (Met);
Signature.Init (Iter, Sig);
if Signature.Is_Done (Iter) then
return False;
end if;
Par := Signature.Value (Iter);
if Parameter.Get_Name (Par) /= Behavior_Defs.Identification_Parameter then
return False;
end if;
if Parameter.Get_Class (Par) /= Behavior_Defs.Identification_Class then
return False;
end if;
declare
begin
This := Identifier.Value (Natural'Value (Parameter.Get_Value (Par)));
Registered := True;
exception
when others =>
return False;
end;
return True;
end Identified;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=28 rec1=00 rec2=01 rec3=096
[0x01] rec0=11 rec1=00 rec2=02 rec3=001
tail 0x215490458868a3d091a9f 0x42a00088462060003