rpgxef/code/game/bg_lex.lex

%top {
#include "q_shared.h"
#include "bg_lex.h"

#define YY_FATAL_ERROR(msg) bgLexFatalError(msg, yyscanner)
}

DIGIT [0-9]
INT {DIGIT}+
DOUBLE {DIGIT}+"."?{DIGIT}*
KEYWORD [a-zA-Z]+[a-zA-Z0-9]*

%option reentrant
%option noyywrap
%option extra-type="bgLexMorphem*"

%%
\"[^\"]*\" {
	yyextra->type = LMT_STRING;
	yyextra->data.string = yytext;
	yyextra->column += strlen(yytext);
	return 1;
}
{INT} {
	yyextra->type = LMT_INT;
	yyextra->data.numInteger = atoi(yytext);
	yyextra->column += strlen(yytext);
	return 1;
}
{DOUBLE} {
	yyextra->type = LMT_DOUBLE;
	yyextra->data.numDouble = atof(yytext);
	yyextra->column += strlen(yytext);
	return 1;
}
{KEYWORD} {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = bgLex_textToSymbol(yytext);
	yyextra->column += strlen(yytext);
	return 1;
}
"{"" "+{INT}" "+{INT}" "+{INT}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}

"{"" "+{INT}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{INT}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{DOUBLE}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{INT}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{INT}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{DOUBLE}" "+"}" {
	double a, b, c;
	sscanf(yytext, "{ %f %f %f }", &a, &b, &c);
	yyextra->data.vector3[0] = a;
	yyextra->data.vector3[1] = b;
	yyextra->data.vector3[2] = c;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR3;
	return 1;
}
"{"" "+{INT}" "+{INT}" "+{INT}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{INT}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{INT}" "+{DOUBLE}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{INT}" "+{DOUBLE}" "+{DOUBLE}" "+"}" { 
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{INT}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{DOUBLE}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{INT}" "+{DOUBLE}" "+{DOUBLE}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{INT}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{DOUBLE}" "+{INT}" "+"}" { 
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{INT}" "+{DOUBLE}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{INT}" "+{INT}" "+"}" { 
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{INT}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{DOUBLE}" "+{INT}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{"" "+{DOUBLE}" "+{DOUBLE}" "+{DOUBLE}" "+{DOUBLE}" "+"}" {
	double a, b, c, d;
	sscanf(yytext, "{ %f %f %f %f }", &a, &b, &c, &d);
	yyextra->data.vector4[0] = a;
	yyextra->data.vector4[1] = b;
	yyextra->data.vector4[2] = c;
	yyextra->data.vector4[3] = d;
	yyextra->column += strlen(yytext);
	yyextra->type = LMT_VECTOR4;
	return 1;
}
"{" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_OBRACEC;
	yyextra->column++;
	return;
}
"}" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_CBRACEC;
	yyextra->column++;
	return 1;
}
"(" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_OBRACE;
	yyextra->column++;
	return 1;
}
")" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_CBRACE;
	yyextra->column++;
	return 1;
}
"[" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_OBRACESQ;
	yyextra->column++;
	return 1;
}
"]" {
	yyextra->type = LMT_SYMBOL;
	yyextra->data.symbol = LSYM_CBRACESQ;
	yyextra->column++;
	return 1;
}
[ \t] {
	yyextra->column++;
	yyextra->type = LMT_IGNORE;
	return 1;
}
\n {
	yyextra->line++;
	yyextra->type = LMT_IGNORE;
	return 1;
}
. {
	yyextra->column++;
	yyextra->type = LMT_IGNORE;
	return 1;
}
%%

#ifdef LEX_TEXT
int main(int argc, char* argv[]) {
	char buff[4096];
	yyscan_t scanner;
	FILE* f;
	bgLex* lex;

	f = fopen("test.txt", "r");
	fread(buff, 4096, 1, f);
	fclose(f);
  
	lex = bgLex_create(buff);
	while(bgLex_lex(lex)) {
		printf("type=%i symbol=%i yytext=%s\n", lex->morphem.type, lex->morphem.data.symbol, yyget_text(lex->lex));
	}
	bgLex_destroy(lex);

	return EXIT_SUCCESS;
}
#endif

bgLex* bgLex_create(char* data) {
	bgLex* l = malloc(sizeof(bgLex));

	if(l != NULL) {
		yylex_init_extra(&l->morphem, &l->lex);
		l->buf = yy_scan_string(data, l->lex);
	}

	return l;
}

void bgLex_destroy(bgLex* lex) {
	if(lex == NULL) {
		return;
	}

	if(lex->buf != NULL) {
		yy_delete_buffer(lex->buf, lex->lex);
	}

	if(lex->lex != NULL) {
		yylex_destroy(lex->lex);
	}

	free(lex);
}

int bgLex_lex(bgLex* lex) {
	return yylex(lex->lex);
}

bgLexSymbol bgLex_textToSymbol(char* text) {
	if(strcmp("ServerChangeConfig", text) == 0) {
		return LSYM_SERVER_CHANGE_CONFIG;
	}

	if(strcmp("Server", text) == 0) {
		return LSYM_SERVER;
	}

	if(strcmp("HolodeckData", text) == 0) {
		return LSYM_HOLODECK_DATA;
	}

	if(strcmp("Program", text) == 0) {
		return LSYM_PROGRAM;
	}

	if(strcmp("MapChangeConfig", text) == 0) {
		return LSYM_MAP_CHANGE_CONFIG;
	}

	if(strcmp("Map", text) == 0) {
		return LSYM_MAP;
	}

	if(strcmp("LocationsList2", text) == 0) {
		return LSYM_LOCATIONS_LIST_2;
	}

	if(strcmp("LocationsList", text) == 0) {
		return LSYM_LOCATIONS_LIST;
	}

	if(strcmp("message", text) == 0) {
		return LSYM_MESSAGE;
	}

	if(strcmp("consoleName", text) == 0) {
		return LSYM_CONSOLE_NAME;
	}

	if(strcmp("formalName", text) == 0) {
		return LSYM_FORMAL_NAME;
	}

	if(strcmp("radarColor", text) == 0) {
		return LSYM_RADAR_COLOR;
	}

	if(strcmp("iconColor", text) == 0) {
		return LSYM_ICON_COLOR;
	}

	if(strcmp("NULL", text) == 0) {
		return LSYM_NULL;
	}

	if(strcmp("modelSkin", text) == 0) {
		return LSYM_MODEL_SKIN;
	}

	if(strcmp("weapons", text) == 0) {
		return LSYM_WEAPONS;
	}

	if(strcmp("hasRanks", text) == 0) {
		return LSYM_HAS_RANKS;
	}

	if(strcmp("teal", text) == 0) {
		return LSYM_TEAL;
	}

	if(strcmp("medical", text) == 0) {
		return LSYM_MEDICAL;
	}

	if(strcmp("gold", text) == 0) {
		return LSYM_GOLD;
	}

	if(strcmp("green", text) == 0) {
		return LSYM_GREEN;
	}

	if(strcmp("marine", text) == 0) {
		return LSYM_MARINE;
	}

	if(strcmp("red", text) == 0) {
		return LSYM_RED;
	}

	if(strcmp("WP_TRICORDER", text) == 0) {
		return LSYM_WP_TRICORDER;
	}

	if(strcmp("WP_PADD", text) == 0) {
		return LSYM_WP_PADD;
	}

	if(strcmp("WP_COFFEE", text) == 0) {
    return LSYM_WP_COFFEE;
	}

	if(strcmp("WP_PHASER", text) == 0) {
		return LSYM_WP_PHASER;
	}

	if(strcmp("WP_COMPRESSION_RIFLE", text) == 0) {
		return LSYM_WP_COMPRESSION_RIFLE;
	}

	if(strcmp("WP_TR116", text) == 0) {
		return LSYM_WP_TR116;
	}

	if(strcmp("WP_GRENADE_LAUNCHER", text) == 0) {
		return LSYM_WP_GRENADE_LAUNCHER;
	}

	if(strcmp("WP_QUANTUM_BURST", text) == 0) {
		return LSYM_WP_QUANTUM_BURST;
	}

	if(strcmp("WP_MEDKIT", text) == 0) {
		return LSYM_WP_MEDKIT;
	}

	if(strcmp("WP_VOYAGER_HYPO", text) == 0) {
		return LSYM_WP_VOYAGER_HYPO;
	}

	if(strcmp("WP_DERMAL_REGEN", text) == 0) {
		return LSYM_WP_DERMAL_REGEN;
	}

	if(strcmp("WP_TOOLKIT", text) == 0) {
		return LSYM_WP_TOOLKIT;
	}

	if(strcmp("WP_HYPERSPANNER", text) == 0) {
		return LSYM_WP_HYPERSPANNER;
	}

	if(strcmp("WP_DISRUPTOR", text) == 0) {
		return LSYM_WP_DISRUPTOR;
	}

	if(strcmp("WP_NULL", text) == 0) {
		return LSYM_WP_NULL;
	}

	if(strcmp("WP_NULL_HANDS", text) == 0) {
		return LSYM_WP_NULL_HANDS;
	}

	if(strcmp("WP_0", text) == 0) {
		return LSYM_WP_0;
	}

	if(strcmp("WP_1", text) == 0) {
		return LSYM_WP_1;
	}

	if(strcmp("WP_2", text) == 0) {
		return LSYM_WP_2;
	}

	if(strcmp("WP_3", text) == 0) {
		return LSYM_WP_3;
	}

	if(strcmp("WP_4", text) == 0) {
		return LSYM_WP_4;
	}

	if(strcmp("WP_5", text) == 0) {
		return LSYM_WP_5;
	}

	if(strcmp("WP_6", text) == 0) {
		return LSYM_WP_6;
	}

	if(strcmp("WP_7", text) == 0) {
		return LSYM_WP_7;
	}

	if(strcmp("WP_8", text) == 0) {
		return LSYM_WP_8;
	}

	if(strcmp("WP_9", text) == 0) {
		return LSYM_WP_9;
	}

	if(strcmp("WP_10", text) == 0) {
		return LSYM_WP_10;
	}

	if(strcmp("WP_11", text) == 0) {
		return LSYM_WP_11;
	}

	if(strcmp("WP_12", text) == 0) {
		return LSYM_WP_12;
	}

	if(strcmp("WP_13", text) == 0) {
		return LSYM_WP_13;
	}

	if(strcmp("WP_14", text) == 0) {
		return LSYM_WP_14;
	}

	if(strcmp("WP_15", text) == 0) {
		return LSYM_WP_15;
	}

	if(strcmp("admin", text) == 0) {
		return LSYM_ADMIN;
	}

	if(strcmp("borg", text) == 0) {
		return LSYM_BORG;
	}

	if(strcmp("n00b", text) == 0) {
		return LSYM_N00B;
	}

	if(strcmp("noShow", text) == 0) {
		return LSYM_NO_SHOW;
	}

	if(strcmp("MenuTextureDef", text) == 0) {
		return LSYM_MENU_TEXTURE_DEF;
	}

	if(strcmp("ConsoleName", text) == 0) {
		return LSYM_CONSOLE_NAME;
	}

	if(strcmp("FormalName", text) == 0) {
		return LSYM_FORMAL_NAME;
	}

	if(strcmp("MenuTextureRed", text) == 0) {
		return LSYM_MENU_TEXTURE_RED;
	}

	if(strcmp("MenuTextureTeal", text) == 0) {
		return LSYM_MENU_TEXTURE_TEAL;
	}

	if(strcmp("MenuTextureGold", text) == 0) {
		return LSYM_MENU_TEXTURE_GOLD;
	}

	if(strcmp("MenuTextureGreen", text) == 0) {
		return LSYM_MENU_TEXTURE_GREEN;
	}

	if(strcmp("BoltModel", text) == 0) {
		return LSYM_BOLT_MODEL;
	}

	if(strcmp("BoltShader", text) == 0) {
		return LSYM_BOLT_SHADER;
	}

	if(strcmp("AdmiralRank", text) == 0) {
		return LSYM_ADMIRAL_RANK;
	}

	return LSYM_UNKNOWN;
}

void bgLexFatalError(const char* msg, void* lex) {
	Com_Printf("LEXER ERROR: %s\n", msg);
}