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

⟦9a1fc4cab⟧ TextFile

    Length: 2123 (0x84b)
    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 CALENDAR;
with HIERARCHY;
with REQUIREMENTS;
pragma PRIVATE_EYES_ONLY;
with CMVC_IMPLEMENTATION;
with STATE_OPERATIONS;
package GATEWAYS is

   type CMVC_CONTROL_KIND is (NOT_CONTROLLED,  
                              CONTROLLED_CHECKED_IN,  
                              CONTROLLED_CHECKED_OUT);

   function CMVC_CONTROL (GATEWAY_NAME : in STRING) return CMVC_CONTROL_KIND;


   type STATE is private;

   procedure INITIALIZE (THE_STATE : out STATE;
                         ACTION_ID : in ACTION.ID;  
                         WORK_ORDER : in STRING);

   procedure FINALIZE (THE_STATE : in out STATE);

   procedure AUGMENT (FOR_MODULE : in HIERARCHY.MODULE;  
                      IN_LIBRARY : in STRING;
                      HOST : in STRING;
                      MODEL : in STRING;
                      UPDATE_TIME : in CALENDAR.TIME;
                      COMMENTS : in STRING;
                      THE_STATE : in out STATE);

   procedure CREATE (FOR_MODULE : in HIERARCHY.MODULE;  
                     IN_LIBRARY : in STRING;
                     HOST : in STRING;
                     MODEL : in STRING;
                     UPDATE_TIME : in CALENDAR.TIME;
                     COMMENTS : in STRING;
                     THE_STATE : in out STATE);

   procedure CREATE (IN_GATEWAY : in STRING;
                     REQUIREMENT_NAME : in STRING;
                     REQUIREMENT_KIND : in REQUIREMENTS.NON_FUNCTIONAL;
                     REQUIREMENT_TEXT : in STRING;
                     COMMENTS : in STRING;
                     THE_STATE : in out STATE);

   procedure DESTROY (GATEWAY_NAME : in STRING;
                      COMMENTS : in STRING;
                      THE_STATE : in out STATE);

   procedure REDUCE (GATEWAY_NAME : in STRING;
                     CANDIDATE_MODULES : in out HIERARCHY.MODULE_ITERATOR;
                     COMMENTS : in STRING;
                     THE_STATE : in out STATE);

private
   type STATE is
      record
         CMVC : STATE_OPERATIONS.STATE;
         CONFIGURATION : CMVC_IMPLEMENTATION.CONFIGURATION;
      end record;
end GATEWAYS;