bool ShaderLoader::load()
{
std::string line;
// check '#version' header
if (!getNextLine(line)) {
return false;
}
m_source << line << std::endl;
if (false == regex_match(line, regex("[ \t]*#version.*"))) {
LOG::put(LOG::error, LOG::opengl) << m_file[0] << ":0 :: Missing #version ...";
return false;
}
addDefines();
while (getNextLine(line)) {
if (regex_search(line, regex("^[ \t]*#[ \t]*include[ \t]+.*"))) {
smatch m;
bool res;
res = regex_search(line, m, regex("^[ \t]*#[ \t]*include[ \t]+([\"<])(.*)([\">])[ \t]*$"));
if (!res) {
LOG::put(LOG::error, LOG::opengl) << m_file.back() << ":" << m_line.top() - 1
<< " :: ill-formed include-statement";
return false;
} else {
path incFile(m_path.top());
incFile /= m[2].str();
addFile(incFile);
}
} else {
m_source << line << std::endl;
}
}
return true;
}
int printError(FILE *outFile, int errorCode, int lineNum)
{
if (errorCode == OK) // if no errors detected
return NORMAL;
// if there are only warnings and warnings are disabled
if (errorCode < MINOR && errorCode > WARNING && WARflag == false)
return NORMAL;
if (lineNumL68 >= 0)
sprintf(numBuf, "Line %d ", lineNumL68);
else
numBuf[0] = '\0';
// ---------- display warning messages ----------
switch (errorCode) {
case NUMBER_TOO_BIG:
sprintf(buffer, "WARNING: Numeric constant exceeds 32 bits\n");
break;
case ASCII_TOO_BIG:
sprintf(buffer, "WARNING: ASCII constant exceeds 4 characters\n");
break;
case INCOMPLETE:
sprintf(buffer, "WARNING: Evaluation of expression could not be completed\n");
break;
case FORCING_SHORT:
sprintf(buffer, "WARNING: Forcing SHORT addressing disables range checking of extension word\n");
break;
case ODD_ADDRESS:
sprintf(buffer, "WARNING: Origin value is odd (Location counter set to next highest address)\n");
break;
case END_MISSING:
sprintf(buffer, "WARNING: END directive missing, starting address not set\n");
break;
case ADDRESS_MISSING:
sprintf(buffer, "WARNING: Address expected\n");
break;
case THEN_EXPECTED:
sprintf(buffer, "WARNING: THEN expected\n");
break;
case DO_EXPECTED:
sprintf(buffer, "WARNING: DO expected\n");
break;
case FORWARD_REF:
sprintf(buffer, "WARNING: Forward reference may cause 'Symbol value differs...' error\n");
break;
case LABEL_TOO_LONG:
sprintf(buffer, "WARNING: Label too long\n");
break;
default :
if (errorCode < MINOR && errorCode > WARNING)
sprintf(buffer, "WARNING: No message defined\n");
}
// ---------- display error messages ----------
switch (errorCode) {
case SYNTAX:
sprintf(buffer, "ERROR: Invalid syntax\n");
break;
case UNDEFINED:
sprintf(buffer, "ERROR: Undefined symbol\n");
break;
case DIV_BY_ZERO:
sprintf(buffer, "ERROR: Division by zero attempted\n");
break;
case INV_OPCODE:
sprintf(buffer, "ERROR: Invalid opcode\n");
break;
case INV_SIZE_CODE:
sprintf(buffer, "ERROR: Invalid size code\n");
break;
case INV_ADDR_MODE:
sprintf(buffer, "ERROR: Invalid addressing mode\n");
break;
case MULTIPLE_DEFS:
sprintf(buffer, "ERROR: Symbol defined more than once\n");
break;
case NO_ENDM:
sprintf(buffer, "ERROR: ENDM expected\n");
break;
case TOO_MANY_ARGS:
sprintf(buffer, "ERROR: Too many arguments\n");
break;
case INVALID_ARG:
sprintf(buffer, "ERROR: Invalid argument\n");
break;
case PHASE_ERROR:
sprintf(buffer, "ERROR: Symbol value differs between first and second pass\n");
break;
case INV_QUICK_CONST:
sprintf(buffer, "ERROR: Quick immediate data range must be 1 to 8\n");
break;
case INV_MOVE_QUICK_CONST:
sprintf(buffer, "ERROR: Quick immediate data range exceeds 1 byte\n");
break;
case INV_VECTOR_NUM:
sprintf(buffer, "ERROR: Invalid vector number\n");
break;
case INV_BRANCH_DISP:
sprintf(buffer, "ERROR: Branch instruction displacement is out of range or invalid\n");
break;
case LABEL_REQUIRED:
sprintf(buffer, "ERROR: Label required with this directive\n");
break;
case INV_DISP:
sprintf(buffer, "ERROR: Displacement out of range\n");
break;
case INV_ABS_ADDRESS:
sprintf(buffer, "ERROR: Absolute address exceeds 16 bits\n");
break;
case INV_8_BIT_DATA:
sprintf(buffer, "ERROR: Immediate data exceeds 8 bits\n");
break;
case INV_16_BIT_DATA:
sprintf(buffer, "ERROR: Immediate data exceeds 16 bits\n");
break;
case NOT_REG_LIST:
sprintf(buffer, "ERROR: Symbol is not a register list symbol\n");
break;
case REG_LIST_SPEC:
sprintf(buffer, "ERROR: Register list symbol used in an expression\n");
break;
case REG_LIST_UNDEF:
sprintf(buffer, "ERROR: Register list symbol not previously defined\n");
break;
case INV_SHIFT_COUNT:
sprintf(buffer, "ERROR: Invalid constant shift count\n");
break;
case INV_OPERATOR:
sprintf(buffer, "ERROR: Invalid operator\n");
break;
case INV_FORWARD_REF:
sprintf(buffer, "ERROR: Forward references not allowed with this directive\n");
break;
case INV_LENGTH:
sprintf(buffer, "ERROR: Invalid block length\n");
break;
case COMMA_EXPECTED:
sprintf(buffer, "ERROR: Comma expected\n");
break;
case FAIL_ERROR: // user defined error
//the error message has already been written to buffer
break;
case EXCEPTION: // an exception occurred
//the error message has already been written to buffer
break;
case FILE_ERROR:
sprintf(buffer, "ERROR: Unable to access specified file\n");
break;
case MACRO_NEST: // possible recursive macro call
sprintf(buffer, "ERROR: Nested Macro calls are too many levels deep\n");
break;
case NO_IF:
sprintf(buffer, "ERROR: No matching IF statement was found\n");
break;
case NO_WHILE:
sprintf(buffer, "ERROR: No matching WHILE statement was found\n");
break;
case NO_REPEAT:
sprintf(buffer, "ERROR: No matching REPEAT statement was found\n");
break;
case NO_DBLOOP:
sprintf(buffer, "ERROR: No matching DBLOOP statement was found\n");
break;
case NO_FOR:
sprintf(buffer, "ERROR: No matching FOR statement was found\n");
break;
case ENDI_EXPECTED:
sprintf(buffer, "ERROR: IF without ENDI\n");
break;
case ENDW_EXPECTED:
sprintf(buffer, "ERROR: WHILE without ENDW\n");
break;
case ENDF_EXPECTED:
sprintf(buffer, "ERROR: FOR without ENDF\n");
break;
case REPEAT_EXPECTED:
sprintf(buffer, "ERROR: UNTIL without REPEAT\n");
break;
case DBLOOP_EXPECTED:
sprintf(buffer, "ERROR: UNLESS without DBLOOP\n");
break;
case LABEL_ERROR:
sprintf(buffer, "ERROR: Label is not allowed\n");
break;
case BAD_BITFIELD:
sprintf(buffer, "ERROR: Invalid bitfield\n");
break;
default :
if (errorCode > MINOR)
sprintf(buffer, "ERROR: No message defined\n");
} // end switch
if (outFile)
listError(numBuf, buffer); // add error to listing file
// display error messages in edit window
// if include file then display error in proper window
if (includeFile[0]) { // if not NULL
bool openIncFile = true; // open included file when true
AnsiString incFile(includeFile);
// check to see if file is already open
for(int i = Main->MDIChildCount-1; i >= 0; i--) {
TextStuff = (TTextStuff*)Main->MDIChildren[i];
//if(TextStuff->Project.CurrentFile == ExpandFileName(incFile)) { // if file already open
if(ExpandFileName(TextStuff->Project.CurrentFile).AnsiCompareIC(ExpandFileName(incFile)) == 0) {
if (TextStuff->Project.Modified) { // if it is modified
if (includedFileError == false) {
AnsiString asBuffer = "An Error occurred in the included file " +
ExtractFileName(incFile) +
".\nThe file is currently open and has been modified." +
"\nThe line numbers of errors may not be correct.";
ShowMessage(asBuffer);
includedFileError = true; // prevent multiple messages
}
}
openIncFile = false;
TextStuff->BringToFront();
break;
}
}
if (openIncFile)
Main->OpenFile(incFile);
}
//Grab the active Child Form
TTextStuff *Active = (TTextStuff*)Main->ActiveMDIChild; //grab active mdi child
Active->Messages->Enabled = true; //need to allow user to click errors
if (Active->Messages->Height < 87)
Active->Messages->Height = 87;
ListItem = Active->Messages->Items->Add();
if (lineNum >= 0)
sprintf(numBuf, "Line %d ", lineNum);
else
numBuf[0] = '\0';
ListItem->Caption = lineNum; // display line number of error
buffer[strlen(buffer)-1]='\0'; // trim off '\n'
ListItem->SubItems->Add(buffer); // add error message to edit window
ListItem->SubItems->Add(Active->Project.CurrentFile); // display file
return NORMAL;
}
