errors.c

redboy for gba 是BPNS为GBA编写的一个小软件。软件的邹形是BASIC高级语言解释执行器。几经修改和扩展

#include <CsAgb.h>
#include <rbasic.h>
#include <rb_stdio.h>

const char rb_errors[31][30]={
"OUT OF MEMORY",//1
"ARRAY REDEFINITION", //2
"INDEX OVERFLOW", //3
"ARRAY UNDEFINITION", //4
"OVERFLOW", //5
"SYNTAX ERROR", //6
"FOR WITHOUT NEXT",//7
"NEXT WITHOUT FOR",//8
"GOSUB WITHOUT RETURN",//9
"RETURN WITHOUT GOSUB",//10
"BAD VAR ID", //11
"PARAMETER OVERFLOW",//12
"MEMORY ADDRESS ERROR",//13
"DIVIDED BY ZERO", //14
"TOO MANY OR FEW PARAMETERS", //15
"ILLEGAL NEGATIVE PARAMETER", //16
"FILE OPEN ERROR",//17
"FILE SEEK ERROR",//18
"FILE CLOSE ERROR",//19
"FILE READ ERROR",//20
"FILE WRITE ERROR",//21
"DATA TYPE ERROR",//22
"FUNCTION REDIFINITION",//23
"FUNCTION UNDIFINITION",//24
"DATA OVERFLOW",//25
"DATA READ ERROR",//26
"STACK OVERFLOW", //27
"WHILE WITHOUT WEND",//28
"WEND WITHOUT WHILE",//29
"DEAMON REDIFINITION",//30
"LINE UNDIFINITION"//31
};
void rb_say_error()
{
   if (rb_error) endl();
   if (rb_error) Rprint(RGB(30,0,30),rb_errors[rb_error-1]);
   if (rb_xp) endl();
}