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

⟦368142802⟧ TextFile

    Length: 2378 (0x94a)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦57e2c4e25⟧ 
            └─⟦this⟧

TextFile


AUTHORIZATION_CHECK => (
       if "!Implementation".Product_Authorization.Is_Registered
                  ("x interface") then
                Log.Put_Line ("x interface" & " is authorized",
                              Profile.Note_Msg);
       else
            Log.Put_Line ("Need to Authorize " & "X Interface",
                              Profile.Error_Msg);
            Log.Put_Line
               ("Do not proceed until all these products have been authorized",
                Profile.Error_Msg);
            Do_Step ("PROMPT=AUTHORIZE_PRODUCT");
       end if;
           
)

AUTHORIZE_PRODUCT => (
    "!Implementation".Product_Authorization.Register
            (Product_Name => "X Interface",
             Authorization_Code => ">> Code <<");
)

RELEASE_RESTORE => (
    Io.Set_Output ("!Machine.Release.Archive.X_Interface.Release10_7_2.Logs.Restore_Release_Log");
    Archive.Restore (Options => "promote replace",
                     Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors (Log_File =>
                            "!Machine.Release.Archive.X_Interface.Release10_7_2.Logs.Restore_Release_Log",
                       Destination => 
                            "!Machine.Release.Archive.X_Interface.Release10_7_2.Logs.Restore_Release_Log_Summary",
                       Auxiliaries => False,
                       Warnings => False,
                       Exceptions => True);
    Common.Definition ("!Machine.Release.Archive.X_Interface.Release10_7_2.Logs.Restore_Release_Log_Summary");
)


RESTORE_NOTES => (
    Archive.Restore (Device => "Release_Notes");
)

DESTROY_ARCHIVE => (
    Library.Delete ("!Machine.Release.Archive.X_Interface.Release10_7_2");
)

INSTALL_PRODUCT => (
       if "!Implementation".Product_Authorization.Is_Registered
                  ("x interface") then
                Log.Put_Line ("x interface" & " is authorized",
                              Profile.Note_Msg);
                Do_Step ("RESTORE_NOTES");
                Do_Step ("RELEASE_RESTORE");
       else
            Log.Put_Line ("Need to Authorize " & "X Interface",
                              Profile.Error_Msg);
            Log.Put_Line
               ("Do not proceed until all these products have been authorized",
                Profile.Error_Msg);
            Do_Step ("PROMPT=AUTHORIZE_PRODUCT");
       end if;