DataMuseum.dk

top - download

    Length: 4120 (0x1018)
    Types: TextFile
    Names: »STEPS«

└─⟦bdeee703f⟧ Bits:30000538 8mm tape, Rational 1000, RWI 10_1_1
    └─ ⟦545705153⟧ »DATA« 
        └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦this⟧ 

TextFile

INSTALL_RWI => (do_step("RELEASE_RESTORE,
                         INSTALL_KEYMAPS,
                         RESTORE_NOTES,
                         RECORD_INSTALLATION",
                 "!Machine.Release.Archive.Rwi.Release10_1_1.Command_Data.Steps");
                refresh_terminal_information;)



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

INSTALL_KEYMAPS => (
    Archive.Restore (Device => "Keymap_Overlays");
    Library.Context (To_Be => "!Machine.Release.RWI.Release10_1_1");
    System_Utilities.Set_Page_Limit (16_000);
    Io.Set_Output
       ("!Machine.Release.Archive.RWI.Release10_1_1.Logs.Install_Keymaps_Log");
    "!Machine.Release.RWI.Release10_1_1".Rwi_Install.Machine_Editor_Data_Files
       (Keyboard => "!Machine.Release.RWI.Release10_1_1".
                       Rwi_Install.Pc101_Ms_Windows_3_0,
        Overrides => "foo=>FALSE,bar=>true");
    "!Machine.Release.RWI.Release10_1_1".Rwi_Install.Machine_Editor_Data_Files
       (Keyboard => "!Machine.Release.RWI.Release10_1_1".
                       Rwi_Install.Pc91_Ms_Windows_3_0,
        Overrides => "foo=>FALSE,bar=>true");
    "!Machine.Release.RWI.Release10_1_1".Rwi_Install.Machine_Editor_Data_Files
       (Keyboard => "!Machine.Release.RWI.Release10_1_1".
                       Rwi_Install.Pc86_Ms_Windows_3_0,
        Overrides => "foo=>FALSE,bar=>true");
    "!Machine.Release.RWI.Release10_1_1".Rwi_Install.Machine_Editor_Data_Files
       (Keyboard => "!Machine.Release.RWI.Release10_1_1".
                       Rwi_Install.Pcbasic_Ms_Windows_3_0,
        Overrides => "foo=>FALSE,bar=>true");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.RWI.Release10_1_1.Logs.Install_Keymaps_Log",
        Destination =>
           "!Machine.Release.Archive.RWI.Release10_1_1.Logs.Install_Keymaps_Log_Summary",
        Auxiliaries => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.RWI.Release10_1_1.Logs.Install_Keymaps_Log_Summary");
)

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

RECORD_INSTALLATION => (
declare
    Product : constant String := Directory_Tools.Naming.Simple_Name
                                    (Directory_Tools.Naming.Full_Name ("^"));
    Release : constant String := Directory_Tools.Naming.Simple_Name
                                    (Directory_Tools.Naming.Full_Name ("$"));
    Product_Info : constant String :=
       "(RELEASE => " & Release & ", DATE => (" &
          Time_Utilities.Image (Time_Utilities.Get_Time,
                                Time_Utilities.Year_Month_Day) &
          "), USER => " & System_Utilities.User_Name &
          '.' & System_Utilities.Session_Name & ")";
    Product_Filename : constant String := "!Machine.Release.Current.Products";
    F : Io.File_Type;
begin
    Io.Append (F, Name => Product_Filename);
    Io.Put_Line (F, Product & " => " & Product_Info);
    Io.Close (F);
    Log.Put_Line ("Recording product " & Product &
                  " current release as " & Release,
                  Profile.Positive_Msg);
end;
)

CLEANUP => (
    Library.Delete ("!Machine.Release.Archive.RWI.Release10_1_1");
    Library.Delete ("!Machine.Release.RWI.Release10_1_1");
)

STEP_CHECK => (
    -- This must remain the last step in the step file and is used 
    -- as a first level verification of the step file parse and
    -- tape load.
    Log.Put_Line ("Step File parses correctly", Profile.Positive_Msg);
)