DataMuseum.dk

top - download

    Length: 2864 (0xb30)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;