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

⟦775bed836⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Mail_Sender, seg_057458

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 Transport_Defs;
with Transport;  
with Orb_Defs;
with Frame_Defs;
with Text_Io;

generic
    type Element is private;
    with procedure Convert (To_Convert : in Element;
                            Converted_Element : out
                               Frame_Defs.Communication_Data);

package Mail_Sender is

    -- init la connection du point de vue de l'emetteur de mail.
    procedure Init (The_Connection : in out Transport.Connection_Id;
                    The_Network_Kind : Transport_Defs.Network_Name;
                    The_Local_Socket : in out Orb_Defs.Socket_Id);

    procedure Send_Mail (The_Connection : Transport.Connection_Id;
                         The_Remote_Host : Transport_Defs.Host_Id;
                         The_Remote_Socket : Orb_Defs.Socket_Id;
                         The_Time_Out : Natural;
                         Success : out Boolean;
                         The_Mail_To_Send : Element);

    procedure Close (The_Connection : Transport.Connection_Id);

end Mail_Sender;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1c rec1=00 rec2=01 rec3=032
        [0x01] rec0=03 rec1=00 rec2=02 rec3=001
    tail 0x21764453287c7763e310a 0x42a00088462060003