|
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: ┃ B T ┃
Length: 1113 (0x459)
Types: TextFile
Names: »B«
└─⟦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⟧
with Rs6000_Defs;
with Interchange;
with Rpc;
with Rpc_Client;
with Transport_Defs;
with Transport_Interchange;
with Transport_Name;
with Transport_Stream;
package body Rs6000 is
Remote_Host : constant Transport_Defs.Host_Id :=
Transport_Name.Host_To_Host_Id ("Aconit");
procedure Start_Request is
new Rpc_Client.Start_Request_Generic
(Default_Network => Rs6000_Defs.Network,
Default_Host => Remote_Host,
Default_Socket => Rs6000_Defs.Socket,
Default_Program => Rs6000_Defs.Program,
Default_Version => Rs6000_Defs.Version);
procedure End_Request (Stream : Transport_Stream.Stream_Id)
renames Rpc_Client.End_Request;
procedure Put_Line (Item : String) is
Stream : Transport_Stream.Stream_Id;
begin
Start_Request (Stream => Stream,
Proc => Rs6000_Defs.Proc_Number.Put_Line);
Transport_Interchange.Put_String (Into => Stream, Data => Item);
End_Request (Stream);
Rpc_Client.End_Response (Stream);
end Put_Line;
end Rs6000;