Complete afs event handling.
[paraslash.git] / blob.c
1 /*
2 * Copyright (C) 2007 Andre Noll <maan@systemlinux.org>
3 *
4 * Licensed under the GPL v2. For licencing details see COPYING.
5 */
6
7 /** \file blob.c Macros and functions for blob handling. */
8
9 #include <fnmatch.h>
10 #include "para.h"
11 #include "error.h"
12 #include "string.h"
13 #include "afh.h"
14 #include "afs.h"
15 #include "net.h"
16
17 static struct osl_column_description blob_cols[] = {
18 [BLOBCOL_ID] = {
19 .storage_type = OSL_MAPPED_STORAGE,
20 .storage_flags = OSL_RBTREE | OSL_UNIQUE | OSL_FIXED_SIZE,
21 .name = "id",
22 .data_size = 4,
23 .compare_function = uint32_compare
24 },
25 [BLOBCOL_NAME] = {
26 .storage_type = OSL_MAPPED_STORAGE,
27 .storage_flags = OSL_RBTREE | OSL_UNIQUE,
28 .name = "name",
29 .compare_function = string_compare
30 },
31 [BLOBCOL_DEF] = {
32 .storage_type = OSL_DISK_STORAGE,
33 .storage_flags = 0,
34 .name = "definition"
35 }
36 };
37
38 /** \cond doxygen isn't smart enough to recognize these */
39 INIT_BLOB_TABLE(lyrics);
40 INIT_BLOB_TABLE(images);
41 INIT_BLOB_TABLE(moods);
42 INIT_BLOB_TABLE(playlists);
43 /** \endcond */
44
45 /** Flags that may be passed to the \p ls functions of each blob type. */
46 enum blob_ls_flags {
47 /** List both id and name. */
48 BLOB_LS_FLAG_LONG = 1,
49 /** Reverse sort order. */
50 BLOB_LS_FLAG_REVERSE = 2,
51 /** Sort by id instead of name. */
52 BLOB_LS_FLAG_SORT_BY_ID = 4,
53 };
54
55 /** Structure passed to the \p print_blob function. */
56 struct lsblob_action_data {
57 uint32_t flags;
58 struct para_buffer pb;
59 };
60
61 static int print_blob(struct osl_table *table, struct osl_row *row,
62 const char *name, void *data)
63 {
64 struct lsblob_action_data *lbad = data;
65 struct osl_object obj;
66 uint32_t id;
67 int ret;
68
69 if (!(lbad->flags & BLOB_LS_FLAG_LONG)) {
70 para_printf(&lbad->pb, "%s\n", name);
71 return 1;
72 }
73 ret = osl_get_object(table, row, BLOBCOL_ID, &obj);
74 if (ret < 0) {
75 para_printf(&lbad->pb, "%s: %s\n", name, PARA_STRERROR(-ret));
76 return ret;
77 }
78 id = *(uint32_t *)obj.data;
79 para_printf(&lbad->pb, "%u\t%s\n", id, name);
80 return 1;
81 }
82
83 static int com_lsblob_callback(struct osl_table *table,
84 const struct osl_object *query, struct osl_object *result)
85 {
86 struct lsblob_action_data lbad = {.flags = *(uint32_t *)query->data};
87 struct pattern_match_data pmd = {
88 .table = table,
89 .patterns = {.data = (char *)query->data + sizeof(uint32_t),
90 .size = query->size - sizeof(uint32_t)},
91 .pm_flags = PM_NO_PATTERN_MATCHES_EVERYTHING | PM_SKIP_EMPTY_NAME,
92 .match_col_num = BLOBCOL_NAME,
93 .data = &lbad,
94 .action = print_blob,
95 };
96 int ret;
97
98 if (lbad.flags & BLOB_LS_FLAG_REVERSE)
99 pmd.pm_flags |= PM_REVERSE_LOOP;
100 if (!(lbad.flags & BLOB_LS_FLAG_SORT_BY_ID))
101 pmd.loop_col_num = BLOBCOL_ID;
102 else
103 pmd.loop_col_num = BLOBCOL_NAME;
104 ret = for_each_matching_row(&pmd);
105 if (ret < 0)
106 para_printf(&lbad.pb, "%s\n", PARA_STRERROR(-ret));
107 if (!lbad.pb.buf)
108 return 0;
109 result->data = lbad.pb.buf;
110 result->size = lbad.pb.size;
111 return 1;
112 }
113
114 static int com_lsblob(callback_function *f, int fd, int argc, char * const * const argv)
115 {
116 uint32_t flags = 0;
117 struct osl_object options = {.data = &flags, .size = sizeof(flags)},
118 result;
119 int i, ret;
120
121 for (i = 1; i < argc; i++) {
122 const char *arg = argv[i];
123 if (arg[0] != '-')
124 break;
125 if (!strcmp(arg, "--")) {
126 i++;
127 break;
128 }
129 if (!strcmp(arg, "-l")) {
130 flags |= BLOB_LS_FLAG_LONG;
131 continue;
132 }
133 if (!strcmp(arg, "-i")) {
134 flags |= BLOB_LS_FLAG_SORT_BY_ID;
135 continue;
136 }
137 if (!strcmp(arg, "-r")) {
138 flags |= BLOB_LS_FLAG_REVERSE;
139 continue;
140 }
141 break;
142 }
143 // if (argc > i)
144 // return -E_BLOB_SYNTAX;
145 ret = send_option_arg_callback_request(&options, argc - i,
146 argv + i, f, &result);
147 if (ret > 0) {
148 send_buffer(fd, (char *)result.data);
149 free(result.data);
150 }
151 return ret;
152 }
153
154 static int cat_blob(struct osl_table *table, struct osl_row *row,
155 __a_unused const char *name, void *data)
156 {
157 int ret;
158 struct osl_object *blobs = data;
159 struct osl_object obj;
160
161 ret = osl_open_disk_object(table, row, BLOBCOL_DEF, &obj);
162 if (ret < 0)
163 return ret;
164 if (obj.size) {
165 blobs->data = para_realloc(blobs->data, blobs->size + obj.size);
166 memcpy(blobs->data + blobs->size, obj.data, obj.size);
167 blobs->size += obj.size;
168 }
169 return osl_close_disk_object(&obj);
170 }
171
172 static int com_catblob_callback(struct osl_table *table,
173 const struct osl_object *query, struct osl_object *result)
174 {
175 int ret;
176 struct pattern_match_data pmd = {
177 .table = table,
178 .patterns = *query,
179 .loop_col_num = BLOBCOL_NAME,
180 .match_col_num = BLOBCOL_NAME,
181 .pm_flags = PM_SKIP_EMPTY_NAME,
182 .data = result,
183 .action = cat_blob
184 };
185 result->data = NULL;
186 ret = for_each_matching_row(&pmd);
187 if (result->data)
188 return 1;
189 return (ret > 0)? 0 : ret;
190 }
191
192 static int com_catblob(callback_function *f, int fd, int argc,
193 char * const * const argv)
194 {
195 struct osl_object result;
196 int ret;
197
198 if (argc < 2)
199 return -E_BLOB_SYNTAX;
200 ret = send_standard_callback_request(argc - 1, argv + 1, f, &result);
201 if (ret > 0) {
202 ret = send_bin_buffer(fd, (char *)result.data, result.size);
203 free(result.data);
204 }
205 return ret;
206 }
207
208 struct rmblob_data {
209 struct para_buffer pb;
210 unsigned num_removed;
211 };
212
213 static int remove_blob(struct osl_table *table, struct osl_row *row,
214 const char *name, void *data)
215 {
216 struct rmblob_data *rmbd = data;
217 int ret = osl_del_row(table, row);
218 if (ret < 0) {
219 para_printf(&rmbd->pb, "%s: %s\n", name, PARA_STRERROR(-ret));
220 return ret;
221 }
222 rmbd->num_removed++;
223 return 1; /* return success to remove other matching blobs. */
224 }
225
226 static int com_rmblob_callback(struct osl_table *table,
227 const struct osl_object *query,
228 struct osl_object *result)
229 {
230 int ret;
231 struct rmblob_data rmbd = {.num_removed = 0};
232 struct pattern_match_data pmd = {
233 .table = table,
234 .patterns = *query,
235 .loop_col_num = BLOBCOL_NAME,
236 .match_col_num = BLOBCOL_NAME,
237 .pm_flags = PM_SKIP_EMPTY_NAME,
238 .data = &rmbd,
239 .action = remove_blob
240 };
241 result->data = NULL;
242 ret = for_each_matching_row(&pmd);
243 if (ret < 0)
244 para_printf(&rmbd.pb, "%s\n", PARA_STRERROR(-ret));
245 if (!rmbd.num_removed)
246 para_printf(&rmbd.pb, "no matches, nothing removed\n");
247 else {
248 para_printf(&rmbd.pb, "removed %d blobs\n", rmbd.num_removed);
249 afs_event(BLOB_RENAME, NULL, table);
250 }
251 result->data = rmbd.pb.buf;
252 result->size = rmbd.pb.size;
253 return 1;
254 }
255
256 static int com_rmblob(callback_function *f, int fd, int argc,
257 char * const * const argv)
258 {
259 int ret;
260 struct osl_object result;
261
262 if (argc < 2)
263 return -E_MOOD_SYNTAX;
264 ret = send_option_arg_callback_request(NULL, argc - 1, argv + 1, f,
265 &result);
266 if (ret > 0) {
267 send_buffer(fd, (char *)result.data);
268 free(result.data);
269 }
270 return ret;
271 }
272
273 static int com_addblob_callback(struct osl_table *table,
274 const struct osl_object *query,
275 __a_unused struct osl_object *result)
276 {
277 struct osl_object objs[NUM_BLOB_COLUMNS];
278 char *name = query->data;
279 size_t name_len = strlen(name) + 1;
280 uint32_t id;
281 unsigned num_rows;
282 int ret;
283
284 ret = osl_get_num_rows(table, &num_rows);
285 if (ret < 0)
286 return ret;
287 if (!num_rows) { /* this is the first entry ever added */
288 /* insert dummy row containing the id */
289 id = 2; /* this entry will be entry #1, so 2 is the next */
290 objs[BLOBCOL_ID].data = &id;
291 objs[BLOBCOL_ID].size = sizeof(id);
292 objs[BLOBCOL_NAME].data = "";
293 objs[BLOBCOL_NAME].size = 1;
294 objs[BLOBCOL_DEF].data = "";
295 objs[BLOBCOL_DEF].size = 1;
296 ret = osl_add_row(table, objs);
297 if (ret < 0)
298 return ret;
299 } else {
300 /* check if name already exists */
301 struct osl_row *row;
302 struct osl_object obj = {.data = name, .size = name_len};
303 ret = osl_get_row(table, BLOBCOL_NAME, &obj, &row);
304 if (ret < 0 && ret != -E_RB_KEY_NOT_FOUND)
305 return ret;
306 if (ret >= 0) { /* we already have a blob with this name */
307 obj.data = name + name_len;
308 obj.size = query->size - name_len;
309 return osl_update_object(table, row, BLOBCOL_DEF, &obj);
310 }
311 /* new blob, get id of the dummy row and increment it */
312 obj.data = "";
313 obj.size = 1;
314 ret = osl_get_row(table, BLOBCOL_NAME, &obj, &row);
315 if (ret < 0)
316 return ret;
317 ret = osl_get_object(table, row, BLOBCOL_ID, &obj);
318 if (ret < 0)
319 return ret;
320 id = *(uint32_t *)obj.data + 1;
321 obj.data = &id;
322 ret = osl_update_object(table, row, BLOBCOL_ID, &obj);
323 if (ret < 0)
324 return ret;
325 }
326 id--;
327 objs[BLOBCOL_ID].data = &id;
328 objs[BLOBCOL_ID].size = sizeof(id);
329 objs[BLOBCOL_NAME].data = name;
330 objs[BLOBCOL_NAME].size = name_len;
331 objs[BLOBCOL_DEF].data = name + name_len;
332 objs[BLOBCOL_DEF].size = query->size - name_len;
333 ret = osl_add_row(table, objs);
334 if (ret < 0)
335 return ret;
336 afs_event(BLOB_ADD, NULL, table);
337 return 1;
338 }
339
340 static int com_addblob(callback_function *f, int fd, int argc,
341 char * const * const argv)
342 {
343 struct osl_object arg_obj;
344
345 if (argc != 2)
346 return -E_BLOB_SYNTAX;
347 if (!*argv[1]) /* empty name is reserved for the dummy row */
348 return -E_BLOB_SYNTAX;
349 PARA_NOTICE_LOG("argv[1]: %s\n", argv[1]);
350 arg_obj.size = strlen(argv[1]) + 1;
351 arg_obj.data = (char *)argv[1];
352 return stdin_command(fd, &arg_obj, f, 10 * 1024 * 1024, NULL);
353 }
354
355 static int com_mvblob_callback(struct osl_table *table,
356 const struct osl_object *query,
357 __a_unused struct osl_object *result)
358 {
359 char *src = (char *) query->data;
360 struct osl_object obj = {.data = src, .size = strlen(src) + 1};
361 char *dest = src + obj.size;
362 struct osl_row *row;
363 int ret = osl_get_row(table, BLOBCOL_NAME, &obj, &row);
364
365 if (ret < 0)
366 return ret;
367 obj.data = dest;
368 obj.size = strlen(dest) + 1;
369 ret = osl_update_object(table, row, BLOBCOL_NAME, &obj);
370 if (ret < 0)
371 return ret;
372 afs_event(BLOB_RENAME, NULL, table);
373 return 1;
374 }
375
376 static int com_mvblob(callback_function *f, __a_unused int fd,
377 int argc, char * const * const argv)
378 {
379 if (argc != 3)
380 return -E_MOOD_SYNTAX;
381 return send_option_arg_callback_request(NULL, argc - 1, argv + 1, f,
382 NULL);
383 }
384
385 #define DEFINE_BLOB_COMMAND(cmd_name, table_name, cmd_prefix) \
386 static int com_ ## cmd_name ## cmd_prefix ## _callback(const struct osl_object *query, \
387 struct osl_object *output) \
388 { \
389 return com_ ## cmd_name ## blob_callback(table_name ## _table, query, output); \
390 } \
391 int com_ ## cmd_name ## cmd_prefix(int fd, int argc, char * const * const argv) \
392 { \
393 return com_ ## cmd_name ## blob(com_ ## cmd_name ## cmd_prefix ## _callback, fd, argc, argv); \
394 }
395
396 static int blob_get_name_by_id(struct osl_table *table, uint32_t id,
397 char **name)
398 {
399 struct osl_row *row;
400 struct osl_object obj = {.data = &id, .size = sizeof(id)};
401 int ret;
402
403 *name = NULL;
404 if (!id)
405 return 1;
406 ret = osl_get_row(table, BLOBCOL_ID, &obj, &row);
407 if (ret < 0)
408 return ret;
409 ret = osl_get_object(table, row, BLOBCOL_NAME, &obj);
410 if (ret < 0)
411 return ret;
412 *name = (char *)obj.data;
413 return 1;
414 }
415
416 /** Define the \p get_name_by_id function for this blob type. */
417 #define DEFINE_GET_NAME_BY_ID(table_name, cmd_prefix) \
418 int cmd_prefix ## _get_name_by_id(uint32_t id, char **name) \
419 { \
420 return blob_get_name_by_id(table_name ## _table, id, name); \
421 }
422
423
424 static int blob_get_def_by_name(struct osl_table *table, char *name,
425 struct osl_object *def)
426 {
427 struct osl_row *row;
428 struct osl_object obj = {.data = name, .size = strlen(name) + 1};
429 int ret;
430
431 def->data = NULL;
432 if (!*name)
433 return 1;
434 ret = osl_get_row(table, BLOBCOL_NAME, &obj, &row);
435 if (ret < 0)
436 return ret;
437 return osl_open_disk_object(table, row, BLOBCOL_DEF, def);
438 }
439
440 /** Define the \p get_def_by_id function for this blob type. */
441 #define DEFINE_GET_DEF_BY_NAME(table_name, cmd_prefix) \
442 int cmd_prefix ## _get_def_by_name(char *name, struct osl_object *def) \
443 { \
444 return blob_get_def_by_name(table_name ## _table, name, def); \
445 }
446
447 static int blob_get_def_by_id(struct osl_table *table, uint32_t id,
448 struct osl_object *def)
449 {
450 struct osl_row *row;
451 struct osl_object obj = {.data = &id, .size = sizeof(id)};
452 int ret;
453
454 def->data = NULL;
455 if (!id)
456 return 1;
457 ret = osl_get_row(table, BLOBCOL_ID, &obj, &row);
458 if (ret < 0)
459 return ret;
460 return osl_open_disk_object(table, row, BLOBCOL_DEF, def);
461 }
462
463 /** Define the \p get_def_by_id function for this blob type. */
464 #define DEFINE_GET_DEF_BY_ID(table_name, cmd_prefix) \
465 int cmd_prefix ## _get_def_by_id(uint32_t id, struct osl_object *def) \
466 { \
467 return blob_get_def_by_id(table_name ## _table, id, def); \
468 }
469
470 static int blob_get_name_and_def_by_row(struct osl_table *table,
471 const struct osl_row *row, char **name, struct osl_object *def)
472 {
473 struct osl_object obj;
474 int ret = osl_get_object(table, row, BLOBCOL_NAME, &obj);
475 if (ret < 0)
476 return ret;
477 *name = obj.data;
478 return osl_open_disk_object(table, row, BLOBCOL_DEF, def);
479 }
480 /** Define the \p get_name_and_def_by_row function for this blob type. */
481 #define DEFINE_GET_NAME_AND_DEF_BY_ROW(table_name, cmd_prefix) \
482 int cmd_prefix ## _get_name_and_def_by_row(const struct osl_row *row, \
483 char **name, struct osl_object *def) \
484 { \
485 return blob_get_name_and_def_by_row(table_name ## _table, \
486 row, name, def); \
487 }
488
489 /** Define the \p close function for this blob type. */
490 #define DEFINE_BLOB_CLOSE(table_name) \
491 void table_name ## _close(void) \
492 { \
493 osl_close_table(table_name ## _table, OSL_MARK_CLEAN); \
494 table_name ## _table = NULL; \
495 }
496
497 /** Define the \p create function for this blob type. */
498 #define DEFINE_BLOB_CREATE(table_name) \
499 int table_name ## _create(const char *dir) \
500 { \
501 table_name ## _table_desc.dir = dir; \
502 return osl_create_table(&table_name ## _table_desc); \
503 }
504
505 static int blob_open(struct osl_table **table,
506 struct osl_table_description *desc,
507 const char *dir)
508 {
509 int ret;
510 desc->dir = dir;
511 ret = osl_open_table(desc, table);
512 if (ret >= 0)
513 return ret;
514 *table = NULL;
515 if (ret >= 0 || is_errno(-ret, ENOENT))
516 return 1;
517 return ret;
518 }
519
520 #define DEFINE_BLOB_OPEN(table_name) \
521 int table_name ## _open(const char *dir) \
522 { \
523 return blob_open(&table_name ## _table, \
524 &table_name ## _table_desc, dir); \
525 }
526
527
528 /** Define the \p init function for this blob type. */
529 #define DEFINE_BLOB_INIT(table_name) \
530 void table_name ## _init(struct afs_table *t) \
531 { \
532 t->name = table_name ## _table_desc.name; \
533 t->open = table_name ## _open; \
534 t->close = table_name ## _close; \
535 t->create = table_name ## _create;\
536 t->event_handler = table_name ##_event_handler; \
537 }
538
539
540 /** Define all functions for this blob type. */
541 #define DEFINE_BLOB_FUNCTIONS(table_name, cmd_prefix) \
542 DEFINE_BLOB_OPEN(table_name) \
543 DEFINE_BLOB_CLOSE(table_name) \
544 DEFINE_BLOB_CREATE(table_name) \
545 DEFINE_BLOB_INIT(table_name) \
546 DEFINE_BLOB_COMMAND(ls, table_name, cmd_prefix) \
547 DEFINE_BLOB_COMMAND(cat, table_name, cmd_prefix) \
548 DEFINE_BLOB_COMMAND(add, table_name, cmd_prefix) \
549 DEFINE_BLOB_COMMAND(rm, table_name, cmd_prefix) \
550 DEFINE_BLOB_COMMAND(mv, table_name, cmd_prefix) \
551 DEFINE_GET_NAME_BY_ID(table_name, cmd_prefix); \
552 DEFINE_GET_DEF_BY_ID(table_name, cmd_prefix); \
553 DEFINE_GET_DEF_BY_NAME(table_name, cmd_prefix); \
554 DEFINE_GET_NAME_AND_DEF_BY_ROW(table_name, cmd_prefix); \
555
556 /** \cond doxygen isn't smart enough to recognize these */
557 DEFINE_BLOB_FUNCTIONS(lyrics, lyr);
558 DEFINE_BLOB_FUNCTIONS(images, img);
559 DEFINE_BLOB_FUNCTIONS(moods, mood);
560 DEFINE_BLOB_FUNCTIONS(playlists, pl);
561 /** \endcond */