DataMuseum.dk

top - download

    Length: 2937 (0xb79)
    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;
package body Object_Management_System is


    type Table is array (Iterator) of Library_Object;

    type Set is
        record
            Length : Iterator := 0;
            Parent : Library_Object;
            Element : Table;
        end record;

    Set_Of_Object : Set;


    function Nil return Library_Object is
    begin
        return Library_Object'(Subclass => Unknown_Subclass,
                               Name => Gs.Undefined_Object);
    end Nil;


    function Is_Nil (The_Object : Library_Object) return Boolean is
    begin
        return The_Object = Nil;
    end Is_Nil;


    function In_Text (The_Object : Library_Object) return String is
    begin
        return "Object : " & Gs.Image (The_Object.Name) &
                  " de subclass : " & Image (The_Object.Subclass);
    end In_Text;


    function Subclass_Of (The_Object : Library_Object)
                         return Subclass_Enumeration is
    begin
        return The_Object.Subclass;
    end Subclass_Of;


    function Equal (Subclass1, Subclass2 : Subclass_Enumeration)
                   return Boolean is
    begin
        return Subclass1 = Subclass2;
    end Equal;


    function Image (The_Subclass : Subclass_Enumeration) return String is
    begin
        case The_Subclass is
            when Library_Subclass =>
                return "library";
            when C_Unit_Subclass =>
                return "c_unit ";
            when Unix_File_Subclass =>
                return "file   ";
            when others =>
                return "       ";
        end case;
    end Image;


    function Value (S : String) return Subclass_Enumeration is
    begin
        if S = "library" then
            return Library_Subclass;
        elsif S = "c_unit " then
            return C_Unit_Subclass;
        elsif S = "file   " then
            return Unix_File_Subclass;
        else
            return Unknown_Subclass;
        end if;
    end Value;


    procedure Reset (Iter : in out Iterator) is
    begin
        Iter := 1;
    end Reset;


    procedure Next (Iter : in out Iterator) is
    begin
        Iter := Iter + 1;
    end Next;


    function Done (Iter : Iterator) return Boolean is
    begin
        return (Iter = Set_Of_Object.Length + 1);
    end Done;


    function Value (Iter : Iterator) return Library_Object is
    begin
        return Set_Of_Object.Element (Iter);
    end Value;

    function Normalise (The_String : in String; Len : Natural) return String is
    begin
        if The_String'Length >= Len then
            return The_String (The_String'First .. The_String'First + Len);
        else
            return The_String & (1 .. Len - The_String'Length => ' ');
        end if;
    end Normalise;

    package body Any_Object is separate;
    package body Library is separate;
    package body C_Unit is separate;
    package body Unix_View is separate;
end Object_Management_System;