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

⟦747559b17⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Serveur_Date, seg_057a62

Derivation

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

with Calendar;
with Generic_Comm;
with Messages;
with Message_Storage;
with Std_Types;  
with Text_Io;
use Std_Types;

procedure Serveur_Date is
    The_Date : Calendar.Time := Calendar.Clock;
    Done : Boolean := False;
    Message : Messages.Obj_Msg;
    Connection_Delay : Duration := 10.0;  
    Try_Number : Positive := 1;  
    My_Bal : Message_Storage.Bal;
    package Comm is new Generic_Comm (Connection_Delay, Try_Number, My_Bal);
    Source_Id : Natural;
begin
    Text_Io.Put_Line
       ("=======================Serveur de la date====================");
    Comm.Send (Registration,
               Rem_Host => Ficus,
               Rem_Socket => Orb_Socket,
               Msg => "**** Message from serveur_date  ***");

    Source_Id := Comm.Get_Client_Id;
    Comm.Send (Publication,
               Rem_Host => Ficus,
               Rem_Socket => Orb_Socket,
               Msg => "date",
               Source => Source_Id);

    My_Bal.Get_Message (Message);
    loop
        My_Bal.Is_Empty (Done);
        while Done loop
            My_Bal.Is_Empty (Done);
        end loop;
        My_Bal.Get_Message (Message);

        if String_Var_To_String (Messages.Get_Content (Message)) = "date" then
            The_Date := Calendar.Clock;
            Comm.Send (Forward,
                       Rem_Host => Ficus,
                       Rem_Socket => Orb_Socket,
                       Msg => "Nous sommes le : " &
                                 Integer'Image (Calendar.Day (The_Date)) & "." &
                                 Integer'Image (Calendar.Month (The_Date)) &
                                 "." & Integer'Image (Calendar.Year (The_Date)),
                       Source => Source_Id,
                       Target => Messages.Get_Source_Id (Message),
                       Order => 7);
            Text_Io.Put_Line ("la date du jour a ete envoyee a l'orb");
        end if;
    end loop;  
end Serveur_Date;

    nblk1=4
    nid=4
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=00e
        [0x01] rec0=17 rec1=00 rec2=03 rec3=004
        [0x02] rec0=03 rec1=00 rec2=02 rec3=000
        [0x03] rec0=09 rec1=00 rec2=02 rec3=000
    tail 0x21764cb7a87cd918c2259 0x42a00088462060003
Free Block Chain:
  0x4: 0000  00 00 01 1a 80 0b 54 68 65 5f 44 61 74 65 29 29  ┆      The_Date))┆