1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
# ERROR -- Take an error action. A call to ERROR does not necessarily
# terminate task execution, i.e., if an IFERR error handler is posted it
# will receive control after the procedure call stack is unwound back
# to the procedure containing the error handler.
procedure error (error_code, message)
int error_code # positive error code identifying error
char message[ARB] # error message describing error
include "error.com"
begin
if (xerflg) { # error already posted?
if (max(error_code,1) == xercod)
return # same error again
else
call erract (EA_FATAL) # too many errors
}
call xeract (error_code, message, EA_ERROR)
end
# FATAL -- Called when a fatal (irrecoverable) error occurs. Fatal errors
# cannot be caught by IFERR handlers. The calling task is terminated and
# error recovery is initiated in the IRAF Main.
procedure fatal (error_code, message)
int error_code # positive error code identifying error
char message[ARB] # error message describing error
begin
call xeract (error_code, message, EA_FATAL)
end
# XERACT -- Take an error action; called by ERROR or FATAL.
procedure xeract (error_code, message, severity)
int error_code # positive error code identifying error
char message[ARB] # error message describing error
int severity # severity of the error
include "error.com"
begin
xerflg = true # post error
xercod = max (1, error_code)
call strcpy (message, xermsg, SZ_XERMSG)
if (nhandlers > 0 && severity == EA_ERROR) # is a handler posted?
return
else
call erract (severity) # take error action
end
|
