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

⟦b845584b0⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Asa_Integration_Server, seg_010769

Derivation

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

with Asa_Definitions;
with Actions;
with Device_Independent_Io;
with Dtia_Client;
with Job_Manager;
with Log;
with Logger;
with Profile;
with Simple_Status;
procedure Asa_Integration_Server (Response : in String := "<PROFILE>") is

    package Dc renames Dtia_Client;

    S : Simple_Status.Condition;

    task Waiter is
        entry Stop;
    end Waiter;

    task body Waiter is
    begin
        accept Stop;
    end Waiter;

    procedure Terminate_Model_Server (Reason : in Dc.Termination_Condition) is
    begin
        Actions.Model.Terminate_Server (Reason);
        if Reason = Dc.Gateway_Class_Deactivated then
            Waiter.Stop;
        end if;
    end Terminate_Model_Server;

    procedure Terminate_No_Server (Reason : in Dc.Termination_Condition) is
    begin
        null;
    end Terminate_No_Server;


    package Model_Registration is
       new Dc.Dtia_Client_Operations
              (Class_Name => Asa_Definitions.Gateway_Class'Image
                                (Asa_Definitions.Asa_Model),
               Session_Server => False,
               Image_Name => Actions.Model.Image_Name,
               Build_Image => Actions.Model.Build_Image,  
               Pre_Check_In => Actions.Model.Pre_Check_In,
               Pre_Make_Controlled => Actions.Model.Pre_Make_Controlled,
               Pre_Cmvc_Copy => Actions.Model.Pre_Cmvc_Copy,
               Post_Cmvc_Copy => Actions.Model.Post_Cmvc_Copy,
               Terminate_Server => Terminate_Model_Server);

    package Module_Registration is
       new Dc.Dtia_Client_Operations
              (Class_Name => Asa_Definitions.Gateway_Class'Image
                                (Asa_Definitions.Asa_Module),
               Session_Server => False,
               Image_Name => Actions.Module.Image_Name,
               Build_Image => Actions.Module.Build_Image,
               Pre_Check_In => Actions.Module.Pre_Check_In,
               Pre_Make_Controlled => Actions.Module.Pre_Make_Controlled,
               Terminate_Server => Terminate_No_Server);

    package Requirement_Registration is
       new Dc.Dtia_Client_Operations
              (Class_Name => Asa_Definitions.Gateway_Class'Image
                                (Asa_Definitions.Asa_Requirement),
               Session_Server => False,  
               Image_Name => Actions.Requirement.Image_Name,
               Build_Image => Actions.Requirement.Build_Image,
               Post_Commit => Actions.Requirement.Post_Commit,
               Edit => Actions.Requirement.Edit,
               Io_Open => Actions.Requirement.Io_Open,
               Io_Read_Bytes => Device_Independent_Io.Read,
               Io_Read_String => Device_Independent_Io.Read,
               Io_End_Of_File => Device_Independent_Io.End_Of_File,
               Io_Reset => Device_Independent_Io.Reset,
               Io_Close => Device_Independent_Io.Close,
               Terminate_Server => Terminate_No_Server);

begin  
    Log.Set_Output ("!Machine.Error_Logs.Asa_Integration_Server_Log");
    Profile.Set (Response, S);

    Model_Registration.Check_If_Registration_Succeeded (S);
    if Simple_Status.Error (S) then
        Logger.Error ("Unable to register class " &
                      Asa_Definitions.Gateway_Class'Image
                         (Asa_Definitions.Asa_Model) & " because " &
                      Simple_Status.Display_Message (S));
    else
        Logger.Positive
           ("Registration of class " &
            Asa_Definitions.Gateway_Class'Image (Asa_Definitions.Asa_Model) &
            " succeeded");
    end if;

    Module_Registration.Check_If_Registration_Succeeded (S);
    if Simple_Status.Error (S) then
        Logger.Error ("Unable to register class " &
                      Asa_Definitions.Gateway_Class'Image
                         (Asa_Definitions.Asa_Module) & " because " &
                      Simple_Status.Display_Message (S));
    else
        Logger.Positive
           ("Registration of class " &
            Asa_Definitions.Gateway_Class'Image (Asa_Definitions.Asa_Module) &
            " succeeded");
    end if;

    Requirement_Registration.Check_If_Registration_Succeeded (S);
    if Simple_Status.Error (S) then
        Logger.Error ("Unable to register class " &
                      Asa_Definitions.Gateway_Class'Image
                         (Asa_Definitions.Asa_Requirement) & " because " &
                      Simple_Status.Display_Message (S));
    else
        Logger.Positive ("Registration of class " &
                         Asa_Definitions.Gateway_Class'Image
                            (Asa_Definitions.Asa_Requirement) & " succeeded");
    end if;

    Job_Manager.Set_Name (Name => Asa_Definitions.Asa & " Integration Server");
end Asa_Integration_Server;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=2a rec1=00 rec2=01 rec3=046
        [0x01] rec0=13 rec1=00 rec2=02 rec3=008
        [0x02] rec0=12 rec1=00 rec2=03 rec3=014
        [0x03] rec0=18 rec1=00 rec2=04 rec3=014
        [0x04] rec0=16 rec1=00 rec2=05 rec3=000
    tail 0x2150c06d6823076ecf330 0x42a00088462060003