DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦8c423a816⟧ Ada Source

    Length: 13312 (0x3400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Properties, seg_010766, separate Asa_Definitions

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

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;

    nblk1=c
    nid=0
    hdr6=18
        [0x00] rec0=23 rec1=00 rec2=01 rec3=004
        [0x01] rec0=19 rec1=00 rec2=02 rec3=070
        [0x02] rec0=1b rec1=00 rec2=03 rec3=042
        [0x03] rec0=18 rec1=00 rec2=04 rec3=09c
        [0x04] rec0=21 rec1=00 rec2=05 rec3=018
        [0x05] rec0=1c rec1=00 rec2=06 rec3=026
        [0x06] rec0=1c rec1=00 rec2=07 rec3=042
        [0x07] rec0=1e rec1=00 rec2=08 rec3=01a
        [0x08] rec0=1b rec1=00 rec2=09 rec3=004
        [0x09] rec0=1b rec1=00 rec2=0a rec3=044
        [0x0a] rec0=1d rec1=00 rec2=0b rec3=022
        [0x0b] rec0=22 rec1=00 rec2=0c rec3=000
    tail 0x2170c8ad8823076e62c53 0x42a00088462060003