DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦aff4f3214⟧ TextFile

    Length: 6259 (0x1873)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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 ACTION;
with DEVICE_INDEPENDENT_IO;
with DIRECTORY;
with DTIA_CLIENT;
with PROFILE;
package ACTIONS is

   package DC renames DTIA_CLIENT;

   package MODEL 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);

      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);

      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);

      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);

      procedure PRE_CMVC_COPY (HANDLE : DC.GATEWAY_HANDLE;
                               SUBOBJECT : DIRECTORY.OBJECT;
                               RELEASE : BOOLEAN;
                               CONTROLLED : BOOLEAN;
                               JOINED : BOOLEAN;
                               SOURCE_VIEW : DIRECTORY.OBJECT;
                               DESTINATION_VIEW : DIRECTORY.OBJECT;
                               FIRST_CALL : BOOLEAN;
                               DO_NOT_COPY : out BOOLEAN;
                               RESPONSE : PROFILE.RESPONSE_PROFILE;
                               ACTION_ID : ACTION.ID;
                               ERRORS : in out DC.ERROR_COUNTS);

      procedure POST_CMVC_COPY (HANDLE : DC.GATEWAY_HANDLE;
                                SUBOBJECT : DIRECTORY.OBJECT;
                                SOURCE_OBJECT : DIRECTORY.OBJECT;
                                RELEASE : BOOLEAN;  
                                CONTROLLED : BOOLEAN;
                                JOINED : BOOLEAN;
                                SOURCE_VIEW : DIRECTORY.OBJECT;
                                DESTINATION_VIEW : DIRECTORY.OBJECT;
                                FIRST_CALL : BOOLEAN;
                                RESPONSE : PROFILE.RESPONSE_PROFILE;
                                ACTION_ID : ACTION.ID;
                                ERRORS : in out DC.ERROR_COUNTS);

      procedure TERMINATE_SERVER (REASON : in DC.TERMINATION_CONDITION);

   end MODEL;

   package 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);

      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);

      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);

      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);

   end MODULE;

   package REQUIREMENT 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);

      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);

      procedure POST_COMMIT (HANDLE : DC.GATEWAY_HANDLE;  
                             IMAGE : DC.IMAGE_ID);

      procedure EDIT (HANDLE : DC.GATEWAY_HANDLE;
                      IMAGE : DC.IMAGE_ID;
                      S : DC.SELECTION;
                      C : DC.CURSOR;
                      VISIBLE : BOOLEAN;
                      ALLOW_EDIT : out BOOLEAN);

      procedure IO_OPEN (FILE : in out DEVICE_INDEPENDENT_IO.FILE_TYPE;
                         MODE : DEVICE_INDEPENDENT_IO.FILE_MODE;
                         HANDLE : DC.GATEWAY_HANDLE;
                         FORM : STRING;
                         ACTION_ID : ACTION.ID);

   end REQUIREMENT;

end ACTIONS;