DataMuseum.dk

top - download

    Length: 4768 (0x12a0)
    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 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;