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

⟦abf7ce658⟧ Ada Source

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

Derivation

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

with Behavior_Defs;
with Bounded_String_Generic;
with Identifier;
with Method;
with Message;
with Message_Transport;
with Parameter;
with Server;
with Signature;
with Text_Io;

use Text_Io;
package body Log_Server is

    procedure Publish (Self : Identifier.Object);

    procedure Process_Message (Message : Standard.Message.Object);


    package S is new Server (Publish, Process_Message);

    package Bs is new Bounded_String_Generic (256);

    Display : Bs.Variable_String;


    procedure Publish (Self : Identifier.Object) is
        Status : Message_Transport.Status_Code;
        use Message_Transport;
    begin
        Behavior_Defs.Send_Message
           (Message => Standard.Message.Create
                          (Class => Standard.Message.Publication,
                           Addressee => Identifier.Hash (Identifier.Broker),
                           Sender => Identifier.Hash (S.Get_Identity),
                           Method => "log_server",
                           Parameter1_Name => "display",
                           Parameter1_Class => "string",
                           Parameter1_Value => Bs.Image (Display),
                           Parameter2_Name => "identifier",
                           Parameter2_Class => "string",
                           Parameter2_Value => Parameter.Void),
            Status => Status);

        if Status = Ok then
            Put_Line ("+++ Publication of class successful");
        else
            Put_Line ("*** Publication of class failed");
        end if;

        Behavior_Defs.Send_Message
           (Message => Standard.Message.Create
                          (Class => Standard.Message.Publication,
                           Addressee => Identifier.Hash (Identifier.Broker),
                           Sender => Identifier.Hash (S.Get_Identity),
                           Method => "log_line",
                           Parameter_Name => "message",
                           Parameter_Class => "string",
                           Parameter_Value => Parameter.Void),
            Status => Status);

        if Status = Ok then
            Put_Line ("+++ Publication successful");
        else
            Put_Line ("*** Publication failed");
        end if;

    end Publish;


    procedure Process_Message (Message : Standard.Message.Object) is
        Met : Method.Object := Standard.Message.Get_Method (Message);
        Sig : Signature.Object := Method.Get_Signature (Met);
        Iter : Signature.Iterator;
        Par : Parameter.Object;

        Status : Message_Transport.Status_Code;

        use Message_Transport;
    begin
        if Method.Get_Name (Met) = "LOG_LINE" then
            Signature.Init (Iter, Sig);
            Par := Signature.Value (Iter);
            Put_Line (Parameter.Get_Value (Par));

        elsif Method.Get_Name (Met) = "LOG_SERVER" then

            Put_Line ("processing log_server:");

            Behavior_Defs.Send_Message
               (Message =>
                   Standard.Message.Create
                      (Class => Standard.Message.Forward,
                       Addressee => Standard.Message.Get_Sender (Message),
                       Sender => Identifier.Hash (S.Get_Identity),
                       Method => "log_server",
                       Parameter1_Name => "display",
                       Parameter1_Class => "string",
                       Parameter1_Value => Bs.Image (Display),
                       Parameter2_Name => "identifier",
                       Parameter2_Class => "string",
                       Parameter2_Value =>
                          Integer'Image (Identifier.Hash (S.Get_Identity))),
                Status => Status);

            if Status = Ok then
                Put_Line ("+++ identity forwarded");
            else
                Put_Line ("*** failed to forward identity");
            end if;

        else
            Put_Line ("unknown message");
        end if;

    end Process_Message;


    procedure Start (Display : String := "") is
    begin
        Put_Line ("+++ starting log on display => " & Display);

        Log_Server.Display := Bs.Value (Display);
        S.Start;
    end Start;
end Log_Server;

    nblk1=6
    nid=3
    hdr6=a
        [0x00] rec0=25 rec1=00 rec2=01 rec3=02e
        [0x01] rec0=15 rec1=00 rec2=02 rec3=03c
        [0x02] rec0=1d rec1=00 rec2=05 rec3=02c
        [0x03] rec0=16 rec1=00 rec2=06 rec3=01a
        [0x04] rec0=13 rec1=00 rec2=04 rec3=000
        [0x05] rec0=11 rec1=00 rec2=03 rec3=000
    tail 0x2154baef687a07306c18c 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 01 71 80 0a 20 20 20 65 6e 64 20 69 66 3b  ┆   q     end if;┆