DataMuseum.dk

top - download

    Length: 3191 (0xc77)
    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 String_Utilities;
separate (Object_Management_System)
package body Unix_View is


    function Get_Iterator_On_Files return Directory.Iterator is
    begin
        return Directory.Traversal.Children (Set_Of_Object.Parent.Unix_Library);
    end Get_Iterator_On_Files;

    function Image (The_Object : Directory.Object) return String is
    begin
        return Normalise (Directory.Naming.Simple_Name (The_Object), 30) &
                  " " & Directory.Image (Directory.Class (The_Object)) &
                  Directory.Statistics.Image
                     (The_Permissions =>
                         Directory.Statistics.Owner_Permissions (The_Object)) &
                  Directory.Statistics.Image
                     (The_Permissions =>
                         Directory.Statistics.Group_Permissions (The_Object)) &
                  Directory.Statistics.Image
                     (The_Permissions =>
                         Directory.Statistics.Other_Permissions (The_Object)) &
                  "  " & Normalise (Directory.Statistics.Creator
                                       (The_Object => The_Object), 8) &
                  String_Utilities.Number_To_String
                     (Directory.Statistics.Object_Size (The_Object), 10, 10);
    end Image;

    function Value (The_String : String) return Directory.Object is
        I : constant Natural := String_Utilities.Locate
                                   (' ', The_String, False);
        Str : constant String := The_String (The_String'First .. I - 1);
        Iter : Directory.Iterator;
        Obj : Directory.Object;
    begin
        Directory.Reset (Iter);
        while not Directory.Done (Iter) loop
            Obj := Directory.Value (Iter);
            if Directory.Naming.Simple_Name (Obj) = Str then
                return Obj;
            end if;  
            Directory.Next (Iter);
        end loop;
        return Directory.Nil;
    end Value;

    function Library_Object_Of
                (The_Object : Directory.Object) return Library_Object is
        Iter : Iterator;
        Lo : Library_Object;
    begin
        Reset (Iter);
        while not Done (Iter) loop
            Lo := Value (Iter);
            case Subclass_Of (Lo) is
                when Library_Subclass =>
                    if Directory.Same_Object (Lo.Unix_Library, The_Object) then
                        return Lo;
                    end if;  
                when Unix_File_Subclass =>
                    if Directory.Same_Object (Lo.Unix_File, The_Object) then
                        return Lo;
                    end if;
                when C_Unit_Subclass =>
                    if Directory.Same_Object
                          (Lo.Source_File, The_Object) or else
                       Directory.Same_Object
                          (Lo.Object_File, The_Object) or else
                       Directory.Same_Object (Lo.Exec_File, The_Object) then
                        return Lo;
                    end if;
                when others =>
                    null;
            end case;
            Next (Iter);
        end loop;  
        return Nil;
    end Library_Object_Of;

end Unix_View;