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: I T

⟦8c464afe4⟧ TextFile

    Length: 676 (0x2a4)
    Types: TextFile
    Names: »IP_TCP_DEFS_BODY«

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 Text_Io;

package body Ip_Tcp_Defs is
    package body Unix_Error is
        function Decode (Status : Vms.Cond_Value_Type) return Number is
            use System;
        begin
            if (Unsigned_Longword (Status) and 16#8000#) = 0 then
                return Epipe;
            else
                return Number (16#0FFF# and Unsigned_Word
                                               (Vms.Message_Number (Status)));
            end if;
        end Decode;

        function Decode (Status : Vms.Iosb_Type) return Number is
        begin
            return Decode (Vms.Cond_Value_Type (Status.Status));
        end Decode;
    end Unix_Error;
end Ip_Tcp_Defs;