blob: a47235082884d19b5c38061898c54c4d3a892fbe (
plain) (
blame)
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
# XERPSH -- Push an error handler on the error "stack". All we really need
# do is keep track of the number of nested handlers. If an error condition
# already exists when we are called, an error has occurred which was not
# caught, probably because of a missing errchk declaration.
procedure xerpsh()
include "error.com"
begin
if (xerflg) # error not caught
call erract (EA_FATAL)
nhandlers = nhandlers + 1
xercod = OK
end
# XERPOP -- Pop an error handler, and return the error status flag (true if
# an error occurred).
bool procedure xerpop()
bool error_status
include "error.com"
begin
nhandlers = nhandlers - 1
error_status = xerflg
xerflg = false
return (error_status)
end
# XERPOPI -- Integer version of XERPOP.
int procedure xerpopi()
bool error_status
include "error.com"
begin
nhandlers = nhandlers - 1
error_status = xerflg
xerflg = false
if (error_status)
return (1)
else
return (0)
end
|
