src/db_xml.c

Go to the documentation of this file.

/*
 * db_rw.c 
 */

#include "copyright.h"
#include "config.h"

#include <sys/file.h>

#include "mudconf.h"
#include "config.h"
#include "externs.h"
#include "db.h"
#include "vattr.h"
#include "attrs.h"
#include "alloc.h"
#include "powers.h"

#define MUX_REPRESENTATION
// #define REASONABLE_REPRESENTATION

extern const char *getstring_noalloc(FILE *, int);
extern void putstring(FILE *, const char *);
extern void db_grow(dbref);

extern struct object *db;

static int g_version;
static int g_format;
static int g_flags;

static int xml_putescaped(FILE * f, const char *string)
{
        char emit_buffer[LBUF_SIZE * 7];
        char *r, *s;
        s = emit_buffer;
        memset(emit_buffer, 0, sizeof(emit_buffer));
        for(r = (char *)string; *r; r++) {
                switch (*r) {
                case '"':
                        s = stpcpy(s, "&quot;");
                        break;
                case '\'':
                        s = stpcpy(s, "&apos;");
                        break;
                case '&':
                        s = stpcpy(s, "&amp;");
                case '<':
                        s = stpcpy(s, "&lt;");
                        break;
                case '>':
                        s = stpcpy(s, "&gt;");
                        break;
                case '\\':
                        s = stpcpy(s, "\\\\");
                        break;
                default:
                        *s++ = *r;
                }
        }
        *s = '\0';
        return fprintf(f, "%s", emit_buffer);
}

static int xml_putobjstring(FILE * f, const char *name, const char *value)
{
        fprintf(f, "\t\t<%s>", name);
        xml_putescaped(f, value);
        fprintf(f, "</%s>\n", name);
        return 1;
}

static int xml_putobjref(FILE * f, const char *name, long value)
{
        return fprintf(f, "\t\t<%s>%ld</%s>\n", name, value, name);
}

static int xml_putattr(FILE * f, const char *name, const char *value, long owner,
                                           long flags)
{
        fprintf(f, "\t\t<Attribute name=\"");
        xml_putescaped(f, name);
        fprintf(f, "\" owner=\"%ld\" flags=\"%ld\">", owner, flags);
        xml_putescaped(f, value);
        fprintf(f, "</Attribute>\n");
        return 1;
}

static int xml_db_write_object(FILE * f, dbref i, int db_format, int flags)
{
        ATTR *a;
        char *got, *as;
        dbref aowner;
        long sub;
        int ca, aflags, save, j;
        BOOLEXP *tempbool;

        fprintf(f, "\t<Object dbref=\"%ld\">\n", (long) i);
        xml_putobjstring(f, "Name", Name(i));
        xml_putobjref(f, "Location", Location(i));
        xml_putobjref(f, "Zone", Zone(i));
        if(Contents(i) == -1) {
                fprintf(f, "\t\t<Contents/>\n");
        } else {
                fprintf(f, "\t\t<Contents>\n");
                sub = Contents(i);
                while (sub != -1) {
                        fprintf(f, "\t\t\t<DBREF dbref=\"%ld\"/>\n", sub);
                        sub = Next(sub);
                }
                fprintf(f, "\t\t</Contents>\n");
        }
        if(Exits(i) == -1) {
                fprintf(f, "\t\t<Exits/>\n");
        } else {
                fprintf(f, "\t\t<Exits>\n");
                sub = Exits(i);
                while (sub != -1) {
                        fprintf(f, "\t\t\t<DBREF dbref=\"%ld\"/>\n", sub);
                        sub = Next(sub);
                }
                fprintf(f, "\t\t</Exits>\n");
        }
        got = atr_get(i, A_LOCK, &aowner, &aflags);
        xml_putobjstring(f, "Lock", got);
        free_lbuf(got);

        xml_putobjref(f, "Link", Link(i));
        xml_putobjref(f, "Owner", Owner(i));
        xml_putobjref(f, "Parent", Parent(i));
        xml_putobjref(f, "Pennies", Pennies(i));
        xml_putobjref(f, "Flags", Flags(i));
        xml_putobjref(f, "Flags2", Flags2(i));
        xml_putobjref(f, "Flags3", Flags3(i));
        xml_putobjref(f, "Powers", Powers(i));
        xml_putobjref(f, "Powers2", Powers2(i));

        for(ca = atr_head(i, &as); ca; ca = atr_next(&as)) {
                save = 0;
                a = atr_num(ca);
                if(a)
                        j = a->number;
                else
                        j = -1;

                if(j > 0) {
                        switch (j) {
                        case A_NAME:
                                if(flags & V_ATRNAME)
                                        save = 1;
                                break;
                        case A_LOCK:
                                if(flags & V_ATRKEY)
                                        save = 1;
                                break;
                        case A_LIST:
                        case A_MONEY:
                                break;
                        default:
                                save = 1;
                        }
                }
                if(save) {
                        got = atr_get(i, j, &aowner, &aflags);
                        xml_putattr(f, a->name, got, aowner, aflags);
                }
        }
        fprintf(f, "\t</Object>\n");
        return 0;
}

static int xml_db_write_mux(FILE * f, dbref i, int db_format, int flags)
{
        ATTR *a;
        char *got, *as;
        dbref aowner;
        long sub;
        int ca, aflags, save, j;
        BOOLEXP *tempbool;

        fprintf(f, "\t<Object dbref=\"%ld\">\n", (long) i);
        xml_putobjstring(f, "Name", Name(i));
        xml_putobjref(f, "Location", Location(i));
        xml_putobjref(f, "Zone", Zone(i));
        xml_putobjref(f, "Contents", Contents(i));
        xml_putobjref(f, "Exits", Exits(i));
        got = atr_get(i, A_LOCK, &aowner, &aflags);
        xml_putobjstring(f, "Lock", got);
        free_lbuf(got);

        xml_putobjref(f, "Link", Link(i));
        xml_putobjref(f, "Owner", Owner(i));
        xml_putobjref(f, "Parent", Parent(i));
        xml_putobjref(f, "Pennies", Pennies(i));
        xml_putobjref(f, "Flags", Flags(i));
        xml_putobjref(f, "Flags2", Flags2(i));
        xml_putobjref(f, "Flags3", Flags3(i));
        xml_putobjref(f, "Powers", Powers(i));
        xml_putobjref(f, "Powers2", Powers2(i));
        for(ca = atr_head(i, &as); ca; ca = atr_next(&as)) {
                save = 0;
                a = atr_num(ca);
                if(a)
                        j = a->number;
                else
                        j = -1;

                if(j > 0) {
                        switch (j) {
                        case A_NAME:
                                if(flags & V_ATRNAME)
                                        save = 1;
                                break;
                        case A_LOCK:
                                if(flags & V_ATRKEY)
                                        save = 1;
                                break;
                        case A_LIST:
                        case A_MONEY:
                                break;
                        default:
                                save = 1;
                        }
                }
                if(save) {
                        got = atr_get(i, j, &aowner, &aflags);
                        xml_putattr(f, a->name, got, aowner, aflags);
                }
        }
        fprintf(f, "\t</Object>\n");
        return 0;
}

dbref xml_db_write(FILE * f, int format, int version)
{
        dbref i;
        int flags;
        VATTR *vp;

        fprintf(f, "<?xml version=\"1.0\" encoding=\"utf-8\" ?>\n");
        fprintf(f, "<TinyMUXDataBase dumptime=\"%lu\">\n", mudstate.now);
        DO_WHOLE_DB(i) {
                if(!(Going(i))) {
#ifdef MUX_REPRESENTATION
                        xml_db_write_mux(f, i, format, flags);
#else
                        xml_db_write_object(f, i, format, flags);
#endif
                }
        }
        fprintf(f, "</TinyMUXDataBase>\n");
        fflush(f);
        return (mudstate.db_top);
}

---