DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦835e47117⟧ TextFile

    Length: 2830 (0xb0e)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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 Calendar;
package Directory_Implementation is

    function Scan_Directory
                (Path : in String; Pattern : in String := ".*") return Integer;

    function Create_File (Path : in String;
                          Owner_Permissions : in Integer;
                          Group_Permissions : in Integer;
                          Other_Permissions : in Integer) return Boolean;
    function Create_Directory (Path : in String;
                               Owner_Permissions : in Integer;
                               Group_Permissions : in Integer;
                               Other_Permissions : in Integer) return Boolean;

    function Copy_Directory
                (The_Path : in String; To_Path : in String) return Boolean;
    function Copy_File
                (The_Path : in String; To_Path : in String) return Boolean;

    function Move (The_Path : in String; To_Path : in String) return Boolean;

    function Delete_File (Path : in String) return Boolean;
    function Delete_Directory (Path : in String) return Boolean;

    function Existent_Entry (Path : in String) return Boolean;

    function Entry_Value (Iter : in Integer) return String;

    function Entry_Size (Path : in String) return Integer;
    function Number_Of_Links (Path : in String) return Integer;

    function Entry_Username (Path : in String) return String;
    function Entry_Groupname (Path : in String) return String;

    function Time_Of_Last_Update (Path : in String) return Calendar.Time;
    function Time_Of_Last_Read (Path : in String) return Calendar.Time;

    function Is_Directory (Path : in String) return Boolean;
    function Is_File (Path : in String) return Boolean;
    function Is_Bloc_Special_File (Path : in String) return Boolean;
    function Is_Character_Special_File (Path : in String) return Boolean;
    function Is_Fifo (Path : in String) return Boolean;
    function Is_Socket (Path : in String) return Boolean;
    function Is_Symbolic_Link (Path : in String) return Boolean;
    function Is_Multiplex_Character_Special_File
                (Path : in String) return Boolean;

    function Entry_Owner_Permissions (Path : in String) return Integer;
    function Entry_Group_Permissions (Path : in String) return Integer;
    function Entry_Other_Permissions (Path : in String) return Integer;
    procedure Change_Owner_Permissions (Path : in String; Mode : in Integer);
    procedure Change_Group_Permissions (Path : in String; Mode : in Integer);
    procedure Change_Other_Permissions (Path : in String; Mode : in Integer);

    function Change_Directory (Path : in String) return Boolean;

    function Get_Home_Directory return String;
    function Get_Absolute_Path (The_Path : in String) return String;
    function Get_Error_Message return String;

end Directory_Implementation;