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

⟦3d2ac9596⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Bind, seg_0520e8, separate Socket_System_Interface

Derivation

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

separate (Socket_System_Interface)
function Bind (S : in Unix_Base_Types.Int;
               Addr : in Sockaddr_In_Ptr;
               Addrlen : in Unix_Base_Types.Int) return Unix_Base_Types.Int is

    Return_Value : Unix_Base_Types.Int;

begin

    Return_Value :=  
       Resolve_Overloading.Bind (S => S, Addr => Addr, Addrlen => Addrlen);
    declare

        Allow_Reuse : constant Unix_Base_Types.Int_Ptr :=
           new Unix_Base_Types.Int'(1);

    begin
        if Return_Value /= System_Error then

            Return_Value :=
               Setsockopt (S => S,
                           Level => Sol_Socket,
                           Optname => So_Linger,
                           Optval => Linger_Struct_To_Char_Ptr (No_Linger),
                           Optlen => No_Linger.all'Size / System.Storage_Unit);
        end if;

        if Return_Value /= System_Error then

            Return_Value :=  
               Setsockopt
                  (S => S,
                   Level => Sol_Socket,
                   Optname => So_Reuseaddr,
                   Optval => Int_Ptr_To_Char_Ptr (Allow_Reuse),
                   Optlen => Allow_Reuse.all'Size / System.Storage_Unit);
        end if;

        -- IF Return_Value /= System_Error THEN
        --    Return_Value :=
        --       Resolve_Overloading.Getsockopt (S => S,
        --                                       Level => Sol_Socket,
        --                                       Optname => So_@,
        --                                       Optval => [CHAR_PTR-expression],
        --                                       Optlen => [INT_PTR-expression]);
        -- END IF;
        --
    end;
    return Return_Value;

end Bind;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=006
        [0x01] rec0=14 rec1=00 rec2=02 rec3=000
    tail 0x2154ba66887a05c95d143 0x42a00088462060003