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

⟦3beb29cf9⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Socket_Port, seg_0275e6

Derivation

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

with Low_Level_Message;
with Text_Io;

package body Socket_Port is


    Success : Boolean := False;

    function Image (The_Object : Object) return String is
        The_Value : Natural;
    begin  
        The_Value := Value (The_Object);
        return Natural'Image (The_Value);
    end Image;

    function Image (The_Object : Object) return Low_Level_Message.Object is
        The_Result : Low_Level_Message.Object;
        Tmp_Val    : constant String := Image (The_Object);
    begin
        Text_Io.Put_Line
           ("                             socket_port.image(Low_Level_Message) ");
        Low_Level_Message.Create (The_Result, Tmp_Val);
        return The_Result;
    end Image;


    function Value (The_Object : Object) return Natural is
    begin
        return Natural (The_Object);
    end Value;


    function Undefined return Object is
    begin
        return Create (0);
    end Undefined;


    function Undefined return String is
    begin
        return Image (Undefined);
    end Undefined;

    function Undefined return Low_Level_Message.Object is
        The_Result : Low_Level_Message.Object;
        Tmp_Val    : constant String := Natural'Image (0);
    begin  
        Low_Level_Message.Create (The_Result, Tmp_Val);
        return The_Result;
    end Undefined;

    function Create (The_Port_Number : Natural) return Object is
    begin
        return Object (The_Port_Number);
    end Create;


    function Create (The_Port_Number : String) return Object is
        The_Number : Natural;
    begin  
        The_Number := Natural'Value (The_Port_Number);
        return Create (The_Number);
    end Create;


    procedure Display (The_Object : Object) is
    begin
        Text_Io.Put_Line ("Socket_port.display ==> " & Image (The_Object));
    end Display;


    function Get_Behavior_Socket_Port_First return Object is
    begin
        return Behavior_Socket_Port_First;
    end Get_Behavior_Socket_Port_First;


    function Get_Behavior_Socket_Port_Last return Object is
    begin
        return Behavior_Socket_Port_Last;
    end Get_Behavior_Socket_Port_Last;


begin

    -- Read the parameters file to set the behavior socket port range :

    -- Profile_Parser.Get (Param_Behavior_Socket_Port_First,
    --                     Behavior_Socket_Port_First, Success);
    if not Success then  
        Text_Io.Put_Line
           ("I did not find a value for Behavior_Socket_Port_First. I choose 5000 temporaly");
        Behavior_Socket_Port_First := 5000;
    end if;

    -- Profile_Parser.Get (Param_Behavior_Socket_Port_Last,
    --                     Behavior_Socket_Port_Last, Success);
    if not Success then
        Text_Io.Put_Line
           ("I did not find a value for Behavior_Socket_Port_Last. I choose 5100 temporaly");
        Behavior_Socket_Port_Last := 5100;
    end if;


end Socket_Port;

    nblk1=5
    nid=2
    hdr6=8
        [0x00] rec0=28 rec1=00 rec2=01 rec3=020
        [0x01] rec0=1d rec1=00 rec2=05 rec3=08c
        [0x02] rec0=20 rec1=00 rec2=04 rec3=04a
        [0x03] rec0=06 rec1=00 rec2=03 rec3=000
        [0x04] rec0=06 rec1=00 rec2=03 rec3=000
    tail 0x217216ea483ab72efcbef 0x42a0008846207f403
Free Block Chain:
  0x2: 0000  00 00 00 25 80 22 72 74 2e 64 69 73 70 6c 61 79  ┆   % "rt.display┆