DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦66718ca22⟧ TextFile

    Length: 956 (0x3bc)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Mac_Types;
with Tcp;
package Communications is

    type Connection is private;
    type Bytearray is array (Natural range <>) of Mac_Types.Byte;

    procedure Initialize;
    procedure Wait_For_Connection (A_Connection : out Connection);
    procedure Close_Connection (A_Connection : in out Connection);

    procedure Write (A_Connection : in out Connection; Data : in Bytearray);
    procedure Read (A_Connection : in out Connection; Data : out Bytearray);

    Open_Tcp_Driver_Failed : exception;
    Connection_Doesnt_Exist : exception;
    Memory_Full : exception;

private

    type Connection is
        record
            Stream : Tcp.Stream_Ptr;
            Stream_Created : Boolean := False;
            Connection_Opened : Boolean := False;
            Remote_Host : Tcp.Ip_Addr;
            Remote_Port : Tcp.Tcp_Port;
            Local_Host : Tcp.Ip_Addr;
            Local_Port : Tcp.Tcp_Port;
        end record;

end Communications;