DataMuseum.dk

top - download

    Length: 11450 (0x2cba)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦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;