/**************************************************************************** * apps/interpreters/bas/bas_error.h * * Copyright (c) 1999-2014 Michael Haardt * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER * DEALINGS IN THE SOFTWARE. * ****************************************************************************/ #ifndef __APPS_EXAMPLES_BAS_BAS_ERROR_H #define __APPS_EXAMPLES_BAS_BAS_ERROR_H /**************************************************************************** * Pre-processor Definitions ****************************************************************************/ #define _(String) String #define STATIC 100 #define ALREADYDECLARED STATIC+ 0, _("Formal parameter already declared") #define ALREADYLOCAL STATIC+ 1, _("Variable already declared as `local'") #define BADIDENTIFIER STATIC+ 2, _("Identifier can not be declared as %s") #define BADRANGE STATIC+ 3, _("Ranges must be constructed from single letter identifiers") #define INVALIDLINE STATIC+ 4, _("Missing line number at the beginning of text line %d") #define INVALIDUOPERAND STATIC+ 5, _("Invalid unary operand") #define INVALIDOPERAND STATIC+ 6, _("Invalid binary operand") #define MISSINGAS STATIC+ 7, _("Missing `as'") #define MISSINGCOLON STATIC+ 8, _("Missing colon `:'") #define MISSINGCOMMA STATIC+ 9, _("Missing comma `,'") #define MISSINGCP STATIC+10, _("Missing right parenthesis `)'") #define MISSINGDATAINPUT STATIC+11, _("Missing `data' input") #define MISSINGDECINCIDENT STATIC+12, _("Missing `dec'/`inc' variable identifier") #define MISSINGEQ STATIC+13, _("Missing equal sign `='") #define MISSINGEXPR STATIC+14, _("Expected %s expression") #define MISSINGFILE STATIC+15, _("Missing `file'") #define MISSINGGOTOSUB STATIC+16, _("Missing `goto' or `gosub'") #define MISSINGVARIDENT STATIC+17, _("Missing variable identifier") #define MISSINGPROCIDENT STATIC+18, _("Missing procedure identifier") #define MISSINGFUNCIDENT STATIC+19, _("Missing function identifier") #define MISSINGARRIDENT STATIC+20, _("Missing array variable identifier") #define MISSINGSTRIDENT STATIC+21, _("Missing string variable identifier") #define MISSINGLOOPIDENT STATIC+22, _("Missing loop variable identifier") #define MISSINGFORMIDENT STATIC+23, _("Missing formal parameter identifier") #define MISSINGREADIDENT STATIC+24, _("Missing `read' variable identifier") #define MISSINGSWAPIDENT STATIC+25, _("Missing `swap' variable identifier") #define MISSINGMATIDENT STATIC+26, _("Missing matrix variable identifier") #define MISSINGINCREMENT STATIC+27, _("Missing line increment") #define MISSINGLEN STATIC+28, _("Missing `len'") #define MISSINGLINENUMBER STATIC+29, _("Missing line number") #define MISSINGOP STATIC+30, _("Missing left parenthesis `('") #define MISSINGSEMICOLON STATIC+31, _("Missing semicolon `;'") #define MISSINGSEMICOMMA STATIC+32, _("Missing semicolon `;' or comma `,'") #define MISSINGMULT STATIC+33, _("Missing star `*'") #define MISSINGSTATEMENT STATIC+34, _("Missing statement") #define MISSINGTHEN STATIC+35, _("Missing `then'") #define MISSINGTO STATIC+36, _("Missing `to'") #define NESTEDDEFINITION STATIC+37, _("Nested definition") #define NOPROGRAM STATIC+38, _("No program") #define NOSUCHDATALINE STATIC+39, _("No such `data' line") #define NOSUCHLINE STATIC+40, _("No such line") #define REDECLARATION STATIC+41, _("Redeclaration as different kind of symbol") #define STRAYCASE STATIC+42, _("`case' without `select case'") #define STRAYDO STATIC+43, _("`do' without `loop'") #define STRAYDOcondition STATIC+44, _("`do while' or `do until' without `loop'") #define STRAYELSE1 STATIC+45, _("`else' without `if'") #define STRAYELSE2 STATIC+46, _("`else' without `end if'") #define STRAYENDIF STATIC+47, _("`end if' without multiline `if' or `else'") #define STRAYSUBEND STATIC+49, _("`subend', `end sub' or `endproc' without `sub' or `def proc' inside %s") #define STRAYSUBEXIT STATIC+50, _("`subexit' without `sub' inside") #define STRAYENDSELECT STATIC+51, _("`end select' without `select case'") #define STRAYENDFN STATIC+52, _("`end function' without `def fn' or `function'") #define STRAYENDEQ STATIC+53, _("`=' returning from function without `def fn'") #define STRAYEXITDO STATIC+54, _("`exit do' without `do'") #define STRAYEXITFOR STATIC+55, _("`exit for' without `for'") #define STRAYFNEND STATIC+56, _("`fnend' without `def fn'") #define STRAYFNEXIT STATIC+57, _("`exit function' outside function declaration") #define STRAYFNRETURN STATIC+58, _("`fnreturn' without `def fn'") #define STRAYFOR STATIC+59, _("`for' without `next'") #define STRAYFUNC STATIC+60, _("Function/procedure declaration without end") #define STRAYIF STATIC+61, _("`if' without `end if'") #define STRAYLOCAL STATIC+62, _("`local' without `def fn' or `def proc'") #define STRAYLOOP STATIC+63, _("`loop' without `do'") #define STRAYLOOPUNTIL STATIC+64, _("`loop until' without `do'") #define STRAYNEXT STATIC+65, _("`next' without `for' inside %s") #define STRAYREPEAT STATIC+66, _("`repeat' without `until'") #define STRAYSELECTCASE STATIC+67, _("`select case' without `end select'") #define STRAYUNTIL STATIC+68, _("`until' without `repeat'") #define STRAYWEND STATIC+69, _("`wend' without `while' inside %s") #define STRAYWHILE STATIC+70, _("`while' without `wend'") #define SYNTAX STATIC+71, _("Syntax") #define TOOFEW STATIC+72, _("Too few parameters") #define TOOMANY STATIC+73, _("Too many parameters") #define TYPEMISMATCH1 STATIC+74, _("Type mismatch (has %s, need %s)") #define TYPEMISMATCH2 STATIC+75, _("Type mismatch of argument %d") #define TYPEMISMATCH3 STATIC+76, _("%s of argument %d") #define TYPEMISMATCH4 STATIC+77, _("Type mismatch (need string variable)") #define TYPEMISMATCH5 STATIC+78, _("Type mismatch (need numeric variable)") #define TYPEMISMATCH6 STATIC+79, _("Type mismatch (need numeric value)") #define UNDECLARED STATIC+80, _("Undeclared function or variable") #define UNNUMBERED STATIC+81, _("Use `renum' to number program first") #define OUTOFSCOPE STATIC+82, _("Line out of scope") #define VOIDVALUE STATIC+83, _("Procedures do not return values") #define UNREACHABLE STATIC+84, _("Unreachable statement") #define WRONGMODE STATIC+85, _("Wrong access mode") #define FORMISMATCH STATIC+86, _("`next' variable does not match `for' variable") #define NOSUCHIMAGELINE STATIC+87, _("No such `image' line") #define MISSINGFMT STATIC+88, _("Missing `image' format") #define MISSINGRELOP STATIC+89, _("Missing relational operator") #define RUNTIME 200 #define MISSINGINPUTDATA RUNTIME+0, _("Missing `input' data") #define MISSINGCHARACTER RUNTIME+1, _("Missing character after underscore `_' in format string") #define NOTINDIRECTMODE RUNTIME+2, _("Not allowed in interactive mode") #define NOTINPROGRAMMODE RUNTIME+3, _("Not allowed in program mode") #define BREAK RUNTIME+4, _("Break") #define UNDEFINED RUNTIME+5, _("%s is undefined") #define OUTOFRANGE RUNTIME+6, _("%s is out of range") #define STRAYRESUME RUNTIME+7, _("`resume' without exception") #define STRAYRETURN RUNTIME+8, _("`return' without `gosub'") #define BADCONVERSION RUNTIME+9, _("Bad %s conversion") #define IOERROR RUNTIME+10,_("Input/Output error (%s)") #define IOERRORCREATE RUNTIME+10,_("Input/Output error (Creating `%s' failed: %s)") #define IOERRORCLOSE RUNTIME+10,_("Input/Output error (Closing `%s' failed: %s)") #define IOERROROPEN RUNTIME+10,_("Input/Output error (Opening `%s' failed: %s)") #define ENVIRONFAILED RUNTIME+11,_("Setting environment variable failed (%s)") #define REDIM RUNTIME+12,_("Trying to redimension existing array") #define FORKFAILED RUNTIME+13,_("Forking child process failed (%s)") #define BADMODE RUNTIME+14,_("Invalid mode") #define ENDOFDATA RUNTIME+15,_("end of `data'") #define DIMENSION RUNTIME+16,_("Dimension mismatch") #define NOMATRIX RUNTIME+17,_("Variable dimension must be 2 (is %d), base must be 0 or 1 (is %d)") #define SINGULAR RUNTIME+18,_("Singular matrix") #define BADFORMAT RUNTIME+19,_("Syntax error in print format") #define OUTOFMEMORY RUNTIME+20,_("Out of memory") #define RESTRICTED RUNTIME+21,_("Restricted") #define NOTAVAILABLE RUNTIME+22,_("Feature not available") #endif /* __APPS_EXAMPLES_BAS_BAS_ERROR_H */