$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 */