-
Notifications
You must be signed in to change notification settings - Fork 131
Expand file tree
/
Copy patherror.h
More file actions
231 lines (199 loc) · 5.62 KB
/
error.h
File metadata and controls
231 lines (199 loc) · 5.62 KB
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
#ifndef ERROR_H
#define ERROR_H
/** **********************************************************************
** Module: Error \file error.h
** Description: This module implements the ERROR abstraction.
************************************************************************/
/*
* This work was supported by the United States Government, and is
* not subject to copyright.
*
* $Log: error.h,v $
* Revision 1.8 1997/01/21 19:16:55 dar
* made C++ compatible
* ,.
*
* Revision 1.7 1993/10/15 18:49:23 libes
* CADDETC certified
*
* Revision 1.5 1993/02/22 21:44:34 libes
* ANSI compat fixes
*
* Revision 1.4 1992/08/18 17:15:40 libes
* rm'd extraneous error messages
*
* Revision 1.3 1992/06/08 18:07:35 libes
* prettied up interface to print_objects_when_running
*/
#include <setjmp.h>
#include "sc_export.h"
#include "basic.h" /* get basic definitions */
/*****************/
/* packages used */
/*****************/
#include "alloc.h"
#include "symbol.h"
enum ErrorCode {
/* dict.c */
DUPLICATE_DECL = 1,
DUPLICATE_DECL_DIFF_FILE,
/* error.c */
SUBORDINATE_FAILED,
SYNTAX_EXPECTING,
/* expr.c */
INTEGER_EXPRESSION_EXPECTED,
INTERNAL_UNRECOGNISED_OP_IN_EXPRESOLVE,
ATTRIBUTE_REF_ON_AGGREGATE,
ATTRIBUTE_REF_FROM_NON_ENTITY,
INDEXING_ILLEGAL,
WARN_INDEXING_MIXED,
ENUM_NO_SUCH_ITEM,
GROUP_REF_NO_SUCH_ENTITY,
GROUP_REF_UNEXPECTED_TYPE,
IMPLICIT_DOWNCAST,
AMBIG_IMPLICIT_DOWNCAST,
/* express.c */
BAIL_OUT,
SYNTAX,
REF_NONEXISTENT,
TILDE_EXPANSION_FAILED,
SCHEMA_NOT_IN_OWN_SCHEMA_FILE,
UNLABELLED_PARAM_TYPE,
FILE_UNREADABLE,
FILE_UNWRITABLE,
WARN_UNSUPPORTED_LANG_FEAT,
WARN_SMALL_REAL,
/* lexact.c */
INCLUDE_FILE,
UNMATCHED_CLOSE_COMMENT,
UNMATCHED_OPEN_COMMENT,
UNTERMINATED_STRING,
ENCODED_STRING_BAD_DIGIT,
ENCODED_STRING_BAD_COUNT,
BAD_IDENTIFIER,
UNEXPECTED_CHARACTER,
NONASCII_CHAR,
/* linklist.c */
EMPTY_LIST,
/* resolve.c */
UNDEFINED,
UNDEFINED_ATTR,
UNDEFINED_TYPE,
UNDEFINED_SCHEMA,
UNKNOWN_ATTR_IN_ENTITY,
UNKNOWN_SUBTYPE,
UNKNOWN_SUPERTYPE,
CIRCULAR_REFERENCE,
SUBSUPER_LOOP,
SUBSUPER_CONTINUATION,
SELECT_LOOP,
SELECT_CONTINUATION,
SUPERTYPE_RESOLVE,
SUBTYPE_RESOLVE,
NOT_A_TYPE,
FUNCALL_NOT_A_FUNCTION,
UNDEFINED_FUNC,
EXPECTED_PROC,
NO_SUCH_PROCEDURE,
WRONG_ARG_COUNT,
QUERY_REQUIRES_AGGREGATE,
SELF_IS_UNKNOWN,
INVERSE_BAD_ENTITY,
INVERSE_BAD_ATTR,
MISSING_SUPERTYPE,
TYPE_IS_ENTITY,
AMBIGUOUS_ATTR,
AMBIGUOUS_GROUP,
OVERLOADED_ATTR,
REDECL_NO_SUCH_ATTR,
REDECL_NO_SUCH_SUPERTYPE,
MISSING_SELF,
FN_SKIP_BRANCH,
CASE_SKIP_LABEL,
UNIQUE_QUAL_REDECL,
/* type.c */
CORRUPTED_TYPE,
UNDEFINED_TAG,
/* exppp.c */
SELECT_EMPTY,
};
/*************/
/* constants */
/*************/
#define ERROR_none (Error)NULL
#define ERROR_MAX 100
/************/
/* typedefs */
/************/
enum Severity {
SEVERITY_WARNING = 0,
SEVERITY_ERROR,
SEVERITY_EXIT,
SEVERITY_DUMP,
SEVERITY_MAX
};
/***************************/
/* hidden type definitions */
/***************************/
struct Error_ {
enum Severity severity;
const char *message;
const char *name;
bool override;
};
typedef struct Error_ *Error;
/****************/
/* modules used */
/****************/
/********************/
/* global variables */
/********************/
extern SC_EXPRESS_EXPORT bool __ERROR_buffer_errors;
extern SC_EXPRESS_EXPORT const char * current_filename;
/* flag to remember whether non-warning errors have occurred */
extern SC_EXPRESS_EXPORT bool ERRORoccurred;
/* all of these are 1 if true, 0 if false switches */
/* for debugging fedex */
extern SC_EXPRESS_EXPORT int ERRORdebugging;
/* for debugging malloc during resolution */
extern SC_EXPRESS_EXPORT int malloc_debug_resolve;
/* for debugging yacc/lex */
extern SC_EXPRESS_EXPORT int debug;
extern SC_EXPRESS_EXPORT void ( *ERRORusage_function )( void );
/***********************/
/* function prototypes */
/***********************/
extern SC_EXPRESS_EXPORT void ERROR_start_message_buffer( void );
extern SC_EXPRESS_EXPORT void ERROR_flush_message_buffer( void );
static inline void ERRORbuffer_messages( bool flag ) {
__ERROR_buffer_errors = flag;
if( __ERROR_buffer_errors ) {
ERROR_start_message_buffer();
} else {
ERROR_flush_message_buffer();
}
}
static inline void ERRORflush_messages( void ) {
if( __ERROR_buffer_errors ) {
ERROR_flush_message_buffer();
ERROR_start_message_buffer();
}
}
/***********************/
/* function prototypes */
/***********************/
extern SC_EXPRESS_EXPORT void ERRORinitialize( void );
extern SC_EXPRESS_EXPORT void ERRORcleanup( void );
extern SC_EXPRESS_EXPORT void ERRORnospace( void );
extern SC_EXPRESS_EXPORT void ERRORabort( int );
extern SC_EXPRESS_EXPORT void ERRORreport( enum ErrorCode, ... );
struct Symbol_; /* mention Symbol to avoid warning on following line */
extern SC_EXPRESS_EXPORT void ERRORreport_with_symbol( enum ErrorCode, struct Symbol_ *, ... );
extern SC_EXPRESS_EXPORT void ERRORreport_with_line( enum ErrorCode, int, ... );
extern SC_EXPRESS_EXPORT void ERRORset_warning( char *, bool );
extern SC_EXPRESS_EXPORT void ERRORset_all_warnings( bool );
extern SC_EXPRESS_EXPORT void ERRORsafe( jmp_buf env );
extern SC_EXPRESS_EXPORT void ERRORunsafe( void );
extern SC_EXPRESS_EXPORT char * ERRORget_warnings_help(const char* prefix, const char *eol);
extern SC_EXPRESS_EXPORT bool ERRORis_enabled(enum ErrorCode errnum);
#endif /* ERROR_H */