Mercurial > audlegacy
annotate src/audacious/tuple.c @ 3301:008530664ba1 trunk
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
author | Christian Birchinger <joker@netswarm.net> |
---|---|
date | Fri, 10 Aug 2007 14:39:42 +0200 |
parents | b78d3197c70d |
children | eaf68ed98166 |
rev | line source |
---|---|
3278 | 1 /* |
2 * Audacious | |
3 * Copyright (c) 2006-2007 Audacious team | |
4 * | |
5 * This program is free software; you can redistribute it and/or modify | |
6 * it under the terms of the GNU General Public License as published by | |
7 * the Free Software Foundation; under version 3 of the License. | |
8 * | |
9 * This program is distributed in the hope that it will be useful, | |
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
12 * GNU General Public License for more details. | |
13 * | |
14 * You should have received a copy of the GNU General Public License | |
15 * along with this program. If not, see <http://www.gnu.org/licenses>. | |
16 * | |
17 * The Audacious team does not consider modular code linking to | |
18 * Audacious or using our public API to be a derived work. | |
19 */ | |
20 | |
21 #include <glib.h> | |
22 #include <mowgli.h> | |
23 | |
24 #include "tuple.h" | |
25 | |
26 struct _Tuple { | |
27 mowgli_object_t parent; | |
28 mowgli_dictionary_t *dict; | |
29 }; | |
30 | |
31 typedef struct { | |
32 TupleValueType type; | |
33 union { | |
34 gchar *string; | |
35 gint integer; | |
36 } value; | |
37 } TupleValue; | |
38 | |
39 static mowgli_heap_t *tuple_heap = NULL; | |
40 static mowgli_heap_t *tuple_value_heap = NULL; | |
41 static mowgli_object_class_t tuple_klass; | |
42 | |
3280
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
43 /* iterative destructor of tuple values. */ |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
44 static void |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
45 tuple_value_destroy(mowgli_dictionary_elem_t *delem, gpointer privdata) |
3280
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
46 { |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
47 TupleValue *value = (TupleValue *) delem->data; |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
48 |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
49 if (value->type == TUPLE_STRING) |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
50 g_free(value->value.string); |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
51 |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
52 mowgli_heap_free(tuple_value_heap, value); |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
53 } |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
54 |
3278 | 55 static void |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
56 tuple_destroy(gpointer data) |
3278 | 57 { |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
58 Tuple *tuple = (Tuple *) data; |
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
59 |
3280
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
60 mowgli_dictionary_destroy(tuple->dict, tuple_value_destroy, NULL); |
3278 | 61 mowgli_heap_free(tuple_heap, tuple); |
62 } | |
63 | |
64 Tuple * | |
65 tuple_new(void) | |
66 { | |
67 Tuple *tuple; | |
68 | |
69 if (tuple_heap == NULL) | |
70 { | |
3281 | 71 tuple_heap = mowgli_heap_create(sizeof(Tuple), 256, BH_NOW); |
72 tuple_value_heap = mowgli_heap_create(sizeof(TupleValue), 512, BH_NOW); | |
3278 | 73 mowgli_object_class_init(&tuple_klass, "audacious.tuple", tuple_destroy, FALSE); |
74 } | |
75 | |
76 /* FIXME: use mowgli_object_bless_from_class() in mowgli 0.4 | |
77 when it is released --nenolod */ | |
78 tuple = mowgli_heap_alloc(tuple_heap); | |
79 mowgli_object_init(mowgli_object(tuple), NULL, &tuple_klass, NULL); | |
80 | |
81 tuple->dict = mowgli_dictionary_create(g_ascii_strcasecmp); | |
82 | |
83 return tuple; | |
84 } | |
85 | |
3301
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
86 Tuple * |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
87 tuple_new_from_filename(gchar *filename) |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
88 { |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
89 gchar *scratch, *ext; |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
90 Tuple *tuple; |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
91 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
92 g_return_val_if_fail(filename != NULL, NULL); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
93 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
94 tuple = tuple_new(); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
95 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
96 g_return_val_if_fail(tuple != NULL, NULL); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
97 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
98 scratch = g_path_get_basename(filename); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
99 tuple_associate_string(tuple, "file-name", scratch); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
100 g_free(scratch); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
101 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
102 scratch = g_path_get_dirname(filename); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
103 tuple_associate_string(tuple, "file-path", scratch); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
104 g_free(scratch); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
105 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
106 ext = strrchr(filename, '.'); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
107 if (ext != NULL) { |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
108 ++ext; |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
109 tuple_associate_string(tuple, "file-ext", scratch); |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
110 } |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
111 |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
112 return tuple; |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
113 } |
008530664ba1
Add tuple_new_from_filename() which creates a new tuple with file-name, file-path and file-ext.
Christian Birchinger <joker@netswarm.net>
parents:
3282
diff
changeset
|
114 |
3278 | 115 gboolean |
116 tuple_associate_string(Tuple *tuple, const gchar *field, const gchar *string) | |
117 { | |
118 TupleValue *value; | |
119 | |
120 g_return_val_if_fail(tuple != NULL, FALSE); | |
121 g_return_val_if_fail(field != NULL, FALSE); | |
122 g_return_val_if_fail(string != NULL, FALSE); | |
123 | |
124 if (mowgli_dictionary_find(tuple->dict, field)) | |
125 tuple_disassociate(tuple, field); | |
126 | |
127 value = mowgli_heap_alloc(tuple_value_heap); | |
128 value->type = TUPLE_STRING; | |
129 value->value.string = g_strdup(string); | |
130 | |
131 mowgli_dictionary_add(tuple->dict, field, value); | |
132 | |
133 return TRUE; | |
134 } | |
135 | |
136 gboolean | |
137 tuple_associate_int(Tuple *tuple, const gchar *field, gint integer) | |
138 { | |
139 TupleValue *value; | |
140 | |
141 g_return_val_if_fail(tuple != NULL, FALSE); | |
142 g_return_val_if_fail(field != NULL, FALSE); | |
143 | |
144 if (mowgli_dictionary_find(tuple->dict, field)) | |
145 tuple_disassociate(tuple, field); | |
146 | |
147 value = mowgli_heap_alloc(tuple_value_heap); | |
148 value->type = TUPLE_INT; | |
149 value->value.integer = integer; | |
150 | |
151 mowgli_dictionary_add(tuple->dict, field, value); | |
152 | |
153 return TRUE; | |
154 } | |
155 | |
156 void | |
157 tuple_disassociate(Tuple *tuple, const gchar *field) | |
158 { | |
159 TupleValue *value; | |
160 | |
161 g_return_if_fail(tuple != NULL); | |
162 g_return_if_fail(field != NULL); | |
163 | |
164 /* why _delete()? because _delete() returns the dictnode's data on success */ | |
165 if ((value = mowgli_dictionary_delete(tuple->dict, field)) == NULL) | |
166 return; | |
167 | |
168 if (value->type == TUPLE_STRING) | |
169 g_free(value->value.string); | |
170 | |
171 mowgli_heap_free(tuple_value_heap, value); | |
172 } | |
173 | |
174 TupleValueType | |
175 tuple_get_value_type(Tuple *tuple, const gchar *field) | |
176 { | |
177 TupleValue *value; | |
178 | |
3280
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
179 g_return_val_if_fail(tuple != NULL, TUPLE_UNKNOWN); |
a26138e391ee
Tuple engine cleanups.
William Pitcock <nenolod@atheme-project.org>
parents:
3278
diff
changeset
|
180 g_return_val_if_fail(field != NULL, TUPLE_UNKNOWN); |
3278 | 181 |
182 if ((value = mowgli_dictionary_retrieve(tuple->dict, field)) == NULL) | |
183 return TUPLE_UNKNOWN; | |
184 | |
185 return value->type; | |
186 } | |
187 | |
188 const gchar * | |
189 tuple_get_string(Tuple *tuple, const gchar *field) | |
190 { | |
191 TupleValue *value; | |
192 | |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
193 g_return_val_if_fail(tuple != NULL, NULL); |
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
194 g_return_val_if_fail(field != NULL, NULL); |
3278 | 195 |
196 if ((value = mowgli_dictionary_retrieve(tuple->dict, field)) == NULL) | |
197 return NULL; | |
198 | |
199 if (value->type != TUPLE_STRING) | |
200 mowgli_throw_exception_val(audacious.tuple.invalid_type_request, NULL); | |
201 | |
202 return value->value.string; | |
203 } | |
204 | |
205 int | |
206 tuple_get_int(Tuple *tuple, const gchar *field) | |
207 { | |
208 TupleValue *value; | |
209 | |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
210 g_return_val_if_fail(tuple != NULL, 0); |
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
211 g_return_val_if_fail(field != NULL, 0); |
3278 | 212 |
213 if ((value = mowgli_dictionary_retrieve(tuple->dict, field)) == NULL) | |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
214 return 0; |
3278 | 215 |
216 if (value->type != TUPLE_INT) | |
3282
b78d3197c70d
Tuple (final version)
William Pitcock <nenolod@atheme-project.org>
parents:
3281
diff
changeset
|
217 mowgli_throw_exception_val(audacious.tuple.invalid_type_request, 0); |
3278 | 218 |
219 return value->value.integer; | |
220 } |