1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#include <config.h>
#include <bonobo/bonobo-moniker-simple.h>
#include <bonobo/bonobo-moniker-util.h>
#include <bonobo/bonobo-exception.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)
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);
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;
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")) {
/* fixme: */
}
if (!strcmp (interface, "IDL:Bonobo/Stream:1.0")) {
/* fixme: */
}
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;
}
|
