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

⟦f08453b0d⟧ TextFile

    Length: 21166 (0x52ae)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

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

TextFile

-- Install_Training => (Do_Step ("ENV_FUNDAMENTALS,
--                                ENV_ADVANCED_TOPICS,
--                                ENV_TOOLSMITHING,
--                                ENVIRONMENT,
--                                NETWORKING,
--                                PROJECT_DEVELOPMENT_METHODS,
--                                CMVC,
--                                SYSTEM_MANAGEMENT,
--                                MC68020_BARE,
--                                MC68020_OS2000,
--                                RCF_FUNDAMENTALS,
--                                RCI_FUNDAMENTALS,
--                                RDF_2167A_FUNDAMENTALS,
--                                RDF_2167A_TOOLSMITHING,
--                                RDF_2167_FUNDAMENTALS,
--                                RDF_2167_TOOLSMITHING,
--                                TESTMATE",
-- "!Machine.Release.Archive.Training.Release2_0_0.command_data.steps");)


ENV_ADVANCED_TOPICS => (
declare
    Course : constant String := "ENV_ADVANCED_TOPICS";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

ENVIRONMENT => (
declare
    Course : constant String := "ENVIRONMENT";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

MC68020_BARE => (
declare
    Course : constant String := "MC68020_BARE";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

MC68020_OS2000 => (
declare
    Course : constant String := "MC68020_OS2000";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_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.Release2_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");
        
       Archive.Restore
       (Objects => "!Users.Design_Facility_Dod_Std_2167A_Training_Example",
        Options => "promote, replace",
        Device => "!Machine.Release.Archive.Training.Release2_0_0.release");
  
    Do_Step ("SET_TARGET_KEYS");
    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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

SET_TARGET_KEYS => (
declare
    package Dt renames Directory_Tools;
    package Di renames Design_Implementation;
    The_Views : Dt.Object.Iterator :=
       Dt.Naming.Resolution
          ("!users.Design_Facility_Dod_Std_2167a_Training_Example.Vending_Machine_Example." &
           "@.@'c(load_view,spec_view)");
begin
    Dt.Object.Reset (The_Views);
    while not Dt.Object.Done (The_Views) loop
        Di.Set_Target (To_Value => "RATIONAL_2167A_R1000",
                       For_World => Dt.Naming.Unique_Full_Name
                                       (Dt.Object.Value (The_Views)));
        Dt.Object.Next (The_Views);
    end loop;
end;                         
)


RDF_2167A_TOOLSMITHING => (
declare
    Course : constant String := "RDF_2167A_TOOLSMITHING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_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.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_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.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");
end;
)

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

end;
)

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

end;
)

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

end;


)

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

end;
)


NETWORKING => (
declare
    Course : constant String := "NETWORKING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_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.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

CMVC => (
declare
    Course : constant String := "CMVC";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

SYSTEM_MANAGEMENT => (
declare
    Course : constant String := "SYSTEM_MANAGEMENT";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
        Course & "_Log_Summary");

end;
)

ENV_TOOLSMITHING => (
declare
    Course : constant String := "ENV_TOOLSMITHING";
begin
    Io.Set_Output
       ("!Machine.Release.Archive.Training.Release2_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.Release2_0_0.Logs.Restore_" &
              Course & "_Log",
        Destination =>
           "!Machine.Release.Archive.Training.Release2_0_0.Logs.Restore_" &
              Course & "_Log_Summary",
        Auxiliaries => False,
        Warnings => False,
        Exceptions => True);
    Common.Definition
       ("!Machine.Release.Archive.Training.Release2_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;
)

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