bwb_mes.h

这是一个简易的basic语言解释器, 可供我们学习和改进.

#define ERR_OD          "Keine Daten mehr vorhanden"
#define ERR_OVERFLOW    "Ueberflutung"
#define ERR_NF          "NEXT ohne FOR"
#define ERR_UF          "Funktion nicht definiert"
#define ERR_DBZ         "Teile durch Null"
#define ERR_REDIM       "Die Variable kann nicht neu dimensioniert werdern"
#define ERR_OBDIM       "OPTION BASE muss vor DIM aufgerufen werden"
#define ERR_UC          "Befehl unbekannt"
#define ERR_NOPROGFILE  "Programm Datei nicht angegeben"
#endif

/* ESPERANTO */

#if ESPERANTO
#define MES_SIGNON      "Bywater BASIC Tradukilo/SXelo, vario"
#define MES_COPYRIGHT   "Kopirajtita (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE    "Esperanta traduko farigxi per Ricxjo Muelisto."
#define PROMPT          "bwBASIC: "
#define ERROR_HEADER    "ERARO en vico"
#define ERRD_HEADER     "ERARO"
#define MATHERR_HEADER  "ERARO"
#define MES_BREAK       "Programo interrompita cxe vico"
#define ERR_OPENFILE    "Malsukcesis malfermi dosieron %s"
#define ERR_GETMEM      "Malsukcesis trovi memorajxo"
#define ERR_LINENO      "Malsukcesis ligi vicnumero"
#define ERR_LNNOTFOUND  "Vicnumero %d ne trovita"
#define ERR_LOADNOFN    "LOAD: dosiernomo ne specifita"
#define ERR_NOLN        "Ne estas vicnumero"
#define ERR_NOFN        "Ne estas dosiernomo"
#define ERR_RETNOGOSUB  "RETURN sen GOSUB"
#define ERR_INCOMPLETE  "Necompleta deklaro"
#define ERR_ONNOGOTO    "ON sen GOTO aux GOSUB"
#define ERR_VALOORANGE  "Valorajxo estas eksteretenda"
#define ERR_SYNTAX      "Sintakseraro"
#define ERR_DEVNUM      "Nevalida aparatnumero"
#define ERR_DEV         "Aparateraro"
#define ERR_OPSYS       "Eraro en funkcisistema ordono"
#define ERR_ARGSTR      "Argumento devas esti serio"
#define ERR_DEFCHAR     "Erara argumento por varianto difinajxo"
#define ERR_MISMATCH    "Tipa misparo"
#define ERR_DIMNOTARRAY "Argumento ne estas kolektonomo"
#define ERR_OD          "Ne havas pli da informoj"
#define ERR_OVERFLOW    "Ektroajxo"
#define ERR_NF          "NEXT sen FOR"
#define ERR_UF          "Nedifininta funkcio"
#define ERR_DBZ         "Dividu per nulo"
#define ERR_REDIM       "Varianto ne eble esti redimensigxinta"
#define ERR_OBDIM       "OPTION BASE devas uzigxi antaux ol DIM"
#define ERR_UC          "Nekonata ordono"
#define ERR_NOPROGFILE  "Programa dosiero ne specifita"
#endif

/* Standard English is taken as a default: if MES_SIGNON is not defined by
   this time (i.e., by some other language definition), then
   the following standard English definitions are utilized. */

#ifndef MES_SIGNON
#define MES_SIGNON      "Bywater BASIC Interpreter/Shell, version"
#define MES_COPYRIGHT   "Copyright (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE    " "
#define PROMPT          "bwBASIC: "
#define ERROR_HEADER    "ERROR in line"
#define ERRD_HEADER     "ERROR"
#define MATHERR_HEADER  "ERROR"
#define MES_BREAK       "Program interrupted at line"
#define ERR_OPENFILE    "Failed to open file %s"
#define ERR_GETMEM      "Failed to find memory"
#define ERR_LINENO      "Failed to link line number"
#define ERR_LNNOTFOUND  "Line number %d not found"
#define ERR_LOADNOFN    "LOAD: no filename specified"
#define ERR_NOLN        "No line number"
#define ERR_NOFN        "No file name"
#define ERR_RETNOGOSUB  "RETURN without GOSUB"
#define ERR_INCOMPLETE  "Incomplete statement"
#define ERR_ONNOGOTO    "ON without GOTO or GOSUB"
#define ERR_VALOORANGE  "Value is out of range"
#define ERR_SYNTAX      "Syntax error"
#define ERR_DEVNUM      "Invalid device number"
#define ERR_DEV         "Device error"
#define ERR_OPSYS       "Error in operating system command"
#define ERR_ARGSTR      "Argument must be a string"
#define ERR_DEFCHAR     "Incorrect argument for variable definition"
#define ERR_MISMATCH    "Type mismatch"
#define ERR_DIMNOTARRAY "Argument is not an array name"
#define ERR_OD          "Out of data"
#define ERR_OVERFLOW    "Overflow"
#define ERR_NF          "NEXT without FOR"
#define ERR_UF          "Undefined function"
#define ERR_DBZ         "Divide by zero"
#define ERR_REDIM       "Variable cannot be redimensioned"
#define ERR_OBDIM       "OPTION BASE must be called prior to DIM"
#define ERR_UC          "Unknown command"
#define ERR_NOPROGFILE  "Program file not specified"
#endif

/****************************************************************

	BASIC Command Name Definitions

	The following definitions of command names are given in
	order to allow users to redefine BASIC command names.
	No alternatives are supplied.

****************************************************************/

#ifndef CMD_SYSTEM
#define CMD_SYSTEM	"SYSTEM"
#define CMD_QUIT	"QUIT"
#define CMD_REM		"REM"
#define CMD_LET		"LET"
#define CMD_PRINT	"PRINT"
#define CMD_INPUT	"INPUT"
#define CMD_GO          "GO"
#define CMD_GOTO        "GOTO"
#define CMD_GOSUB	"GOSUB"
#define CMD_RETURN	"RETURN"
#define CMD_ON		"ON"
#define CMD_IF		"IF"
#define CMD_WHILE	"WHILE"
#define CMD_WEND	"WEND"
#define CMD_WRITE	"WRITE"
#define CMD_END		"END"
#define CMD_FOR		"FOR"
#define CMD_NEXT	"NEXT"
#define CMD_STOP	"STOP"
#define CMD_DATA	"DATA"
#define CMD_READ	"READ"
#define CMD_RESTORE	"RESTORE"
#define CMD_DIM		"DIM"
#define CMD_OPTION	"OPTION"
#define CMD_OPEN	"OPEN"
#define CMD_CLOSE	"CLOSE"
#define CMD_GET		"GET"
#define CMD_PUT		"PUT"
#define CMD_LSET	"LSET"
#define CMD_RSET	"RSET"
#define CMD_FIELD	"FIELD"
#define CMD_LINE	"LINE"
#define CMD_DEF		"DEF"
#define CMD_VARS	"VARS"
#define CMD_CMDS	"CMDS"
#define CMD_FNCS	"FNCS"
#define CMD_CHDIR	"CHDIR"
#define CMD_MKDIR	"MKDIR"
#define CMD_RMDIR	"RMDIR"
#define CMD_KILL	"KILL"
#define CMD_ENVIRON	"ENVIRON"
#define CMD_LIST	"LIST"
#define CMD_LOAD	"LOAD"
#define CMD_RUN		"RUN"
#define CMD_SAVE	"SAVE"
#define CMD_DELETE	"DELETE"
#define CMD_NEW		"NEW"
#define CMD_DEFDBL	"DEFDBL"
#define CMD_DEFINT	"DEFINT"
#define CMD_DEFSNG	"DEFSNG"
#define CMD_DEFSTR	"DEFSTR"
#define CMD_MID		"MID$"
#define CMD_CALL	"CALL"
#define CMD_SUB		"SUB"
#define CMD_FUNCTION	"FUNCTION"
#define CMD_LABEL	"lAbEl"			/* not really used: set to an unlikely combination */
#define CMD_ELSE	"ELSE"
#define CMD_ELSEIF	"ELSEIF"
#define CMD_SELECT	"SELECT"
#define CMD_CASE	"CASE"
#define CMD_MERGE	"MERGE"
#define CMD_CHAIN	"CHAIN"
#define CMD_COMMON	"COMMON"
#define CMD_ERROR	"ERROR"
#define CMD_WIDTH	"WIDTH"
#define CMD_TRON	"TRON"
#define CMD_TROFF	"TROFF"
#define CMD_RANDOMIZE	"RANDOMIZE"
#define CMD_FILES	"FILES"
#define CMD_EDIT	"EDIT"
#define CMD_RENUM	"RENUM"
#define CMD_ERASE	"ERASE"
#define CMD_SWAP	"SWAP"
#define CMD_NAME	"NAME"
#define CMD_CLEAR	"CLEAR"
#define CMD_THEN	"THEN"
#define CMD_TO		"TO"
#define CMD_STEP	"STEP"
#define CMD_DO      "DO"
#define CMD_LOCATE  "LOCATE"
#define CMD_CLS     "CLS"
#define CMD_COLOR   "COLOR"
#define CMD_LOOP	"LOOP"
#define CMD_EXIT	"EXIT"
#define CMD_XUSING      "USING"
#define CMD_XFOR        "FOR"
#define CMD_XDO		"DO"
#define CMD_XUNTIL	"UNTIL"
#define CMD_XNUM    "NUM"
#define CMD_XUNNUM	"UNNUM"
#define CMD_XSUB	"SUB"
#define CMD_XTO		"TO"
#define CMD_XERROR	"ERROR"
#define CMD_XSUB	"SUB"
#define CMD_XFUNCTION	"FUNCTION"
#define CMD_XIF		"IF"
#define CMD_XSELECT	"SELECT"
#endif

/****************************************************************

	External Definitions for Error Messages

****************************************************************/

extern char err_openfile[];
extern char err_getmem[];
extern char err_noln[];
extern char err_nofn[];
extern char err_lnnotfound[];
extern char err_incomplete[];
extern char err_valoorange[];
extern char err_syntax[];
extern char err_devnum[];
extern char err_dev[];
extern char err_opsys[];
extern char err_argstr[];
extern char err_defchar[];
extern char err_mismatch[];
extern char err_dimnotarray[];
extern char err_retnogosub[];
extern char err_od[];
extern char err_overflow[];
extern char err_nf[];
extern char err_uf[];
extern char err_dbz[];
extern char err_redim[];
extern char err_obdim[];
extern char err_uc[];
extern char err_noprogfile[];