-
Notifications
You must be signed in to change notification settings - Fork 1
/
err.h
385 lines (347 loc) · 22.8 KB
/
err.h
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
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
/*
$Header: d:/cvsroot/tads/TADS2/ERR.H,v 1.3 1999/07/11 00:46:29 MJRoberts Exp $
*/
/*
* Copyright (c) 1991, 2002 Michael J. Roberts. All Rights Reserved.
*
* Please see the accompanying license file, LICENSE.TXT, for information
* on using and copying this software.
*/
/*
Name
err.h - error handling definitions
Function
Defines error handling mechanism
Notes
This package defines a set of macros that allows code to raise and
handle exceptions. A macro is provided which signals an error, which
does a non-local goto to the innermost enclosing exception handler.
A set of macros sets up exception handling code.
To catch exceptions that occur inside a block of code (i.e., in the
code or in any subroutines called by the code), begin the block with
ERRBEGIN. At the end of the protected code, place the exception
handler, which starts with ERRCATCH. At the end of the exception
handler, place ERREND. If no exception occurs, execution goes
through the protected code, then resumes at the code following
the ERREND.
The exception handler can signal another error, which will cause
the next enclosing frame to catch the error. Alternatively, if
the exception handler doesn't signal an error or return, execution
continues at the code following the ERREND. Exceptions that are
signalled during exception handling will be caught by the next
enclosing frame, unless the exception handler code is itself
protected by another ERRBEGIN-ERREND block.
To signal an error, use errsig().
To use a string argument in a signalled error, cover the string
with errstr(ctx, str, len); for example:
errsig1(ctx, ERR_XYZ, ERRTSTR, errstr(ctx, buf, strlen(buf)));
This copies the string into a buffer that is unaffected by
stack resetting during error signalling.
Modified
12/30/92 MJRoberts - use new central library ler.h
09/14/92 MJRoberts - add errlog2
08/15/91 MJRoberts - creation
*/
#ifndef ERR_INCLUDED
#define ERR_INCLUDED
#include "os.h"
#ifndef STD_INCLUDED
#include "std.h"
#endif
#include "ler.h"
/*
* for compatility with old facility-free mechanism, signal with
* facility "TADS"
*/
#define errsig(ctx, err) errsigf(ctx, "TADS", err)
#define errsig1(c, e, t, a) errsigf1(c,"TADS",e,t,a)
#define errsig2(c, e, t1, a1, t2, a2) errsigf2(c,"TADS",e,t1,a1,t2,a2)
#define errlog(c, e) errlogf(c, "TADS", e)
#define errlog1(c, e, t, a) errlogf1(c,"TADS",e,t,a)
#define errlog2(c, e, t1, a1, t2, a2) errlogf2(c,"TADS",e,t1,a1,t2,a2)
/*---------------------------- TADS Error Codes ----------------------------*/
/* memory/cache manager errors */
#define ERR_NOMEM 1 /* out of memory */
#define ERR_FSEEK 2 /* error seeking in file */
#define ERR_FREAD 3 /* error reading from file */
#define ERR_NOPAGE 4 /* no more page slots */
#define ERR_REALCK 5 /* attempting to reallocate a locked object */
#define ERR_SWAPBIG 6 /* swapfile limit reached - out of virtual memory */
#define ERR_FWRITE 7 /* error writing file */
#define ERR_SWAPPG 8 /* exceeded swap page table limit */
#define ERR_CLIUSE 9 /* requested client object number already in use */
#define ERR_CLIFULL 10 /* client mapping table is full */
#define ERR_NOMEM1 11 /* swapping/garbage collection failed to find enuf */
#define ERR_NOMEM2 12 /* no memory to resize (expand) an object */
#define ERR_OPSWAP 13 /* unable to open swap file */
#define ERR_NOHDR 14 /* can't get a new object header */
#define ERR_NOLOAD 15 /* mcm cannot find object to load (internal error) */
#define ERR_LCKFRE 16 /* attempting to free a locked object (internal) */
#define ERR_INVOBJ 17 /* invalid object */
#define ERR_BIGOBJ 18 /* object too big - exceeds memory allocation limit */
/* lexical analysis errors */
#define ERR_INVTOK 100 /* invalid token */
#define ERR_STREOF 101 /* end of file while scanning string */
#define ERR_TRUNC 102 /* symbol too long - truncated */
#define ERR_NOLCLSY 103 /* no space in local symbol table */
#define ERR_PRPDIR 104 /* invalid preprocessor (#) directive */
#define ERR_INCNOFN 105 /* no filename in #include directive */
#define ERR_INCSYN 106 /* invalid #include syntax */
#define ERR_INCSEAR 107 /* can't find included file */
#define ERR_INCMTCH 108 /* no matching delimiter in #include filename */
#define ERR_MANYSYM 109 /* out of space for symbol table */
#define ERR_LONGLIN 110 /* line too long */
#define ERR_INCRPT 111 /* header file already included - ignored */
#define ERR_PRAGMA 112 /* unknown pragma (ignored) */
#define ERR_BADPELSE 113 /* unexpected #else */
#define ERR_BADENDIF 114 /* unexpected #endif */
#define ERR_BADELIF 115 /* unexpected #elif */
#define ERR_MANYPIF 116 /* #if nesting too deep */
#define ERR_DEFREDEF 117 /* #define symbol already defined */
#define ERR_PUNDEF 118 /* #undef symbol not defined */
#define ERR_NOENDIF 119 /* missing #endif */
#define ERR_MACNEST 120 /* macros nested too deeply */
#define ERR_BADISDEF 121 /* invalid argument for defined() operator */
#define ERR_PIF_NA 122 /* #if is not implemented */
#define ERR_PELIF_NA 123 /* #elif is not implemented */
#define ERR_P_ERROR 124 /* error directive: %s */
#define ERR_LONG_FILE_MACRO 125 /* __FILE__ expansion too long */
#define ERR_LONG_LINE_MACRO 126 /* __LINE__ expansion too long */
/* undo errors */
#define ERR_UNDOVF 200 /* operation is too big for undo log */
#define ERR_NOUNDO 201 /* no more undo information */
#define ERR_ICUNDO 202 /* incomplete undo (no previous savepoint) */
/* parser errors */
#define ERR_REQTOK 300 /* expected token (arg 1) - found something else */
#define ERR_REQSYM 301 /* expected symbol */
#define ERR_REQPRP 302 /* expected a property name */
#define ERR_REQOPN 303 /* expected operand */
#define ERR_REQARG 304 /* expected comma or closing paren (arg list) */
#define ERR_NONODE 305 /* no space for new parse node */
#define ERR_REQOBJ 306 /* epxected object name */
#define ERR_REQEXT 307 /* redefining symbol as external function */
#define ERR_REQFCN 308 /* redefining symbol as function */
#define ERR_NOCLASS 309 /* can't use CLASS with function/external function */
#define ERR_REQUNO 310 /* required unary operator */
#define ERR_REQBIN 311 /* required binary operator */
#define ERR_INVBIN 312 /* invalid binary operator */
#define ERR_INVASI 313 /* invalid assignment */
#define ERR_REQVAR 314 /* required variable name */
#define ERR_LCLSYN 315 /* required comma or semicolon in local list */
#define ERR_REQRBR 316 /* required right brace (eof before end of group) */
#define ERR_BADBRK 317 /* 'break' without 'while' */
#define ERR_BADCNT 318 /* 'continue' without 'while' */
#define ERR_BADELS 319 /* 'else' without 'if' */
#define ERR_WEQASI 320 /* warning: possible use of '=' where ':=' intended */
#define ERR_EOF 321 /* unexpected end of file */
#define ERR_SYNTAX 322 /* general syntax error */
#define ERR_INVOP 323 /* invalid operand type */
#define ERR_NOMEMLC 324 /* no memory for new local symbol table */
#define ERR_NOMEMAR 325 /* no memory for argument symbol table */
#define ERR_FREDEF 326 /* redefining a function which is already defined */
#define ERR_NOSW 327 /* 'case' or 'default' and not in switch block */
#define ERR_SWRQCN 328 /* constant required in switch case value */
#define ERR_REQLBL 329 /* label required for 'goto' */
#define ERR_NOGOTO 330 /* 'goto' label never defined */
#define ERR_MANYSC 331 /* too many superclasses for object */
#define ERR_OREDEF 332 /* redefining symbol as object */
#define ERR_PREDEF 333 /* property being redefined in object */
#define ERR_BADPVL 334 /* invalid property value */
#define ERR_BADVOC 335 /* bad vocabulary property value */
#define ERR_BADTPL 336 /* bad template property value (need sstring) */
#define ERR_LONGTPL 337 /* template base property name too long */
#define ERR_MANYTPL 338 /* too many templates (internal compiler limit) */
#define ERR_BADCMPD 339 /* bad value for compound word (sstring required) */
#define ERR_BADFMT 340 /* bad value for format string (sstring needed) */
#define ERR_BADSYN 341 /* invalid value for synonym (sstring required) */
#define ERR_UNDFSYM 342 /* undefined symbol */
#define ERR_BADSPEC 343 /* bad special word */
#define ERR_NOSELF 344 /* "self" not valid in this context */
#define ERR_STREND 345 /* warning: possible unterminated string */
#define ERR_MODRPLX 346 /* modify/replace not allowed with external func */
#define ERR_MODFCN 347 /* modify not allowed with function */
#define ERR_MODFWD 348 /* modify/replace not allowed with forward func */
#define ERR_MODOBJ 349 /* modify can only be used with a defined object */
#define ERR_RPLSPEC 350 /* warning - replacing specialWords */
#define ERR_SPECNIL 351 /* nil only allowed with modify specialWords */
#define ERR_BADLCL 353 /* 'local' statement must precede executable code */
#define ERR_IMPPROP 354 /* implied verifier '%s' is not a property */
#define ERR_BADTPLF 355 /* invalid command template flag */
#define ERR_NOTPLFLG 356 /* flags are not allowed with old file format */
#define ERR_AMBIGBIN 357 /* warning: operator '%s' could be binary */
#define ERR_PIA 358 /* warning: possibly incorrect assignment */
#define ERR_BADSPECEXPR 359 /* invalid speculation evaluation */
/* code generation errors */
#define ERR_OBJOVF 400 /* object cannot grow any bigger - code too big */
#define ERR_NOLBL 401 /* no more temporary labels/fixups */
#define ERR_LBNOSET 402 /* (internal error) label never set */
#define ERR_INVLSTE 403 /* invalid datatype for list element */
#define ERR_MANYDBG 404 /* too many debugger line records (internal limit) */
/* vocabulary setup errors */
#define ERR_VOCINUS 450 /* vocabulary being redefined for object */
#define ERR_VOCMNPG 451 /* too many vocwdef pages (internal limit) */
#define ERR_VOCREVB 452 /* redefining same verb */
#define ERR_VOCREVB2 453 /* redefining same verb - two arguments */
/* set-up errors */
#define ERR_LOCNOBJ 500 /* location of object %s is not an object */
#define ERR_CNTNLST 501 /* contents of object %s is not list */
#define ERR_SUPOVF 502 /* overflow trying to build contents list */
#define ERR_RQOBJNF 503 /* required object %s not found */
#define ERR_WRNONF 504 /* warning - object %s not found */
#define ERR_MANYBIF 505 /* too many built-in functions (internal error) */
/* fio errors */
#define ERR_OPWGAM 600 /* unable to open game for writing */
#define ERR_WRTGAM 601 /* error writing to game file */
#define ERR_FIOMSC 602 /* too many sc's for writing in fiowrt */
#define ERR_UNDEFF 603 /* undefined function */
#define ERR_UNDEFO 604 /* undefined object */
#define ERR_UNDEF 605 /* undefined symbols found */
#define ERR_OPRGAM 606 /* unable to open game for reading */
#define ERR_RDGAM 607 /* error reading game file */
#define ERR_BADHDR 608 /* file has invalid header - not TADS game file */
#define ERR_UNKRSC 609 /* unknown resource type in .gam file */
#define ERR_UNKOTYP 610 /* unknown object type in OBJ resource */
#define ERR_BADVSN 611 /* file saved by different incompatible version */
#define ERR_LDGAM 612 /* error loading object on demand */
#define ERR_LDBIG 613 /* object too big for load region (prob. internal) */
#define ERR_UNXEXT 614 /* did not expect external function */
#define ERR_WRTVSN 615 /* compiler cannot write the requested version */
#define ERR_VNOCTAB 616 /* format version cannot be used with -ctab */
#define ERR_BADHDRRSC 617 /* invalid resource file header in file %s */
#define ERR_RDRSC 618 /* error reading resource file "xxx" */
/* character mapping errors */
#define ERR_CHRNOFILE 700 /* unable to load character mapping file */
/* user interrupt */
#define ERR_USRINT 990 /* user requested cancel of current operation */
/* run-time errors */
#define ERR_STKOVF 1001 /* stack overflow */
#define ERR_HPOVF 1002 /* heap overflow */
#define ERR_REQNUM 1003 /* numeric value required */
#define ERR_STKUND 1004 /* stack underflow */
#define ERR_REQLOG 1005 /* logical value required */
#define ERR_INVCMP 1006 /* invalid datatypes for magnitude comparison */
#define ERR_REQSTR 1007 /* string value required */
#define ERR_INVADD 1008 /* invalid datatypes for '+' operator */
#define ERR_INVSUB 1009 /* invalid datatypes for binary '-' operator */
#define ERR_REQVOB 1010 /* require object value */
#define ERR_REQVFN 1011 /* required function pointer */
#define ERR_REQVPR 1012 /* required property number value */
/* non-error conditions: run-time EXIT, ABORT, ASKIO, ASKDO */
#define ERR_RUNEXIT 1013 /* 'exit' statement executed */
#define ERR_RUNABRT 1014 /* 'abort' statement executed */
#define ERR_RUNASKD 1015 /* 'askdo' statement executed */
#define ERR_RUNASKI 1016 /* 'askio' executed; int arg 1 is prep */
#define ERR_RUNQUIT 1017 /* 'quit' executed */
#define ERR_RUNRESTART 1018 /* 'reset' executed */
#define ERR_RUNEXITOBJ 1019 /* 'exitobj' executed */
#define ERR_REQVLS 1020 /* list value required */
#define ERR_LOWINX 1021 /* index value too low (must be >= 1) */
#define ERR_HIGHINX 1022 /* index value too high (must be <= length(list)) */
#define ERR_INVTBIF 1023 /* invalid type for built-in function */
#define ERR_INVVBIF 1024 /* invalid value for built-in function */
#define ERR_BIFARGC 1025 /* wrong number of arguments to built-in */
#define ERR_ARGC 1026 /* wrong number of arguments to user function */
#define ERR_FUSEVAL 1027 /* string/list not allowed for fuse/daemon arg */
#define ERR_BADSETF 1028 /* internal error in setfuse/setdaemon/notify */
#define ERR_MANYFUS 1029 /* too many fuses */
#define ERR_MANYDMN 1030 /* too many daemons */
#define ERR_MANYNFY 1031 /* too many notifiers */
#define ERR_NOFUSE 1032 /* fuse not found in remfuse */
#define ERR_NODMN 1033 /* daemon not found in remdaemon */
#define ERR_NONFY 1034 /* notifier not found in unnotify */
#define ERR_BADREMF 1035 /* internal error in remfuse/remdaemon/unnotify */
#define ERR_DMDLOOP 1036 /* load-on-demand loop: property not being set */
#define ERR_UNDFOBJ 1037 /* undefined object in vocabulary tree */
#define ERR_BIFCSTR 1038 /* c-string conversion overflows buffer */
#define ERR_INVOPC 1039 /* invalid opcode */
#define ERR_RUNNOBJ 1040 /* runtime error: property taken of non-object */
#define ERR_EXTLOAD 1041 /* unable to load external function "%s" */
#define ERR_EXTRUN 1042 /* error executing external function "%s" */
#define ERR_CIRCSYN 1043 /* circular synonym */
#define ERR_DIVZERO 1044 /* divide by zero */
#define ERR_BADDEL 1045 /* can only delete objects created with "new" */
#define ERR_BADNEWSC 1046 /* superclass for "new" cannot be a new object */
#define ERR_VOCSTK 1047 /* insufficient space in parser stack */
#define ERR_BADFILE 1048 /* invalid file handle */
#define ERR_RUNEXITPRECMD 1049 /* exited from preCommand */
/* run-time parser errors */
#define ERR_PRS_SENT_UNK 1200 /* sentence structure not recognized */
#define ERR_PRS_VERDO_FAIL 1201 /* verDoVerb failed */
#define ERR_PRS_VERIO_FAIL 1202 /* verIoVerb failed */
#define ERR_PRS_NO_VERDO 1203 /* no verDoVerb for direct object */
#define ERR_PRS_NO_VERIO 1204 /* no verIoVerb for direct object */
#define ERR_PRS_VAL_DO_FAIL 1205 /* direct object validation failed */
#define ERR_PRS_VAL_IO_FAIL 1206 /* indirect object validation failed */
/* compiler/runtime/debugger driver errors */
#define ERR_USAGE 1500 /* invalid usage */
#define ERR_OPNINP 1501 /* error opening input file */
#define ERR_NODBG 1502 /* game not compiled for debugging */
#define ERR_ERRFIL 1503 /* unable to open error capture file */
#define ERR_PRSCXSIZ 1504 /* parse pool + local size too large */
#define ERR_STKSIZE 1505 /* stack size too large */
#define ERR_OPNSTRFIL 1506 /* error opening string capture file */
#define ERR_INVCMAP 1507 /* invalid character map file */
/* debugger errors */
#define ERR_BPSYM 2000 /* symbol not found for breakpoint */
#define ERR_BPPROP 2002 /* breakpoint symbol is not a property */
#define ERR_BPFUNC 2003 /* breakpoint symbol is not a function */
#define ERR_BPNOPRP 2004 /* property is not defined for object */
#define ERR_BPPRPNC 2005 /* property is not code */
#define ERR_BPSET 2006 /* breakpoint already set at this location */
#define ERR_BPNOTLN 2007 /* breakpoint is not at a line (OPCLINE instr) */
#define ERR_MANYBP 2008 /* too many breakpoints */
#define ERR_BPNSET 2009 /* breakpoint to be deleted was not set */
#define ERR_DBGMNSY 2010 /* too many symbols in debug expression (int lim) */
#define ERR_NOSOURC 2011 /* unable to find source file %s */
#define ERR_WTCHLCL 2012 /* illegal to assign to local in watch expr */
#define ERR_INACTFR 2013 /* inactive frame (expression value not available) */
#define ERR_MANYWX 2014 /* too many watch expressions */
#define ERR_WXNSET 2015 /* watchpoint not set */
#define ERR_EXTRTXT 2016 /* extraneous text at end of command */
#define ERR_BPOBJ 2017 /* breakpoint symbol is not an object */
#define ERR_DBGINACT 2018 /* debugger is not active */
#define ERR_BPINUSE 2019 /* breakpoint is already used */
#define ERR_RTBADSPECEXPR 2020 /* invalid speculative expression */
#define ERR_NEEDLIN2 2021 /* -ds2 information not found - must recompile */
/* usage error messages */
#define ERR_TCUS1 3000 /* first tc usage message */
#define ERR_TCUSL 3024 /* last tc usage message */
#define ERR_TCTGUS1 3030 /* first tc toggle message */
#define ERR_TCTGUSL 3032
#define ERR_TCZUS1 3040 /* first tc -Z suboptions usage message */
#define ERR_TCZUSL 3041
#define ERR_TC1US1 3050 /* first tc -1 suboptions usage message */
#define ERR_TC1USL 3058
#define ERR_TCMUS1 3070 /* first tc -m suboptions usage message */
#define ERR_TCMUSL 3076
#define ERR_TCVUS1 3080 /* first -v suboption usage message */
#define ERR_TCVUSL 3082
#define ERR_TRUSPARM 3099
#define ERR_TRUS1 3100 /* first tr usage message */
#define ERR_TRUSL 3117
#define ERR_TRUSFT1 3118 /* first tr "footer" message */
#define ERR_TRUSFTL 3119 /* last tr "footer" message */
#define ERR_TRSUS1 3150 /* first tr -s suboptions usage message */
#define ERR_TRSUSL 3157
#define ERR_TDBUSPARM 3199
#define ERR_TDBUS1 3200 /* first tdb usage message */
#define ERR_TDBUSL 3214 /* last tdb usage message */
/* TR 16-bit MSDOS-specific usage messages */
#define ERR_TRUS_DOS_1 3300
#define ERR_TRUS_DOS_L 3300
/* TR 32-bit MSDOS console mode usage messages */
#define ERR_TRUS_DOS32_1 3310
#define ERR_TRUS_DOS32_L 3312
/* TADS/Graphic errors */
#define ERR_GNOFIL 4001 /* can't find graphics file %s */
#define ERR_GNORM 4002 /* can't find room %s */
#define ERR_GNOOBJ 4003 /* can't find hot spot object %s */
#define ERR_GNOICN 4004 /* can't find icon object %s */
/*
* Special error flag - this is returned from execmd() when preparseCmd
* returns a command list. This indicates to voc1cmd that it should try
* the command over again, using the words in the new list.
*/
#define ERR_PREPRSCMDREDO 30000 /* preparseCmd returned a list */
#define ERR_PREPRSCMDCAN 30001 /* preparseCmd returned 'nil' to cancel */
#endif /* ERR_INCLUDED */