|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12398 (0x306e)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦f8d551ab5⟧
└─⟦this⟧
* Object 1: !MACHINE.INITIALIZE'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE'BODY
* Delete 45
1 Program.Run ("""!Machine"".Initialize_Dtia;");
* Change 59..61
1 (Caller => "!Machine.Initialize",
1 Reason => Error_Reporting.Create_Condition_Name
1 ("Unhandled_Exception", Error_Reporting.Fatal),
-----
2 (Caller => "!Machine.Initialize",
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception", Error_Reporting.Fatal),
* Object 1: !MACHINE.INITIALIZE_CROSS_COMPILERS'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_CROSS_COMPILERS'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE_CROSS_COMPILERS'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_CROSS_COMPILERS'BODY
* Insert after 0
2 with Debug_Tools;
2 with Error_Reporting;
2 with Io;
2 with Program;
2 with Simple_Status;
2 with String_Utilities;
2 with System_Utilities;
2
* Change 2..3
1 begin
1 null;
-----
2
2 File_Name : constant String := "!Machine.Cross_Compilers";
2 File : Io.File_Type;
2
2 procedure Close is
2 begin
2 Io.Close (File);
2 exception
2 when others =>
2 null;
2 end Close;
2
2 function Get_First_Token (From : String) return String is
2 begin
2 for Index in From'Range loop
2 if From (Index) = ' ' then
2 return From (From'First .. Index - 1);
2 end if;
2 end loop;
2 return From;
2 end Get_First_Token;
2
2 function Get_Remainder (From : String) return String is
2 begin
2 for Index in From'Range loop
2 if From (Index) = ' ' then
2 return From (Index + 1 .. From'Last);
2 end if;
2 end loop;
2 return "";
2 end Get_Remainder;
2
2 procedure Start_Compiler (Target_Entry : String) is
2 Target_Name : constant String := Get_First_Token (Target_Entry);
2 Params : constant String := Get_Remainder (Target_Entry);
2
2 Caller : constant String :=
2 "!Machine.Initialize_Cross_Compilers." & Target_Name;
2
2 Context : constant String := "!Targets.Implementation.";
2 Routine : constant String := "Start_Compiler";
2 Activity : constant String := "!Machine.Release.Current.Activity";
2 Job_Id : Program.Job_Id;
2 Status : Program.Condition;
2
2 procedure Await_Elaboration is
2 begin
2 if not Program.Started_Successfully (Status) then
2 Error_Reporting.Report_Error
2 (Caller => Caller,
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unable to start compiler",
2 Error_Reporting.Problem),
2 Explanation => Simple_Status.Display_Message (Status));
2 end if;
2
2 for I in 1 .. 100 loop
2 begin
2 declare
2 Name : constant String :=
2 System_Utilities.Job_Name (Job_Id);
2 begin
2 if Name'First =
2 String_Utilities.Locate (Fragment => Target_Name,
2 Within => Name,
2 Ignore_Case => True) then
2 return;
2 end if;
2 delay 5.0;
2 end;
2 exception
2 when others =>
2 Error_Reporting.Report_Error
2 (Caller => Caller,
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Cannot get compiler job name",
2 Error_Reporting.Problem),
2 Explanation =>
2 Debug_Tools.Get_Exception_Name (True, True));
2 return;
2 end;
2 end loop;
2
2 Error_Reporting.Report_Error
2 (Caller => Caller,
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Compiler has not changed its name",
2 Error_Reporting.Problem),
2 Explanation => "");
2 end Await_Elaboration;
2 begin
2 if String_Utilities.Locate ("Motorola_68k", Target_Name) /= 0 then
2 -- with Common, Control, Stream, the Start_Compiler procedure
2 -- does not return until all components are started.
2 Program.Run (Program.Current (Subsystem => Context & Target_Name,
2 Unit => Routine,
2 Parameters => Params,
2 Activity => Activity));
2 else
2 Program.Create_Job
2 (Program.Current (Subsystem => Context & Target_Name,
2 Unit => Routine,
2 Activity => Activity),
2 Job_Id,
2 Status);
2 Await_Elaboration;
2 end if;
2 exception
2 when others =>
2 Error_Reporting.Report_Error
2 (Caller => Caller,
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception", Error_Reporting.Problem),
2 Explanation => Debug_Tools.Get_Exception_Name (True, True));
2 end Start_Compiler;
2 begin
2 begin
2 Io.Open (File => File, Mode => Io.In_File, Name => File_Name);
2 exception
2 when Io.Name_Error =>
2 -- file does not exist
2 return;
2 end;
2
2 begin
2 loop
2 Start_Compiler (String_Utilities.Strip_Leading
2 (Filler => ' ', From => Io.Get_Line (File)));
2 end loop;
2 exception
2 when Io.End_Error =>
2 Close;
2 end;
2 exception
2 when others =>
2 Close;
2 raise;
* Object 1: !MACHINE.INITIALIZE_DTIA'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_DTIA'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE_DTIA'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_DTIA'BODY
* Change 11..12
1 Activity : constant String := "!Machine.Release.Current.Activity";
1 Subsystem : constant String := "!Tools.Dtia_Rpc_Mechanisms";
-----
2 Activity : constant String := "!Machine.Release.Current.Activity";
2 Subsystem : constant String := "!Tools.Dtia_Rpc_Mechanisms";
* Change 14
1 Caller : constant String := "!Machine.Initialize_Dtia";
-----
2 Caller : constant String := "!Machine.Initialize_Dtia";
* Change 22..23
1 Unit => Elaboration,
1 Activity => Activity);
-----
2 Unit => Elaboration,
2 Activity => Activity);
* Change 27..29
1 Program.Create_Job (Elaboration_Command,
1 Job => Job_Id,
1 Status => Status);
-----
2 declare
2 Command : constant String := Elaboration_Command;
2 begin
2 if Command'Length > 0 then
2 Program.Create_Job (Elaboration_Command,
2 Job => Job_Id,
2 Status => Status);
2 end if;
2 end;
* Change 41..43
1 (Caller => Caller,
1 Reason => Error_Reporting.Create_Condition_Name
1 ("UNHANDLED EXCEPTION", Error_Reporting.Problem),
-----
2 (Caller => Caller,
2 Reason => Error_Reporting.Create_Condition_Name
2 ("UNHANDLED EXCEPTION", Error_Reporting.Problem),
* Object 1: !MACHINE.INITIALIZE_NETWORK'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_NETWORK'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE_NETWORK'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_NETWORK'BODY
* Delete 4
1 with Profile;
* Delete 13
1 Profile.Set (Profile.Verbose);
* Change 20..23
1 (Caller => "!Machine.Initialize_Network.TCP_IP_Boot",
1 Reason => Error_Reporting.Create_Condition_Name
1 ("Unhandled_Exception",
1 Error_Reporting.Problem),
-----
2 (Caller => "!Machine.Initialize_Network.TCP_IP_Boot",
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception",
2 Error_Reporting.Problem),
* Change 35..38
1 (Caller => "!Machine.Initialize_Network.FTP",
1 Reason => Error_Reporting.Create_Condition_Name
1 ("Unhandled_Exception",
1 Error_Reporting.Problem),
-----
2 (Caller => "!Machine.Initialize_Network.FTP",
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception",
2 Error_Reporting.Problem),
* Change 55..58
1 (Caller => "!Machine.Initialize_Network.Archive",
1 Reason => Error_Reporting.Create_Condition_Name
1 ("Unhandled_Exception",
1 Error_Reporting.Problem),
-----
2 (Caller => "!Machine.Initialize_Network.Archive",
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception",
2 Error_Reporting.Problem),
* Object 1: !MACHINE.INITIALIZE_TERMINALS'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_TERMINALS'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE_TERMINALS'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_TERMINALS'BODY
* Insert after 5
2 Terminal.Set_Logoff_On_Disconnect (Line => 16, Enabled => False);
2
2 -- for I in 17 .. 20 loop
2 -- Operator.Enable_Terminal (I);
2 -- Terminal.Set_Disconnect_On_Logoff (Line => I, Enabled => false);
2 -- end loop;
2
* Change 7
1 for I in 235 .. 249 loop
-----
2 for I in 240 .. 244 loop
2 -- for I in 240 .. 240 loop
* Change 9
1 Terminal.Set_Logoff_On_Disconnect (Line => I, Enabled => True);
-----
2 Terminal.Set_Logoff_On_Disconnect (Line => I, Enabled => False);
* Object 1: !MACHINE.INITIALIZE_MAIL'SPEC
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_MAIL'SPEC
* The Objects are identical.
* Object 1: !MACHINE.INITIALIZE_MAIL'BODY
* Object 2: !MACHINE.RELEASE.ENVIRONMENT.D_12_5_0.GOLDEN_INITIALIZE_PROCEDURES.INITIALIZE_MAIL'BODY
* Insert after 0
2 with Program;
2 with Debug_Tools;
2 with Error_Reporting;
* Change 3
1 null;
-----
2 Program.Run ("""!Machine.Transfer"".Initialize");
2 Program.Run ("""!Machine.Transfer.Distribute"".Initialize");
2 exception
2 when others =>
2 Error_Reporting.Report_Error
2 (Caller => "!Machine.Initialize_Mail",
2 Reason => Error_Reporting.Create_Condition_Name
2 ("Unhandled_Exception", Error_Reporting.Problem),
2 Explanation => Debug_Tools.Get_Exception_Name (True, True))