DataMuseum.dk

top - download

    Length: 2682 (0xa7a)
    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 Text_Io;
with Object_Management_System;
with Directory;
procedure Oms_Test is
    package Oms renames Object_Management_System;

    Path : constant String := "/home/aconit/projects/umps/directory/test";
    Lib_Obj, Tmp_Obj, Enclos_Obj : Oms.Library_Object;
    Tmp_File : Directory.Object;
    Iter : Oms.Iterator;
    File_Iter : Directory.Iterator;
    Item : Character;
begin
    Lib_Obj := Oms.Any_Object.Make_Library_Object
                  (The_Name => Path, The_Subclass => Oms.Library_Subclass);
    Iter := Oms.Library.Children (The_Library => Lib_Obj);
    Text_Io.Put_Line ("La vue UNIX du repertoire " & Path & " : ");
    File_Iter := Oms.Unix_View.Get_Iterator_On_Files;
    while not Directory.Done (File_Iter) loop
        Tmp_File := Directory.Value (File_Iter);
        Text_Io.Put_Line (Oms.Unix_View.Image (The_Object => Tmp_File));
        Directory.Next (File_Iter);
    end loop;
    Text_Io.New_Line;
    Text_Io.Put_Line ("La vue OBJECT du repertoire " & Path & " : ");
    Oms.Reset (Iter);
    while not Oms.Done (Iter) loop
        Tmp_Obj := Oms.Value (Iter);
        Text_Io.Put_Line (Oms.Any_Object.Image (The_Object => Tmp_Obj));
        Oms.Next (Iter);
    end loop;
    Text_Io.New_Line;

    Text_Io.Put_Line
       ("Recherche de l'object correspondant a la derniere ligne de la vue ci_dessus :");

    declare
        Str : constant String := Oms.Any_Object.Image (The_Object => Tmp_Obj);
    begin
        Tmp_Obj := Oms.Any_Object.Value (Str);
        Text_Io.Put_Line (Oms.Any_Object.Image (The_Object => Tmp_Obj));
    end;

    File_Iter := Oms.Unix_View.Get_Iterator_On_Files;
    Directory.Next (File_Iter);
    Directory.Next (File_Iter);
    Tmp_File := Directory.Value (File_Iter);
    Text_Io.New_Line;
    Text_Io.Put_Line
       ("Le fichier correspondant a la troixieme ligne de la vue UNIX ci dessus est :");
    Text_Io.Put_Line (Oms.Unix_View.Image
                         (Oms.Unix_View.Value
                             (Oms.Unix_View.Image (Tmp_File))));

    Enclos_Obj := Oms.Any_Object.Enclosing_Library (The_Object => Tmp_Obj);
    Text_Io.New_Line;
    Text_Io.Put_Line ("Le repertoire parent de la vue ci_dessus vaut : ");
    Text_Io.Put_Line (Oms.Any_Object.Image (The_Object => Enclos_Obj));

    Text_Io.New_Line;
    Text_Io.Put ("Appuyer sur une touche pour voir son contenu...");
    Text_Io.Get (Item);
    Text_Io.New_Line;
    Iter := Oms.Library.Children (The_Library => Enclos_Obj);
    while not Oms.Done (Iter) loop
        Tmp_Obj := Oms.Value (Iter);
        Text_Io.Put_Line (Oms.Any_Object.Image (The_Object => Tmp_Obj));
        Oms.Next (Iter);
    end loop;


end Oms_Test;

pragma Main;