DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦933d0f074⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Little_Orb, seg_055188

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



with Message;
with Generic_List;
with Transport_Defs;
with Our_String;
with Our_Constantes;

package Little_Orb is
    function Registration
                (The_Host : Transport_Defs.Host_Id;
                 The_Socket : Transport_Defs.Socket_Id) return Boolean;
    function Unregistration
                (The_Host : Transport_Defs.Host_Id;
                 The_Socket : Transport_Defs.Socket_Id) return Boolean;
    procedure Query;
    procedure Request (The_Data : Our_String.Variable_String;
                       The_Host_Send : Transport_Defs.Host_Id;
                       The_Socket_Send : Transport_Defs.Socket_Id;
                       The_Host_To_Execute : Transport_Defs.Host_Id;
                       The_Socket_To_Execute : Transport_Defs.Socket_Id;
                       The_Connection_Data : in out
                          Our_Constantes.Connection_Data);
    procedure Notification (The_Data : Our_String.Variable_String;
                            The_Connection_Data : in out
                               Our_Constantes.Connection_Data);
    procedure Forward (The_Data : Our_String.Variable_String;
                       The_Host_Send : Transport_Defs.Host_Id;
                       The_Socket_Send : Transport_Defs.Socket_Id;
                       The_Host_To_Execute : Transport_Defs.Host_Id;
                       The_Socket_To_Execute : Transport_Defs.Socket_Id;
                       The_Connection_Data : in out
                          Our_Constantes.Connection_Data);
    procedure Subscription (The_Data : Our_String.Variable_String;
                            The_Socket_Send : Transport_Defs.Socket_Id;
                            The_Host_Send : in Transport_Defs.Host_Id;
                            The_Connection_Data : in out
                               Our_Constantes.Connection_Data);
    procedure Unsubscription (The_Data : Our_String.Variable_String;
                              The_Socket_Send : Transport_Defs.Socket_Id;
                              The_Host_Send : in Transport_Defs.Host_Id;
                              The_Connection_Data : in out
                                 Our_Constantes.Connection_Data);
    procedure Filtration;
    procedure Unfiltration;
end Little_Orb;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=18 rec1=00 rec2=01 rec3=028
        [0x01] rec0=0f rec1=00 rec2=03 rec3=052
        [0x02] rec0=07 rec1=00 rec2=02 rec3=000
    tail 0x2175ec15a87bc4edfffa2 0x42a00088462060003