#include <lib.h>
#include <modules.h>
string globalstr, globalstr2, globalstr3;

mixed eventReadValue(string str, string method){
    string val, junk1, junk2;
    int value, quid;
    string substr = this_object()->ReadMatchingLine(str,method);
    quid = sscanf(substr,"%s"+last(method,2)+"("+"%s"+")%s",junk1, val, junk2);
    if(quid < 3) return 0;
    val = trim(val);
    sscanf(val,"%d",value);
    if(value) return value;
    else return this_object()->eventCleanString(val);
}

varargs string ReadMatchingLine(string target, string substring, string exclude){
    int omit, done, tail_search, i;
    string line, filename, new_file;
    globalstr = "";
    globalstr2 = "";
    globalstr3 = "";

    if(!grepp(target,"\n") && file_exists(target)) target = read_file(target);

    if(!target) return "";
    if(strsrch(target,substring) == -1) return "";
    if(strsrch(target,"\n") == -1) return "";
    filename = generate_tmp(this_object());
    new_file = "";
    if(!exclude) exclude = filename;

    write_file(filename,target);

    omit = 1;
    for(i=1; !done; i++){
	line = read_file(filename, i, 1);
	if(!line) break;
	if(grepp(line,substring) ) {
	    omit =0;
	}
	if(!omit && truncate(last(line,2,1),1) != ";") {
	    tail_search = 1;
	}
	else {
	    tail_search = 0;
	}

	if(!omit) {
	    new_file += line;
	}

	if(!tail_search) omit = 1;
	if(!line) done = 100;
	if(i == 999) done = 100;
    }

    rm(filename);
    return new_file;
}

mapping eventParsePair(string file, string param, string type, string mode){
    mixed val, key;
    string func, junk;
    int tempint;
    mapping RetMap = ([]);
    string line = this_object()->ReadMatchingLine(file, param);
    sscanf(line,"%s(%s,%s);%s",func,key,val,junk);
    if(!key || !val) {
	return ([]);
    }
    if(sscanf(val,"%d",tempint) && !alphap(val)) val = tempint;
    key = this_object()->eventCleanString(key);
    if(stringp(val)) val = this_object()->eventCleanString(val);
    RetMap[key] = val;
    return RetMap;
} 

string eventCleanString(string str){
    str = replace_string(str,"\n","");
    str = replace_string(str,"\t","");
    str = replace_string(str,"\"","");
    str = space_trim(str);
    str = trim(str);
    return str;
}

mapping eventMappifyLine(string file, string param){
    mixed RetMap;
    string schmutz;

    schmutz = this_object()->ReadMatchingLine(file, param);
    if(!grepp(schmutz,param)) return ([]);
    schmutz = this_object()->eventExtractMapString(schmutz);
    schmutz = replace_string(schmutz,"\n","");
    schmutz = replace_string(schmutz,"\t","");
    schmutz = replace_string(schmutz," : ",":");
    schmutz = space_trim(schmutz);
    schmutz = replace_string(schmutz,", \"",",\"");
    schmutz = trim(schmutz);
    if(last(schmutz,1) != ","){
	schmutz = "(["+schmutz+",])";
    }
    else schmutz = "(["+schmutz+"])";
    RetMap = restore_variable(schmutz);
    if(!mapp(RetMap)){
	write("Mappification unsuccessful.");
	return ([]);
    }
    else return RetMap;
}

string eventExtractMapString(string str){
    string meat, junk1, junk2;
    str = replace_string(str,"[","OPENBRACKET",1);
    str = reverse_string(replace_string(reverse_string(str),"]","TEKCARBESOLC",1));
    sscanf(str,"%sOPENBRACKET%sCLOSEBRACKET%s",junk1,meat,junk2);
    return meat;
}