/* =========================================================================== Copyright (C) 1999-2005 Id Software, Inc. Copyright (C) 2000-2006 Tim Angus This file is part of Tremulous. Tremulous is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Tremulous is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Tremulous; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA =========================================================================== */ #include "q_shared.h" #include "qcommon.h" //script flags #define SCFL_NOERRORS 0x0001 #define SCFL_NOWARNINGS 0x0002 #define SCFL_NOSTRINGWHITESPACES 0x0004 #define SCFL_NOSTRINGESCAPECHARS 0x0008 #define SCFL_PRIMITIVE 0x0010 #define SCFL_NOBINARYNUMBERS 0x0020 #define SCFL_NONUMBERVALUES 0x0040 //token types #define TT_STRING 1 // string #define TT_LITERAL 2 // literal #define TT_NUMBER 3 // number #define TT_NAME 4 // name #define TT_PUNCTUATION 5 // punctuation //string sub type //--------------- // the length of the string //literal sub type //---------------- // the ASCII code of the literal //number sub type //--------------- #define TT_DECIMAL 0x0008 // decimal number #define TT_HEX 0x0100 // hexadecimal number #define TT_OCTAL 0x0200 // octal number #define TT_BINARY 0x0400 // binary number #define TT_FLOAT 0x0800 // floating point number #define TT_INTEGER 0x1000 // integer number #define TT_LONG 0x2000 // long number #define TT_UNSIGNED 0x4000 // unsigned number //punctuation sub type //-------------------- #define P_RSHIFT_ASSIGN 1 #define P_LSHIFT_ASSIGN 2 #define P_PARMS 3 #define P_PRECOMPMERGE 4 #define P_LOGIC_AND 5 #define P_LOGIC_OR 6 #define P_LOGIC_GEQ 7 #define P_LOGIC_LEQ 8 #define P_LOGIC_EQ 9 #define P_LOGIC_UNEQ 10 #define P_MUL_ASSIGN 11 #define P_DIV_ASSIGN 12 #define P_MOD_ASSIGN 13 #define P_ADD_ASSIGN 14 #define P_SUB_ASSIGN 15 #define P_INC 16 #define P_DEC 17 #define P_BIN_AND_ASSIGN 18 #define P_BIN_OR_ASSIGN 19 #define P_BIN_XOR_ASSIGN 20 #define P_RSHIFT 21 #define P_LSHIFT 22 #define P_POINTERREF 23 #define P_CPP1 24 #define P_CPP2 25 #define P_MUL 26 #define P_DIV 27 #define P_MOD 28 #define P_ADD 29 #define P_SUB 30 #define P_ASSIGN 31 #define P_BIN_AND 32 #define P_BIN_OR 33 #define P_BIN_XOR 34 #define P_BIN_NOT 35 #define P_LOGIC_NOT 36 #define P_LOGIC_GREATER 37 #define P_LOGIC_LESS 38 #define P_REF 39 #define P_COMMA 40 #define P_SEMICOLON 41 #define P_COLON 42 #define P_QUESTIONMARK 43 #define P_PARENTHESESOPEN 44 #define P_PARENTHESESCLOSE 45 #define P_BRACEOPEN 46 #define P_BRACECLOSE 47 #define P_SQBRACKETOPEN 48 #define P_SQBRACKETCLOSE 49 #define P_BACKSLASH 50 #define P_PRECOMP 51 #define P_DOLLAR 52 //name sub type //------------- // the length of the name //punctuation typedef struct punctuation_s { char *p; //punctuation character(s) int n; //punctuation indication struct punctuation_s *next; //next punctuation } punctuation_t; //token typedef struct token_s { char string[MAX_TOKEN_CHARS]; //available token int type; //last read token type int subtype; //last read token sub type unsigned long int intvalue; //integer value double floatvalue; //floating point value char *whitespace_p; //start of white space before token char *endwhitespace_p; //start of white space before token int line; //line the token was on int linescrossed; //lines crossed in white space struct token_s *next; //next token in chain } token_t; //script file typedef struct script_s { char filename[1024]; //file name of the script char *buffer; //buffer containing the script char *script_p; //current pointer in the script char *end_p; //pointer to the end of the script char *lastscript_p; //script pointer before reading token char *whitespace_p; //begin of the white space char *endwhitespace_p; int length; //length of the script in bytes int line; //current line in script int lastline; //line before reading token int tokenavailable; //set by UnreadLastToken int flags; //several script flags punctuation_t *punctuations; //the punctuations used in the script punctuation_t **punctuationtable; token_t token; //available token struct script_s *next; //next script in a chain } script_t; #define DEFINE_FIXED 0x0001 #define BUILTIN_LINE 1 #define BUILTIN_FILE 2 #define BUILTIN_DATE 3 #define BUILTIN_TIME 4 #define BUILTIN_STDC 5 #define INDENT_IF 0x0001 #define INDENT_ELSE 0x0002 #define INDENT_ELIF 0x0004 #define INDENT_IFDEF 0x0008 #define INDENT_IFNDEF 0x0010 //macro definitions typedef struct define_s { char *name; //define name int flags; //define flags int builtin; // > 0 if builtin define int numparms; //number of define parameters token_t *parms; //define parameters token_t *tokens; //macro tokens (possibly containing parm tokens) struct define_s *next; //next defined macro in a list struct define_s *hashnext; //next define in the hash chain } define_t; //indents //used for conditional compilation directives: //#if, #else, #elif, #ifdef, #ifndef typedef struct indent_s { int type; //indent type int skip; //true if skipping current indent script_t *script; //script the indent was in struct indent_s *next; //next indent on the indent stack } indent_t; //source file typedef struct source_s { char filename[MAX_QPATH]; //file name of the script char includepath[MAX_QPATH]; //path to include files punctuation_t *punctuations; //punctuations to use script_t *scriptstack; //stack with scripts of the source token_t *tokens; //tokens to read first define_t *defines; //list with macro definitions define_t **definehash; //hash chain with defines indent_t *indentstack; //stack with indents int skip; // > 0 if skipping conditional code token_t token; //last read token } source_t; #define MAX_DEFINEPARMS 128 //directive name with parse function typedef struct directive_s { char *name; int (*func)(source_t *source); } directive_t; #define DEFINEHASHSIZE 1024 static int Parse_ReadToken(source_t *source, token_t *token); int numtokens; //list with global defines added to every source loaded define_t *globaldefines; //longer punctuations first punctuation_t default_punctuations[] = { //binary operators {">>=",P_RSHIFT_ASSIGN, NULL}, {"<<=",P_LSHIFT_ASSIGN, NULL}, // {"...",P_PARMS, NULL}, //define merge operator {"##",P_PRECOMPMERGE, NULL}, //logic operators {"&&",P_LOGIC_AND, NULL}, {"||",P_LOGIC_OR, NULL}, {">=",P_LOGIC_GEQ, NULL}, {"<=",P_LOGIC_LEQ, NULL}, {"==",P_LOGIC_EQ, NULL}, {"!=",P_LOGIC_UNEQ, NULL}, //arithmatic operators {"*=",P_MUL_ASSIGN, NULL}, {"/=",P_DIV_ASSIGN, NULL}, {"%=",P_MOD_ASSIGN, NULL}, {"+=",P_ADD_ASSIGN, NULL}, {"-=",P_SUB_ASSIGN, NULL}, {"++",P_INC, NULL}, {"--",P_DEC, NULL}, //binary operators {"&=",P_BIN_AND_ASSIGN, NULL}, {"|=",P_BIN_OR_ASSIGN, NULL}, {"^=",P_BIN_XOR_ASSIGN, NULL}, {">>",P_RSHIFT, NULL}, {"<<",P_LSHIFT, NULL}, //reference operators {"->",P_POINTERREF, NULL}, //C++ {"::",P_CPP1, NULL}, {".*",P_CPP2, NULL}, //arithmatic operators {"*",P_MUL, NULL}, {"/",P_DIV, NULL}, {"%",P_MOD, NULL}, {"+",P_ADD, NULL}, {"-",P_SUB, NULL}, {"=",P_ASSIGN, NULL}, //binary operators {"&",P_BIN_AND, NULL}, {"|",P_BIN_OR, NULL}, {"^",P_BIN_XOR, NULL}, {"~",P_BIN_NOT, NULL}, //logic operators {"!",P_LOGIC_NOT, NULL}, {">",P_LOGIC_GREATER, NULL}, {"<",P_LOGIC_LESS, NULL}, //reference operator {".",P_REF, NULL}, //seperators {",",P_COMMA, NULL}, {";",P_SEMICOLON, NULL}, //label indication {":",P_COLON, NULL}, //if statement {"?",P_QUESTIONMARK, NULL}, //embracements {"(",P_PARENTHESESOPEN, NULL}, {")",P_PARENTHESESCLOSE, NULL}, {"{",P_BRACEOPEN, NULL}, {"}",P_BRACECLOSE, NULL}, {"[",P_SQBRACKETOPEN, NULL}, {"]",P_SQBRACKETCLOSE, NULL}, // {"\\",P_BACKSLASH, NULL}, //precompiler operator {"#",P_PRECOMP, NULL}, {"$",P_DOLLAR, NULL}, {NULL, 0} }; char basefolder[MAX_QPATH]; /* =============== Parse_CreatePunctuationTable =============== */ static void Parse_CreatePunctuationTable(script_t *script, punctuation_t *punctuations) { int i; punctuation_t *p, *lastp, *newp; //get memory for the table if (!script->punctuationtable) script->punctuationtable = (punctuation_t **) Z_Malloc(256 * sizeof(punctuation_t *)); Com_Memset(script->punctuationtable, 0, 256 * sizeof(punctuation_t *)); //add the punctuations in the list to the punctuation table for (i = 0; punctuations[i].p; i++) { newp = &punctuations[i]; lastp = NULL; //sort the punctuations in this table entry on length (longer punctuations first) for (p = script->punctuationtable[(unsigned int) newp->p[0]]; p; p = p->next) { if (strlen(p->p) < strlen(newp->p)) { newp->next = p; if (lastp) lastp->next = newp; else script->punctuationtable[(unsigned int) newp->p[0]] = newp; break; } lastp = p; } if (!p) { newp->next = NULL; if (lastp) lastp->next = newp; else script->punctuationtable[(unsigned int) newp->p[0]] = newp; } } } /* =============== Parse_ScriptError =============== */ static void QDECL Parse_ScriptError(script_t *script, char *str, ...) { char text[1024]; va_list ap; if (script->flags & SCFL_NOERRORS) return; va_start(ap, str); vsprintf(text, str, ap); va_end(ap); Com_Printf( "file %s, line %d: %s\n", script->filename, script->line, text); } /* =============== Parse_ScriptWarning =============== */ static void QDECL Parse_ScriptWarning(script_t *script, char *str, ...) { char text[1024]; va_list ap; if (script->flags & SCFL_NOWARNINGS) return; va_start(ap, str); vsprintf(text, str, ap); va_end(ap); Com_Printf( "file %s, line %d: %s\n", script->filename, script->line, text); } /* =============== Parse_SetScriptPunctuations =============== */ static void Parse_SetScriptPunctuations(script_t *script, punctuation_t *p) { if (p) Parse_CreatePunctuationTable(script, p); else Parse_CreatePunctuationTable(script, default_punctuations); if (p) script->punctuations = p; else script->punctuations = default_punctuations; } /* =============== Parse_ReadWhiteSpace =============== */ static int Parse_ReadWhiteSpace(script_t *script) { while(1) { //skip white space while(*script->script_p <= ' ') { if (!*script->script_p) return 0; if (*script->script_p == '\n') script->line++; script->script_p++; } //skip comments if (*script->script_p == '/') { //comments // if (*(script->script_p+1) == '/') { script->script_p++; do { script->script_p++; if (!*script->script_p) return 0; } while(*script->script_p != '\n'); script->line++; script->script_p++; if (!*script->script_p) return 0; continue; } //comments /* */ else if (*(script->script_p+1) == '*') { script->script_p++; do { script->script_p++; if (!*script->script_p) return 0; if (*script->script_p == '\n') script->line++; } while(!(*script->script_p == '*' && *(script->script_p+1) == '/')); script->script_p++; if (!*script->script_p) return 0; script->script_p++; if (!*script->script_p) return 0; continue; } } break; } return 1; } /* =============== Parse_ReadEscapeCharacter =============== */ static int Parse_ReadEscapeCharacter(script_t *script, char *ch) { int c, val, i; //step over the leading '\\' script->script_p++; //determine the escape character switch(*script->script_p) { case '\\': c = '\\'; break; case 'n': c = '\n'; break; case 'r': c = '\r'; break; case 't': c = '\t'; break; case 'v': c = '\v'; break; case 'b': c = '\b'; break; case 'f': c = '\f'; break; case 'a': c = '\a'; break; case '\'': c = '\''; break; case '\"': c = '\"'; break; case '\?': c = '\?'; break; case 'x': { script->script_p++; for (i = 0, val = 0; ; i++, script->script_p++) { c = *script->script_p; if (c >= '0' && c <= '9') c = c - '0'; else if (c >= 'A' && c <= 'Z') c = c - 'A' + 10; else if (c >= 'a' && c <= 'z') c = c - 'a' + 10; else break; val = (val << 4) + c; } script->script_p--; if (val > 0xFF) { Parse_ScriptWarning(script, "too large value in escape character"); val = 0xFF; } c = val; break; } default: //NOTE: decimal ASCII code, NOT octal { if (*script->script_p < '0' || *script->script_p > '9') Parse_ScriptError(script, "unknown escape char"); for (i = 0, val = 0; ; i++, script->script_p++) { c = *script->script_p; if (c >= '0' && c <= '9') c = c - '0'; else break; val = val * 10 + c; } script->script_p--; if (val > 0xFF) { Parse_ScriptWarning(script, "too large value in escape character"); val = 0xFF; } c = val; break; } } //step over the escape character or the last digit of the number script->script_p++; //store the escape character *ch = c; //succesfully read escape character return 1; } /* =============== Parse_ReadString Reads C-like string. Escape characters are interpretted. Quotes are included with the string. Reads two strings with a white space between them as one string. =============== */ static int Parse_ReadString(script_t *script, token_t *token, int quote) { int len, tmpline; char *tmpscript_p; if (quote == '\"') token->type = TT_STRING; else token->type = TT_LITERAL; len = 0; //leading quote token->string[len++] = *script->script_p++; // while(1) { //minus 2 because trailing double quote and zero have to be appended if (len >= MAX_TOKEN_CHARS - 2) { Parse_ScriptError(script, "string longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } //if there is an escape character and //if escape characters inside a string are allowed if (*script->script_p == '\\' && !(script->flags & SCFL_NOSTRINGESCAPECHARS)) { if (!Parse_ReadEscapeCharacter(script, &token->string[len])) { token->string[len] = 0; return 0; } len++; } //if a trailing quote else if (*script->script_p == quote) { //step over the double quote script->script_p++; //if white spaces in a string are not allowed if (script->flags & SCFL_NOSTRINGWHITESPACES) break; // tmpscript_p = script->script_p; tmpline = script->line; //read unusefull stuff between possible two following strings if (!Parse_ReadWhiteSpace(script)) { script->script_p = tmpscript_p; script->line = tmpline; break; } //if there's no leading double qoute if (*script->script_p != quote) { script->script_p = tmpscript_p; script->line = tmpline; break; } //step over the new leading double quote script->script_p++; } else { if (*script->script_p == '\0') { token->string[len] = 0; Parse_ScriptError(script, "missing trailing quote"); return 0; } if (*script->script_p == '\n') { token->string[len] = 0; Parse_ScriptError(script, "newline inside string %s", token->string); return 0; } token->string[len++] = *script->script_p++; } } //trailing quote token->string[len++] = quote; //end string with a zero token->string[len] = '\0'; //the sub type is the length of the string token->subtype = len; return 1; } /* =============== Parse_ReadName =============== */ static int Parse_ReadName(script_t *script, token_t *token) { int len = 0; char c; token->type = TT_NAME; do { token->string[len++] = *script->script_p++; if (len >= MAX_TOKEN_CHARS) { Parse_ScriptError(script, "name longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } c = *script->script_p; } while ((c >= 'a' && c <= 'z') || (c >= 'A' && c <= 'Z') || (c >= '0' && c <= '9') || c == '_'); token->string[len] = '\0'; //the sub type is the length of the name token->subtype = len; return 1; } /* =============== Parse_NumberValue =============== */ static void Parse_NumberValue(char *string, int subtype, unsigned long int *intvalue, double *floatvalue) { unsigned long int dotfound = 0; *intvalue = 0; *floatvalue = 0; //floating point number if (subtype & TT_FLOAT) { while(*string) { if (*string == '.') { if (dotfound) return; dotfound = 10; string++; } if (dotfound) { *floatvalue = *floatvalue + (double) (*string - '0') / (double) dotfound; dotfound *= 10; } else { *floatvalue = *floatvalue * 10.0 + (double) (*string - '0'); } string++; } *intvalue = (unsigned long) *floatvalue; } else if (subtype & TT_DECIMAL) { while(*string) *intvalue = *intvalue * 10 + (*string++ - '0'); *floatvalue = *intvalue; } else if (subtype & TT_HEX) { //step over the leading 0x or 0X string += 2; while(*string) { *intvalue <<= 4; if (*string >= 'a' && *string <= 'f') *intvalue += *string - 'a' + 10; else if (*string >= 'A' && *string <= 'F') *intvalue += *string - 'A' + 10; else *intvalue += *string - '0'; string++; } *floatvalue = *intvalue; } else if (subtype & TT_OCTAL) { //step over the first zero string += 1; while(*string) *intvalue = (*intvalue << 3) + (*string++ - '0'); *floatvalue = *intvalue; } else if (subtype & TT_BINARY) { //step over the leading 0b or 0B string += 2; while(*string) *intvalue = (*intvalue << 1) + (*string++ - '0'); *floatvalue = *intvalue; } } /* =============== Parse_ReadNumber =============== */ static int Parse_ReadNumber(script_t *script, token_t *token) { int len = 0, i; int octal, dot; char c; // unsigned long int intvalue = 0; // double floatvalue = 0; token->type = TT_NUMBER; //check for a hexadecimal number if (*script->script_p == '0' && (*(script->script_p + 1) == 'x' || *(script->script_p + 1) == 'X')) { token->string[len++] = *script->script_p++; token->string[len++] = *script->script_p++; c = *script->script_p; //hexadecimal while((c >= '0' && c <= '9') || (c >= 'a' && c <= 'f') || (c >= 'A' && c <= 'A')) { token->string[len++] = *script->script_p++; if (len >= MAX_TOKEN_CHARS) { Parse_ScriptError(script, "hexadecimal number longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } c = *script->script_p; } token->subtype |= TT_HEX; } #ifdef BINARYNUMBERS //check for a binary number else if (*script->script_p == '0' && (*(script->script_p + 1) == 'b' || *(script->script_p + 1) == 'B')) { token->string[len++] = *script->script_p++; token->string[len++] = *script->script_p++; c = *script->script_p; //binary while(c == '0' || c == '1') { token->string[len++] = *script->script_p++; if (len >= MAX_TOKEN_CHARS) { Parse_ScriptError(script, "binary number longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } c = *script->script_p; } token->subtype |= TT_BINARY; } #endif //BINARYNUMBERS else //decimal or octal integer or floating point number { octal = qfalse; dot = qfalse; if (*script->script_p == '0') octal = qtrue; while(1) { c = *script->script_p; if (c == '.') dot = qtrue; else if (c == '8' || c == '9') octal = qfalse; else if (c < '0' || c > '9') break; token->string[len++] = *script->script_p++; if (len >= MAX_TOKEN_CHARS - 1) { Parse_ScriptError(script, "number longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } } if (octal) token->subtype |= TT_OCTAL; else token->subtype |= TT_DECIMAL; if (dot) token->subtype |= TT_FLOAT; } for (i = 0; i < 2; i++) { c = *script->script_p; //check for a LONG number if ( (c == 'l' || c == 'L') && !(token->subtype & TT_LONG)) { script->script_p++; token->subtype |= TT_LONG; } //check for an UNSIGNED number else if ( (c == 'u' || c == 'U') && !(token->subtype & (TT_UNSIGNED | TT_FLOAT))) { script->script_p++; token->subtype |= TT_UNSIGNED; } } token->string[len] = '\0'; Parse_NumberValue(token->string, token->subtype, &token->intvalue, &token->floatvalue); if (!(token->subtype & TT_FLOAT)) token->subtype |= TT_INTEGER; return 1; } /* =============== Parse_ReadPunctuation =============== */ static int Parse_ReadPunctuation(script_t *script, token_t *token) { int len; char *p; punctuation_t *punc; for (punc = script->punctuationtable[(unsigned int)*script->script_p]; punc; punc = punc->next) { p = punc->p; len = strlen(p); //if the script contains at least as much characters as the punctuation if (script->script_p + len <= script->end_p) { //if the script contains the punctuation if (!strncmp(script->script_p, p, len)) { strncpy(token->string, p, MAX_TOKEN_CHARS); script->script_p += len; token->type = TT_PUNCTUATION; //sub type is the number of the punctuation token->subtype = punc->n; return 1; } } } return 0; } /* =============== Parse_ReadPrimitive =============== */ static int Parse_ReadPrimitive(script_t *script, token_t *token) { int len; len = 0; while(*script->script_p > ' ' && *script->script_p != ';') { if (len >= MAX_TOKEN_CHARS) { Parse_ScriptError(script, "primitive token longer than MAX_TOKEN_CHARS = %d", MAX_TOKEN_CHARS); return 0; } token->string[len++] = *script->script_p++; } token->string[len] = 0; //copy the token into the script structure Com_Memcpy(&script->token, token, sizeof(token_t)); //primitive reading successfull return 1; } /* =============== Parse_ReadScriptToken =============== */ static int Parse_ReadScriptToken(script_t *script, token_t *token) { //if there is a token available (from UnreadToken) if (script->tokenavailable) { script->tokenavailable = 0; Com_Memcpy(token, &script->token, sizeof(token_t)); return 1; } //save script pointer script->lastscript_p = script->script_p; //save line counter script->lastline = script->line; //clear the token stuff Com_Memset(token, 0, sizeof(token_t)); //start of the white space script->whitespace_p = script->script_p; token->whitespace_p = script->script_p; //read unusefull stuff if (!Parse_ReadWhiteSpace(script)) return 0; script->endwhitespace_p = script->script_p; token->endwhitespace_p = script->script_p; //line the token is on token->line = script->line; //number of lines crossed before token token->linescrossed = script->line - script->lastline; //if there is a leading double quote if (*script->script_p == '\"') { if (!Parse_ReadString(script, token, '\"')) return 0; } //if an literal else if (*script->script_p == '\'') { //if (!Parse_ReadLiteral(script, token)) return 0; if (!Parse_ReadString(script, token, '\'')) return 0; } //if there is a number else if ((*script->script_p >= '0' && *script->script_p <= '9') || (*script->script_p == '.' && (*(script->script_p + 1) >= '0' && *(script->script_p + 1) <= '9'))) { if (!Parse_ReadNumber(script, token)) return 0; } //if this is a primitive script else if (script->flags & SCFL_PRIMITIVE) { return Parse_ReadPrimitive(script, token); } //if there is a name else if ((*script->script_p >= 'a' && *script->script_p <= 'z') || (*script->script_p >= 'A' && *script->script_p <= 'Z') || *script->script_p == '_') { if (!Parse_ReadName(script, token)) return 0; } //check for punctuations else if (!Parse_ReadPunctuation(script, token)) { Parse_ScriptError(script, "can't read token"); return 0; } //copy the token into the script structure Com_Memcpy(&script->token, token, sizeof(token_t)); //succesfully read a token return 1; } /* =============== Parse_StripDoubleQuotes =============== */ static void Parse_StripDoubleQuotes(char *string) { if (*string == '\"') { strcpy(string, string+1); } if (string[strlen(string)-1] == '\"') { string[strlen(string)-1] = '\0'; } } /* =============== Parse_EndOfScript =============== */ static int Parse_EndOfScript(script_t *script) { return script->script_p >= script->end_p; } /* =============== Parse_LoadScriptFile =============== */ static script_t *Parse_LoadScriptFile(const char *filename) { fileHandle_t fp; char pathname[MAX_QPATH]; int length; void *buffer; script_t *script; if (strlen(basefolder)) Com_sprintf(pathname, sizeof(pathname), "%s/%s", basefolder, filename); else Com_sprintf(pathname, sizeof(pathname), "%s", filename); length = FS_FOpenFileRead( pathname, &fp, qfalse ); if (!fp) return NULL; buffer = Z_Malloc(sizeof(script_t) + length + 1); Com_Memset( buffer, 0, sizeof(script_t) + length + 1 ); script = (script_t *) buffer; Com_Memset(script, 0, sizeof(script_t)); strcpy(script->filename, filename); script->buffer = (char *) buffer + sizeof(script_t); script->buffer[length] = 0; script->length = length; //pointer in script buffer script->script_p = script->buffer; //pointer in script buffer before reading token script->lastscript_p = script->buffer; //pointer to end of script buffer script->end_p = &script->buffer[length]; //set if there's a token available in script->token script->tokenavailable = 0; // script->line = 1; script->lastline = 1; // Parse_SetScriptPunctuations(script, NULL); // FS_Read(script->buffer, length, fp); FS_FCloseFile(fp); // script->length = COM_Compress(script->buffer); return script; } /* =============== Parse_LoadScriptMemory =============== */ static script_t *Parse_LoadScriptMemory(char *ptr, int length, char *name) { void *buffer; script_t *script; buffer = Z_Malloc(sizeof(script_t) + length + 1); Com_Memset( buffer, 0, sizeof(script_t) + length + 1 ); script = (script_t *) buffer; Com_Memset(script, 0, sizeof(script_t)); strcpy(script->filename, name); script->buffer = (char *) buffer + sizeof(script_t); script->buffer[length] = 0; script->length = length; //pointer in script buffer script->script_p = script->buffer; //pointer in script buffer before reading token script->lastscript_p = script->buffer; //pointer to end of script buffer script->end_p = &script->buffer[length]; //set if there's a token available in script->token script->tokenavailable = 0; // script->line = 1; script->lastline = 1; // Parse_SetScriptPunctuations(script, NULL); // Com_Memcpy(script->buffer, ptr, length); // return script; } /* =============== Parse_FreeScript =============== */ static void Parse_FreeScript(script_t *script) { if (script->punctuationtable) Z_Free(script->punctuationtable); Z_Free(script); } /* =============== Parse_SetBaseFolder =============== */ static void Parse_SetBaseFolder(char *path) { Com_sprintf(basefolder, sizeof(basefolder), path); } /* =============== Parse_SourceError =============== */ static void QDECL Parse_SourceError(source_t *source, char *str, ...) { char text[1024]; va_list ap; va_start(ap, str); vsprintf(text, str, ap); va_end(ap); Com_Printf( "file %s, line %d: %s\n", source->scriptstack->filename, source->scriptstack->line, text); } /* =============== Parse_SourceWarning =============== */ static void QDECL Parse_SourceWarning(source_t *source, char *str, ...) { char text[1024]; va_list ap; va_start(ap, str); vsprintf(text, str, ap); va_end(ap); Com_Printf( "file %s, line %d: %s\n", source->scriptstack->filename, source->scriptstack->line, text); } /* =============== Parse_PushIndent =============== */ static void Parse_PushIndent(source_t *source, int type, int skip) { indent_t *indent; indent = (indent_t *) Z_Malloc(sizeof(indent_t)); indent->type = type; indent->script = source->scriptstack; indent->skip = (skip != 0); source->skip += indent->skip; indent->next = source->indentstack; source->indentstack = indent; } /* =============== Parse_PopIndent =============== */ static void Parse_PopIndent(source_t *source, int *type, int *skip) { indent_t *indent; *type = 0; *skip = 0; indent = source->indentstack; if (!indent) return; //must be an indent from the current script if (source->indentstack->script != source->scriptstack) return; *type = indent->type; *skip = indent->skip; source->indentstack = source->indentstack->next; source->skip -= indent->skip; Z_Free(indent); } /* =============== Parse_PushScript =============== */ static void Parse_PushScript(source_t *source, script_t *script) { script_t *s; for (s = source->scriptstack; s; s = s->next) { if (!Q_stricmp(s->filename, script->filename)) { Parse_SourceError(source, "%s recursively included", script->filename); return; } } //push the script on the script stack script->next = source->scriptstack; source->scriptstack = script; } /* =============== Parse_CopyToken =============== */ static token_t *Parse_CopyToken(token_t *token) { token_t *t; // t = (token_t *) malloc(sizeof(token_t)); t = (token_t *) Z_Malloc(sizeof(token_t)); // t = freetokens; if (!t) { Com_Error(ERR_FATAL, "out of token space\n"); return NULL; } // freetokens = freetokens->next; Com_Memcpy(t, token, sizeof(token_t)); t->next = NULL; numtokens++; return t; } /* =============== Parse_FreeToken =============== */ static void Parse_FreeToken(token_t *token) { //free(token); Z_Free(token); // token->next = freetokens; // freetokens = token; numtokens--; } /* =============== Parse_ReadSourceToken =============== */ static int Parse_ReadSourceToken(source_t *source, token_t *token) { token_t *t; script_t *script; int type, skip; //if there's no token already available while(!source->tokens) { //if there's a token to read from the script if (Parse_ReadScriptToken(source->scriptstack, token)) return qtrue; //if at the end of the script if (Parse_EndOfScript(source->scriptstack)) { //remove all indents of the script while(source->indentstack && source->indentstack->script == source->scriptstack) { Parse_SourceWarning(source, "missing #endif"); Parse_PopIndent(source, &type, &skip); } } //if this was the initial script if (!source->scriptstack->next) return qfalse; //remove the script and return to the last one script = source->scriptstack; source->scriptstack = source->scriptstack->next; Parse_FreeScript(script); } //copy the already available token Com_Memcpy(token, source->tokens, sizeof(token_t)); //free the read token t = source->tokens; source->tokens = source->tokens->next; Parse_FreeToken(t); return qtrue; } /* =============== Parse_UnreadSourceToken =============== */ static int Parse_UnreadSourceToken(source_t *source, token_t *token) { token_t *t; t = Parse_CopyToken(token); t->next = source->tokens; source->tokens = t; return qtrue; } /* =============== Parse_ReadDefineParms =============== */ static int Parse_ReadDefineParms(source_t *source, define_t *define, token_t **parms, int maxparms) { token_t token, *t, *last; int i, done, lastcomma, numparms, indent; if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "define %s missing parms", define->name); return qfalse; } // if (define->numparms > maxparms) { Parse_SourceError(source, "define with more than %d parameters", maxparms); return qfalse; } // for (i = 0; i < define->numparms; i++) parms[i] = NULL; //if no leading "(" if (strcmp(token.string, "(")) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "define %s missing parms", define->name); return qfalse; } //read the define parameters for (done = 0, numparms = 0, indent = 0; !done;) { if (numparms >= maxparms) { Parse_SourceError(source, "define %s with too many parms", define->name); return qfalse; } if (numparms >= define->numparms) { Parse_SourceWarning(source, "define %s has too many parms", define->name); return qfalse; } parms[numparms] = NULL; lastcomma = 1; last = NULL; while(!done) { // if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "define %s incomplete", define->name); return qfalse; } // if (!strcmp(token.string, ",")) { if (indent <= 0) { if (lastcomma) Parse_SourceWarning(source, "too many comma's"); lastcomma = 1; break; } } lastcomma = 0; // if (!strcmp(token.string, "(")) { indent++; continue; } else if (!strcmp(token.string, ")")) { if (--indent <= 0) { if (!parms[define->numparms-1]) { Parse_SourceWarning(source, "too few define parms"); } done = 1; break; } } // if (numparms < define->numparms) { // t = Parse_CopyToken(&token); t->next = NULL; if (last) last->next = t; else parms[numparms] = t; last = t; } } numparms++; } return qtrue; } /* =============== Parse_StringizeTokens =============== */ static int Parse_StringizeTokens(token_t *tokens, token_t *token) { token_t *t; token->type = TT_STRING; token->whitespace_p = NULL; token->endwhitespace_p = NULL; token->string[0] = '\0'; strcat(token->string, "\""); for (t = tokens; t; t = t->next) { strncat(token->string, t->string, MAX_TOKEN_CHARS - strlen(token->string)); } strncat(token->string, "\"", MAX_TOKEN_CHARS - strlen(token->string)); return qtrue; } /* =============== Parse_MergeTokens =============== */ static int Parse_MergeTokens(token_t *t1, token_t *t2) { //merging of a name with a name or number if (t1->type == TT_NAME && (t2->type == TT_NAME || t2->type == TT_NUMBER)) { strcat(t1->string, t2->string); return qtrue; } //merging of two strings if (t1->type == TT_STRING && t2->type == TT_STRING) { //remove trailing double quote t1->string[strlen(t1->string)-1] = '\0'; //concat without leading double quote strcat(t1->string, &t2->string[1]); return qtrue; } //FIXME: merging of two number of the same sub type return qfalse; } /* =============== Parse_NameHash =============== */ //char primes[16] = {1, 3, 5, 7, 11, 13, 17, 19, 23, 27, 29, 31, 37, 41, 43, 47}; static int Parse_NameHash(char *name) { int register hash, i; hash = 0; for (i = 0; name[i] != '\0'; i++) { hash += name[i] * (119 + i); //hash += (name[i] << 7) + i; //hash += (name[i] << (i&15)); } hash = (hash ^ (hash >> 10) ^ (hash >> 20)) & (DEFINEHASHSIZE-1); return hash; } /* =============== Parse_AddDefineToHash =============== */ static void Parse_AddDefineToHash(define_t *define, define_t **definehash) { int hash; hash = Parse_NameHash(define->name); define->hashnext = definehash[hash]; definehash[hash] = define; } /* =============== Parse_FindHashedDefine =============== */ static define_t *Parse_FindHashedDefine(define_t **definehash, char *name) { define_t *d; int hash; hash = Parse_NameHash(name); for (d = definehash[hash]; d; d = d->hashnext) { if (!strcmp(d->name, name)) return d; } return NULL; } /* =============== Parse_FindDefineParm =============== */ static int Parse_FindDefineParm(define_t *define, char *name) { token_t *p; int i; i = 0; for (p = define->parms; p; p = p->next) { if (!strcmp(p->string, name)) return i; i++; } return -1; } /* =============== Parse_FreeDefine =============== */ static void Parse_FreeDefine(define_t *define) { token_t *t, *next; //free the define parameters for (t = define->parms; t; t = next) { next = t->next; Parse_FreeToken(t); } //free the define tokens for (t = define->tokens; t; t = next) { next = t->next; Parse_FreeToken(t); } //free the define Z_Free(define); } /* =============== Parse_ExpandBuiltinDefine =============== */ static int Parse_ExpandBuiltinDefine(source_t *source, token_t *deftoken, define_t *define, token_t **firsttoken, token_t **lasttoken) { token_t *token; #ifdef _WIN32 unsigned long t; // time_t t; //to prevent LCC warning #else time_t t; #endif char *curtime; token = Parse_CopyToken(deftoken); switch(define->builtin) { case BUILTIN_LINE: { sprintf(token->string, "%d", deftoken->line); token->intvalue = deftoken->line; token->floatvalue = deftoken->line; token->type = TT_NUMBER; token->subtype = TT_DECIMAL | TT_INTEGER; *firsttoken = token; *lasttoken = token; break; } case BUILTIN_FILE: { strcpy(token->string, source->scriptstack->filename); token->type = TT_NAME; token->subtype = strlen(token->string); *firsttoken = token; *lasttoken = token; break; } case BUILTIN_DATE: { t = time(NULL); curtime = ctime(&t); strcpy(token->string, "\""); strncat(token->string, curtime+4, 7); strncat(token->string+7, curtime+20, 4); strcat(token->string, "\""); free(curtime); token->type = TT_NAME; token->subtype = strlen(token->string); *firsttoken = token; *lasttoken = token; break; } case BUILTIN_TIME: { t = time(NULL); curtime = ctime(&t); strcpy(token->string, "\""); strncat(token->string, curtime+11, 8); strcat(token->string, "\""); free(curtime); token->type = TT_NAME; token->subtype = strlen(token->string); *firsttoken = token; *lasttoken = token; break; } case BUILTIN_STDC: default: { *firsttoken = NULL; *lasttoken = NULL; break; } } return qtrue; } /* =============== Parse_ExpandDefine =============== */ static int Parse_ExpandDefine(source_t *source, token_t *deftoken, define_t *define, token_t **firsttoken, token_t **lasttoken) { token_t *parms[MAX_DEFINEPARMS], *dt, *pt, *t; token_t *t1, *t2, *first, *last, *nextpt, token; int parmnum, i; //if it is a builtin define if (define->builtin) { return Parse_ExpandBuiltinDefine(source, deftoken, define, firsttoken, lasttoken); } //if the define has parameters if (define->numparms) { if (!Parse_ReadDefineParms(source, define, parms, MAX_DEFINEPARMS)) return qfalse; } //empty list at first first = NULL; last = NULL; //create a list with tokens of the expanded define for (dt = define->tokens; dt; dt = dt->next) { parmnum = -1; //if the token is a name, it could be a define parameter if (dt->type == TT_NAME) { parmnum = Parse_FindDefineParm(define, dt->string); } //if it is a define parameter if (parmnum >= 0) { for (pt = parms[parmnum]; pt; pt = pt->next) { t = Parse_CopyToken(pt); //add the token to the list t->next = NULL; if (last) last->next = t; else first = t; last = t; } } else { //if stringizing operator if (dt->string[0] == '#' && dt->string[1] == '\0') { //the stringizing operator must be followed by a define parameter if (dt->next) parmnum = Parse_FindDefineParm(define, dt->next->string); else parmnum = -1; // if (parmnum >= 0) { //step over the stringizing operator dt = dt->next; //stringize the define parameter tokens if (!Parse_StringizeTokens(parms[parmnum], &token)) { Parse_SourceError(source, "can't stringize tokens"); return qfalse; } t = Parse_CopyToken(&token); } else { Parse_SourceWarning(source, "stringizing operator without define parameter"); continue; } } else { t = Parse_CopyToken(dt); } //add the token to the list t->next = NULL; if (last) last->next = t; else first = t; last = t; } } //check for the merging operator for (t = first; t; ) { if (t->next) { //if the merging operator if (t->next->string[0] == '#' && t->next->string[1] == '#') { t1 = t; t2 = t->next->next; if (t2) { if (!Parse_MergeTokens(t1, t2)) { Parse_SourceError(source, "can't merge %s with %s", t1->string, t2->string); return qfalse; } Parse_FreeToken(t1->next); t1->next = t2->next; if (t2 == last) last = t1; Parse_FreeToken(t2); continue; } } } t = t->next; } //store the first and last token of the list *firsttoken = first; *lasttoken = last; //free all the parameter tokens for (i = 0; i < define->numparms; i++) { for (pt = parms[i]; pt; pt = nextpt) { nextpt = pt->next; Parse_FreeToken(pt); } } // return qtrue; } /* =============== Parse_ExpandDefineIntoSource =============== */ static int Parse_ExpandDefineIntoSource(source_t *source, token_t *deftoken, define_t *define) { token_t *firsttoken, *lasttoken; if (!Parse_ExpandDefine(source, deftoken, define, &firsttoken, &lasttoken)) return qfalse; if (firsttoken && lasttoken) { lasttoken->next = source->tokens; source->tokens = firsttoken; return qtrue; } return qfalse; } /* =============== Parse_ConvertPath =============== */ static void Parse_ConvertPath(char *path) { char *ptr; //remove double path seperators for (ptr = path; *ptr;) { if ((*ptr == '\\' || *ptr == '/') && (*(ptr+1) == '\\' || *(ptr+1) == '/')) { strcpy(ptr, ptr+1); } else { ptr++; } } //set OS dependent path seperators for (ptr = path; *ptr;) { if (*ptr == '/' || *ptr == '\\') *ptr = PATH_SEP; ptr++; } } /* =============== Parse_ReadLine reads a token from the current line, continues reading on the next line only if a backslash '\' is encountered. =============== */ static int Parse_ReadLine(source_t *source, token_t *token) { int crossline; crossline = 0; do { if (!Parse_ReadSourceToken(source, token)) return qfalse; if (token->linescrossed > crossline) { Parse_UnreadSourceToken(source, token); return qfalse; } crossline = 1; } while(!strcmp(token->string, "\\")); return qtrue; } /* =============== Parse_OperatorPriority =============== */ typedef struct operator_s { int operator; int priority; int parentheses; struct operator_s *prev, *next; } operator_t; typedef struct value_s { signed long int intvalue; double floatvalue; int parentheses; struct value_s *prev, *next; } value_t; static int Parse_OperatorPriority(int op) { switch(op) { case P_MUL: return 15; case P_DIV: return 15; case P_MOD: return 15; case P_ADD: return 14; case P_SUB: return 14; case P_LOGIC_AND: return 7; case P_LOGIC_OR: return 6; case P_LOGIC_GEQ: return 12; case P_LOGIC_LEQ: return 12; case P_LOGIC_EQ: return 11; case P_LOGIC_UNEQ: return 11; case P_LOGIC_NOT: return 16; case P_LOGIC_GREATER: return 12; case P_LOGIC_LESS: return 12; case P_RSHIFT: return 13; case P_LSHIFT: return 13; case P_BIN_AND: return 10; case P_BIN_OR: return 8; case P_BIN_XOR: return 9; case P_BIN_NOT: return 16; case P_COLON: return 5; case P_QUESTIONMARK: return 5; } return qfalse; } #define MAX_VALUES 64 #define MAX_OPERATORS 64 #define AllocValue(val) \ if (numvalues >= MAX_VALUES) { \ Parse_SourceError(source, "out of value space\n"); \ error = 1; \ break; \ } \ else \ val = &value_heap[numvalues++]; #define FreeValue(val) // #define AllocOperator(op) \ if (numoperators >= MAX_OPERATORS) { \ Parse_SourceError(source, "out of operator space\n"); \ error = 1; \ break; \ } \ else \ op = &operator_heap[numoperators++]; #define FreeOperator(op) /* =============== Parse_EvaluateTokens =============== */ static int Parse_EvaluateTokens(source_t *source, token_t *tokens, signed long int *intvalue, double *floatvalue, int integer) { operator_t *o, *firstoperator, *lastoperator; value_t *v, *firstvalue, *lastvalue, *v1, *v2; token_t *t; int brace = 0; int parentheses = 0; int error = 0; int lastwasvalue = 0; int negativevalue = 0; int questmarkintvalue = 0; double questmarkfloatvalue = 0; int gotquestmarkvalue = qfalse; int lastoperatortype = 0; // operator_t operator_heap[MAX_OPERATORS]; int numoperators = 0; value_t value_heap[MAX_VALUES]; int numvalues = 0; firstoperator = lastoperator = NULL; firstvalue = lastvalue = NULL; if (intvalue) *intvalue = 0; if (floatvalue) *floatvalue = 0; for (t = tokens; t; t = t->next) { switch(t->type) { case TT_NAME: { if (lastwasvalue || negativevalue) { Parse_SourceError(source, "syntax error in #if/#elif"); error = 1; break; } if (strcmp(t->string, "defined")) { Parse_SourceError(source, "undefined name %s in #if/#elif", t->string); error = 1; break; } t = t->next; if (!strcmp(t->string, "(")) { brace = qtrue; t = t->next; } if (!t || t->type != TT_NAME) { Parse_SourceError(source, "defined without name in #if/#elif"); error = 1; break; } //v = (value_t *) Z_Malloc(sizeof(value_t)); AllocValue(v); if (Parse_FindHashedDefine(source->definehash, t->string)) { v->intvalue = 1; v->floatvalue = 1; } else { v->intvalue = 0; v->floatvalue = 0; } v->parentheses = parentheses; v->next = NULL; v->prev = lastvalue; if (lastvalue) lastvalue->next = v; else firstvalue = v; lastvalue = v; if (brace) { t = t->next; if (!t || strcmp(t->string, ")")) { Parse_SourceError(source, "defined without ) in #if/#elif"); error = 1; break; } } brace = qfalse; // defined() creates a value lastwasvalue = 1; break; } case TT_NUMBER: { if (lastwasvalue) { Parse_SourceError(source, "syntax error in #if/#elif"); error = 1; break; } //v = (value_t *) Z_Malloc(sizeof(value_t)); AllocValue(v); if (negativevalue) { v->intvalue = - (signed int) t->intvalue; v->floatvalue = - t->floatvalue; } else { v->intvalue = t->intvalue; v->floatvalue = t->floatvalue; } v->parentheses = parentheses; v->next = NULL; v->prev = lastvalue; if (lastvalue) lastvalue->next = v; else firstvalue = v; lastvalue = v; //last token was a value lastwasvalue = 1; // negativevalue = 0; break; } case TT_PUNCTUATION: { if (negativevalue) { Parse_SourceError(source, "misplaced minus sign in #if/#elif"); error = 1; break; } if (t->subtype == P_PARENTHESESOPEN) { parentheses++; break; } else if (t->subtype == P_PARENTHESESCLOSE) { parentheses--; if (parentheses < 0) { Parse_SourceError(source, "too many ) in #if/#elsif"); error = 1; } break; } //check for invalid operators on floating point values if (!integer) { if (t->subtype == P_BIN_NOT || t->subtype == P_MOD || t->subtype == P_RSHIFT || t->subtype == P_LSHIFT || t->subtype == P_BIN_AND || t->subtype == P_BIN_OR || t->subtype == P_BIN_XOR) { Parse_SourceError(source, "illigal operator %s on floating point operands\n", t->string); error = 1; break; } } switch(t->subtype) { case P_LOGIC_NOT: case P_BIN_NOT: { if (lastwasvalue) { Parse_SourceError(source, "! or ~ after value in #if/#elif"); error = 1; break; } break; } case P_INC: case P_DEC: { Parse_SourceError(source, "++ or -- used in #if/#elif"); break; } case P_SUB: { if (!lastwasvalue) { negativevalue = 1; break; } } case P_MUL: case P_DIV: case P_MOD: case P_ADD: case P_LOGIC_AND: case P_LOGIC_OR: case P_LOGIC_GEQ: case P_LOGIC_LEQ: case P_LOGIC_EQ: case P_LOGIC_UNEQ: case P_LOGIC_GREATER: case P_LOGIC_LESS: case P_RSHIFT: case P_LSHIFT: case P_BIN_AND: case P_BIN_OR: case P_BIN_XOR: case P_COLON: case P_QUESTIONMARK: { if (!lastwasvalue) { Parse_SourceError(source, "operator %s after operator in #if/#elif", t->string); error = 1; break; } break; } default: { Parse_SourceError(source, "invalid operator %s in #if/#elif", t->string); error = 1; break; } } if (!error && !negativevalue) { //o = (operator_t *) Z_Malloc(sizeof(operator_t)); AllocOperator(o); o->operator = t->subtype; o->priority = Parse_OperatorPriority(t->subtype); o->parentheses = parentheses; o->next = NULL; o->prev = lastoperator; if (lastoperator) lastoperator->next = o; else firstoperator = o; lastoperator = o; lastwasvalue = 0; } break; } default: { Parse_SourceError(source, "unknown %s in #if/#elif", t->string); error = 1; break; } } if (error) break; } if (!error) { if (!lastwasvalue) { Parse_SourceError(source, "trailing operator in #if/#elif"); error = 1; } else if (parentheses) { Parse_SourceError(source, "too many ( in #if/#elif"); error = 1; } } // gotquestmarkvalue = qfalse; questmarkintvalue = 0; questmarkfloatvalue = 0; //while there are operators while(!error && firstoperator) { v = firstvalue; for (o = firstoperator; o->next; o = o->next) { //if the current operator is nested deeper in parentheses //than the next operator if (o->parentheses > o->next->parentheses) break; //if the current and next operator are nested equally deep in parentheses if (o->parentheses == o->next->parentheses) { //if the priority of the current operator is equal or higher //than the priority of the next operator if (o->priority >= o->next->priority) break; } //if the arity of the operator isn't equal to 1 if (o->operator != P_LOGIC_NOT && o->operator != P_BIN_NOT) v = v->next; //if there's no value or no next value if (!v) { Parse_SourceError(source, "mising values in #if/#elif"); error = 1; break; } } if (error) break; v1 = v; v2 = v->next; switch(o->operator) { case P_LOGIC_NOT: v1->intvalue = !v1->intvalue; v1->floatvalue = !v1->floatvalue; break; case P_BIN_NOT: v1->intvalue = ~v1->intvalue; break; case P_MUL: v1->intvalue *= v2->intvalue; v1->floatvalue *= v2->floatvalue; break; case P_DIV: if (!v2->intvalue || !v2->floatvalue) { Parse_SourceError(source, "divide by zero in #if/#elif\n"); error = 1; break; } v1->intvalue /= v2->intvalue; v1->floatvalue /= v2->floatvalue; break; case P_MOD: if (!v2->intvalue) { Parse_SourceError(source, "divide by zero in #if/#elif\n"); error = 1; break; } v1->intvalue %= v2->intvalue; break; case P_ADD: v1->intvalue += v2->intvalue; v1->floatvalue += v2->floatvalue; break; case P_SUB: v1->intvalue -= v2->intvalue; v1->floatvalue -= v2->floatvalue; break; case P_LOGIC_AND: v1->intvalue = v1->intvalue && v2->intvalue; v1->floatvalue = v1->floatvalue && v2->floatvalue; break; case P_LOGIC_OR: v1->intvalue = v1->intvalue || v2->intvalue; v1->floatvalue = v1->floatvalue || v2->floatvalue; break; case P_LOGIC_GEQ: v1->intvalue = v1->intvalue >= v2->intvalue; v1->floatvalue = v1->floatvalue >= v2->floatvalue; break; case P_LOGIC_LEQ: v1->intvalue = v1->intvalue <= v2->intvalue; v1->floatvalue = v1->floatvalue <= v2->floatvalue; break; case P_LOGIC_EQ: v1->intvalue = v1->intvalue == v2->intvalue; v1->floatvalue = v1->floatvalue == v2->floatvalue; break; case P_LOGIC_UNEQ: v1->intvalue = v1->intvalue != v2->intvalue; v1->floatvalue = v1->floatvalue != v2->floatvalue; break; case P_LOGIC_GREATER: v1->intvalue = v1->intvalue > v2->intvalue; v1->floatvalue = v1->floatvalue > v2->floatvalue; break; case P_LOGIC_LESS: v1->intvalue = v1->intvalue < v2->intvalue; v1->floatvalue = v1->floatvalue < v2->floatvalue; break; case P_RSHIFT: v1->intvalue >>= v2->intvalue; break; case P_LSHIFT: v1->intvalue <<= v2->intvalue; break; case P_BIN_AND: v1->intvalue &= v2->intvalue; break; case P_BIN_OR: v1->intvalue |= v2->intvalue; break; case P_BIN_XOR: v1->intvalue ^= v2->intvalue; break; case P_COLON: { if (!gotquestmarkvalue) { Parse_SourceError(source, ": without ? in #if/#elif"); error = 1; break; } if (integer) { if (!questmarkintvalue) v1->intvalue = v2->intvalue; } else { if (!questmarkfloatvalue) v1->floatvalue = v2->floatvalue; } gotquestmarkvalue = qfalse; break; } case P_QUESTIONMARK: { if (gotquestmarkvalue) { Parse_SourceError(source, "? after ? in #if/#elif"); error = 1; break; } questmarkintvalue = v1->intvalue; questmarkfloatvalue = v1->floatvalue; gotquestmarkvalue = qtrue; break; } } if (error) break; lastoperatortype = o->operator; //if not an operator with arity 1 if (o->operator != P_LOGIC_NOT && o->operator != P_BIN_NOT) { //remove the second value if not question mark operator if (o->operator != P_QUESTIONMARK) v = v->next; // if (v->prev) v->prev->next = v->next; else firstvalue = v->next; if (v->next) v->next->prev = v->prev; else lastvalue = v->prev; //Z_Free(v); FreeValue(v); } //remove the operator if (o->prev) o->prev->next = o->next; else firstoperator = o->next; if (o->next) o->next->prev = o->prev; else lastoperator = o->prev; //Z_Free(o); FreeOperator(o); } if (firstvalue) { if (intvalue) *intvalue = firstvalue->intvalue; if (floatvalue) *floatvalue = firstvalue->floatvalue; } for (o = firstoperator; o; o = lastoperator) { lastoperator = o->next; //Z_Free(o); FreeOperator(o); } for (v = firstvalue; v; v = lastvalue) { lastvalue = v->next; //Z_Free(v); FreeValue(v); } if (!error) return qtrue; if (intvalue) *intvalue = 0; if (floatvalue) *floatvalue = 0; return qfalse; } /* =============== Parse_Evaluate =============== */ static int Parse_Evaluate(source_t *source, signed long int *intvalue, double *floatvalue, int integer) { token_t token, *firsttoken, *lasttoken; token_t *t, *nexttoken; define_t *define; int defined = qfalse; if (intvalue) *intvalue = 0; if (floatvalue) *floatvalue = 0; // if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "no value after #if/#elif"); return qfalse; } firsttoken = NULL; lasttoken = NULL; do { //if the token is a name if (token.type == TT_NAME) { if (defined) { defined = qfalse; t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else if (!strcmp(token.string, "defined")) { defined = qtrue; t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else { //then it must be a define define = Parse_FindHashedDefine(source->definehash, token.string); if (!define) { Parse_SourceError(source, "can't evaluate %s, not defined", token.string); return qfalse; } if (!Parse_ExpandDefineIntoSource(source, &token, define)) return qfalse; } } //if the token is a number or a punctuation else if (token.type == TT_NUMBER || token.type == TT_PUNCTUATION) { t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else //can't evaluate the token { Parse_SourceError(source, "can't evaluate %s", token.string); return qfalse; } } while(Parse_ReadLine(source, &token)); // if (!Parse_EvaluateTokens(source, firsttoken, intvalue, floatvalue, integer)) return qfalse; // for (t = firsttoken; t; t = nexttoken) { nexttoken = t->next; Parse_FreeToken(t); } // return qtrue; } /* =============== Parse_DollarEvaluate =============== */ static int Parse_DollarEvaluate(source_t *source, signed long int *intvalue, double *floatvalue, int integer) { int indent, defined = qfalse; token_t token, *firsttoken, *lasttoken; token_t *t, *nexttoken; define_t *define; if (intvalue) *intvalue = 0; if (floatvalue) *floatvalue = 0; // if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "no leading ( after $evalint/$evalfloat"); return qfalse; } if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "nothing to evaluate"); return qfalse; } indent = 1; firsttoken = NULL; lasttoken = NULL; do { //if the token is a name if (token.type == TT_NAME) { if (defined) { defined = qfalse; t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else if (!strcmp(token.string, "defined")) { defined = qtrue; t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else { //then it must be a define define = Parse_FindHashedDefine(source->definehash, token.string); if (!define) { Parse_SourceError(source, "can't evaluate %s, not defined", token.string); return qfalse; } if (!Parse_ExpandDefineIntoSource(source, &token, define)) return qfalse; } } //if the token is a number or a punctuation else if (token.type == TT_NUMBER || token.type == TT_PUNCTUATION) { if (*token.string == '(') indent++; else if (*token.string == ')') indent--; if (indent <= 0) break; t = Parse_CopyToken(&token); t->next = NULL; if (lasttoken) lasttoken->next = t; else firsttoken = t; lasttoken = t; } else //can't evaluate the token { Parse_SourceError(source, "can't evaluate %s", token.string); return qfalse; } } while(Parse_ReadSourceToken(source, &token)); // if (!Parse_EvaluateTokens(source, firsttoken, intvalue, floatvalue, integer)) return qfalse; // for (t = firsttoken; t; t = nexttoken) { nexttoken = t->next; Parse_FreeToken(t); } // return qtrue; } /* =============== Parse_Directive_include =============== */ static int Parse_Directive_include(source_t *source) { script_t *script; token_t token; char path[MAX_QPATH]; if (source->skip > 0) return qtrue; // if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "#include without file name"); return qfalse; } if (token.linescrossed > 0) { Parse_SourceError(source, "#include without file name"); return qfalse; } if (token.type == TT_STRING) { Parse_StripDoubleQuotes(token.string); Parse_ConvertPath(token.string); script = Parse_LoadScriptFile(token.string); if (!script) { strcpy(path, source->includepath); strcat(path, token.string); script = Parse_LoadScriptFile(path); } } else if (token.type == TT_PUNCTUATION && *token.string == '<') { strcpy(path, source->includepath); while(Parse_ReadSourceToken(source, &token)) { if (token.linescrossed > 0) { Parse_UnreadSourceToken(source, &token); break; } if (token.type == TT_PUNCTUATION && *token.string == '>') break; strncat(path, token.string, MAX_QPATH); } if (*token.string != '>') { Parse_SourceWarning(source, "#include missing trailing >"); } if (!strlen(path)) { Parse_SourceError(source, "#include without file name between < >"); return qfalse; } Parse_ConvertPath(path); script = Parse_LoadScriptFile(path); } else { Parse_SourceError(source, "#include without file name"); return qfalse; } if (!script) { Parse_SourceError(source, "file %s not found", path); return qfalse; } Parse_PushScript(source, script); return qtrue; } /* =============== Parse_WhiteSpaceBeforeToken =============== */ static int Parse_WhiteSpaceBeforeToken(token_t *token) { return token->endwhitespace_p - token->whitespace_p > 0; } /* =============== Parse_ClearTokenWhiteSpace =============== */ static void Parse_ClearTokenWhiteSpace(token_t *token) { token->whitespace_p = NULL; token->endwhitespace_p = NULL; token->linescrossed = 0; } /* =============== Parse_Directive_undef =============== */ static int Parse_Directive_undef(source_t *source) { token_t token; define_t *define, *lastdefine; int hash; if (source->skip > 0) return qtrue; // if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "undef without name"); return qfalse; } if (token.type != TT_NAME) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "expected name, found %s", token.string); return qfalse; } hash = Parse_NameHash(token.string); for (lastdefine = NULL, define = source->definehash[hash]; define; define = define->hashnext) { if (!strcmp(define->name, token.string)) { if (define->flags & DEFINE_FIXED) { Parse_SourceWarning(source, "can't undef %s", token.string); } else { if (lastdefine) lastdefine->hashnext = define->hashnext; else source->definehash[hash] = define->hashnext; Parse_FreeDefine(define); } break; } lastdefine = define; } return qtrue; } /* =============== Parse_Directive_elif =============== */ static int Parse_Directive_elif(source_t *source) { signed long int value; int type, skip; Parse_PopIndent(source, &type, &skip); if (!type || type == INDENT_ELSE) { Parse_SourceError(source, "misplaced #elif"); return qfalse; } if (!Parse_Evaluate(source, &value, NULL, qtrue)) return qfalse; skip = (value == 0); Parse_PushIndent(source, INDENT_ELIF, skip); return qtrue; } /* =============== Parse_Directive_if =============== */ static int Parse_Directive_if(source_t *source) { signed long int value; int skip; if (!Parse_Evaluate(source, &value, NULL, qtrue)) return qfalse; skip = (value == 0); Parse_PushIndent(source, INDENT_IF, skip); return qtrue; } /* =============== Parse_Directive_line =============== */ static int Parse_Directive_line(source_t *source) { Parse_SourceError(source, "#line directive not supported"); return qfalse; } /* =============== Parse_Directive_error =============== */ static int Parse_Directive_error(source_t *source) { token_t token; strcpy(token.string, ""); Parse_ReadSourceToken(source, &token); Parse_SourceError(source, "#error directive: %s", token.string); return qfalse; } /* =============== Parse_Directive_pragma =============== */ static int Parse_Directive_pragma(source_t *source) { token_t token; Parse_SourceWarning(source, "#pragma directive not supported"); while(Parse_ReadLine(source, &token)) ; return qtrue; } /* =============== Parse_UnreadSignToken =============== */ static void Parse_UnreadSignToken(source_t *source) { token_t token; token.line = source->scriptstack->line; token.whitespace_p = source->scriptstack->script_p; token.endwhitespace_p = source->scriptstack->script_p; token.linescrossed = 0; strcpy(token.string, "-"); token.type = TT_PUNCTUATION; token.subtype = P_SUB; Parse_UnreadSourceToken(source, &token); } /* =============== Parse_Directive_eval =============== */ static int Parse_Directive_eval(source_t *source) { signed long int value; token_t token; if (!Parse_Evaluate(source, &value, NULL, qtrue)) return qfalse; // token.line = source->scriptstack->line; token.whitespace_p = source->scriptstack->script_p; token.endwhitespace_p = source->scriptstack->script_p; token.linescrossed = 0; sprintf(token.string, "%d", abs(value)); token.type = TT_NUMBER; token.subtype = TT_INTEGER|TT_LONG|TT_DECIMAL; Parse_UnreadSourceToken(source, &token); if (value < 0) Parse_UnreadSignToken(source); return qtrue; } /* =============== Parse_Directive_evalfloat =============== */ static int Parse_Directive_evalfloat(source_t *source) { double value; token_t token; if (!Parse_Evaluate(source, NULL, &value, qfalse)) return qfalse; token.line = source->scriptstack->line; token.whitespace_p = source->scriptstack->script_p; token.endwhitespace_p = source->scriptstack->script_p; token.linescrossed = 0; sprintf(token.string, "%1.2f", fabs(value)); token.type = TT_NUMBER; token.subtype = TT_FLOAT|TT_LONG|TT_DECIMAL; Parse_UnreadSourceToken(source, &token); if (value < 0) Parse_UnreadSignToken(source); return qtrue; } /* =============== Parse_DollarDirective_evalint =============== */ static int Parse_DollarDirective_evalint(source_t *source) { signed long int value; token_t token; if (!Parse_DollarEvaluate(source, &value, NULL, qtrue)) return qfalse; // token.line = source->scriptstack->line; token.whitespace_p = source->scriptstack->script_p; token.endwhitespace_p = source->scriptstack->script_p; token.linescrossed = 0; sprintf(token.string, "%d", abs(value)); token.type = TT_NUMBER; token.subtype = TT_INTEGER|TT_LONG|TT_DECIMAL; token.intvalue = value; token.floatvalue = value; Parse_UnreadSourceToken(source, &token); if (value < 0) Parse_UnreadSignToken(source); return qtrue; } /* =============== Parse_DollarDirective_evalfloat =============== */ static int Parse_DollarDirective_evalfloat(source_t *source) { double value; token_t token; if (!Parse_DollarEvaluate(source, NULL, &value, qfalse)) return qfalse; token.line = source->scriptstack->line; token.whitespace_p = source->scriptstack->script_p; token.endwhitespace_p = source->scriptstack->script_p; token.linescrossed = 0; sprintf(token.string, "%1.2f", fabs(value)); token.type = TT_NUMBER; token.subtype = TT_FLOAT|TT_LONG|TT_DECIMAL; token.intvalue = (unsigned long) value; token.floatvalue = value; Parse_UnreadSourceToken(source, &token); if (value < 0) Parse_UnreadSignToken(source); return qtrue; } /* =============== Parse_ReadDollarDirective =============== */ directive_t dollardirectives[20] = { {"evalint", Parse_DollarDirective_evalint}, {"evalfloat", Parse_DollarDirective_evalfloat}, {NULL, NULL} }; static int Parse_ReadDollarDirective(source_t *source) { token_t token; int i; //read the directive name if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "found $ without name"); return qfalse; } //directive name must be on the same line if (token.linescrossed > 0) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "found $ at end of line"); return qfalse; } //if if is a name if (token.type == TT_NAME) { //find the precompiler directive for (i = 0; dollardirectives[i].name; i++) { if (!strcmp(dollardirectives[i].name, token.string)) { return dollardirectives[i].func(source); } } } Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "unknown precompiler directive %s", token.string); return qfalse; } /* =============== Parse_Directive_if_def =============== */ static int Parse_Directive_if_def(source_t *source, int type) { token_t token; define_t *d; int skip; if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "#ifdef without name"); return qfalse; } if (token.type != TT_NAME) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "expected name after #ifdef, found %s", token.string); return qfalse; } d = Parse_FindHashedDefine(source->definehash, token.string); skip = (type == INDENT_IFDEF) == (d == NULL); Parse_PushIndent(source, type, skip); return qtrue; } /* =============== Parse_Directive_ifdef =============== */ static int Parse_Directive_ifdef(source_t *source) { return Parse_Directive_if_def(source, INDENT_IFDEF); } /* =============== Parse_Directive_ifndef =============== */ static int Parse_Directive_ifndef(source_t *source) { return Parse_Directive_if_def(source, INDENT_IFNDEF); } /* =============== Parse_Directive_else =============== */ static int Parse_Directive_else(source_t *source) { int type, skip; Parse_PopIndent(source, &type, &skip); if (!type) { Parse_SourceError(source, "misplaced #else"); return qfalse; } if (type == INDENT_ELSE) { Parse_SourceError(source, "#else after #else"); return qfalse; } Parse_PushIndent(source, INDENT_ELSE, !skip); return qtrue; } /* =============== Parse_Directive_endif =============== */ static int Parse_Directive_endif(source_t *source) { int type, skip; Parse_PopIndent(source, &type, &skip); if (!type) { Parse_SourceError(source, "misplaced #endif"); return qfalse; } return qtrue; } /* =============== Parse_CheckTokenString =============== */ static int Parse_CheckTokenString(source_t *source, char *string) { token_t tok; if (!Parse_ReadToken(source, &tok)) return qfalse; //if the token is available if (!strcmp(tok.string, string)) return qtrue; // Parse_UnreadSourceToken(source, &tok); return qfalse; } /* =============== Parse_Directive_define =============== */ static int Parse_Directive_define(source_t *source) { token_t token, *t, *last; define_t *define; if (source->skip > 0) return qtrue; // if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "#define without name"); return qfalse; } if (token.type != TT_NAME) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "expected name after #define, found %s", token.string); return qfalse; } //check if the define already exists define = Parse_FindHashedDefine(source->definehash, token.string); if (define) { if (define->flags & DEFINE_FIXED) { Parse_SourceError(source, "can't redefine %s", token.string); return qfalse; } Parse_SourceWarning(source, "redefinition of %s", token.string); //unread the define name before executing the #undef directive Parse_UnreadSourceToken(source, &token); if (!Parse_Directive_undef(source)) return qfalse; //if the define was not removed (define->flags & DEFINE_FIXED) define = Parse_FindHashedDefine(source->definehash, token.string); } //allocate define define = (define_t *) Z_Malloc(sizeof(define_t) + strlen(token.string) + 1); Com_Memset(define, 0, sizeof(define_t)); define->name = (char *) define + sizeof(define_t); strcpy(define->name, token.string); //add the define to the source Parse_AddDefineToHash(define, source->definehash); //if nothing is defined, just return if (!Parse_ReadLine(source, &token)) return qtrue; //if it is a define with parameters if (!Parse_WhiteSpaceBeforeToken(&token) && !strcmp(token.string, "(")) { //read the define parameters last = NULL; if (!Parse_CheckTokenString(source, ")")) { while(1) { if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "expected define parameter"); return qfalse; } //if it isn't a name if (token.type != TT_NAME) { Parse_SourceError(source, "invalid define parameter"); return qfalse; } // if (Parse_FindDefineParm(define, token.string) >= 0) { Parse_SourceError(source, "two the same define parameters"); return qfalse; } //add the define parm t = Parse_CopyToken(&token); Parse_ClearTokenWhiteSpace(t); t->next = NULL; if (last) last->next = t; else define->parms = t; last = t; define->numparms++; //read next token if (!Parse_ReadLine(source, &token)) { Parse_SourceError(source, "define parameters not terminated"); return qfalse; } // if (!strcmp(token.string, ")")) break; //then it must be a comma if (strcmp(token.string, ",")) { Parse_SourceError(source, "define not terminated"); return qfalse; } } } if (!Parse_ReadLine(source, &token)) return qtrue; } //read the defined stuff last = NULL; do { t = Parse_CopyToken(&token); if (t->type == TT_NAME && !strcmp(t->string, define->name)) { Parse_SourceError(source, "recursive define (removed recursion)"); continue; } Parse_ClearTokenWhiteSpace(t); t->next = NULL; if (last) last->next = t; else define->tokens = t; last = t; } while(Parse_ReadLine(source, &token)); // if (last) { //check for merge operators at the beginning or end if (!strcmp(define->tokens->string, "##") || !strcmp(last->string, "##")) { Parse_SourceError(source, "define with misplaced ##"); return qfalse; } } return qtrue; } /* =============== Parse_ReadDirective =============== */ directive_t directives[20] = { {"if", Parse_Directive_if}, {"ifdef", Parse_Directive_ifdef}, {"ifndef", Parse_Directive_ifndef}, {"elif", Parse_Directive_elif}, {"else", Parse_Directive_else}, {"endif", Parse_Directive_endif}, {"include", Parse_Directive_include}, {"define", Parse_Directive_define}, {"undef", Parse_Directive_undef}, {"line", Parse_Directive_line}, {"error", Parse_Directive_error}, {"pragma", Parse_Directive_pragma}, {"eval", Parse_Directive_eval}, {"evalfloat", Parse_Directive_evalfloat}, {NULL, NULL} }; static int Parse_ReadDirective(source_t *source) { token_t token; int i; //read the directive name if (!Parse_ReadSourceToken(source, &token)) { Parse_SourceError(source, "found # without name"); return qfalse; } //directive name must be on the same line if (token.linescrossed > 0) { Parse_UnreadSourceToken(source, &token); Parse_SourceError(source, "found # at end of line"); return qfalse; } //if if is a name if (token.type == TT_NAME) { //find the precompiler directive for (i = 0; directives[i].name; i++) { if (!strcmp(directives[i].name, token.string)) { return directives[i].func(source); } } } Parse_SourceError(source, "unknown precompiler directive %s", token.string); return qfalse; } /* =============== Parse_UnreadToken =============== */ static void Parse_UnreadToken(source_t *source, token_t *token) { Parse_UnreadSourceToken(source, token); } /* =============== Parse_ReadToken =============== */ static int Parse_ReadToken(source_t *source, token_t *token) { define_t *define; while(1) { if (!Parse_ReadSourceToken(source, token)) return qfalse; //check for precompiler directives if (token->type == TT_PUNCTUATION && *token->string == '#') { { //read the precompiler directive if (!Parse_ReadDirective(source)) return qfalse; continue; } } if (token->type == TT_PUNCTUATION && *token->string == '$') { { //read the precompiler directive if (!Parse_ReadDollarDirective(source)) return qfalse; continue; } } // recursively concatenate strings that are behind each other still resolving defines if (token->type == TT_STRING) { token_t newtoken; if (Parse_ReadToken(source, &newtoken)) { if (newtoken.type == TT_STRING) { token->string[strlen(token->string)-1] = '\0'; if (strlen(token->string) + strlen(newtoken.string+1) + 1 >= MAX_TOKEN_CHARS) { Parse_SourceError(source, "string longer than MAX_TOKEN_CHARS %d\n", MAX_TOKEN_CHARS); return qfalse; } strcat(token->string, newtoken.string+1); } else { Parse_UnreadToken(source, &newtoken); } } } //if skipping source because of conditional compilation if (source->skip) continue; //if the token is a name if (token->type == TT_NAME) { //check if the name is a define macro define = Parse_FindHashedDefine(source->definehash, token->string); //if it is a define macro if (define) { //expand the defined macro if (!Parse_ExpandDefineIntoSource(source, token, define)) return qfalse; continue; } } //copy token for unreading Com_Memcpy(&source->token, token, sizeof(token_t)); //found a token return qtrue; } } /* =============== Parse_DefineFromString =============== */ static define_t *Parse_DefineFromString(char *string) { script_t *script; source_t src; token_t *t; int res, i; define_t *def; script = Parse_LoadScriptMemory(string, strlen(string), "*extern"); //create a new source Com_Memset(&src, 0, sizeof(source_t)); strncpy(src.filename, "*extern", MAX_QPATH); src.scriptstack = script; src.definehash = Z_Malloc(DEFINEHASHSIZE * sizeof(define_t *)); Com_Memset( src.definehash, 0, DEFINEHASHSIZE * sizeof(define_t *)); //create a define from the source res = Parse_Directive_define(&src); //free any tokens if left for (t = src.tokens; t; t = src.tokens) { src.tokens = src.tokens->next; Parse_FreeToken(t); } def = NULL; for (i = 0; i < DEFINEHASHSIZE; i++) { if (src.definehash[i]) { def = src.definehash[i]; break; } } // Z_Free(src.definehash); // Parse_FreeScript(script); //if the define was created succesfully if (res > 0) return def; //free the define is created if (src.defines) Parse_FreeDefine(def); // return NULL; } /* =============== Parse_AddGlobalDefine add a globals define that will be added to all opened sources =============== */ int Parse_AddGlobalDefine(char *string) { define_t *define; define = Parse_DefineFromString(string); if (!define) return qfalse; define->next = globaldefines; globaldefines = define; return qtrue; } /* =============== Parse_CopyDefine =============== */ static define_t *Parse_CopyDefine(source_t *source, define_t *define) { define_t *newdefine; token_t *token, *newtoken, *lasttoken; newdefine = (define_t *) Z_Malloc(sizeof(define_t) + strlen(define->name) + 1); //copy the define name newdefine->name = (char *) newdefine + sizeof(define_t); strcpy(newdefine->name, define->name); newdefine->flags = define->flags; newdefine->builtin = define->builtin; newdefine->numparms = define->numparms; //the define is not linked newdefine->next = NULL; newdefine->hashnext = NULL; //copy the define tokens newdefine->tokens = NULL; for (lasttoken = NULL, token = define->tokens; token; token = token->next) { newtoken = Parse_CopyToken(token); newtoken->next = NULL; if (lasttoken) lasttoken->next = newtoken; else newdefine->tokens = newtoken; lasttoken = newtoken; } //copy the define parameters newdefine->parms = NULL; for (lasttoken = NULL, token = define->parms; token; token = token->next) { newtoken = Parse_CopyToken(token); newtoken->next = NULL; if (lasttoken) lasttoken->next = newtoken; else newdefine->parms = newtoken; lasttoken = newtoken; } return newdefine; } /* =============== Parse_AddGlobalDefinesToSource =============== */ static void Parse_AddGlobalDefinesToSource(source_t *source) { define_t *define, *newdefine; for (define = globaldefines; define; define = define->next) { newdefine = Parse_CopyDefine(source, define); Parse_AddDefineToHash(newdefine, source->definehash); } } /* =============== Parse_LoadSourceFile =============== */ static source_t *Parse_LoadSourceFile(const char *filename) { source_t *source; script_t *script; script = Parse_LoadScriptFile(filename); if (!script) return NULL; script->next = NULL; source = (source_t *) Z_Malloc(sizeof(source_t)); Com_Memset(source, 0, sizeof(source_t)); strncpy(source->filename, filename, MAX_QPATH); source->scriptstack = script; source->tokens = NULL; source->defines = NULL; source->indentstack = NULL; source->skip = 0; source->definehash = Z_Malloc(DEFINEHASHSIZE * sizeof(define_t *)); Com_Memset( source->definehash, 0, DEFINEHASHSIZE * sizeof(define_t *)); Parse_AddGlobalDefinesToSource(source); return source; } /* =============== Parse_FreeSource =============== */ static void Parse_FreeSource(source_t *source) { script_t *script; token_t *token; define_t *define; indent_t *indent; int i; //Parse_PrintDefineHashTable(source->definehash); //free all the scripts while(source->scriptstack) { script = source->scriptstack; source->scriptstack = source->scriptstack->next; Parse_FreeScript(script); } //free all the tokens while(source->tokens) { token = source->tokens; source->tokens = source->tokens->next; Parse_FreeToken(token); } for (i = 0; i < DEFINEHASHSIZE; i++) { while(source->definehash[i]) { define = source->definehash[i]; source->definehash[i] = source->definehash[i]->hashnext; Parse_FreeDefine(define); } } //free all indents while(source->indentstack) { indent = source->indentstack; source->indentstack = source->indentstack->next; Z_Free(indent); } // if (source->definehash) Z_Free(source->definehash); //free the source itself Z_Free(source); } #define MAX_SOURCEFILES 64 source_t *sourceFiles[MAX_SOURCEFILES]; /* =============== Parse_LoadSourceHandle =============== */ int Parse_LoadSourceHandle(const char *filename) { source_t *source; int i; for (i = 1; i < MAX_SOURCEFILES; i++) { if (!sourceFiles[i]) break; } if (i >= MAX_SOURCEFILES) return 0; Parse_SetBaseFolder(""); source = Parse_LoadSourceFile(filename); if (!source) return 0; sourceFiles[i] = source; return i; } /* =============== Parse_FreeSourceHandle =============== */ int Parse_FreeSourceHandle(int handle) { if (handle < 1 || handle >= MAX_SOURCEFILES) return qfalse; if (!sourceFiles[handle]) return qfalse; Parse_FreeSource(sourceFiles[handle]); sourceFiles[handle] = NULL; return qtrue; } /* =============== Parse_ReadTokenHandle =============== */ int Parse_ReadTokenHandle(int handle, pc_token_t *pc_token) { token_t token; int ret; if (handle < 1 || handle >= MAX_SOURCEFILES) return 0; if (!sourceFiles[handle]) return 0; ret = Parse_ReadToken(sourceFiles[handle], &token); strcpy(pc_token->string, token.string); pc_token->type = token.type; pc_token->subtype = token.subtype; pc_token->intvalue = token.intvalue; pc_token->floatvalue = token.floatvalue; if (pc_token->type == TT_STRING) Parse_StripDoubleQuotes(pc_token->string); return ret; } /* =============== Parse_SourceFileAndLine =============== */ int Parse_SourceFileAndLine(int handle, char *filename, int *line) { if (handle < 1 || handle >= MAX_SOURCEFILES) return qfalse; if (!sourceFiles[handle]) return qfalse; strcpy(filename, sourceFiles[handle]->filename); if (sourceFiles[handle]->scriptstack) *line = sourceFiles[handle]->scriptstack->line; else *line = 0; return qtrue; }