|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 6440 (0x1928)
Types: TextFile
Names: »V«
└─⟦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«
└─⟦6d381756c⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦6d381756c⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦6d381756c⟧
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Profile;
with Simple_Status;
with Device_Independent_Io;
pragma Private_Eyes_Only;
with Remote_Operations;
generic
Nb_Max_Connections : Positive;
Idle_Time_Out : Duration;
package Multi_Requests is
type Object_Id is private;
procedure Init_Object (Object : in out Object_Id; Machine : in String);
procedure Disconnect (C : in out Object_Id;
Status : out Simple_Status.Condition);
-- Explicit termination of all connexions.
procedure Shut_Down;
procedure Create (Object : in Object_Id;
Remote_File : in String;
Is_Directory : in Boolean := False;
Status : out Simple_Status.Condition);
-- Create the specified remote file. If necessary, directories in the path
-- to the remote file are created. If Is_Directory is true, then
-- Remote_File is itself a Directory.
procedure Put (Object : in Object_Id;
From_Local_File : in String;
To_Remote_File : in String;
Status : out Simple_Status.Condition);
procedure Put (Object : in Object_Id;
From_Local_File : in Device_Independent_Io.File_Type;
To_Remote_File : in String;
Status : out Simple_Status.Condition);
-- Copy the content of the local file to the remote file. This will
-- overlay an existing remote file. If the remote file does not exist,
-- it will be created as long as all the enclosing directories in its
-- path exist. (See Create, above, to ensure this).
-- The local_file can either be a string_name or an already opened
-- for reading Device_Independent_Io.File_Type.
-- If the local has been opened by the caller, no close is applied
procedure Get (Object : in Object_Id;
From_Remote_File : in String;
To_Local_File : in String;
Append_To_File : in Boolean;
Status : out Simple_Status.Condition);
procedure Get (Object : in Object_Id;
From_Remote_File : in String;
To_Local_File : in Device_Independent_Io.File_Type;
Status : out Simple_Status.Condition);
-- Copy the content of the remote file to the local file. This will overlay
-- an existing local file or create an non existing local file.
-- The local_file can either be a string_name or an already opened for
-- writing Device_Independent_Io.File_Type.
-- If the local has been opened by the caller, no close is applied
procedure Last_Update (Object : in Object_Id;
Of_Remote_File : in String;
In_Seconds : out Integer;
Status : out Simple_Status.Condition);
-- Return the last time the remote file was updated. May be used by clients
-- to determine if Get/Put is really required.
procedure Copy (Object : in Object_Id;
From_Remote_File : in String;
To_Remote_File : in String;
Link : in Boolean := False;
Status : out Simple_Status.Condition);
-- Copy one remote file to another. If link is true, simulate the
-- copy via a file system link (if supported by the remote file
-- system). Otherwise, make a distinct physical copy (the default).
procedure Delete (Object : in Object_Id;
Remote_File : in String;
Expunge : in Boolean := False;
Status : out Simple_Status.Condition);
-- Remove the specified remote file. If expunge is true, remove all
-- versions of the remote file (if supported by the remote file system).
-- Expunge is not yet implemented for Unix.
-- Remote_File can be a directory, in this case the directory is deleted
-- only if it is empty.
procedure Move (Object : in Object_Id;
From_Remote_File : in String;
To_Remote_File : in String;
Status : out Simple_Status.Condition);
-- Functionnaly equivalent to Copy/Delete, but might be implemented
-- more efficiently as a single operation on some remote file systems.
-- procedure Ls (Object : in Object_Id;
-- From_Remote_Directory : in String;
-- Level : in Natural;
-- To_Local_File : in String;
-- Append_To_File : in Boolean;
-- Status : out Simple_Status.Condition);
-- procedure Ls (Object : in Object_Id;
-- From_Remote_Directory : in String;
-- Level : in Natural;
-- To_Local_File : in Device_Independent_Io.File_Type;
-- Status : out Simple_Status.Condition);
-- -- Writes in the specified Local_File the content of the specified
-- -- Remote_Directory in a "ls -lgR" like format. If level is zero, all
-- -- levels are displayed. The local file can either be a string_name
-- -- (which will be created if non existent).
-- -- If the local has been opened by the caller, no close is applied
procedure Input_To_Remote_Shell (Object : in Object_Id;
Input : in String;
Timeout : in Integer;
Status : out Simple_Status.Condition);
-- procedure Signal_To_Shell (Object : in Object_Id;
-- Signal : in Natural;
-- Status : out Simple_Status.Condition);
-- -- send a signal to the remote shell.
-- -- as the previous "input_to_shell" is synchronous, this call is not
-- -- very useful but could, at least, be used to kill a current remote shell
-- -- that won't be accessed any more to reduce to the remote machine load.
private
type Object_Id is
record
Connection : Remote_Operations.Context;
Open_Error : Simple_Status.Condition;
end record;
-- type Object_Id is
-- record
-- Lg_Machine : Natural := 0;
-- Machine : String (1 .. 20);
-- Lg_User_Name : Natural := 0;
-- User_Name : String (1 .. 20);
-- Lg_Password : Natural := 0;
-- Password : String (1 .. 20);
-- end record;
end Multi_Requests;