DataMuseum.dk

top - download

    Length: 1224 (0x4c8)
    Types: TextFile
    Names: »B«

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

TextFile

with Tad_Global;
with Global_Tree;
with The_Global_Tree;
with Tad_Material;

package body Tad_Group is

    procedure Create_New_Group_Member
                 (The_Object : out Object; The_Name : String) is
        Tmp : Tad_Global.Object;
        Ptmp : Pvar;
        New_Name : String (1 .. 20) := (1 .. 20 => ' ');
    begin
        New_Name (1 .. The_Name'Last) := The_Name;
        Tad_Global.Create_New_Station (Tmp, New_Name);
        Global_Tree.Search_Element (The_Global_Tree.Object, Tmp);
        Ptmp := new Tad_Global.Object'(Tmp);
        The_Object := Object'(New_Name, Ptmp);
    end Create_New_Group_Member;

    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;

    function What_Name (The_Object : Object) return String is
    begin
        return The_Object.Name;
    end What_Name;

    function What_Material (The_Object : Object) return Tad_Global.Object is
    begin
        return The_Object.Access_Var.all;
    end What_Material;

end Tad_Group;