/****************************************************************************
* apps/interpreters/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.
*
* Adapted to NuttX and re-released under a 3-clause BSD license:
*
* Copyright (C) 2014 Gregory Nutt. All rights reserved.
* Authors: Alan Carvalho de Assis <Alan Carvalho de Assis>
* Gregory Nutt <gnutt@nuttx.org>
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in
* the documentation and/or other materials provided with the
* distribution.
* 3. Neither the name NuttX nor the names of its contributors may be
* used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
* COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
* OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
* ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*
****************************************************************************/
#ifndef __APPS_EXAMPLES_BAS_ERROR_H
#define __APPS_EXAMPLES_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 %s")
#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")
#endif /* __APPS_EXAMPLES_BAS_ERROR_H */
