/*    /lib/persist.c
 *    from the Dead Souls  Object Library
 *    provides object persistance
 *    created by Beek@Dead Souls 950528
 */

#include "include/persist.h"
#include <config.h>

private int SaveRecurse;
private static int Retain = RETAIN_ON_QUIT;

mixed *Saved = ({});

string GetShort();

static int eventConvertObject(mixed val, int recurse) {
    string *flat = ({});
    mixed *tmp;

    if( val[0] != base_name(this_object()) ) error("Invalid save string.\n");
    tmp = map(Saved, (: functionp($1) ? evaluate($1, "loading") : $1 :));
    foreach(mixed elem in tmp) {
        if( arrayp(elem) ) flat += elem;
        else flat += ({ elem });
    }
    flat -= ({ 0 });
    if( sizeof(flat) != sizeof(val[1]) ) error("Invalid save string size.\n");
    for(int i = 0; i < sizeof(flat); i++ ) store_variable(flat[i], val[1][i]);
    if( sizeof(val) == 3 ) {
        foreach(string obdata in val[2]) {
            object ob;

            val = restore_variable(obdata);
            ob = new(val[0]);
            ob->eventLoadObject(val, 1);
        }
    }
    if( recurse ) eventMove(previous_object());
    return 1;
}

int eventLoadObject(mixed val, int recurse) {
    mixed *tmp;
    string *flat = ({});
    mixed data;

    data = val;
    /* This converst NM IV - IVr2.2 data into NM  data */
    if( arrayp(data) ) return eventConvertObject(data, recurse);
    if( data["#base_name#"] != base_name(this_object()) )
        error("Invalid save string.\n");
    tmp = map(Saved, (: functionp($1) ? evaluate($1, "loading") : $1 :));
    foreach(mixed elem in tmp) {
        if( arrayp(elem) ) flat += elem;
        else flat += ({ elem });
    }
    flat -= ({ 0 });
    foreach(string var, val in data) {
        if( var[0] == '#' ) continue;
        catch(store_variable(var, val));
    }
    if( data["#inventory#"] ) {
        foreach(mixed obdata in data["#inventory#"]) {
            object ob;

            val = restore_variable(obdata);
            if( arrayp(val) ) {
                catch(ob = new(val[0]));
            }
            else {
                catch(ob = new(val["#base_name#"]));
            }
            if( ob ) {
                ob->eventLoadObject(val, 1);
            }
        }
    }
    if( recurse ) {
        object prev = previous_object();

        if( !eventMove(prev) ) {
            call_out(function(object p) {
                  object env = environment(p);

                  if( !env ) {
                      p->eventPrint("You lose " + GetShort() + ".");
                  }
                  else {
                      p->eventPrint("You drop " + GetShort() + ".");
                      eventMove(env);
                  }
              }, 1, prev);
        }
    }
}

static mixed *AddSave(mixed *vars) { return (Saved += vars); }

mixed *GetSave() { return copy(Saved); }

static int SetSaveRecurse(int flag) { return (SaveRecurse = flag); }

string GetSaveString() {
    mixed *tmp;
    string *flat = ({});
    mapping mp = ([]);

    tmp = map(Saved, (: functionp($1) ? evaluate($1, "saving") : $1 :));
    foreach(mixed elem in tmp) {
        if( arrayp(elem) ) flat += elem;
        else flat += ({ elem });
    }
    if(flat && sizeof(flat)){
        flat -= ({ 0 });
        foreach(mixed var in flat) {
            if(stringp(var)) mp[var] = fetch_variable(var);
        }
    }
    mp["#base_name#"] = base_name(this_object());
    if( SaveRecurse )
        mp["#inventory#"] = (string *)all_inventory()->GetSaveString() - ({ 0 });
    return save_variable(mp);
}

int SetRetain(int i){
    if(i) Retain = 1;
    else Retain = 0;
    return Retain;
}

int GetRetain(){
    return Retain;
}