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 - metrics - download
Index: T V

⟦31f968a84⟧ TextFile

    Length: 1101 (0x44d)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Pipe;
package Connections is

    type Handle is private;

    type Mode is (Call, Answer, Listen_Call, Listen_Answer);

    function Establish (From_User : String;
                        From_Session : String;
                        To_User : String;
                        To_Session : String;
                        Kind : Mode) return Handle;

    Not_Established : exception;  -- trying to get answering connection
    Not_Available : exception;  -- connection not allowed
    Already_Exists : exception;

    procedure Break (From : in out Handle);

    Connection_Still_In_Use : exception;
    Connection_Already_Released : exception;

    function Convert (Connection : Handle) return Pipe.Handle;

    function Is_Available (From_User : String;
                           From_Session : String;
                           To_User : String;
                           To_Session : String;
                           Kind : Mode) return String;

private
    type Handle is
        record
            The_Pipe : Pipe.Handle;
            Kind : Mode;
        end record;
end Connections;