|
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 - metrics - downloadIndex: B T
Length: 10385 (0x2891)
Types: TextFile
Names: »B«
└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
└─⟦9a14c9417⟧ »DATA«
└─⟦this⟧
with Cmvc;
with Debug_Tools;
with Directory;
with Directory_Tools;
with Ftp;
with Ftp_Defs;
with Ftp_Profile;
with Library_Interface;
with Log;
with Polymorphic_Io;
with Profile;
with Remote_Command_Interface;
with String_Utilities;
with Switch_Implementation;
with Trace_Rci_Commands;
package body Library_Extensions is
package Naming renames Directory.Naming;
package Su renames String_Utilities;
package Dt renames Directory_Tools;
package Object renames Directory_Tools.Object;
package Rci renames Remote_Command_Interface;
Target_Key_Id : constant String := "M68k_Sunos_Vdx";
-- =========================
-- Non-Visable Declarations
-- =========================
procedure Set_Status
(Status : in out Simple_Status.Condition;
Error_Type : String := "Remote_Operation_Error";
Message : String;
Severity : Simple_Status.Condition_Class :=
Simple_Status.Problem) is separate;
procedure Unhandled_Exception
(Status : in out Simple_Status.Condition;
Routine : String) is separate;
procedure Acquire_Connection
(Remote_Connection : in out Rci.Context;
Remote_Machine : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Display_Information
(Remote_Machine_Name : String;
Remote_Directory_Name : String
) is separate;
procedure Set_Context
(Old_Context : in out Naming.Context;
View : String;
Status : in out Simple_Status.Condition) is separate;
procedure Reset_Context
(Old_Context : Directory.Naming.Context) is separate;
procedure Create_Program_Library
(Host_View : String;
Remote_Directory : String;
Remote_Program_Library : String;
Remote_Machine : String;
Status : in out Simple_Status.Condition)
is separate;
function Immediate_Imports
(For_View : String)
return Directory_Tools.Object.Iterator is separate;
procedure File_Exists
(Remote_Filename : String;
Remote_Machine : String;
Remote_Connection : in out Rci.Context;
Status : in out Simple_Status.Condition;
Exists : out Boolean) is separate;
procedure Directory_Exists
(Remote_Machine : String;
Remote_Directory : String;
Remote_Connection : in out Rci.Context;
Status : in out Simple_Status.Condition;
Exists : out Boolean) is separate;
procedure Create_Remote_Directory
(Remote_Directory : String;
Remote_Machine : String;
Remote_Connection : in out Rci.Context;
Status : in out Simple_Status.Condition)
is separate;
procedure Create_Remote_Directory
(Remote_Directory : String;
Remote_Machine : String;
Status : in out Simple_Status.Condition) is
Remote_Connection : Remote_Command_Interface.Context;
Local_Status : Simple_Status.Condition;
Create_Dir_Command : constant String := "mkdir " & Remote_Directory;
begin
Log.Put_Line
(Message => "Creating remote directory = " & Remote_Directory,
Kind => Profile.Debug_Msg);
if not Simple_Status.Error (Status) then
Acquire_Connection
(Remote_Connection => Remote_Connection,
Remote_Machine => Remote_Machine,
Status => Status);
end if;
if not Simple_Status.Error (Status) then
Create_Remote_Directory
(Remote_Directory => Remote_Directory,
Remote_Machine => Remote_Machine,
Remote_Connection => Remote_Connection,
Status => Status);
end if;
if Simple_Status.Error (Status) then
Log.Put_Line
(Message => Simple_Status.Message (Status),
Kind => Profile.Negative_Msg);
Set_Status
(Status => Status,
Message => "Unable to create the remote directory, " &
Remote_Directory & ".");
end if;
Rci.Release (Remote_Connection => Remote_Connection,
Status => Local_Status,
Trace_Command => Trace_Rci_Commands);
exception
when others =>
Unhandled_Exception (Status, "Create_Remote_Directory");
begin
Rci.Release
(Remote_Connection => Remote_Connection,
Status => Local_Status,
Trace_Command => Trace_Rci_Commands);
exception
when others =>
null;
end;
end Create_Remote_Directory;
procedure Make_Path_Preprocess
(Host_Path_Name : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Make_Path_Postprocess
(Host_Path_Name : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Destroy_View_Preprocess
(Host_Path_Name : String;
Status : in out Simple_Status.Condition) is separate;
procedure Destroy_View_Postprocess
(Host_Path_Name : String;
Status : in out Simple_Status.Condition) is separate;
procedure Acquire_Visibility
(Imported_View : String;
Into_View : String;
Remote_Connection : Rci.Context;
Status : in out Simple_Status.Condition)
is separate;
procedure Import_Preprocess
(Views_To_Import : Directory.Naming.Iterator;
Into_View : String;
Status : in out Simple_Status.Condition) is separate;
procedure Import_Postprocess
(Views_To_Import : Directory.Naming.Iterator;
Into_View : String;
Status : in out Simple_Status.Condition) is separate;
procedure Remove_Import_Preprocess
(View_To_Remove : Directory.Object;
From_View : String;
Status : in out Simple_Status.Condition) is separate;
procedure Remove_Import_Postprocess
(View_To_Remove : Directory.Object;
From_View : String;
Status : in out Simple_Status.Condition) is separate;
procedure Release_Preprocess
(From_Working_View : String;
Released_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Release_Postprocess
(View_To_Remove : String;
Released_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Link_Preprocess
(Main_Unit : String;
Executable_Name : String;
Status : in out Simple_Status.Condition) is separate;
procedure Link_Postprocess
(Main_Unit : String;
Executable_Name : String;
Status : in out Simple_Status.Condition) is separate;
procedure Download_File
(Host_File_Name : String;
Target_File_Name : String;
Remote_Directory : String;
Remote_Machine : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Build_List_File
(Host_View : String;
Remote_Machine : String;
Remote_Directory : String;
Remote_Program_Library : String;
List_File_Name : String;
Status : in out Simple_Status.Condition)
is separate;
procedure Upload_File
(Host_File_Name : String;
Target_File_Name : String;
Remote_Directory : String;
Remote_Machine : String;
Status : in out Simple_Status.Condition)
is separate;
end Library_Extensions;