1 /*
2 * SysDB - src/core/object.c
3 * Copyright (C) 2012 Sebastian 'tokkee' Harl <sh@tokkee.org>
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
16 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
17 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
18 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
19 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
20 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
21 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
22 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
23 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
24 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
25 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26 */
28 #include "core/object.h"
30 #include <assert.h>
32 #include <stdlib.h>
33 #include <string.h>
35 /*
36 * private types
37 */
39 static int
40 sdb_object_wrapper_init(sdb_object_t *obj, va_list ap)
41 {
42 void *data = va_arg(ap, void *);
43 void (*destructor)(void *) = va_arg(ap, void (*)(void *));
45 assert(obj);
47 SDB_OBJ_WRAPPER(obj)->data = data;
48 SDB_OBJ_WRAPPER(obj)->destructor = destructor;
49 return 0;
50 } /* sdb_object_wrapper_init */
52 static void
53 sdb_object_wrapper_destroy(sdb_object_t *obj)
54 {
55 if (! obj)
56 return;
58 assert(obj->ref_cnt <= 0);
60 if (SDB_OBJ_WRAPPER(obj)->destructor && SDB_OBJ_WRAPPER(obj)->data)
61 SDB_OBJ_WRAPPER(obj)->destructor(SDB_OBJ_WRAPPER(obj)->data);
62 SDB_OBJ_WRAPPER(obj)->data = NULL;
63 } /* sdb_object_wrapper_destroy */
65 static sdb_type_t sdb_object_wrapper_type = {
66 sizeof(sdb_object_wrapper_t),
68 sdb_object_wrapper_init,
69 sdb_object_wrapper_destroy,
70 /* clone = */ NULL
71 };
73 /*
74 * public API
75 */
77 sdb_object_t *
78 sdb_object_vcreate(const char *name, sdb_type_t type, va_list ap)
79 {
80 sdb_object_t *obj;
82 if (type.size <= sizeof(sdb_object_t))
83 return NULL;
85 obj = malloc(type.size);
86 if (! obj)
87 return NULL;
88 memset(obj, 0, type.size);
90 if (name) {
91 obj->name = strdup(name);
92 if (! obj->name) {
93 obj->ref_cnt = 1;
94 sdb_object_deref(obj);
95 return NULL;
96 }
97 }
99 if (type.init) {
100 if (type.init(obj, ap)) {
101 obj->ref_cnt = 1;
102 sdb_object_deref(obj);
103 return NULL;
104 }
105 }
107 obj->type = type;
108 obj->ref_cnt = 1;
109 return obj;
110 } /* sdb_object_vcreate */
112 sdb_object_t *
113 sdb_object_create(const char *name, sdb_type_t type, ...)
114 {
115 sdb_object_t *obj;
116 va_list ap;
118 va_start(ap, type);
119 obj = sdb_object_vcreate(name, type, ap);
120 va_end(ap);
121 return obj;
122 } /* sdb_object_create */
124 sdb_object_t *
125 sdb_object_create_wrapper(const char *name,
126 void *data, void (*destructor)(void *))
127 {
128 return sdb_object_create(name, sdb_object_wrapper_type, data, destructor);
129 } /* sdb_object_create_wrapper */
131 void
132 sdb_object_deref(sdb_object_t *obj)
133 {
134 if (! obj)
135 return;
137 --obj->ref_cnt;
138 if (obj->ref_cnt > 0)
139 return;
141 if (obj->type.destroy)
142 obj->type.destroy(obj);
144 if (obj->name)
145 free(obj->name);
146 free(obj);
147 } /* sdb_object_deref */
149 void
150 sdb_object_ref(sdb_object_t *obj)
151 {
152 if (! obj)
153 return;
154 assert(obj->ref_cnt > 0);
155 ++obj->ref_cnt;
156 } /* sdb_object_ref */
158 sdb_object_t *
159 sdb_object_clone(const sdb_object_t *obj)
160 {
161 if ((! obj) || (! obj->type.clone))
162 return NULL;
163 return obj->type.clone(obj);
164 } /* sdb_object_clone */
166 int
167 sdb_object_cmp_by_name(const sdb_object_t *o1, const sdb_object_t *o2)
168 {
169 if ((! o1) && (! o2))
170 return 0;
171 else if (! o1)
172 return -1;
173 else if (! o2)
174 return 1;
176 return strcasecmp(o1->name, o2->name);
177 } /* sdb_object_cmp_by_name */
179 /* vim: set tw=78 sw=4 ts=4 noexpandtab : */