DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦92cd42508⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Remote_Shell, seg_0251ba

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=01e
        [0x01] rec0=0f rec1=00 rec2=02 rec3=001
    tail 0x217201120839f5acc789c 0x42a00088462060003