DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦be897e2c7⟧ TextFile

    Length: 1910 (0x776)
    Types: TextFile
    Names: »V«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦this⟧

TextFile

with Profile;
with Byte_Defs;
with Transport_Defs;

package Os2000_Transfer_Utilities is

    subtype Byte is Byte_Defs.Byte;
    subtype Byte_String is Byte_Defs.Byte_String;

    function Network (Remote_Machine : String;
                      Response : Profile.Response_Profile)
                     return Transport_Defs.Network_Name;
    function Host (Remote_Machine : String; Response : Profile.Response_Profile)
                  return Transport_Defs.Host_Id;

    Remote_Machine_Unknown : exception;

    procedure Check_Open (Status : Transport_Defs.Status_Code;
                          Response : Profile.Response_Profile);
    procedure Check_Connect (Status : Transport_Defs.Status_Code;
                             Response : Profile.Response_Profile);
    procedure Check_Transmit (Status : Transport_Defs.Status_Code;
                              Response : Profile.Response_Profile);
    procedure Check_Receive (Status : Transport_Defs.Status_Code;
                             Response : Profile.Response_Profile);

    Check_Failed : exception;

    type Transfer_Type is (Put_File, Put_Exe, Get_File);

    function Make_Command
                (Socket : Transport_Defs.Socket_Id; Transfer : Transfer_Type)
                return Byte_String;


    type Remote_File_Status is (Success, Name_Error, Use_Error,
                                Device_Error, Other_Error, Unknown_Status);


    function Remote_Path (File : String;
                          Directory : String;
                          Response : Profile.Response_Profile) return String;

    No_Remote_File : exception;
    No_Local_File : exception;


    function Remote_Machine (Name : String; Response : Profile.Response_Profile)
                            return String;

    function Extract_Status (S : Byte_String) return Remote_File_Status;

    function Debug return Boolean;

end Os2000_Transfer_Utilities;