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

⟦a7634cba8⟧ TextFile

    Length: 15832 (0x3dd8)
    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« 
        └─⟦542a4e761⟧ 
            └─⟦this⟧

TextFile

ENV_ADVANCED_TOPICS => (
declare
    Course : constant String := "ENV_ADVANCED_TOPICS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects =>
           "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Advanced_Topics]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

ENVIRONMENT => (
declare
    Course : constant String := "ENVIRONMENT";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Basic_Product_Training]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

MC68020_BARE => (
declare
    Course : constant String := "MC68020_BARE";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Cdf_Mc68020_Bare]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

MC68020_OS2000 => (
declare
    Course : constant String := "MC68020_OS2000";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.CDF_MC68020_OS2000]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

RDF_2167A_FUNDAMENTALS => (
declare
    Course : constant String := "RDF_2167A_FUNDAMENTALS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.[Design_Facility_2167a_User,Design_Facility_Fundamentals]]",
        Options => "promote, replace",
        Device => "Release");
    Links.Copy (Source_World => "!Model.R1000_Pdl",
                Target_World =>
                   "!Training.Software_Releases.Design_Facility_Fundamentals" &
                      ".Rev1.Simple_Instance",
                Link => "@",
                Source => "[!Tools.Design?,!Tools.Lrm?]",
                Kind => Links.Any,
                Response => "<PROFILE>");
    Compilation.Promote
       (Unit => "!Training.Software_Releases.Design_Facility_Fundamentals" &
                   ".Rev1.Simple_Instance??",
        Scope => Compilation.All_Parts,
        Goal => Compilation.Coded,
        Limit => "<WORLDS>");
    Program.Run
       (S =>
           """!TRAINING.SOFTWARE_RELEASES.DESIGN_FACILITY_FUNDAMENTALS.REV1.SIMPLE_INSTANCE"".Register_Pdl;");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

RDF_2167A_TOOLSMITHING => (
declare
    Course : constant String := "RDF_2167A_TOOLSMITHING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.[Design_Facility_Toolsmithing,Design_Facility_2167a_Customization]]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

RDF_2167_FUNDAMENTALS => (
declare
    Course : constant String := "RDF_2167_FUNDAMENTALS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Design_Facility_2167_User_Training]",
        Options => "promote, replace",
        Device => "Release");
    Links.Add (Source => "!Tools.Design.Release.Rational_2167" &
                            ".Pdl_Commands.Rev6_0_Spec.Units.Design",
               Link => "#",
               World => "!Training.Software_Releases" &
                           ".Design_Facility_2167_User_Training.Delta1_Rev6",
               Response => "<PROFILE>");
    Compilation.Make
       (Unit =>
           "!TRAINING.SOFTWARE_RELEASES.DESIGN_FACILITY_2167_USER_TRAINING.DELTA1_REV6.BUILD_DESIGN_FACILITY_USER_TRAINING_USERS'BODY",
        Scope => Compilation.All_Parts,
        Goal => Compilation.Coded,
        Limit => "<WORLDS>",
        Effort_Only => False,
        Response => "<PROFILE>");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

RDF_2167_TOOLSMITHING => (
declare
    Course : constant String := "RDF_2167_TOOLSMITHING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Design_Facility_Customization_Training]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");
end;
)

ENV_FUNDAMENTALS => (
declare
    Course : constant String := "ENV_FUNDAMENTALS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Fundamentals]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

NETWORKING => (
declare
    Course : constant String := "NETWORKING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.NETWORKING]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

PROJECT_DEVELOPMENT_METHODS => (
declare
    Course : constant String := "PROJECT_DEVELOPMENT_METHODS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.PDM]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

CMVC => (
declare
    Course : constant String := "CMVC";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.Subsystems_Cmvc]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

SYSTEM_MANAGEMENT => (
declare
    Course : constant String := "SYSTEM_MANAGEMENT";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.SYSTEM_MANAGEMENT]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

ENV_TOOLSMITHING => (
declare
    Course : constant String := "ENV_TOOLSMITHING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log");
    Archive.Restore
       (Objects => "!Training.[Copyright_Rational,Tools,Notes,Read_Me_First,Software_Releases.TOOLSMITHING]",
        Options => "promote, replace",
        Device => "Release");
    Io.Reset_Output;
    Log.Filter_Errors
       (Log_File =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release1_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

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;
)