bwb_mes.h

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

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

        bwb_mes.h       Header File for Natural-Language-Specific
                        Text Messages for Bywater BASIC Interpreter

                        Copyright (c) 1993, Ted A. Campbell
                        Bywater Software

                        email: [e-mail]

        Copyright and Permissions Information:

        All U.S. and international rights are claimed by the author,
        Ted A. Campbell.

	This software is released under the terms of the GNU General
	Public License (GPL), which is distributed with this software
	in the file "COPYING".  The GPL specifies the terms under
	which users may copy and use the software in this distribution.

	A separate license is available for commercial distribution,
	for information on which you should contact the author.

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

/*---------------------------------------------------------------*/
/* NOTE: Modifications marked "JBV" were made by Jon B. Volkoff, */
/* 11/1995 ([e-mail]).                                  */
/*---------------------------------------------------------------*/

#ifndef TRUE
#define TRUE    1
#define FALSE   0
#endif

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

	The following Latin conventions are used:

	LATIN			ENGLISH

	acies datorum		array (of data)
        crusta			shell
	litteras		(character) string
	memoria mutabilis	RAM
	organum			device
	ordo			line
	praeceptum		command
	  praecepta		  program (commands)
	  praecepta interna	  operating system
	  praeceptellum		  function
	tabula			file

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

#if LATIN
#define MES_SIGNON      "Interpres <Super Flumina> ad linguam BASIC, versionis"
#define MES_COPYRIGHT   "Iure proprio scriptoris (c) 1993, Eduardi de Campobello"
#define MES_LANGUAGE	"Cum nuntiis latinis ab ipso E. de C."
#define PROMPT          "bwBASIC: "
#define ERROR_HEADER    "ERRANT praecepta in ordine"
#define ERRD_HEADER     "ERRANT praecepta"
#define MATHERR_HEADER  "ERRANT praecepta"
#define MES_BREAK       "Intermittuntur praecepta in ordine"
#define ERR_OPENFILE    "Non patet tabula quod <%s> vocatur"
#define ERR_GETMEM      "Deest memoria mutabilis"
#define ERR_LINENO      "Non adicitur novus ordo praeceptorum"
#define ERR_LNNOTFOUND  "Non invenitur ordo praeceptorum <%d>"
#define ERR_LOADNOFN    "LOAD requirit nomen ad tabulam"
#define ERR_NOLN        "Non invenitur ordo praeceptorum"
#define ERR_NOFN        "Non invenitur nomen ad tabulam"
#define ERR_RETNOGOSUB  "RETURN sine GOSUB"
#define ERR_INCOMPLETE  "Praeceptum imcompletum"
#define ERR_ONNOGOTO    "ON sine GOTO sive GOSUB"
#define ERR_VALOORANGE  "Numerus in praeceptis excedit fines"
#define ERR_SYNTAX      "Non sequunter praecepta"
#define ERR_DEVNUM      "Numerus ad organum invalidum est"
#define ERR_DEV         "Errat organum"
#define ERR_OPSYS	"Errant praecepta interna"
#define ERR_ARGSTR	"Praeceptum requirit litteras"
#define ERR_DEFCHAR	"ad varium definiendum"
#define ERR_MISMATCH	"Non congruunt typus"
#define ERR_DIMNOTARRAY	"Praeceptum requirit nomen ad aciem datorum"
#define ERR_OD		"Desunt data"
#define ERR_OVERFLOW	"Data excedunt fines"
#define ERR_NF		"NEXT sine FOR"
#define ERR_UF		"Non definitur praeceptellum"
#define ERR_DBZ		"Non licet divisio ab nihilo"
#define ERR_REDIM	"Non licet varium iterum definiendum"
#define ERR_OBDIM	"Debet OPTION BASE procedere DIM"
#define ERR_UC		"Praeceptum incognitum est"
#define ERR_NOPROGFILE	"Tabula praeceptorum non invenitur"
#endif

#if POL_ENGLISH
#define MES_SIGNON      "Bywater BASIC Interpreter/Shell, version"
#define MES_COPYRIGHT   "Copyright (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE	"Polite English messages courtesy of t.a.c."
#define PROMPT          "How may we help you? "
#define ERROR_HEADER    "Very sorry. There is a problem in line"
#define ERRD_HEADER     "Very sorry. There is a problem"
#define MATHERR_HEADER  "We have a small problem"
#define MES_BREAK       "At your request, the program has been interrupted at line"
#define ERR_OPENFILE    "I'm afraid we have failed \nto open file %s."
#define ERR_GETMEM      "I'm afraid we have failed \nto find sufficient memory."
#define ERR_LINENO      "I'm afraid we have failed \nto link line number."
#define ERR_LNNOTFOUND  "I'm afraid that we \ncannot find line number %d."
#define ERR_LOADNOFN    "Could you perhaps specify \nwhich file you wish to be loaded?"
#define ERR_NOLN        "It would help greatly \nif there were a line number here."
#define ERR_NOFN        "It would help greatly \nif there were a file name here."
#define ERR_RETNOGOSUB  "Is it possible \nthat there is a RETURN without a GOSUB here?"
#define ERR_INCOMPLETE  "I'm afraid that the statement\nappears to be incomplete."
#define ERR_ONNOGOTO    "It appears that there is an ON \nwithout a corresponding GOTO or GOSUB statement."
#define ERR_VALOORANGE  "A value given here \nseems to be out of range."
#define ERR_SYNTAX      "Could it be \nthat there is a syntax error at this point?"
#define ERR_DEVNUM      "The device or file \nnumber here does not seem to be correct."
#define ERR_DEV         "There appears \nto have been an error addressing the file or device \nwhich you requested."
#define ERR_OPSYS	"A most unfortunate error \nseems to have been generated by the computer's operating system."
#define ERR_ARGSTR	"Could you perhaps \nsupply a string argument at this point?"
#define ERR_DEFCHAR	"The variable definition \nat this point appears to have an improper argument."
#define ERR_MISMATCH	"It would appear \nthat something in this statement is rather seriously mismatched."
#define ERR_DIMNOTARRAY	"Could you perhaps \nsupply an array name for the argument at this point?"
#define ERR_OD		"Oh dear, we seem to have no more data to read now."
#define ERR_OVERFLOW	"Subhuman devices \ndo have their limits, and we're afraid that at this point \nthe limits of Bywater BASIC have been exceeded."
#define ERR_NF		"There seems to be \na NEXT statement without a corresponding FOR statement. Could you check on it?"
#define ERR_UF		"It would appear \nthat the function named at this point has not been defined."
#define ERR_DBZ		"Unfortunately, \ndivision by zero can cause dreadful problems in a computer."
#define ERR_REDIM	"We're very sorry \nto say that a variable such as this cannot be redimensioned."
#define ERR_OBDIM	"It would be ever so helpful \nif the OPTION BASE statement were to be called prior to the DIM statement."
#define ERR_UC		"I'm afraid that \nwe are unable to recognize the command you have given here."
#define ERR_NOPROGFILE	"Very sorry, but \nwe simply must have a program file to interpret."
#endif

#if IMP_ENGLISH
#define MES_SIGNON      "Bywater BASIC Interpreter/Shell, version"
#define MES_COPYRIGHT   "Watch it: Copyright (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE	"Impolite English messages courtesy of Oscar the Grouch"
#define PROMPT          "(*sigh) What now? "
#define ERROR_HEADER    "YOU SCREWED UP at line"
#define ERRD_HEADER     "YOU SCREWED UP"
#define MATHERR_HEADER  "ANOTHER SCREWUP!"
#define MES_BREAK       "Only a geek like you would interrupt this program at line"
#define ERR_OPENFILE    "Ha ha! I can't open file %s. Too bad, sucker."
#define ERR_GETMEM      "There isn't near enough memory \nfor this lunacy."
#define ERR_LINENO      "You jerk: \nyou entered a non-existent line number."
#define ERR_LNNOTFOUND  "You total idiot.  \nLine number %d isn't there. HA!"
#define ERR_LOADNOFN    "Get out of here. \nNo way to load that file."
#define ERR_NOLN        "Dumb bozo: you need to put \na LINE NUMBER here. Hint: Can you count?"
#define ERR_NOFN        "Nerd of the year. \nYou forgot to enter a file name. \nWhy don't you learn BASIC and come back in a year?"
#define ERR_RETNOGOSUB  "Oh come on, total amateur. \nYou've got a RETURN without a GOSUB"
#define ERR_INCOMPLETE  "Dimwit. Why don't you \ncomplete the statement here for a change."
#define ERR_ONNOGOTO    "You failed again: \nON without a GOTO or GOSUB."
#define ERR_VALOORANGE  "Go home, beginner. \nThe value here is way out of range."
#define ERR_SYNTAX      "Sure sign of a fourth-rate programmer: \nThis makes no sense at all."
#define ERR_DEVNUM      "Way to go, space cadet. \nThe device (or file) number here is totally in orbit."
#define ERR_DEV         "HO! The file or device \n you requested says: DROP DEAD."
#define ERR_OPSYS	"You obviously don't know \nwhat this computer can or can't do."
#define ERR_ARGSTR	"Do you have big ears? \n(Like Dumbo?) You obviously need a string argument at this point."
#define ERR_DEFCHAR	"Amazing. Surely children \nknow how to form a corrent argument here."
#define ERR_MISMATCH	"No way, turkey. \nThe statement here is TOTALLY mismatched."
#define ERR_DIMNOTARRAY	"Incredible. Why don't you \nsuppy an ARRAY NAME where the prograqm calls for an ARRAY NAME? (Or just go home.)"
#define ERR_OD		"Have you ever studied BASIC before? \nYou've run out of data."
#define ERR_OVERFLOW	"Congratulations on writing a program \nthat totally exceeds all limits."
#define ERR_NF		"Go back to kindergarten: \nYou have a NEXT statement FOR."
#define ERR_UF		"Trash. Total trash. \nDefine your stupid functions before calling them."
#define ERR_DBZ		"Obviously, you'll never be a programmer. \nYou've tried division by zero here."
#define ERR_REDIM	"You just don't understand: \nyou cannot redimension this variable."
#define ERR_OBDIM	"Dork. You called OPTION BASE after DIM. \nLeave me alone."
#define ERR_UC		"What do you think this is? \nTry entering a BASIC command here."
#define ERR_NOPROGFILE	"Idiot.  No way this will run without a program file."
#endif

#if STD_RUSSIAN
#define MES_SIGNON      "iNTERPRETATOR Bywater BASIC, WERSIQ"
#define MES_COPYRIGHT   "Copyright (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE    ""
#define PROMPT          "gOTOWO"
#define ERROR_HEADER    "o{ibka W STROKE"
#define MATHERR_HEADER  "o{ibka"
#define MES_BREAK       "pROGRAMMA PRERWANA W STROKE"
#define ERR_OPENFILE    "nE MOGU OTKRYTX FAJL %s"
#define ERR_GETMEM      "mALO PAMQTI"
#define ERR_LINENO      "nEWERNYJ NOMER STROKI"
#define ERR_LNNOTFOUND  "sTROKA %d NE NAJDENA"
#define ERR_LOADNOFN    "LOAD: NE ZADANO IMQ FAJLA"
#define ERR_NOLN        "oTSUTSTWUET NOMER STROKI"
#define ERR_NOFN        "oTSUTSTWUET IMQ FAJLA"
#define ERR_RETNOGOSUB  "RETURN BEZ GOSUB"
#define ERR_INCOMPLETE  "nEWER[ENNYJ OPERATOR"
#define ERR_ONNOGOTO    "ON BEZ GOTO ILI GOSUB"
#define ERR_VALOORANGE  "zNA^ENIE WNE DIAPAZONA"
#define ERR_SYNTAX      "sINTAKSI^ESKAQ O[IBKA"
#define ERR_DEVNUM      "nEWERNYJ NOMER USTROJSTWA"
#define ERR_DEV         "o[IBKA USTROJSTWA"
#define ERR_OPSYS       "o[IBKA W KOMANDE OPERACIONNOJ SISTEMY"
#define ERR_ARGSTR      "aRGUMENT DOLVEN BYTX STROKOJ"
#define ERR_DEFCHAR     "nEWERNYJ ARGUMENT W OPREDELENII PEREMENNOJ"
#define ERR_MISMATCH    "nESOOTWETSTWIE TIPOW"
#define ERR_DIMNOTARRAY "aRGUMENT NE IMQ MASSIWA"
#define ERR_OD          "nET DANNYH"
#define ERR_OVERFLOW    "pEREPOLNENIE"
#define ERR_NF          "NEXT BEZ FOR"
#define ERR_UF          "nEOPREDELENNAQ FUNKCIQ"
#define ERR_DBZ         "dELENIE NA NOLX"
#define ERR_REDIM       "nELXZQ MENQTX RAZMERNOSTX PEREMENNOJ"
#define ERR_OBDIM       "OPTION BASE DOLVNA BYTX WYZWANA DO DIM"
#define ERR_UC          "nEWERNAQ KOMANDA"
#define ERR_NOPROGFILE	"Program file not specified"
#endif

/* STD_GERMAN */

#if STD_GERMAN
#define MES_SIGNON      "Bywater BASIC Interpreter/Shell, version"
#define MES_COPYRIGHT   "Copyright (c) 1993, Ted A. Campbell"
#define MES_LANGUAGE    "Ausgegeben auf Deutsch von Joerg Rieger"
#define PROMPT          "bwBASIC: "
#define ERROR_HEADER    "Irrtum in Zeile"
#define ERRD_HEADER     "IRRTUM"
#define MATHERR_HEADER  "IRRTUM"
#define MES_BREAK       "Programm unterbrochen in Zeile"
#define ERR_OPENFILE    "Datei %s kann nict geoeffnet werden"
#define ERR_GETMEM      "Speicher kann nicht gefunden werden"
#define ERR_LINENO      "Zeilennummer kann nicht verbunden werden"
#define ERR_LNNOTFOUND  "Zeilennummer %d nicht gefunden"
#define ERR_LOADNOFN    "LOAD: Keine Dateiname angegeben"
#define ERR_NOLN        "Keine Zeilennummer"
#define ERR_NOFN        "Keine Dateiname"
#define ERR_RETNOGOSUB  "RETURN ohne GOSUB"
#define ERR_INCOMPLETE  "Angabe nicht vollstaendig"
#define ERR_ONNOGOTO    "ON ohne GOTO oder GOSUB"
#define ERR_VALOORANGE  "Wert is ausserhalb des Grenzbereits"
#define ERR_SYNTAX      "Syntax-fehler"
#define ERR_DEVNUM      "Ungueltige Geraetnummer"
#define ERR_DEV         "Geraet irrtum"
#define ERR_OPSYS       "Irrtum in Anwenden des System-Befehls"
#define ERR_ARGSTR      "Das Argument muss geradlinig sein"
#define ERR_DEFCHAR     "Falsches Argument fuer eine Variable Definition"
#define ERR_MISMATCH    "Type verwechselt"
#define ERR_DIMNOTARRAY "Das Argument ist kein Feldname"