DataMuseum.dk

top - download

    Length: 4641 (0x1221)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
            └─⟦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;