DataMuseum.dk

top - download

    Length: 1881 (0x759)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Parameter_Tree;
with Local_Tree;
with Tad_Abstract;

package body Tad_Experience is

    procedure Create_New_Experience
                 (The_Object : out Object; The_Name : String) is
        New_Name : String (1 .. 20) := (1 .. 20 => ' ');
    begin
        New_Name (1 .. The_Name'Last) := The_Name;
        The_Object := Object'(New_Name, Parameter_Tree.Create_New_Tree,
                              Local_Tree.Create_New_Tree,
                              Tad_Abstract.Create_New_Tree);
    end Create_New_Experience;

    procedure Add_Parameter (The_Object : in out Object;
                             The_Parameter : Parameter_Tree.Object) is
    begin
        The_Object.Params := The_Parameter;
    end Add_Parameter;

    procedure Add_Local_Var (The_Object : in out Object;
                             The_Local_Var : Local_Tree.Object) is
    begin
        The_Object.Local_Var := The_Local_Var;
    end Add_Local_Var;

    procedure Add_Code (The_Object : in out Object;
                        The_Code : Tad_Abstract.Pobject) is
    begin
        The_Object.Code := The_Code;
    end Add_Code;

    function Get_Parameter (The_Object : Object) return Parameter_Tree.Object is
    begin
        return The_Object.Params;
    end Get_Parameter;

    function Get_Local_Var (The_Object : Object) return Local_Tree.Object is
    begin
        return The_Object.Local_Var;
    end Get_Local_Var;

    function Get_Code (The_Object : Object) return Tad_Abstract.Pobject is
    begin
        return The_Object.Code;
    end Get_Code;

    function Compare_Name (Object1, Object2 : Object) return Integer is
    begin
        if Object1.Name = Object2.Name then
            return 0;
        end if;
        if Object1.Name > Object2.Name then
            return 1;
        else
            return -1;
        end if;
    end Compare_Name;

end Tad_Experience;