diff options
Diffstat (limited to 'engines/glk/tads/tads2/error.h')
| -rw-r--r-- | engines/glk/tads/tads2/error.h | 390 |
1 files changed, 390 insertions, 0 deletions
diff --git a/engines/glk/tads/tads2/error.h b/engines/glk/tads/tads2/error.h new file mode 100644 index 0000000000..96831068d7 --- /dev/null +++ b/engines/glk/tads/tads2/error.h @@ -0,0 +1,390 @@ +/* ScummVM - Graphic Adventure Engine + * + * ScummVM is the legal property of its developers, whose names + * are too numerous to list here. Please refer to the COPYRIGHT + * file distributed with this source distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + * + */ + +/* Error handling + * 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. + */ + +#ifndef GLK_TADS_TADS2_ERROR +#define GLK_TADS_TADS2_ERROR + +#include "glk/tads/tads2/lib.h" + +namespace Glk { +namespace TADS { +namespace TADS2 { + +/* + * 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 */ + +} // End of namespace TADS2 +} // End of namespace TADS +} // End of namespace Glk + +#endif |