DataMuseum.dk

top - download

    Length: 2167 (0x877)
    Types: TextFile
    Names: »V«

└─⟦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 CALENDAR;
with REQUIREMENTS;
with REMOTE_OPERATIONS;
package HIERARCHY is

   type MODULE is private;
   NIL : constant MODULE;

   type MODULE_ITERATOR is private;


   procedure BUILD (MODEL : in STRING;  
                    HOST : in STRING;
                    ROOT : out MODULE;
                    BUILD_TIME : out CALENDAR.TIME);

   procedure BUILD (MODEL : in STRING;  
                    IN_CONTEXT : in REMOTE_OPERATIONS.CONTEXT;
                    ROOT : out MODULE;
                    BUILD_TIME : out CALENDAR.TIME);


   function MAKE (IDENTIFIER : in STRING) return MODULE;


   function CHILDREN_OF (M : in MODULE) return MODULE_ITERATOR;
   function PARENT_OF (M : in MODULE) return MODULE;


   function IDENTIFIER (M : in MODULE) return STRING;
   function SIMPLE_NAME (M : in MODULE) return STRING;
   function FULL_NAME (M : in MODULE) return STRING;

   function NODE_NUMBER (M : in MODULE) return STRING;
   function COMMENT (M : in MODULE) return STRING;

   function REQUIREMENT (M : in MODULE;  
                         NUMBER : in REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER)
                        return STRING;

   function DONE (M : in MODULE_ITERATOR) return BOOLEAN;
   function VALUE (M : in MODULE_ITERATOR) return MODULE;
   procedure NEXT (M : in out MODULE_ITERATOR);

   function SIZE (M : in MODULE_ITERATOR) return NATURAL;

   function MAKE (M : in MODULE) return MODULE_ITERATOR;

private

   type ACCESS_STRING is access STRING;
   pragma SEGMENTED_HEAP (ACCESS_STRING);

   type REQUIREMENT_LIST is
      array (REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER) of ACCESS_STRING;

   type MODULE_RECORD is
      record
         IDENTIFIER : ACCESS_STRING;
         NODE_NUMBER : ACCESS_STRING;  
         COMMENT : ACCESS_STRING;  
         REQUIREMENTS : REQUIREMENT_LIST;
         PARENT : MODULE;
         FIRST_CHILD : MODULE;
         NEXT_SIBLING : MODULE;
         REMAINING_CHILDREN : NATURAL; -- Used for construction only.
      end record;

   type MODULE is access MODULE_RECORD;
   pragma SEGMENTED_HEAP (MODULE);

   NIL : constant MODULE := null;

   type MODULE_ITERATOR is new MODULE;

end HIERARCHY;