DataMuseum.dk

top - download

    Length: 10846 (0x2a5e)
    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 DIRECTORY;
with GATEWAY_PROPERTY;
with LOGGER;
with TIME_UTILITIES;
separate (ASA_DEFINITIONS)
package body PROPERTIES is

   package DNA renames DIRECTORY.NAMING;
   package GWP renames GATEWAY_PROPERTY;
   package TU renames TIME_UTILITIES;


   procedure ERROR (H : in GWO.HANDLE; PROPERTY_NAME : in STRING) is
   begin
      LOGGER.ERROR ("Error detected while setting property " &
                    PROPERTY_NAME & " of object " &
                    DNA.GET_FULL_NAME (GWO.DIRECTORY_OBJECT (H)));
   end ERROR;


   function ASA_COMMENT (H : in GWO.HANDLE) return STRING is
   begin
      return GWO.VALUE (H,  
                        PROPERTY_NAME => ASA_COMMENT_N);
   end ASA_COMMENT;

   function ASA_DEPENDENTS (H : in GWO.HANDLE) return STRING is
   begin
      return GWP.VALUE (H,  
                        PROPERTY_NAME => ASA_DEPENDENTS_NF_N);
   end ASA_DEPENDENTS;

   function ASA_DEPENDENTS
               (H : in GWO.HANDLE;
                NUMBER : in REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER)
               return STRING is
      NUMBER_IMAGE : constant STRING :=
         REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER'IMAGE (NUMBER);
   begin
      return
         GWP.VALUE
            (H,  
             PROPERTY_NAME =>
                ASA_DEPENDENTS_F_N &
                   NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 .. NUMBER_IMAGE'LAST));
   end ASA_DEPENDENTS;

   function ASA_ID (H : in GWO.HANDLE) return POSITIVE is
   begin
      return POSITIVE'VALUE (GWP.VALUE (H,  
                                        PROPERTY_NAME => ASA_ID_N));
   end ASA_ID;

   function ASA_LAST_ID (H : in GWO.HANDLE) return NATURAL is
   begin
      return NATURAL'VALUE (GWP.VALUE (H, PROPERTY_NAME => ASA_LAST_ID_N));
   end ASA_LAST_ID;

   function ASA_LAST_REQUIREMENT_ID (H : in GWO.HANDLE) return NATURAL is
   begin
      return NATURAL'VALUE (GWP.VALUE
                               (H, PROPERTY_NAME => ASA_LAST_REQUIREMENT_ID_N));
   end ASA_LAST_REQUIREMENT_ID;

   function ASA_NODE_NUMBER (H : in GWO.HANDLE) return STRING is
   begin
      return GWP.VALUE (H,  
                        PROPERTY_NAME => ASA_NODE_NUMBER_N);
   end ASA_NODE_NUMBER;

   function ASA_REQUIREMENT
               (H : in GWO.HANDLE;
                NUMBER : in REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER)
               return STRING is
      NUMBER_IMAGE : constant STRING :=
         REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER'IMAGE (NUMBER);
   begin
      return
         GWO.VALUE
            (H,
             PROPERTY_NAME =>
                ASA_REQUIREMENT_N &
                   NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 .. NUMBER_IMAGE'LAST));
   end ASA_REQUIREMENT;

   function ASA_REQUIREMENT_KIND (H : in GWO.HANDLE)
                                 return REQUIREMENTS.NON_FUNCTIONAL is
   begin
      return REQUIREMENTS.REQUIREMENT_KIND'VALUE
                (GWP.VALUE (H,  
                            PROPERTY_NAME => ASA_REQUIREMENT_KIND_N));
   end ASA_REQUIREMENT_KIND;

   function ASA_REQUIREMENT_TEXT (H : in GWO.HANDLE) return STRING is
   begin
      return GWO.VALUE (H,  
                        PROPERTY_NAME => ASA_REQUIREMENT_TEXT_N);
   end ASA_REQUIREMENT_TEXT;

   function ASA_UPDATE_TIME (H : in GWO.HANDLE) return CALENDAR.TIME is
   begin
      return TU.CONVERT_TIME
                (TU.VALUE (GWP.VALUE (H, PROPERTY_NAME => ASA_UPDATE_TIME_N)));
   end ASA_UPDATE_TIME;

   function CLASS (H : in GWO.HANDLE) return GATEWAY_CLASS is
   begin
      return GATEWAY_CLASS'VALUE (GWP.VALUE (H,  
                                             PROPERTY_NAME => CLASS_NAME_N));
   end CLASS;

   function DATA_CONTEXT (H : in GWO.HANDLE) return STRING is
   begin
      return GWP.VALUE (H, PROPERTY_NAME => DATA_CONTEXT_N);
   end DATA_CONTEXT;

   function DATA_HOST (H : in GWO.HANDLE) return STRING is
   begin
      return GWP.VALUE (H, PROPERTY_NAME => DATA_HOST_N);
   end DATA_HOST;

   function DATA_NAME (H : in GWO.HANDLE) return STRING is
   begin
      return GWP.VALUE (H, PROPERTY_NAME => DATA_NAME_N);
   end DATA_NAME;


   procedure SET_ASA_COMMENT (H : in GWO.HANDLE;  
                              VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_COMMENT_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_DEPENDENTS_NF_N);
      end if;
   end SET_ASA_COMMENT;

   procedure SET_ASA_DEPENDENTS (H : in GWO.HANDLE;  
                                 VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_DEPENDENTS_NF_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_DEPENDENTS_NF_N);
      end if;
   end SET_ASA_DEPENDENTS;

   procedure SET_ASA_DEPENDENTS
                (H : in GWO.HANDLE;
                 NUMBER : in REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER;
                 VALUE : in STRING) is
      NUMBER_IMAGE : constant STRING :=
         REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER'IMAGE (NUMBER);
      S : BOOLEAN;
   begin
      GWP.SET_VALUE
         (H,
          PROPERTY_NAME =>
             ASA_DEPENDENTS_F_N &
                NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 .. NUMBER_IMAGE'LAST),
          NEW_VALUE => VALUE,
          SUCCESS => S);
      if not S then
         ERROR (H, ASA_DEPENDENTS_F_N & NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 ..
                                                         NUMBER_IMAGE'LAST));
      end if;
   end SET_ASA_DEPENDENTS;

   procedure SET_ASA_ID (H : in GWO.HANDLE;  
                         VALUE : in POSITIVE) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_ID_N,
                     NEW_VALUE => POSITIVE'IMAGE (VALUE),
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_ID_N);
      end if;
   end SET_ASA_ID;

   procedure SET_ASA_LAST_ID (H : in GWO.HANDLE;  
                              VALUE : in NATURAL) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_LAST_ID_N,
                     NEW_VALUE => NATURAL'IMAGE (VALUE),
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_LAST_ID_N);
      end if;
   end SET_ASA_LAST_ID;

   procedure SET_ASA_LAST_REQUIREMENT_ID (H : in GWO.HANDLE;  
                                          VALUE : in NATURAL) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_LAST_REQUIREMENT_ID_N,
                     NEW_VALUE => NATURAL'IMAGE (VALUE),
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_LAST_REQUIREMENT_ID_N);
      end if;
   end SET_ASA_LAST_REQUIREMENT_ID;

   procedure SET_ASA_NODE_NUMBER (H : in GWO.HANDLE;  
                                  VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_NODE_NUMBER_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_NODE_NUMBER_N);
      end if;
   end SET_ASA_NODE_NUMBER;

   procedure SET_ASA_REQUIREMENT
                (H : in GWO.HANDLE;
                 NUMBER : in REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER;
                 VALUE : in STRING) is
      NUMBER_IMAGE : constant STRING :=
         REQUIREMENTS.FUNCTIONAL_REQUIREMENT_NUMBER'IMAGE (NUMBER);
      S : BOOLEAN;
   begin
      GWP.SET_VALUE
         (H,
          PROPERTY_NAME =>
             ASA_REQUIREMENT_N &
                NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 .. NUMBER_IMAGE'LAST),
          NEW_VALUE => VALUE,
          SUCCESS => S);
      if not S then
         ERROR (H, ASA_REQUIREMENT_N & NUMBER_IMAGE (NUMBER_IMAGE'FIRST + 1 ..
                                                        NUMBER_IMAGE'LAST));
      end if;
   end SET_ASA_REQUIREMENT;

   procedure SET_ASA_REQUIREMENT_KIND
                (H : in GWO.HANDLE;  
                 VALUE : in REQUIREMENTS.NON_FUNCTIONAL) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_REQUIREMENT_KIND_N,
                     NEW_VALUE => REQUIREMENTS.REQUIREMENT_KIND'IMAGE (VALUE),
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_REQUIREMENT_KIND_N);
      end if;
   end SET_ASA_REQUIREMENT_KIND;

   procedure SET_ASA_REQUIREMENT_TEXT (H : in GWO.HANDLE;  
                                       VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_REQUIREMENT_TEXT_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_REQUIREMENT_TEXT_N);
      end if;
   end SET_ASA_REQUIREMENT_TEXT;

   procedure SET_ASA_UPDATE_TIME
                (H : in GWO.HANDLE; VALUE : in CALENDAR.TIME) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => ASA_UPDATE_TIME_N,
                     NEW_VALUE => TU.IMAGE (TU.CONVERT_TIME (VALUE)),
                     SUCCESS => S);
      if not S then
         ERROR (H, ASA_UPDATE_TIME_N);
      end if;
   end SET_ASA_UPDATE_TIME;

   procedure SET_DATA_CONTEXT (H : in GWO.HANDLE;  
                               VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => DATA_CONTEXT_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, DATA_CONTEXT_N);
      end if;
   end SET_DATA_CONTEXT;

   procedure SET_DATA_HOST (H : in GWO.HANDLE;  
                            VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => DATA_HOST_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, DATA_HOST_N);
      end if;
   end SET_DATA_HOST;

   procedure SET_DATA_NAME (H : in GWO.HANDLE;  
                            VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => DATA_NAME_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, DATA_NAME_N);
      end if;
   end SET_DATA_NAME;

   procedure SET_PARENT_NAME (H : in GWO.HANDLE;  
                              VALUE : in STRING) is
      S : BOOLEAN;
   begin
      GWP.SET_VALUE (H,
                     PROPERTY_NAME => PARENT_NAME_N,
                     NEW_VALUE => VALUE,
                     SUCCESS => S);
      if not S then
         ERROR (H, PARENT_NAME_N);
      end if;
   end SET_PARENT_NAME;

end PROPERTIES;