|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Orb_Service, seg_05466b, seg_054d6b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Registrated_Object;
with Parametre_Defs;
with Bal;
with Message;
with Parametre;
with S_Generic_List;
package Orb_Service is
package Registrated_Objects is
new S_Generic_List (Element => Registrated_Object.Object);
package Objects_Id is new S_Generic_List
(Element => Parametre_Defs.Identificator);
type Objects is new Registrated_Objects.S_List;
type Type_Orb is limited private;
procedure Init (The_Orb : out Type_Orb);
function Search_Object_Doing_Method
(The_Orb : Type_Orb;
Class : Parametre.Variable_String;
Method : Parametre.Variable_String) return Objects_Id.S_List;
function Search_Method_By_Object_Id (The_Orb : Type_Orb;
Object : Parametre.Variable_String;
Method : Parametre.Variable_String)
return Parametre_Defs.Identificator;
procedure Registration (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Unregistration (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Publication (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Unpublication (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Subscription (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Unsubscription (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Filtration (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Unfiltration (The_Orb : in out Type_Orb;
Mess : in out Message.Object);
procedure Request (The_Orb : in out Type_Orb; Mess : in out Message.Object);
procedure Answer (The_Orb : in out Type_Orb; Mess : in out Message.Object);
procedure Forward (The_Orb : in out Type_Orb; Mess : in out Message.Object);
procedure Free (The_Orb : in out Type_Orb);
function Image (The_Orb : in Type_Orb) return String;
private
type Type_Orb is
record
Object_List : Registrated_Objects.S_List;
end record;
end Orb_Service;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=18 rec1=00 rec2=01 rec3=066
[0x01] rec0=13 rec1=00 rec2=02 rec3=042
[0x02] rec0=0d rec1=00 rec2=03 rec3=000
tail 0x2175d7a3287b88413fadc 0x42a00088462060003