// Petrarch
// Merentha Lib 1.0
// <update>

#include <rooms.h>

varargs int command(string file) {
    object ob, *inv;
    string err;
    int i;
    if(!file || file=="here") {
	if(!environment(this_player())) return notify_fail("No environment.\n");
	else file=file_name(environment(this_player()));
    }
    if(file[0..0]!="/") file=this_player()->query_cwd()+file;
    if(file_size(file)<0 && file_size(file+".c")<0) return notify_fail("File does not exist or is a directory.\n");
    if(ob=find_object(file)) {
	if(ob->is_room()) {
	    i=sizeof(inv=all_inventory(ob));
	    while(i--) 
		if(userp(inv[i])) inv[i]->move(VOID_ROOM);
	    ob->remove();
	    if(ob) destruct(ob);
	    if(err=catch(call_other(file, "???"))) {
		message("command", "Error in update:\n"+err, this_player());
		return 1;
	    }
	    i=sizeof(inv);
	    while(i--) if(inv[i]) inv[i]->move(file);
	} else {
	    ob->remove();
	    if(ob) destruct(ob);
	    if(err=catch(call_other(file, "???"))) {
		message("command", "Error in update:\n"+err, this_player());
		return 1;
	    }
	}
    } else {
	if(err=catch(call_other(file, "???"))) {
	    message("command", "Error in update:\n"+err, this_player());
	    return 1;
	}
    }
    message("command", "Update Successful.", this_player());
    return 1;
}

string help() {
return "Syntax: update <file>\n\nUpdates a file by destroying it and reloading it.";
}