#include <config.h>
#include <bonobo/bonobo-moniker-simple.h>
#include <bonobo/bonobo-moniker-util.h>
#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-storage.h>
#include "wombat-moniker.h"
#define DEFAULT_DB_URL "xmldb:/tmp/wombat-default-config.xmldb"
#define USER_DB_URL "xmldb:~/evolution/config.xmldb"
#define DB_URL (DEFAULT_DB_URL "#" USER_DB_URL)
Bonobo_Storage
wombat_root_storage (CORBA_Environment *ev)
{
static BonoboStorage *root = NULL;
char *path;
if (!root) {
path = g_strconcat (g_get_home_dir (), "/evolution/config",
NULL);
root = bonobo_storage_open_full (BONOBO_IO_DRIVER_FS, path,
Bonobo_Storage_CREATE, 0664,
ev);
g_free (path);
if (BONOBO_EX (ev) || !root)
return CORBA_OBJECT_NIL;
}
return BONOBO_OBJREF (root);
}
static Bonobo_Storage
wombat_lookup_storage (const char *name,
CORBA_Environment *ev)
{
Bonobo_Storage root;
if ((root = wombat_root_storage (ev)) == CORBA_OBJECT_NIL)
return CORBA_OBJECT_NIL;
if (!strcmp (name, ""))
return bonobo_object_dup_ref (root, ev);
return Bonobo_Storage_openStorage (root, name, Bonobo_Storage_CREATE,
ev);
}
static Bonobo_Storage
wombat_lookup_stream (const char *name,
CORBA_Environment *ev)
{
Bonobo_Storage root;
if (!strcmp (name, "")) {
bonobo_exception_set (ev, ex_Bonobo_Storage_NotFound);
return CORBA_OBJECT_NIL;
}
if ((root = wombat_root_storage (ev)) == CORBA_OBJECT_NIL)
return CORBA_OBJECT_NIL;
return Bonobo_Storage_openStream (root, name, Bonobo_Storage_CREATE,
ev);
}
static CORBA_Object
wombat_lookup_db (CORBA_Environment *ev)
{
static CORBA_Object db = CORBA_OBJECT_NIL;
if (db == CORBA_OBJECT_NIL)
db = bonobo_get_object (DB_URL,
"IDL:Bonobo/ConfigDatabase:1.0", ev);
bonobo_object_dup_ref (db, ev);
return db;
}
Bonobo_Unknown
wombat_moniker_resolve (BonoboMoniker *moniker,
const Bonobo_ResolveOptions *options,
const CORBA_char *interface,
CORBA_Environment *ev)
{
CORBA_Object db;
Bonobo_Moniker parent;
const gchar *name;
Bonobo_Storage storage;
Bonobo_Stream stream;
parent = bonobo_moniker_get_parent (moniker, ev);
if (BONOBO_EX (ev))
return CORBA_OBJECT_NIL;
name = bonobo_moniker_get_name (moniker);
if (parent != CORBA_OBJECT_NIL) {
g_warning ("wombat: parent moniker are not supproted");
bonobo_object_release_unref (parent, ev);
bonobo_exception_set (ev, ex_Bonobo_Moniker_InterfaceNotFound);
return CORBA_OBJECT_NIL;
}
if (!strcmp (interface, "IDL:Bonobo/Storage:1.0")) {
storage = wombat_lookup_storage (name, ev);
return storage;
}
if (!strcmp (interface, "IDL:Bonobo/Stream:1.0")) {
stream = wombat_lookup_stream (name, ev);
return stream;
}
if (!strcmp (interface, "IDL:Bonobo/ConfigDatabase:1.0")) {
if (strcmp (name, ""))
g_warning ("wombat: unused moniker name");
if ((db = wombat_lookup_db (ev)) != CORBA_OBJECT_NIL)
return db;
}
bonobo_exception_set (ev, ex_Bonobo_Moniker_InterfaceNotFound);
return CORBA_OBJECT_NIL;
}
BonoboObject *
wombat_moniker_factory (BonoboGenericFactory *this,
const char *object_id,
void *data)
{
g_return_val_if_fail (object_id != NULL, NULL);
if (!strcmp (object_id, "OAFIID:Bonobo_Moniker_wombat"))
return BONOBO_OBJECT (bonobo_moniker_simple_new (
"wombat:", wombat_moniker_resolve));
else
g_warning ("Failing to manufacture a '%s'", object_id);
return NULL;
}