/* /secure/cmds/creator/update.c
* from the Dead Souls LPC Library
* destroys an object then reloads it
* created by Descartes of Borg 950330
* - added recursive update option (blitz 960711)
* Version: @(#) update.c 1.2@(#)
* Last modified: 96/12/17
*/
#include <lib.h>
#include <rooms.h>
inherit LIB_DAEMON;
inherit LIB_HELP;
#define U_RECURSIVE (1 << 1)
#define U_INTERACTIVE (1 << 2)
#define U_AUTOMATED (1 << 3)
mapping LocationsMap = ([]);
static int eventUpdate(string args, int flags);
static void CacheAndCarry(object *obs){
if(!sizeof(obs)) return;
foreach(object fellow in obs){
string ubi = fellow->GetProperty("LastLocation");
if(ubi) LocationsMap[fellow->GetKeyName()] = ubi;
}
obs->eventMove(ROOM_VOID);
}
static void ReturnAndRelease(object *dudes, string file){
if(!sizeof(dudes)) return;
if(!file) return;
dudes->eventMove(file);
foreach(object fellow in dudes){
if(sizeof(LocationsMap[fellow->GetKeyName()])){
fellow->SetProperty("LastLocation",LocationsMap[fellow->GetKeyName()]);
}
}
}
static void create() {
SetHelp("Syntax: <update [-r] [file list]>\n"
"Destructs the master copy of the file named "
"and then attempts to reload a new version "
"of it.\n"
"The -r flag attempts to update all "
"files in the target's inheritance tree.\n");
}
mixed cmd(string args) {
object *obs, ob;
string *files, *tmpfiles;
mixed tmp;
string file;
int i, flags;
if( sizeof(args) ) {
string str = args;
args = "";
foreach(string foo in explode(str, " ")) {
switch(foo) {
case "-r" : flags |= U_RECURSIVE; break;
case "-e" : flags |= U_INTERACTIVE; break;
case "-a" : flags |= U_AUTOMATED; break;
default: args += " " + foo;
}
}
}
if( args == "" || !args ) {
ob = environment(this_player());
if( !ob ) return "You have no environment.";
file = base_name(ob);
this_player()->eventPrint("Updating environment");
obs = filter(all_inventory(ob), (: userp :));
//if( sizeof(obs) ) obs->eventMove(ROOM_VOID);
if( sizeof(obs) ) CacheAndCarry(obs);
if( !eventUpdate(base_name(ob), flags) ) {
obs->eventPrint("You are thrown into the void as your "
"surroundings violently destruct.");
return "Error in reloading environment.";
}
obs = filter(obs, (: $1 :));
//if( sizeof(obs) ) obs->eventMove(file);
if( sizeof(obs) ) ReturnAndRelease(obs, file);
return 1;
}
tmpfiles = map(explode(args, " "),
function(string x) {
string tmp = (string)this_player()->query_cwd();
if( x[<2..] != ".c" ) x = x + ".c";
return absolute_path(tmp, x);
});
tmpfiles = map(tmpfiles,
(: ((file_size($1) == -2) ?
(($1[<1] == '/') ? ($1 + "*.c") : ($1 + "/*.c")) : $1)
:));
i = sizeof(tmpfiles);
files = ({});
while(i--) {
if( sizeof(tmp = (string *)this_player()->wild_card(tmpfiles[i])) )
files += tmp;
else this_player()->eventPrint(tmpfiles[i] + ": File not found.");
}
i = sizeof(files);
while(i--) eventUpdate(files[i], flags);
return 1;
}
static int eventUpdate(string args, int flags) {
object ob;
string tmp;
if( flags & U_RECURSIVE ) {
string *ancestors;
int i;
if( !eventUpdate(args, flags ^ U_RECURSIVE) ) return 0;
if( !(ob = find_object(args)) ) return 0;
ancestors = deep_inherit_list(ob);
if(identify(flags ^ U_AUTOMATED) == "8")
this_player()->eventPrint("(%^CYAN%^Recursive "
"update: " + args + "%^RESET%^)\n");
i = sizeof(ancestors);
while(i--) if( !eventUpdate(ancestors[i], flags ^ U_RECURSIVE) ) {
this_player()->eventPrint("Recursive update failed.");
return 0;
}
}
if( args[<2..] == ".c" ) args = args[0..<3];
ob = find_object(args);
if(!ob) ob = load_object(args);
if( ob ) {
if( tmp = catch( ob->eventDestruct()) )
this_player()->eventPrint(args + ": error in eventDestruct()");
if( ob ) destruct(ob);
if( ob )
this_player()->eventPrint(args + ": Failed to destruct old object.");
}
if( args == base_name(this_object()) ) {
this_player()->eventPrint("Cannot reload update after destruct.\n"
"It will be reloaded at next reference.");
return 0;
}
tmp = catch(call_other(args, "???"));
if( !tmp ) {
if(identify(flags ^ U_AUTOMATED) == "8")this_player()->eventPrint(args + ": Ok");
return 1;
} else this_player()->eventPrint(args + ": Error in update\n" + tmp);
return 0;
}
