|
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: 1217 (0x4c1)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Mac_Text;
with Mac_Types;
with Text_Io;
use Text_Io;
package body Remote_Shell is
function Execute (T : Mac_Text.Text) return Mac_Types.Oserr is
begin
Put ("remote_shell:execute '");
for I in 1 .. Mac_Text.Length (T) loop
Put (Character'Val (Mac_Types.Char'Pos (Mac_Text.Value (I, T))));
end loop;
Put_Line ("'");
return Mac_Types.Noerr;
end Execute;
function Wait_End_Of_Execution
(Time_Out : Mac_Types.Longint) return Mac_Types.Oserr is
begin
Put ("remote_shell:wait end of execution timeout : '");
Put_Line (Mac_Types.Longint'Image (Time_Out));
return Mac_Types.Noerr;
end Wait_End_Of_Execution;
function Signal (Signal : Mac_Types.Longint) return Mac_Types.Oserr is
begin
Put ("remote_shell:signal : '");
Put_Line (Mac_Types.Longint'Image (Signal));
return Mac_Types.Noerr;
end Signal;
procedure Kill is
begin
Put_Line ("remote_shell:kill");
end Kill;
procedure Get_Status (Status : out Mac_Types.Longint) is
begin
Put_Line ("remote_shell:get status");
Status := 0;
end Get_Status;
end Remote_Shell;