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

⟦3d6260f44⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Socket_Port, seg_027a23

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  
        Tmp_Val : constant String := Image (The_Object);  
    begin
        return Low_Level_Message.Create (Tmp_Val);  
    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
        Tmp_Val : constant String := Natural'Image (0);
    begin  
        return Low_Level_Message.Create (Tmp_Val);
    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=6
    nid=2
    hdr6=8
        [0x00] rec0=2a rec1=00 rec2=01 rec3=044
        [0x01] rec0=19 rec1=00 rec2=05 rec3=058
        [0x02] rec0=1d rec1=00 rec2=04 rec3=024
        [0x03] rec0=05 rec1=00 rec2=03 rec3=000
        [0x04] rec0=05 rec1=00 rec2=03 rec3=000
        [0x05] rec0=05 rec1=00 rec2=03 rec3=000
    tail 0x21721cc6883ac8a70091a 0x42a0008846207f403
Free Block Chain:
  0x2: 0000  00 06 00 06 80 03 73 74 20 03 69 73 70 6c 61 79  ┆      st  isplay┆
  0x6: 0000  00 00 00 04 00 01 20 01 00 80 00 00 00 00 00 00  ┆                ┆