|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Trap_Error_Reports, seg_005641
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Xlbt_String;
use Xlbt_String;
with Xlbmt_Error_Log;
use Xlbmt_Error_Log;
with Xlbmp_Error_Log;
use Xlbmp_Error_Log;
with Xlbt_Proc_Var;
use Xlbt_Proc_Var;
with Xlbp_Proc_Var;
use Xlbp_Proc_Var;
with Xlbit_Library3;
use Xlbit_Library3;
package body Trap_Error_Reports is
------------------------------------------------------------------------------
-- Trap_Error_Reports - intercept any error reports generated and, if
-- they are expected, simply note their existence. Unexpected errors
-- are propagated to the standard (default) error reporting mechanism.
------------------------------------------------------------------------------
-- 09/25/90 DRK | Created.
------------------------------------------------------------------------------
procedure Error_Report_Trap (Name1 : X_String;
Name2 : X_String;
Default : X_String;
Arg1 : X_String := "";
Arg2 : X_String := "";
Arg3 : X_String := "";
Arg4 : X_String := "";
Arg5 : X_String := "";
Arg6 : X_String := "";
Kind : X_Report_Message_Kind) is
--
-- Control error reports using the package state variables.
-- An X_Report_Error procedure variable.
--
begin
if not Expect_Error_Report then
Default_X_Report_Error (Name1, Name2, Default, Arg1, Arg2,
Arg3, Arg4, Arg5, Arg6, Kind);
end if;
Error_Reported := True;
end Error_Report_Trap;
----------------------------------------------------------------------
function Error_Report_Trap_Value is
new Proc_Var_X_Report_Error.Value (Error_Report_Trap);
procedure Catch_Error_Reports (Old : out X_Procedure_Variable) is
-- Install Error_Report_Trap as the current error reporting
-- mechanism. Return the previous procedure value.
begin
X_Lib.Set_Report_Error
(Proc_Var_X_Report_Error.From_Pv (Error_Report_Trap_Value), Old);
end Catch_Error_Reports;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Propagate_Error_Reports (Old : X_Procedure_Variable) is
-- Uninstall the current error reporter, replacing it with the
-- Old value provided.
Ignore : X_Procedure_Variable;
begin
X_Lib.Set_Report_Error (Old, Ignore);
end Propagate_Error_Reports;
end Trap_Error_Reports;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1c rec1=00 rec2=01 rec3=028
[0x01] rec0=17 rec1=00 rec2=02 rec3=030
[0x02] rec0=16 rec1=00 rec2=03 rec3=000
tail 0x21500a3a281978d70e848 0x42a00088462063203