#include <lib.h>
#include <modules.h>

string array eventReadFunctions(string source);
int eventModString(string file, string param, string replace);

string first_arg, globalstr, globalstr2, globalstr3;
string *global_array;
mixed globalmixed;
string *where_append;

string eventAppendLast(string file, string fun, string addendum){
    int done;
    string *source;
    string junk1, junk2, junk3, junk4, junk5;
    string ret = "";
    globalstr = file;

    if(!grepp(file,"\n") && unguarded( (:file_exists(globalstr):) ) && !check_privs(this_player(),globalstr)){
	write("You do not appear to have access to this file. Modification aborted.");
	return "";
    }
    if(!grepp(file,"\n") && unguarded( (: file_exists(globalstr):) )) {
	file = unguarded( (: read_file(globalstr) :) );
    }

    unguarded( (: global_array  = this_object()->eventReadFunctions(globalstr) :) );
    source = global_array;
    foreach(string func in source){
	if(sscanf(func,"%s"+fun+"%s(%s)%s\n%s",junk1, junk2, junk3, junk4, junk5) == 5 && !done){
	    func = reverse_string(func);
	    func = replace_string(func,"}","SIHT_ECALPER",1);
	    func = reverse_string(func);
	    func = replace_string(func,"REPLACE_THIS",addendum+"\n}");
	    done = 1;
	}
	ret += func + "\n";
    }
    return ret;
}

string eventAppend(string file, string *params, string addendum){
    int found, count, primary_line, secondary_line;
    string *file_arr;
    string *top_array;
    string *bottom_array;
    string search_str, new_string;
    int tmpnull = 0;

    if(!grepp(file,"\n") && file_exists(file)) globalstr = read_file(file); 
    else globalstr = file;

    if(!grepp(globalstr,"\n") && unguarded( (: file_exists(globalstr):) ) && !check_privs(this_player(),globalstr)){
	write("You do not appear to have access to this file. Modification aborted.");
	return "";
    }
    if(!grepp(globalstr,"\n") && unguarded( (: file_exists(globalstr):) )) {
	file = unguarded( (: read_file(globalstr) :) );
    }
    foreach(string param in params){
	if(!found && param && sizeof(param) && param != "" && stringp(param)){
	    if(strsrch(file,param) != -1){ 
		search_str = param;
		found = 1;
	    }
	}
    }

    if(!found || !search_str || search_str == ""){

	return file;
    }

    file_arr = explode(file,"\n");

    foreach(string line in file_arr){
	if(line && line != "" && strsrch(line, search_str) != -1) {
	    //if(line && line != "") {
	    primary_line = member_array(line, file_arr);
	    count = primary_line;
	}
	if(primary_line > tmpnull){
	    count++;
	    if(last(line,1,1) == ";" ) {
		secondary_line = count;
	    }
	}
	if(secondary_line) break;
    }

    top_array = file_arr[0..secondary_line-1];
    bottom_array = file_arr[secondary_line..sizeof(file_arr)-1];
    new_string = implode(top_array,"\n");
    new_string += addendum;
    new_string += implode(bottom_array,"\n");

    return new_string;
}

varargs mapping eventReadMapping(string file, string *params, int destructive){
    int numero, count, found, primary_line, secondary_line;
    string *file_arr;
    string *mapping_array;
    string filename, new_string, search_str, mapping_string, junk1, junk2;
    mapping new_mapping = ([]);
    mixed mixed_var;

    if(file_exists(file) && !check_privs(this_player(),file)){
	write("You do not appear to have access to this file. Modification aborted.");
	return ([]);
    }

    if(!grepp(file,"\n") && file_exists(file)) {
	first_arg  =  file;
	file = read_file(file);
    }

    foreach(string param in params){
	if(!found){
	    if(strsrch(file,param) != -1)
		search_str = param;
	    found = 1;
	}
    }

    if(!found){
	return ([]);
    }

    file_arr = explode(file,"\n");

    foreach(string line in file_arr){
	if(strsrch(line, search_str) != -1) {
	    primary_line = member_array(line, file_arr);
	    count = primary_line - 1;
	}
	if(primary_line){
	    count++;
	    if(last(line,1,1 ) == ";") {
		secondary_line = count;
	    }
	}
	if(secondary_line) break;
    }


    if(primary_line != secondary_line ) 
	mapping_array = file_arr[primary_line..secondary_line];
    else mapping_array = ({ file_arr[primary_line] });

    mapping_array = file_arr[primary_line..secondary_line];

    new_string = implode(mapping_array," ");
    if(!new_string) write("Problem here.");
    if(sscanf(new_string,"%s([%s])%s",junk1,mapping_string, junk2) < 3){
	write("It's a null mapping");
	return ([]);
    }
    mapping_array = explode(mapping_string,",");
    foreach(string foo in mapping_array){
	string *sub_array;
	if(!foo) break;
	if(strsrch(foo,":") == -1) break;
	sub_array = explode(foo,":");
	if(sub_array[0] && sub_array[1]) {
	    sub_array[0] = trim(replace_string(replace_string(sub_array[0]," \t",""),"\"",""));
	    sub_array[1] = trim(replace_string(replace_string(sub_array[1]," \t",""),"\"",""));
	    if(sscanf(sub_array[1],"%d",numero) == 1) mixed_var = numero;
	    else  mixed_var = sub_array[1];
	    new_mapping[sub_array[0]] = mixed_var;
	}
    }

    if(!first_arg) first_arg = "NULL";

    found = 0;

    globalstr3 = search_str;
    unguarded( (: globalstr = remove_matching_line(read_file(first_arg),globalstr3,1) :) );
    globalstr2 = generate_tmp(file);
    //write("globalstr2: "+globalstr2);
    if(destructive) {
	//write("first arg: "+first_arg);
	//unguarded( (: write_file("/realms/"+this_player()->GetKeyName()+"/tmp/mapping_destructive."+this_player()->GetKeyName(),globalstr,1) :) );
	//unguarded( (: cp("/realms/"+this_player()->GetKeyName()+"/tmp/mapping_destructive."+this_player()->GetKeyName(),first_arg) :) );
	unguarded( (: write_file(globalstr2, globalstr,1) :) );
	unguarded( (: cp(globalstr2, first_arg) :) );
    }
    if(sizeof(new_mapping)) return copy(new_mapping);
    else return ([]);
}

string array eventReadLines(string source){
    if(file_exists(source) && !check_privs(this_player(),source)){
	write("You do not appear to have access to this file. Modification aborted.");
	return ({});
    }
    globalstr = source;
    unguarded( (: global_array = explode(globalstr,"\n") :) );
    return global_array;
}

string array eventReadFunctions(string source){
    string tmpsource, headers;
    string *ret, *types, *primitives, *beginners, *fun_arr;
    int i, element, infunc;
    mixed line;
    element = -1;
    headers = "";
    line = "";
    fun_arr =  allocate(999);
    primitives = ({"private","static","nomask","varargs"});
    types = ({"int","void","buffer","mapping","mixed","string","array","float"});
    beginners = primitives + types;

    if(grepp(source,"\n") && !file_exists(source)) {
	globalstr2 = source;
	globalstr = generate_tmp(this_player());
	unguarded( (: write_file(globalstr, globalstr2,1) :) );
	source = globalstr;
    }

    tmpsource = generate_tmp(source);

    if(file_exists(source) && !check_privs(this_player(),source)){
	write("You do not appear to have access to this file. Modification aborted.");
	return ({});
    }

    if(file_exists(tmpsource) && !check_privs(this_player(),tmpsource)){
	write("You do not appear to have access to this file. Modification aborted.");
	return ({});
    }
    globalstr3 = tmpsource;
    globalstr = source;
    unguarded( (: cp(globalstr, globalstr3) :) );
    if(!file_exists(source)) return ({"Source read failed."});
    if(!file_exists(tmpsource)) return ({"Read failed."});


    for(i=1; line; i++){
	if(!line = read_file(source, i, 1)) break;
	if(!line || !stringp(line) || line == "") break;


	if(line && !infunc && !starts_with_arr(line, beginners)) headers += line;



	else if(line && !infunc && starts_with_arr(line, beginners) ){

	    element++;
	    infunc = 1;
	    if(!sizeof(fun_arr[element])) fun_arr[element] = line;
	    else fun_arr[element] += line;
	}

	else if(line && infunc && !starts_with_arr(line, beginners) ){

	    fun_arr[element] += line;
	}

	else if(line && infunc && starts_with_arr(line, beginners) && !grepp(line,"(")){
	    fun_arr[element] += line;
	}


	else if(line && infunc && starts_with_arr(line, beginners) && grepp(line,"(")){
	    infunc = 0;
	    i--;
	}
    }

    ret = ({headers});
    foreach(string item in fun_arr){
	if(item && sizeof(item)) ret += ({newline_trim(item)});
    }
    rm(tmpsource);
    return ret;
}

int eventAddInit(string file){
    string *contents, *temparray, *temparray2, *beginners;
    string tmpfile;
    int done, add, memnum;

    globalstr = tmpfile;
    globalstr2 = file;

    //if(file == "/lib/std/dummy.c" || file == LIB_DUMMY || (load_object(file) && inherits(LIB_DUMMY, load_object(file))) ) return 0;
    //if(file == "/lib/std/dummy.c" ) return 0;

    if(file_exists(file) && !check_privs(this_player(),file)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    tmpfile = generate_tmp(file);
    temparray = ({});
    temparray2 = ({});
    contents = unguarded( (: eventReadFunctions(globalstr2) :) );
    beginners = ({"private","static","nomask","varargs"});
    beginners += ({"int","void","buffer","mapping","mixed","string","array","float"});

    foreach(string func in contents){
	if(member_array(func,contents) != 0 && grepp(func,"void init")) memnum = member_array(func,contents);
    }

    if(memnum && memnum != -1){
	if(!grepp(contents[memnum],"::init()")){
	    temparray = explode(contents[memnum],"\n");
	    foreach(string line in temparray){
		if(line && !starts_with_arr(line, beginners)) add = 1;
		if(add && !done) {
		    temparray2 += ({"::init();"});
		    temparray2 += ({line});
		    done = 1;
		}
		else {
		    temparray2 += ({line});
		}
	    }
	    contents[memnum] = implode(temparray2,"\n");
	    global_array = contents;
	    globalstr3 = tmpfile;
	    unguarded( (: write_file(globalstr3,implode(global_array,"\n"),1) :) );
	    //write_file(tmpfile,implode(contents,""));
	}

	else {
	    //write("File already contains a working init function.");
	    return 2;
	}
    }

    else {
	contents += ({ "void init(){\n::init();\n}" });
	global_array = contents;
	globalstr3 = tmpfile;
	unguarded( (: write_file(globalstr3,implode(global_array,"\n"),1) :) );
    }
    globalstr = tmpfile;
    globalstr2 = file;
    done = unguarded( (: cp(globalstr, globalstr2) :) );
    unguarded( (: rm(globalstr) :) );
    return done;
}

varargs int eventModString(string file, string param, mixed replace, string *params){
    string check_include, ret, tmpfile;
    int terrain_include = 0;
    if(file_exists(file) && !check_privs(this_player(),file)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }
    if(!params) where_append = ({"SetLong","SetShort"});
    if(params && !sizeof(params)) where_append = ({"SetLong","SetShort"});
    else where_append = params;

    tmpfile = generate_tmp(file);

    //if(!grepp(file,"\n") && file_exists(file)) globalstr = read_file(file);
    globalstr = file;
    globalstr2 = tmpfile;
    globalstr3 = param;
    globalmixed = replace;

    if(stringp(replace)) { 
	if(globalstr3 == "SetArmorType" || globalstr3 == "SetMealType" || 
	  globalstr3 == "SetPosition" || globalstr3 == "SetTerrainType" ||
	  globalstr3 == "AddTerrainType" || globalstr3 == "SetSize" ||
	  globalstr3 == "SetBodyType" || globalstr3 == "SetRespiration" ||
	  globalstr3 == "SetVendorType" || globalstr3 == "SetDamageType"){
	    replace = upper_case(replace);
	    if(globalstr3 == "SetArmorType") check_include = "/include/armor_types.h";
	    if(globalstr3 == "SetVendorType") check_include = "/include/vendor_types.h";
	    if(globalstr3 == "SetDamageType") check_include = "/include/damage_types.h";
	    if(globalstr3 == "SetMealType") check_include = "/include/meal_types.h";
	    if(globalstr3 == "SetPosition") check_include = "/include/position.h";
	    if(globalstr3 == "SetTerrainType") check_include = "/include/terrain_types.h";
	    if(globalstr3 == "AddTerrainType") check_include = "/include/terrain_types.h";
	    if(globalstr3 == "SetSize") check_include = "/include/size_types.h";
	    if(globalstr3 == "SetRespiration") check_include = "/include/respiration_types.h";
	    if(globalstr3 == "SetBodyType") check_include = "/include/body_types.h";
	    if(globalstr3 == "SetSize" && !grepp(replace,"S_")) replace = "S_"+replace; 
	    if(globalstr3 == "SetRespiration" && !grepp(replace,"R_")) replace = "R_"+replace;
	    if(globalstr3 == "SetBodyType" && !grepp(replace,"B_")) replace = "B_"+replace; 
	    if(globalstr3 == "SetVendorType" && !grepp(replace,"VT_")) replace = "VT_"+replace;
	    if(globalstr3 == "SetArmorType" && !grepp(replace,"A_")) replace = "A_"+replace;
	    if(globalstr3 == "SetTerrainType" && !grepp(replace,"T_")) replace = "T_"+replace;
	    if(globalstr3 == "AddTerrainType" && !grepp(replace,"T_")) replace = "T_"+replace;
	    if(grepp(replace,"T_")) terrain_include = 1;
	    if(globalstr3 == "SetMealType" && !grepp(replace,"MEAL_")) replace = "MEAL_"+replace;
	    if(globalstr3 == "SetPosition" && !grepp(replace,"POSITION_")) replace = "POSITION_"+replace;
	    if(!grepp(read_file(check_include),replace)) {
		write("Invalid type. Please review "+check_include+" for valid types.");
		return 1;
	    }
	    if(grepp(replace,"MEAL_ALCOHOL")) replace = "MEAL_DRINK | MEAL_ALCOHOL";
	    if(grepp(replace,"MEAL_CAFFEINE")) replace = "MEAL_DRINK | MEAL_CAFFEINE";

	    globalmixed = replace;
	}
	else globalmixed = "\""+replace+"\"";
    }
    if(unguarded( (: grepp(read_file(globalstr),globalstr3):) ))
	ret = unguarded( (: replace_matching_line(read_file(globalstr), globalstr3, globalstr3+"("+globalmixed+");") :) );
    else ret = unguarded( (: eventAppend(read_file(globalstr),where_append,"\n"+globalstr3+"("+globalmixed+");\n") :) );
    if(terrain_include && !grepp(ret,"terrain_types.h")) ret = "#include <terrain_types.h>\n" + ret;
    globalstr3 = ret;
    unguarded( (:  write_file(globalstr2, globalstr3, 1) :) );
    globalstr = file;
    unguarded( (: cp(globalstr2, globalstr) :) );
    unguarded( (: rm(globalstr2) :) );
    return 1;
}

int eventModHeader(object ob, string what, string value){
    string newcontents, newline;
    string tmpfile = generate_tmp(ob);
    globalstr = tmpfile;
    globalstr2 = base_name(ob)+".c";

    unguarded( (: cp(globalstr2, globalstr) :) );
    unguarded( (: globalstr3 = read_file(globalstr) :) );

    if(what == "include") {
	what = "#include <";
	if(!grepp(value,".h")) value += ".h>";
	else value += ">";
	newline = "\n"+what + value+"\n";
    }

    if(what == "inherit") {
	value = upper_case(value);
	if(!grepp(value,"LIB_")) value = "LIB_"+value;
	newline = "\n"+what +" "+value+";\n";
    }

    if(grepp(globalstr3,value)) {
	write("That object already contains that line.");
	return 1;
    }
    if(what == "inherit"){
	globalstr3 = this_object()->eventAppend(globalstr3,({"inherit "}),newline);
    }

    else {
	if(grepp(globalstr3,what)){
	    globalstr3  =  replace_string(globalstr3,".h>\n",".h>;\n");
	    globalstr3  =  replace_string(globalstr3,".h\"\n",".h\";\n");
	    unguarded( (: write_file(globalstr,globalstr3,1) :) );

	    globalstr3 = this_object()->eventAppend(globalstr3,({"#include "}),newline);
	    globalstr3  =  replace_string(globalstr3,".h>;\n",".h>\n");
	    globalstr3  =  replace_string(globalstr3,".h\";\n",".h\"\n");

	}
	else {
	    globalstr3 = this_object()->eventAppend(globalstr3,({"inherit "}),newline);
	}
    }

    globalstr = generate_tmp(ob);
    unguarded( (: write_file(globalstr,globalstr3,1) :) );

    if( catch(load_object(globalstr))){
	write("This change would hose up the object. Modification aborted.");
	return 1;
    }

    unguarded( (: cp(globalstr, globalstr2) :) );
    reload(ob);
    rm(tmpfile);
    return 1;
}

int eventAddCreate(string file){
    string *contents, *temparray, *temparray2, *beginners;
    string tmpfile;
    int done, add, memnum;

    globalstr = tmpfile;
    globalstr2 = file;

    if(file_exists(file) && !check_privs(this_player(),file)){
	write("You do not appear to have access to this file. Modification aborted.");
	return 1;
    }

    tmpfile = generate_tmp(file);
    temparray = ({});
    temparray2 = ({});
    contents = unguarded( (: eventReadFunctions(globalstr2) :) );
    beginners = ({"private","static","nomask","varargs"});
    beginners += ({"int","void","buffer","mapping","mixed","string","array","float"});

    foreach(string func in contents){
	if(member_array(func,contents) != 0 && grepp(func,"void create")) memnum = member_array(func,contents);
    }

    if(memnum && memnum != -1){
	if(!grepp(contents[memnum],"::create()")){
	    temparray = explode(contents[memnum],"\n");
	    foreach(string line in temparray){
		if(line && !starts_with_arr(line, beginners)) add = 1;
		if(add && !done) {
		    temparray2 += ({"::create();"});
		    temparray2 += ({line});
		    done = 1;
		}
		else {
		    temparray2 += ({line});
		}
	    }
	    contents[memnum] = implode(temparray2,"\n");
	    global_array = contents;
	    globalstr3 = tmpfile;
	    unguarded( (: write_file(globalstr3,implode(global_array,"\n"),1) :) );
	    //write_file(tmpfile,implode(contents,""));
	}

	else {
	    //write("File already contains a working init function.");
	    return 2;
	}
    }

    global_array = contents;
    globalstr3 = tmpfile;
    unguarded( (: write_file(globalstr3,implode(global_array,"\n"),1) :) );
    globalstr = tmpfile;
    globalstr2 = file;
    done = unguarded( (: cp(globalstr, globalstr2) :) );
    unguarded( (: rm(globalstr) :) );
    return done;
}