DataMuseum.dk

top - download

    Length: 2956 (0xb8c)
    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

separate (ACTIONS)
package body MODULE is

   procedure IMAGE_NAME (HANDLE : DC.GATEWAY_HANDLE;
                         VISIBLE : BOOLEAN;
                         READ_ONLY : BOOLEAN;
                         NO_IMAGE : out BOOLEAN;
                         SHOW_PROPERTY_IMAGE : out BOOLEAN;
                         ID : out DC.IMAGE_IDENTITY) is
   begin
      MODEL.IMAGE_NAME (HANDLE => HANDLE,
                        VISIBLE => VISIBLE,
                        READ_ONLY => READ_ONLY,
                        NO_IMAGE => NO_IMAGE,
                        SHOW_PROPERTY_IMAGE => SHOW_PROPERTY_IMAGE,
                        ID => ID);
   end IMAGE_NAME;

   procedure BUILD_IMAGE (HANDLE : DC.GATEWAY_HANDLE;
                          VISIBLE : BOOLEAN;
                          IN_PLACE : BOOLEAN;
                          FIRST_TIME : BOOLEAN;
                          READ_ONLY : in out BOOLEAN;
                          IMAGE : DC.IMAGE_ID;
                          NO_IMAGE : out BOOLEAN;
                          UNDERLYING_OBJECT : out DIRECTORY.OBJECT) is
   begin
      MODEL.BUILD_IMAGE (HANDLE => HANDLE,
                         VISIBLE => VISIBLE,
                         IN_PLACE => IN_PLACE,
                         FIRST_TIME => FIRST_TIME,
                         READ_ONLY => READ_ONLY,
                         IMAGE => IMAGE,
                         NO_IMAGE => NO_IMAGE,
                         UNDERLYING_OBJECT => UNDERLYING_OBJECT);
   end BUILD_IMAGE;

   procedure PRE_CHECK_IN (HANDLE : DC.GATEWAY_HANDLE;
                           SUBOBJECT : DIRECTORY.OBJECT;
                           RESPONSE : PROFILE.RESPONSE_PROFILE;
                           ACTION_ID : ACTION.ID;
                           ERRORS : in out DC.ERROR_COUNTS) is
   begin
      MODEL.PRE_CHECK_IN (HANDLE => HANDLE,
                          SUBOBJECT => SUBOBJECT,
                          RESPONSE => RESPONSE,
                          ACTION_ID => ACTION_ID,
                          ERRORS => ERRORS);
   end PRE_CHECK_IN;

   procedure PRE_MAKE_CONTROLLED (HANDLE : DC.GATEWAY_HANDLE;
                                  SUBOBJECT : DIRECTORY.OBJECT;
                                  SAVE_SOURCE : BOOLEAN;
                                  ALLOW_CONTROLLED : out BOOLEAN;
                                  RESPONSE : PROFILE.RESPONSE_PROFILE;
                                  ACTION_ID : ACTION.ID;
                                  ERRORS : in out DC.ERROR_COUNTS) is
   begin
      MODEL.PRE_MAKE_CONTROLLED (HANDLE => HANDLE,
                                 SUBOBJECT => SUBOBJECT,
                                 SAVE_SOURCE => SAVE_SOURCE,
                                 ALLOW_CONTROLLED => ALLOW_CONTROLLED,
                                 RESPONSE => RESPONSE,
                                 ACTION_ID => ACTION_ID,
                                 ERRORS => ERRORS);
   end PRE_MAKE_CONTROLLED;

end MODULE;