/*-*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*-*/ /*** This file is part of systemd. Copyright 2013 Lennart Poettering systemd is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. systemd is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with systemd; If not, see . ***/ #include #include #include "util.h" #include "utf8.h" #include "strv.h" #include "time-util.h" #include "cgroup-util.h" #include "sd-bus.h" #include "bus-message.h" #include "bus-internal.h" #include "bus-type.h" #include "bus-signature.h" static int message_append_basic(sd_bus_message *m, char type, const void *p, const void **stored); static void reset_containers(sd_bus_message *m) { unsigned i; assert(m); for (i = 0; i < m->n_containers; i++) free(m->containers[i].signature); free(m->containers); m->containers = NULL; m->n_containers = 0; m->root_container.index = 0; } static void message_free(sd_bus_message *m) { assert(m); if (m->free_header) free(m->header); if (m->free_fields) free(m->fields); if (m->free_body) free(m->body); if (m->free_kdbus) free(m->kdbus); if (m->free_fds) { close_many(m->fds, m->n_fds); free(m->fds); } free(m->cmdline_array); reset_containers(m); free(m->root_container.signature); free(m->peeked_signature); free(m->unit); free(m->user_unit); free(m->session); free(m); } static void* buffer_extend(void **p, uint32_t *sz, size_t align, size_t extend) { size_t start, n; void *k; assert(p); assert(sz); assert(align > 0); start = ALIGN_TO((size_t) *sz, align); n = start + extend; if (n == *sz) return (uint8_t*) *p + start; if (n > (size_t) ((uint32_t) -1)) return NULL; k = realloc(*p, n); if (!k) return NULL; /* Zero out padding */ if (start > *sz) memset((uint8_t*) k + *sz, 0, start - *sz); *p = k; *sz = n; return (uint8_t*) k + start; } static void *message_extend_fields(sd_bus_message *m, size_t align, size_t sz) { void *p, *o; assert(m); o = m->fields; p = buffer_extend(&m->fields, &m->header->fields_size, align, sz); if (!p) return NULL; if (o != m->fields) { /* Adjust quick access pointers */ if (m->path) m->path = (const char*) m->fields + (m->path - (const char*) o); if (m->interface) m->interface = (const char*) m->fields + (m->interface - (const char*) o); if (m->member) m->member = (const char*) m->fields + (m->member - (const char*) o); if (m->destination) m->destination = (const char*) m->fields + (m->destination - (const char*) o); if (m->sender) m->sender = (const char*) m->fields + (m->sender - (const char*) o); if (m->error.name) m->error.name = (const char*) m->fields + (m->error.name - (const char*) o); } m->free_fields = true; return p; } static int message_append_field_string( sd_bus_message *m, uint8_t h, char type, const char *s, const char **ret) { size_t l; uint8_t *p; assert(m); l = strlen(s); if (l > (size_t) (uint32_t) -1) return -EINVAL; /* field id byte + signature length + signature 's' + NUL + string length + string + NUL */ p = message_extend_fields(m, 8, 4 + 4 + l + 1); if (!p) return -ENOMEM; p[0] = h; p[1] = 1; p[2] = type; p[3] = 0; ((uint32_t*) p)[1] = l; memcpy(p + 8, s, l + 1); if (ret) *ret = (const char*) p + 8; return 0; } static int message_append_field_signature( sd_bus_message *m, uint8_t h, const char *s, const char **ret) { size_t l; uint8_t *p; assert(m); l = strlen(s); if (l > 255) return -EINVAL; /* field id byte + signature length + signature 'g' + NUL + string length + string + NUL */ p = message_extend_fields(m, 8, 4 + 1 + l + 1); if (!p) return -ENOMEM; p[0] = h; p[1] = 1; p[2] = SD_BUS_TYPE_SIGNATURE; p[3] = 0; p[4] = l; memcpy(p + 5, s, l + 1); if (ret) *ret = (const char*) p + 5; return 0; } static int message_append_field_uint32(sd_bus_message *m, uint8_t h, uint32_t x) { uint8_t *p; assert(m); /* field id byte + signature length + signature 'u' + NUL + value */ p = message_extend_fields(m, 8, 4 + 4); if (!p) return -ENOMEM; p[0] = h; p[1] = 1; p[2] = SD_BUS_TYPE_UINT32; p[3] = 0; ((uint32_t*) p)[1] = x; return 0; } int bus_message_from_header( void *buffer, size_t length, int *fds, unsigned n_fds, const struct ucred *ucred, const char *label, size_t extra, sd_bus_message **ret) { sd_bus_message *m; struct bus_header *h; size_t a, label_sz; assert(buffer || length <= 0); assert(fds || n_fds <= 0); assert(ret); if (length < sizeof(struct bus_header)) return -EBADMSG; h = buffer; if (h->version != 1) return -EBADMSG; if (h->serial == 0) return -EBADMSG; if (h->type == _SD_BUS_MESSAGE_TYPE_INVALID) return -EBADMSG; if (h->endian != SD_BUS_LITTLE_ENDIAN && h->endian != SD_BUS_BIG_ENDIAN) return -EBADMSG; a = ALIGN(sizeof(sd_bus_message)) + ALIGN(extra); if (label) { label_sz = strlen(label); a += label_sz + 1; } m = malloc0(a); if (!m) return -ENOMEM; m->n_ref = 1; m->sealed = true; m->header = h; m->fds = fds; m->n_fds = n_fds; if (ucred) { m->uid = ucred->uid; m->pid = ucred->pid; m->gid = ucred->gid; m->uid_valid = m->gid_valid = true; } if (label) { m->label = (char*) m + ALIGN(sizeof(sd_bus_message)) + ALIGN(extra); memcpy(m->label, label, label_sz + 1); } *ret = m; return 0; } int bus_message_from_malloc( void *buffer, size_t length, int *fds, unsigned n_fds, const struct ucred *ucred, const char *label, sd_bus_message **ret) { sd_bus_message *m; int r; r = bus_message_from_header(buffer, length, fds, n_fds, ucred, label, 0, &m); if (r < 0) return r; if (length != BUS_MESSAGE_SIZE(m)) { r = -EBADMSG; goto fail; } m->fields = (uint8_t*) buffer + sizeof(struct bus_header); m->body = (uint8_t*) buffer + sizeof(struct bus_header) + ALIGN8(BUS_MESSAGE_FIELDS_SIZE(m)); m->n_iovec = 1; m->iovec[0].iov_base = buffer; m->iovec[0].iov_len = length; r = bus_message_parse_fields(m); if (r < 0) goto fail; /* We take possession of the memory and fds now */ m->free_header = true; m->free_fds = true; *ret = m; return 0; fail: message_free(m); return r; } static sd_bus_message *message_new(sd_bus *bus, uint8_t type) { sd_bus_message *m; m = malloc0(ALIGN(sizeof(sd_bus_message)) + sizeof(struct bus_header)); if (!m) return NULL; m->n_ref = 1; m->header = (struct bus_header*) ((uint8_t*) m + ALIGN(sizeof(struct sd_bus_message))); m->header->endian = SD_BUS_NATIVE_ENDIAN; m->header->type = type; m->header->version = bus ? bus->message_version : 1; m->allow_fds = !bus || bus->can_fds || (bus->state != BUS_HELLO && bus->state != BUS_RUNNING); return m; } int sd_bus_message_new_signal( sd_bus *bus, const char *path, const char *interface, const char *member, sd_bus_message **m) { sd_bus_message *t; int r; if (!path) return -EINVAL; if (!interface) return -EINVAL; if (!member) return -EINVAL; if (!m) return -EINVAL; if (bus && bus->state == BUS_UNSET) return -ENOTCONN; t = message_new(bus, SD_BUS_MESSAGE_TYPE_SIGNAL); if (!t) return -ENOMEM; t->header->flags |= SD_BUS_MESSAGE_NO_REPLY_EXPECTED; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_PATH, SD_BUS_TYPE_OBJECT_PATH, path, &t->path); if (r < 0) goto fail; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_INTERFACE, SD_BUS_TYPE_STRING, interface, &t->interface); if (r < 0) goto fail; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_MEMBER, SD_BUS_TYPE_STRING, member, &t->member); if (r < 0) goto fail; *m = t; return 0; fail: sd_bus_message_unref(t); return r; } int sd_bus_message_new_method_call( sd_bus *bus, const char *destination, const char *path, const char *interface, const char *member, sd_bus_message **m) { sd_bus_message *t; int r; if (!path) return -EINVAL; if (!member) return -EINVAL; if (!m) return -EINVAL; if (bus && bus->state == BUS_UNSET) return -ENOTCONN; t = message_new(bus, SD_BUS_MESSAGE_TYPE_METHOD_CALL); if (!t) return -ENOMEM; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_PATH, SD_BUS_TYPE_OBJECT_PATH, path, &t->path); if (r < 0) goto fail; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_MEMBER, SD_BUS_TYPE_STRING, member, &t->member); if (r < 0) goto fail; if (interface) { r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_INTERFACE, SD_BUS_TYPE_STRING, interface, &t->interface); if (r < 0) goto fail; } if (destination) { r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_DESTINATION, SD_BUS_TYPE_STRING, destination, &t->destination); if (r < 0) goto fail; } *m = t; return 0; fail: message_free(t); return r; } static int message_new_reply( sd_bus *bus, sd_bus_message *call, uint8_t type, sd_bus_message **m) { sd_bus_message *t; int r; if (!call) return -EINVAL; if (!call->sealed) return -EPERM; if (call->header->type != SD_BUS_MESSAGE_TYPE_METHOD_CALL) return -EINVAL; if (!m) return -EINVAL; if (bus && bus->state == BUS_UNSET) return -ENOTCONN; t = message_new(bus, type); if (!t) return -ENOMEM; t->header->flags |= SD_BUS_MESSAGE_NO_REPLY_EXPECTED; t->reply_serial = BUS_MESSAGE_SERIAL(call); r = message_append_field_uint32(t, SD_BUS_MESSAGE_HEADER_REPLY_SERIAL, t->reply_serial); if (r < 0) goto fail; if (call->sender) { r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_DESTINATION, SD_BUS_TYPE_STRING, call->sender, &t->sender); if (r < 0) goto fail; } t->dont_send = !!(call->header->flags & SD_BUS_MESSAGE_NO_REPLY_EXPECTED); *m = t; return 0; fail: message_free(t); return r; } int sd_bus_message_new_method_return( sd_bus *bus, sd_bus_message *call, sd_bus_message **m) { return message_new_reply(bus, call, SD_BUS_MESSAGE_TYPE_METHOD_RETURN, m); } int sd_bus_message_new_method_error( sd_bus *bus, sd_bus_message *call, const sd_bus_error *e, sd_bus_message **m) { sd_bus_message *t; int r; if (!sd_bus_error_is_set(e)) return -EINVAL; if (!m) return -EINVAL; r = message_new_reply(bus, call, SD_BUS_MESSAGE_TYPE_METHOD_ERROR, &t); if (r < 0) return r; r = message_append_field_string(t, SD_BUS_MESSAGE_HEADER_ERROR_NAME, SD_BUS_TYPE_STRING, e->name, &t->error.name); if (r < 0) goto fail; if (e->message) { r = message_append_basic(t, SD_BUS_TYPE_STRING, e->message, (const void**) &t->error.message); if (r < 0) goto fail; } *m = t; return 0; fail: message_free(t); return r; } sd_bus_message* sd_bus_message_ref(sd_bus_message *m) { if (!m) return NULL; assert(m->n_ref > 0); m->n_ref++; return m; } sd_bus_message* sd_bus_message_unref(sd_bus_message *m) { if (!m) return NULL; assert(m->n_ref > 0); m->n_ref--; if (m->n_ref <= 0) message_free(m); return NULL; } int sd_bus_message_get_type(sd_bus_message *m, uint8_t *type) { if (!m) return -EINVAL; if (!type) return -EINVAL; *type = m->header->type; return 0; } int sd_bus_message_get_serial(sd_bus_message *m, uint64_t *serial) { if (!m) return -EINVAL; if (!serial) return -EINVAL; if (m->header->serial == 0) return -ENOENT; *serial = BUS_MESSAGE_SERIAL(m); return 0; } int sd_bus_message_get_reply_serial(sd_bus_message *m, uint64_t *serial) { if (!m) return -EINVAL; if (!serial) return -EINVAL; if (m->reply_serial == 0) return -ENOENT; *serial = m->reply_serial; return 0; } int sd_bus_message_get_no_reply(sd_bus_message *m) { if (!m) return -EINVAL; return m->header->type == SD_BUS_MESSAGE_TYPE_METHOD_CALL ? !!(m->header->flags & SD_BUS_MESSAGE_NO_REPLY_EXPECTED) : 0; } const char *sd_bus_message_get_path(sd_bus_message *m) { if (!m) return NULL; return m->path; } const char *sd_bus_message_get_interface(sd_bus_message *m) { if (!m) return NULL; return m->interface; } const char *sd_bus_message_get_member(sd_bus_message *m) { if (!m) return NULL; return m->member; } const char *sd_bus_message_get_destination(sd_bus_message *m) { if (!m) return NULL; return m->destination; } const char *sd_bus_message_get_sender(sd_bus_message *m) { if (!m) return NULL; return m->sender; } const sd_bus_error *sd_bus_message_get_error(sd_bus_message *m) { if (!m) return NULL; if (!sd_bus_error_is_set(&m->error)) return NULL; return &m->error; } int sd_bus_message_get_uid(sd_bus_message *m, uid_t *uid) { if (!m) return -EINVAL; if (!uid) return -EINVAL; if (!m->uid_valid) return -ESRCH; *uid = m->uid; return 0; } int sd_bus_message_get_gid(sd_bus_message *m, gid_t *gid) { if (!m) return -EINVAL; if (!gid) return -EINVAL; if (!m->gid_valid) return -ESRCH; *gid = m->gid; return 0; } int sd_bus_message_get_pid(sd_bus_message *m, pid_t *pid) { if (!m) return -EINVAL; if (!pid) return -EINVAL; if (m->pid <= 0) return -ESRCH; *pid = m->pid; return 0; } int sd_bus_message_get_tid(sd_bus_message *m, pid_t *tid) { if (!m) return -EINVAL; if (!tid) return -EINVAL; if (m->tid <= 0) return -ESRCH; *tid = m->tid; return 0; } int sd_bus_message_get_pid_starttime(sd_bus_message *m, uint64_t *usec) { if (!m) return -EINVAL; if (!usec) return -EINVAL; if (m->pid_starttime <= 0) return -ESRCH; *usec = m->pid_starttime; return 0; } int sd_bus_message_get_selinux_context(sd_bus_message *m, const char **ret) { if (!m) return -EINVAL; if (!m->label) return -ESRCH; *ret = m->label; return 0; } int sd_bus_message_get_monotonic_timestamp(sd_bus_message *m, uint64_t *usec) { if (!m) return -EINVAL; if (!usec) return -EINVAL; if (m->monotonic <= 0) return -ESRCH; *usec = m->monotonic; return 0; } int sd_bus_message_get_realtime_timestamp(sd_bus_message *m, uint64_t *usec) { if (!m) return -EINVAL; if (!usec) return -EINVAL; if (m->realtime <= 0) return -ESRCH; *usec = m->realtime; return 0; } int sd_bus_message_get_comm(sd_bus_message *m, const char **ret) { if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->comm) return -ESRCH; *ret = m->comm; return 0; } int sd_bus_message_get_tid_comm(sd_bus_message *m, const char **ret) { if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->tid_comm) return -ESRCH; *ret = m->tid_comm; return 0; } int sd_bus_message_get_exe(sd_bus_message *m, const char **ret) { if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->exe) return -ESRCH; *ret = m->exe; return 0; } int sd_bus_message_get_cgroup(sd_bus_message *m, const char **ret) { if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->cgroup) return -ESRCH; *ret = m->cgroup; return 0; } int sd_bus_message_get_unit(sd_bus_message *m, const char **ret) { int r; if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->cgroup) return -ESRCH; if (!m->unit) { r = cg_path_get_unit(m->cgroup, &m->unit); if (r < 0) return r; } *ret = m->unit; return 0; } int sd_bus_message_get_user_unit(sd_bus_message *m, const char **ret) { int r; if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->cgroup) return -ESRCH; if (!m->user_unit) { r = cg_path_get_user_unit(m->cgroup, &m->user_unit); if (r < 0) return r; } *ret = m->user_unit; return 0; } int sd_bus_message_get_session(sd_bus_message *m, const char **ret) { int r; if (!m) return -EINVAL; if (!ret) return -EINVAL; if (!m->cgroup) return -ESRCH; if (!m->session) { r = cg_path_get_session(m->cgroup, &m->session); if (r < 0) return r; } *ret = m->session; return 0; } int sd_bus_message_get_owner_uid(sd_bus_message *m, uid_t *uid) { if (!m) return -EINVAL; if (!uid) return -EINVAL; if (!m->cgroup) return -ESRCH; return cg_path_get_owner_uid(m->cgroup, uid); } int sd_bus_message_get_cmdline(sd_bus_message *m, char ***cmdline) { size_t n, i; const char *p; bool first; if (!m) return -EINVAL; if (!m->cmdline) return -ENOENT; for (p = m->cmdline, n = 0; p < m->cmdline + m->cmdline_length; p++) if (*p == 0) n++; m->cmdline_array = new(char*, n + 1); if (!m->cmdline_array) return -ENOMEM; for (p = m->cmdline, i = 0, first = true; p < m->cmdline + m->cmdline_length; p++) { if (first) m->cmdline_array[i++] = (char*) p; first = *p == 0; } m->cmdline_array[i] = NULL; *cmdline = m->cmdline_array; return 0; } int sd_bus_message_is_signal(sd_bus_message *m, const char *interface, const char *member) { if (!m) return -EINVAL; if (m->header->type != SD_BUS_MESSAGE_TYPE_SIGNAL) return 0; if (interface && (!m->interface || !streq(m->interface, interface))) return 0; if (member && (!m->member || !streq(m->member, member))) return 0; return 1; } int sd_bus_message_is_method_call(sd_bus_message *m, const char *interface, const char *member) { if (!m) return -EINVAL; if (m->header->type != SD_BUS_MESSAGE_TYPE_METHOD_CALL) return 0; if (interface && (!m->interface || !streq(m->interface, interface))) return 0; if (member && (!m->member || !streq(m->member, member))) return 0; return 1; } int sd_bus_message_is_method_error(sd_bus_message *m, const char *name) { if (!m) return -EINVAL; if (m->header->type != SD_BUS_MESSAGE_TYPE_METHOD_ERROR) return 0; if (name && (!m->error.name || !streq(m->error.name, name))) return 0; return 1; } int sd_bus_message_set_no_reply(sd_bus_message *m, int b) { if (!m) return -EINVAL; if (m->sealed) return -EPERM; if (m->header->type != SD_BUS_MESSAGE_TYPE_METHOD_CALL) return -EPERM; if (b) m->header->flags |= SD_BUS_MESSAGE_NO_REPLY_EXPECTED; else m->header->flags &= ~SD_BUS_MESSAGE_NO_REPLY_EXPECTED; return 0; } static struct bus_container *message_get_container(sd_bus_message *m) { assert(m); if (m->n_containers == 0) return &m->root_container; assert(m->containers); return m->containers + m->n_containers - 1; } static void *message_extend_body(sd_bus_message *m, size_t align, size_t sz) { void *p, *o; size_t added; struct bus_container *c; assert(m); assert(align > 0); o = m->body; added = m->header->body_size; p = buffer_extend(&m->body, &m->header->body_size, align, sz); if (!p) return NULL; added = m->header->body_size - added; for (c = m->containers; c < m->containers + m->n_containers; c++) if (c->array_size) { c->array_size = (uint32_t*) ((uint8_t*) m->body + ((uint8_t*) c->array_size - (uint8_t*) o)); *c->array_size += added; } if (o != m->body) { if (m->error.message) m->error.message = (const char*) m->body + (m->error.message - (const char*) o); } m->free_body = true; return p; } int message_append_basic(sd_bus_message *m, char type, const void *p, const void **stored) { struct bus_container *c; ssize_t align, sz; uint32_t k; void *a; char *e = NULL; int fd = -1; uint32_t fdi = 0; int r; if (!m) return -EINVAL; if (!p) return -EINVAL; if (m->sealed) return -EPERM; if (!bus_type_is_basic(type)) return -EINVAL; c = message_get_container(m); if (c->signature && c->signature[c->index]) { /* Container signature is already set */ if (c->signature[c->index] != type) return -ENXIO; } else { /* Maybe we can append to the signature? But only if this is the top-level container*/ if (c->enclosing != 0) return -ENXIO; e = strextend(&c->signature, CHAR_TO_STR(type), NULL); if (!e) return -ENOMEM; } switch (type) { case SD_BUS_TYPE_STRING: case SD_BUS_TYPE_OBJECT_PATH: align = 4; sz = 4 + strlen(p) + 1; break; case SD_BUS_TYPE_SIGNATURE: align = 1; sz = 1 + strlen(p) + 1; break; case SD_BUS_TYPE_BOOLEAN: align = sz = 4; assert_cc(sizeof(int) == sizeof(uint32_t)); memcpy(&k, p, 4); k = !!k; p = &k; break; case SD_BUS_TYPE_UNIX_FD: { int z, *f; if (!m->allow_fds) { r = -ENOTSUP; goto fail; } align = sz = 4; z = *(int*) p; if (z < 0) { r = -EINVAL; goto fail; } fd = fcntl(z, F_DUPFD_CLOEXEC, 3); if (fd < 0) { r = -errno; goto fail; } f = realloc(m->fds, sizeof(int) * (m->n_fds + 1)); if (!f) { r = -ENOMEM; goto fail; } fdi = m->n_fds; f[fdi] = fd; m->fds = f; m->free_fds = true; break; } default: align = bus_type_get_alignment(type); sz = bus_type_get_size(type); break; } assert(align > 0); assert(sz > 0); a = message_extend_body(m, align, sz); if (!a) { r = -ENOMEM; goto fail; } if (type == SD_BUS_TYPE_STRING || type == SD_BUS_TYPE_OBJECT_PATH) { *(uint32_t*) a = sz - 5; memcpy((uint8_t*) a + 4, p, sz - 4); if (stored) *stored = (const uint8_t*) a + 4; } else if (type == SD_BUS_TYPE_SIGNATURE) { *(uint8_t*) a = sz - 1; memcpy((uint8_t*) a + 1, p, sz - 1); if (stored) *stored = (const uint8_t*) a + 1; } else if (type == SD_BUS_TYPE_UNIX_FD) { *(uint32_t*) a = fdi; if (stored) *stored = a; m->n_fds ++; } else { memcpy(a, p, sz); if (stored) *stored = a; } if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index++; return 0; fail: /* Truncate extended signature again */ if (e) c->signature[c->index] = 0; if (fd >= 0) close_nointr_nofail(fd); return r; } int sd_bus_message_append_basic(sd_bus_message *m, char type, const void *p) { return message_append_basic(m, type, p, NULL); } static int bus_message_open_array( sd_bus_message *m, struct bus_container *c, const char *contents, uint32_t **array_size) { unsigned nindex; char *e = NULL; void *a, *b; int alignment; size_t saved; assert(m); assert(c); assert(contents); assert(array_size); if (!signature_is_single(contents)) return -EINVAL; alignment = bus_type_get_alignment(contents[0]); if (alignment < 0) return alignment; if (c->signature && c->signature[c->index]) { /* Verify the existing signature */ if (c->signature[c->index] != SD_BUS_TYPE_ARRAY) return -ENXIO; if (!startswith(c->signature + c->index + 1, contents)) return -ENXIO; nindex = c->index + 1 + strlen(contents); } else { if (c->enclosing != 0) return -ENXIO; /* Extend the existing signature */ e = strextend(&c->signature, CHAR_TO_STR(SD_BUS_TYPE_ARRAY), contents, NULL); if (!e) return -ENOMEM; nindex = e - c->signature; } saved = m->header->body_size; a = message_extend_body(m, 4, 4); if (!a) { /* Truncate extended signature again */ if (e) c->signature[c->index] = 0; return -ENOMEM; } b = m->body; if (!message_extend_body(m, alignment, 0)) { /* Add alignment between size and first element */ if (e) c->signature[c->index] = 0; m->header->body_size = saved; return -ENOMEM; } if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index = nindex; /* m->body might have changed so let's readjust a */ a = (uint8_t*) m->body + ((uint8_t*) a - (uint8_t*) b); *(uint32_t*) a = 0; *array_size = a; return 0; } static int bus_message_open_variant( sd_bus_message *m, struct bus_container *c, const char *contents) { char *e = NULL; size_t l; void *a; assert(m); assert(c); assert(contents); if (!signature_is_single(contents)) return -EINVAL; if (*contents == SD_BUS_TYPE_DICT_ENTRY_BEGIN) return -EINVAL; if (c->signature && c->signature[c->index]) { if (c->signature[c->index] != SD_BUS_TYPE_VARIANT) return -ENXIO; } else { if (c->enclosing != 0) return -ENXIO; e = strextend(&c->signature, CHAR_TO_STR(SD_BUS_TYPE_VARIANT), NULL); if (!e) return -ENOMEM; } l = strlen(contents); a = message_extend_body(m, 1, 1 + l + 1); if (!a) { /* Truncate extended signature again */ if (e) c->signature[c->index] = 0; return -ENOMEM; } *(uint8_t*) a = l; memcpy((uint8_t*) a + 1, contents, l + 1); if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index++; return 0; } static int bus_message_open_struct( sd_bus_message *m, struct bus_container *c, const char *contents) { size_t nindex; char *e = NULL; assert(m); assert(c); assert(contents); if (!signature_is_valid(contents, false)) return -EINVAL; if (c->signature && c->signature[c->index]) { size_t l; l = strlen(contents); if (c->signature[c->index] != SD_BUS_TYPE_STRUCT_BEGIN || !startswith(c->signature + c->index + 1, contents) || c->signature[c->index + 1 + l] != SD_BUS_TYPE_STRUCT_END) return -ENXIO; nindex = c->index + 1 + l + 1; } else { if (c->enclosing != 0) return -ENXIO; e = strextend(&c->signature, CHAR_TO_STR(SD_BUS_TYPE_STRUCT_BEGIN), contents, CHAR_TO_STR(SD_BUS_TYPE_STRUCT_END), NULL); if (!e) return -ENOMEM; nindex = e - c->signature; } /* Align contents to 8 byte boundary */ if (!message_extend_body(m, 8, 0)) { if (e) c->signature[c->index] = 0; return -ENOMEM; } if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index = nindex; return 0; } static int bus_message_open_dict_entry( sd_bus_message *m, struct bus_container *c, const char *contents) { size_t nindex; assert(m); assert(c); assert(contents); if (!signature_is_pair(contents)) return -EINVAL; if (c->enclosing != SD_BUS_TYPE_ARRAY) return -ENXIO; if (c->signature && c->signature[c->index]) { size_t l; l = strlen(contents); if (c->signature[c->index] != SD_BUS_TYPE_DICT_ENTRY_BEGIN || !startswith(c->signature + c->index + 1, contents) || c->signature[c->index + 1 + l] != SD_BUS_TYPE_DICT_ENTRY_END) return -ENXIO; nindex = c->index + 1 + l + 1; } else return -ENXIO; /* Align contents to 8 byte boundary */ if (!message_extend_body(m, 8, 0)) return -ENOMEM; if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index = nindex; return 0; } int sd_bus_message_open_container( sd_bus_message *m, char type, const char *contents) { struct bus_container *c, *w; uint32_t *array_size = NULL; char *signature; int r; if (!m) return -EINVAL; if (m->sealed) return -EPERM; if (!contents) return -EINVAL; /* Make sure we have space for one more container */ w = realloc(m->containers, sizeof(struct bus_container) * (m->n_containers + 1)); if (!w) return -ENOMEM; m->containers = w; c = message_get_container(m); signature = strdup(contents); if (!signature) return -ENOMEM; if (type == SD_BUS_TYPE_ARRAY) r = bus_message_open_array(m, c, contents, &array_size); else if (type == SD_BUS_TYPE_VARIANT) r = bus_message_open_variant(m, c, contents); else if (type == SD_BUS_TYPE_STRUCT) r = bus_message_open_struct(m, c, contents); else if (type == SD_BUS_TYPE_DICT_ENTRY) r = bus_message_open_dict_entry(m, c, contents); else r = -EINVAL; if (r < 0) { free(signature); return r; } /* OK, let's fill it in */ w += m->n_containers++; w->enclosing = type; w->signature = signature; w->index = 0; w->array_size = array_size; w->begin = 0; return 0; } int sd_bus_message_close_container(sd_bus_message *m) { struct bus_container *c; if (!m) return -EINVAL; if (m->sealed) return -EPERM; if (m->n_containers <= 0) return -EINVAL; c = message_get_container(m); if (c->enclosing != SD_BUS_TYPE_ARRAY) if (c->signature && c->signature[c->index] != 0) return -EINVAL; free(c->signature); m->n_containers--; return 0; } typedef struct { const char *types; unsigned n_struct; unsigned n_array; } TypeStack; static int type_stack_push(TypeStack *stack, unsigned max, unsigned *i, const char *types, unsigned n_struct, unsigned n_array) { assert(stack); assert(max > 0); if (*i >= max) return -EINVAL; stack[*i].types = types; stack[*i].n_struct = n_struct; stack[*i].n_array = n_array; (*i)++; return 0; } static int type_stack_pop(TypeStack *stack, unsigned max, unsigned *i, const char **types, unsigned *n_struct, unsigned *n_array) { assert(stack); assert(max > 0); assert(types); assert(n_struct); assert(n_array); if (*i <= 0) return 0; (*i)--; *types = stack[*i].types; *n_struct = stack[*i].n_struct; *n_array = stack[*i].n_array; return 1; } int bus_message_append_ap( sd_bus_message *m, const char *types, va_list ap) { unsigned n_array, n_struct; TypeStack stack[BUS_CONTAINER_DEPTH]; unsigned stack_ptr = 0; int r; assert(m); if (!types) return 0; n_array = (unsigned) -1; n_struct = strlen(types); for (;;) { const char *t; if (n_array == 0 || (n_array == (unsigned) -1 && n_struct == 0)) { r = type_stack_pop(stack, ELEMENTSOF(stack), &stack_ptr, &types, &n_struct, &n_array); if (r < 0) return r; if (r == 0) break; r = sd_bus_message_close_container(m); if (r < 0) return r; continue; } t = types; if (n_array != (unsigned) -1) n_array --; else { types ++; n_struct--; } switch (*t) { case SD_BUS_TYPE_BYTE: { uint8_t x; x = (uint8_t) va_arg(ap, int); r = sd_bus_message_append_basic(m, *t, &x); break; } case SD_BUS_TYPE_BOOLEAN: case SD_BUS_TYPE_INT32: case SD_BUS_TYPE_UINT32: case SD_BUS_TYPE_UNIX_FD: { uint32_t x; /* We assume a boolean is the same as int32_t */ assert_cc(sizeof(int32_t) == sizeof(int)); x = va_arg(ap, uint32_t); r = sd_bus_message_append_basic(m, *t, &x); break; } case SD_BUS_TYPE_INT16: case SD_BUS_TYPE_UINT16: { uint16_t x; x = (uint16_t) va_arg(ap, int); r = sd_bus_message_append_basic(m, *t, &x); break; } case SD_BUS_TYPE_INT64: case SD_BUS_TYPE_UINT64: case SD_BUS_TYPE_DOUBLE: { uint64_t x; x = va_arg(ap, uint64_t); r = sd_bus_message_append_basic(m, *t, &x); break; } case SD_BUS_TYPE_STRING: case SD_BUS_TYPE_OBJECT_PATH: case SD_BUS_TYPE_SIGNATURE: { const char *x; x = va_arg(ap, const char*); r = sd_bus_message_append_basic(m, *t, x); break; } case SD_BUS_TYPE_ARRAY: { size_t k; r = signature_element_length(t + 1, &k); if (r < 0) return r; { char s[k + 1]; memcpy(s, t + 1, k); s[k] = 0; r = sd_bus_message_open_container(m, SD_BUS_TYPE_ARRAY, s); if (r < 0) return r; } if (n_array == (unsigned) -1) { types += k; n_struct -= k; } r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = t + 1; n_struct = k; n_array = va_arg(ap, unsigned); break; } case SD_BUS_TYPE_VARIANT: { const char *s; s = va_arg(ap, const char*); if (!s) return -EINVAL; r = sd_bus_message_open_container(m, SD_BUS_TYPE_VARIANT, s); if (r < 0) return r; r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = s; n_struct = strlen(s); n_array = (unsigned) -1; break; } case SD_BUS_TYPE_STRUCT_BEGIN: case SD_BUS_TYPE_DICT_ENTRY_BEGIN: { size_t k; r = signature_element_length(t, &k); if (r < 0) return r; { char s[k - 1]; memcpy(s, t + 1, k - 2); s[k - 2] = 0; r = sd_bus_message_open_container(m, *t == SD_BUS_TYPE_STRUCT_BEGIN ? SD_BUS_TYPE_STRUCT : SD_BUS_TYPE_DICT_ENTRY, s); if (r < 0) return r; } if (n_array == (unsigned) -1) { types += k - 1; n_struct -= k - 1; } r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = t + 1; n_struct = k - 2; n_array = (unsigned) -1; break; } default: r = -EINVAL; } if (r < 0) return r; } return 0; } int sd_bus_message_append(sd_bus_message *m, const char *types, ...) { va_list ap; int r; if (!m) return -EINVAL; if (m->sealed) return -EPERM; if (!types) return 0; va_start(ap, types); r = bus_message_append_ap(m, types, ap); va_end(ap); return r; } static int buffer_peek(const void *p, uint32_t sz, size_t *rindex, size_t align, size_t nbytes, void **r) { size_t k, start, n; assert(rindex); assert(align > 0); start = ALIGN_TO((size_t) *rindex, align); n = start + nbytes; if (n > sz) return -EBADMSG; /* Verify that padding is 0 */ for (k = *rindex; k < start; k++) if (((const uint8_t*) p)[k] != 0) return -EBADMSG; if (r) *r = (uint8_t*) p + start; *rindex = n; return 1; } static bool message_end_of_array(sd_bus_message *m, size_t index) { struct bus_container *c; assert(m); c = message_get_container(m); if (!c->array_size) return false; return index >= c->begin + BUS_MESSAGE_BSWAP32(m, *c->array_size); } static int message_peek_body(sd_bus_message *m, size_t *rindex, size_t align, size_t nbytes, void **ret) { assert(m); assert(rindex); assert(align > 0); if (message_end_of_array(m, *rindex)) return 0; return buffer_peek(m->body, BUS_MESSAGE_BODY_SIZE(m), rindex, align, nbytes, ret); } static bool validate_nul(const char *s, size_t l) { /* Check for NUL chars in the string */ if (memchr(s, 0, l)) return false; /* Check for NUL termination */ if (s[l] != 0) return false; return true; } static bool validate_string(const char *s, size_t l) { if (!validate_nul(s, l)) return false; /* Check if valid UTF8 */ if (!utf8_is_valid(s)) return false; return true; } static bool validate_signature(const char *s, size_t l) { if (!validate_nul(s, l)) return false; /* Check if valid signature */ if (!signature_is_valid(s, true)) return false; return true; } static bool validate_object_path(const char *s, size_t l) { if (!validate_nul(s, l)) return false; if (!object_path_is_valid(s)) return false; return true; } int sd_bus_message_read_basic(sd_bus_message *m, char type, void *p) { struct bus_container *c; int r; void *q; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; if (!bus_type_is_basic(type)) return -EINVAL; if (!p) return -EINVAL; c = message_get_container(m); if (!c->signature || c->signature[c->index] == 0) return 0; if (c->signature[c->index] != type) return -ENXIO; switch (type) { case SD_BUS_TYPE_STRING: case SD_BUS_TYPE_OBJECT_PATH: { uint32_t l; size_t rindex; rindex = m->rindex; r = message_peek_body(m, &rindex, 4, 4, &q); if (r <= 0) return r; l = BUS_MESSAGE_BSWAP32(m, *(uint32_t*) q); r = message_peek_body(m, &rindex, 1, l+1, &q); if (r < 0) return r; if (r == 0) return -EBADMSG; if (type == SD_BUS_TYPE_OBJECT_PATH) { if (!validate_object_path(q, l)) return -EBADMSG; } else { if (!validate_string(q, l)) return -EBADMSG; } m->rindex = rindex; *(const char**) p = q; break; } case SD_BUS_TYPE_SIGNATURE: { uint8_t l; size_t rindex; rindex = m->rindex; r = message_peek_body(m, &rindex, 1, 1, &q); if (r <= 0) return r; l = *(uint8_t*) q; r = message_peek_body(m, &rindex, 1, l+1, &q); if (r < 0) return r; if (r == 0) return -EBADMSG; if (!validate_signature(q, l)) return -EBADMSG; m->rindex = rindex; *(const char**) p = q; break; } default: { ssize_t sz, align; size_t rindex; align = bus_type_get_alignment(type); sz = bus_type_get_size(type); assert(align > 0 && sz > 0); rindex = m->rindex; r = message_peek_body(m, &rindex, align, sz, &q); if (r <= 0) return r; switch (type) { case SD_BUS_TYPE_BYTE: *(uint8_t*) p = *(uint8_t*) q; break; case SD_BUS_TYPE_BOOLEAN: *(int*) p = !!*(uint32_t*) q; break; case SD_BUS_TYPE_INT16: case SD_BUS_TYPE_UINT16: *(uint16_t*) p = BUS_MESSAGE_BSWAP16(m, *(uint16_t*) q); break; case SD_BUS_TYPE_INT32: case SD_BUS_TYPE_UINT32: *(uint32_t*) p = BUS_MESSAGE_BSWAP32(m, *(uint32_t*) q); break; case SD_BUS_TYPE_INT64: case SD_BUS_TYPE_UINT64: case SD_BUS_TYPE_DOUBLE: *(uint64_t*) p = BUS_MESSAGE_BSWAP64(m, *(uint64_t*) q); break; case SD_BUS_TYPE_UNIX_FD: { uint32_t j; j = BUS_MESSAGE_BSWAP32(m, *(uint32_t*) q); if (j >= m->n_fds) return -EBADMSG; *(int*) p = m->fds[j]; break; } default: assert_not_reached("Unknown basic type..."); } m->rindex = rindex; break; } } if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index++; return 1; } static int bus_message_enter_array( sd_bus_message *m, struct bus_container *c, const char *contents, uint32_t **array_size) { size_t rindex; void *q; int r, alignment; assert(m); assert(c); assert(contents); assert(array_size); if (!signature_is_single(contents)) return -EINVAL; alignment = bus_type_get_alignment(contents[0]); if (alignment < 0) return alignment; if (!c->signature || c->signature[c->index] == 0) return 0; if (c->signature[c->index] != SD_BUS_TYPE_ARRAY) return -ENXIO; if (!startswith(c->signature + c->index + 1, contents)) return -ENXIO; rindex = m->rindex; r = message_peek_body(m, &rindex, 4, 4, &q); if (r <= 0) return r; if (BUS_MESSAGE_BSWAP32(m, *(uint32_t*) q) > BUS_ARRAY_MAX_SIZE) return -EBADMSG; r = message_peek_body(m, &rindex, alignment, 0, NULL); if (r < 0) return r; if (r == 0) return -EBADMSG; if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index += 1 + strlen(contents); m->rindex = rindex; *array_size = (uint32_t*) q; return 1; } static int bus_message_enter_variant( sd_bus_message *m, struct bus_container *c, const char *contents) { size_t rindex; uint8_t l; void *q; int r; assert(m); assert(c); assert(contents); if (!signature_is_single(contents)) return -EINVAL; if (*contents == SD_BUS_TYPE_DICT_ENTRY_BEGIN) return -EINVAL; if (!c->signature || c->signature[c->index] == 0) return 0; if (c->signature[c->index] != SD_BUS_TYPE_VARIANT) return -ENXIO; rindex = m->rindex; r = message_peek_body(m, &rindex, 1, 1, &q); if (r <= 0) return r; l = *(uint8_t*) q; r = message_peek_body(m, &rindex, 1, l+1, &q); if (r < 0) return r; if (r == 0) return -EBADMSG; if (!validate_signature(q, l)) return -EBADMSG; if (!streq(q, contents)) return -ENXIO; if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index++; m->rindex = rindex; return 1; } static int bus_message_enter_struct( sd_bus_message *m, struct bus_container *c, const char *contents) { size_t l; int r; assert(m); assert(c); assert(contents); if (!signature_is_valid(contents, false)) return -EINVAL; if (!c->signature || c->signature[c->index] == 0) return 0; l = strlen(contents); if (c->signature[c->index] != SD_BUS_TYPE_STRUCT_BEGIN || !startswith(c->signature + c->index + 1, contents) || c->signature[c->index + 1 + l] != SD_BUS_TYPE_STRUCT_END) return -ENXIO; r = message_peek_body(m, &m->rindex, 8, 0, NULL); if (r <= 0) return r; if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index += 1 + l + 1; return 1; } static int bus_message_enter_dict_entry( sd_bus_message *m, struct bus_container *c, const char *contents) { size_t l; int r; assert(m); assert(c); assert(contents); if (!signature_is_pair(contents)) return -EINVAL; if (c->enclosing != SD_BUS_TYPE_ARRAY) return -ENXIO; if (!c->signature || c->signature[c->index] == 0) return 0; l = strlen(contents); if (c->signature[c->index] != SD_BUS_TYPE_DICT_ENTRY_BEGIN || !startswith(c->signature + c->index + 1, contents) || c->signature[c->index + 1 + l] != SD_BUS_TYPE_DICT_ENTRY_END) return -ENXIO; r = message_peek_body(m, &m->rindex, 8, 0, NULL); if (r <= 0) return r; if (c->enclosing != SD_BUS_TYPE_ARRAY) c->index += 1 + l + 1; return 1; } int sd_bus_message_enter_container(sd_bus_message *m, char type, const char *contents) { struct bus_container *c, *w; uint32_t *array_size = NULL; char *signature; int r; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; if (!contents) return -EINVAL; /* * We enforce a global limit on container depth, that is much * higher than the 32 structs and 32 arrays the specification * mandates. This is simpler to implement for us, and we need * this only to ensure our container array doesn't grow * without bounds. We are happy to return any data from a * message as long as the data itself is valid, even if the * overall message might be not. * * Note that the message signature is validated when * parsing the headers, and that validation does check the * 32/32 limit. * * Note that the specification defines no limits on the depth * of stacked variants, but we do. */ if (m->n_containers >= BUS_CONTAINER_DEPTH) return -EBADMSG; w = realloc(m->containers, sizeof(struct bus_container) * (m->n_containers + 1)); if (!w) return -ENOMEM; m->containers = w; c = message_get_container(m); if (!c->signature || c->signature[c->index] == 0) return 0; signature = strdup(contents); if (!signature) return -ENOMEM; if (type == SD_BUS_TYPE_ARRAY) r = bus_message_enter_array(m, c, contents, &array_size); else if (type == SD_BUS_TYPE_VARIANT) r = bus_message_enter_variant(m, c, contents); else if (type == SD_BUS_TYPE_STRUCT) r = bus_message_enter_struct(m, c, contents); else if (type == SD_BUS_TYPE_DICT_ENTRY) r = bus_message_enter_dict_entry(m, c, contents); else r = -EINVAL; if (r <= 0) { free(signature); return r; } /* OK, let's fill it in */ w += m->n_containers++; w->enclosing = type; w->signature = signature; w->index = 0; w->array_size = array_size; w->begin = m->rindex; return 1; } int sd_bus_message_exit_container(sd_bus_message *m) { struct bus_container *c; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; if (m->n_containers <= 0) return -EINVAL; c = message_get_container(m); if (c->enclosing == SD_BUS_TYPE_ARRAY) { uint32_t l; l = BUS_MESSAGE_BSWAP32(m, *c->array_size); if (c->begin + l != m->rindex) return -EBUSY; } else { if (c->signature && c->signature[c->index] != 0) return -EINVAL; } free(c->signature); m->n_containers--; return 1; } int sd_bus_message_peek_type(sd_bus_message *m, char *type, const char **contents) { struct bus_container *c; int r; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; c = message_get_container(m); if (!c->signature || c->signature[c->index] == 0) goto eof; if (message_end_of_array(m, m->rindex)) goto eof; if (bus_type_is_basic(c->signature[c->index])) { if (contents) *contents = NULL; if (type) *type = c->signature[c->index]; return 1; } if (c->signature[c->index] == SD_BUS_TYPE_ARRAY) { if (contents) { size_t l; char *sig; r = signature_element_length(c->signature+c->index+1, &l); if (r < 0) return r; assert(l >= 1); sig = strndup(c->signature + c->index + 1, l); if (!sig) return -ENOMEM; free(m->peeked_signature); m->peeked_signature = sig; *contents = sig; } if (type) *type = SD_BUS_TYPE_ARRAY; return 1; } if (c->signature[c->index] == SD_BUS_TYPE_STRUCT_BEGIN || c->signature[c->index] == SD_BUS_TYPE_DICT_ENTRY_BEGIN) { if (contents) { size_t l; char *sig; r = signature_element_length(c->signature+c->index, &l); if (r < 0) return r; assert(l >= 2); sig = strndup(c->signature + c->index + 1, l - 2); if (!sig) return -ENOMEM; free(m->peeked_signature); m->peeked_signature = sig; *contents = sig; } if (type) *type = c->signature[c->index] == SD_BUS_TYPE_STRUCT_BEGIN ? SD_BUS_TYPE_STRUCT : SD_BUS_TYPE_DICT_ENTRY; return 1; } if (c->signature[c->index] == SD_BUS_TYPE_VARIANT) { if (contents) { size_t rindex, l; void *q; rindex = m->rindex; r = message_peek_body(m, &rindex, 1, 1, &q); if (r < 0) return r; if (r == 0) goto eof; l = *(uint8_t*) q; r = message_peek_body(m, &rindex, 1, l+1, &q); if (r < 0) return r; if (r == 0) return -EBADMSG; if (!validate_signature(q, l)) return -EBADMSG; *contents = q; } if (type) *type = SD_BUS_TYPE_VARIANT; return 1; } return -EINVAL; eof: if (type) *type = c->enclosing; if (contents) *contents = NULL; return 0; } int sd_bus_message_rewind(sd_bus_message *m, int complete) { struct bus_container *c; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; if (complete) { reset_containers(m); m->rindex = 0; m->root_container.index = 0; c = message_get_container(m); } else { c = message_get_container(m); c->index = 0; m->rindex = c->begin; } return !isempty(c->signature); } static int message_read_ap( sd_bus_message *m, const char *types, va_list ap) { unsigned n_array, n_struct; TypeStack stack[BUS_CONTAINER_DEPTH]; unsigned stack_ptr = 0; int r; assert(m); if (!types) return 0; /* Ideally, we'd just call ourselves recursively on every * complex type. However, the state of a va_list that is * passed to a function is undefined after that function * returns. This means we need to docode the va_list linearly * in a single stackframe. We hence implement our own * home-grown stack in an array. */ n_array = (unsigned) -1; n_struct = strlen(types); for (;;) { const char *t; if (n_array == 0 || (n_array == (unsigned) -1 && n_struct == 0)) { r = type_stack_pop(stack, ELEMENTSOF(stack), &stack_ptr, &types, &n_struct, &n_array); if (r < 0) return r; if (r == 0) break; r = sd_bus_message_exit_container(m); if (r < 0) return r; continue; } t = types; if (n_array != (unsigned) -1) n_array --; else { types ++; n_struct--; } switch (*t) { case SD_BUS_TYPE_BYTE: case SD_BUS_TYPE_BOOLEAN: case SD_BUS_TYPE_INT16: case SD_BUS_TYPE_UINT16: case SD_BUS_TYPE_INT32: case SD_BUS_TYPE_UINT32: case SD_BUS_TYPE_INT64: case SD_BUS_TYPE_UINT64: case SD_BUS_TYPE_DOUBLE: case SD_BUS_TYPE_STRING: case SD_BUS_TYPE_OBJECT_PATH: case SD_BUS_TYPE_SIGNATURE: case SD_BUS_TYPE_UNIX_FD: { void *p; p = va_arg(ap, void*); r = sd_bus_message_read_basic(m, *t, p); if (r < 0) return r; if (r == 0) return -ENXIO; break; } case SD_BUS_TYPE_ARRAY: { size_t k; r = signature_element_length(t + 1, &k); if (r < 0) return r; { char s[k + 1]; memcpy(s, t + 1, k); s[k] = 0; r = sd_bus_message_enter_container(m, SD_BUS_TYPE_ARRAY, s); if (r < 0) return r; if (r == 0) return -ENXIO; } if (n_array == (unsigned) -1) { types += k; n_struct -= k; } r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = t + 1; n_struct = k; n_array = va_arg(ap, unsigned); break; } case SD_BUS_TYPE_VARIANT: { const char *s; s = va_arg(ap, const char *); if (!s) return -EINVAL; r = sd_bus_message_enter_container(m, SD_BUS_TYPE_VARIANT, s); if (r < 0) return r; if (r == 0) return -ENXIO; r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = s; n_struct = strlen(s); n_array = (unsigned) -1; break; } case SD_BUS_TYPE_STRUCT_BEGIN: case SD_BUS_TYPE_DICT_ENTRY_BEGIN: { size_t k; r = signature_element_length(t, &k); if (r < 0) return r; { char s[k - 1]; memcpy(s, t + 1, k - 2); s[k - 2] = 0; r = sd_bus_message_enter_container(m, *t == SD_BUS_TYPE_STRUCT_BEGIN ? SD_BUS_TYPE_STRUCT : SD_BUS_TYPE_DICT_ENTRY, s); if (r < 0) return r; if (r == 0) return -ENXIO; } if (n_array == (unsigned) -1) { types += k - 1; n_struct -= k - 1; } r = type_stack_push(stack, ELEMENTSOF(stack), &stack_ptr, types, n_struct, n_array); if (r < 0) return r; types = t + 1; n_struct = k - 2; n_array = (unsigned) -1; break; } default: return -EINVAL; } } return 1; } int sd_bus_message_read(sd_bus_message *m, const char *types, ...) { va_list ap; int r; if (!m) return -EINVAL; if (!m->sealed) return -EPERM; if (!types) return -EINVAL; va_start(ap, types); r = message_read_ap(m, types, ap); va_end(ap); return r; } static int message_peek_fields( sd_bus_message *m, size_t *rindex, size_t align, size_t nbytes, void **ret) { assert(m); assert(rindex); assert(align > 0); return buffer_peek(m->fields, BUS_MESSAGE_FIELDS_SIZE(m), rindex, align, nbytes, ret); } static int message_peek_field_uint32( sd_bus_message *m, size_t *ri, uint32_t *ret) { int r; void *q; assert(m); assert(ri); r = message_peek_fields(m, ri, 4, 4, &q); if (r < 0) return r; if (ret) *ret = BUS_MESSAGE_BSWAP32(m, *(uint32_t*) q); return 0; } static int message_peek_field_string( sd_bus_message *m, bool (*validate)(const char *p), size_t *ri, const char **ret) { uint32_t l; int r; void *q; assert(m); assert(ri); r = message_peek_field_uint32(m, ri, &l); if (r < 0) return r; r = message_peek_fields(m, ri, 1, l+1, &q); if (r < 0) return r; if (validate) { if (!validate_nul(q, l)) return -EBADMSG; if (!validate(q)) return -EBADMSG; } else { if (!validate_string(q, l)) return -EBADMSG; } if (ret) *ret = q; return 0; } static int message_peek_field_signature( sd_bus_message *m, size_t *ri, const char **ret) { size_t l; int r; void *q; assert(m); assert(ri); r = message_peek_fields(m, ri, 1, 1, &q); if (r < 0) return r; l = *(uint8_t*) q; r = message_peek_fields(m, ri, 1, l+1, &q); if (r < 0) return r; if (!validate_signature(q, l)) return -EBADMSG; if (ret) *ret = q; return 0; } static int message_skip_fields( sd_bus_message *m, size_t *ri, uint32_t array_size, const char **signature) { size_t original_index; int r; assert(m); assert(ri); assert(signature); original_index = *ri; for (;;) { char t; size_t l; if (array_size != (uint32_t) -1 && array_size <= *ri - original_index) return 0; t = **signature; if (!t) return 0; if (t == SD_BUS_TYPE_STRING) { r = message_peek_field_string(m, NULL, ri, NULL); if (r < 0) return r; (*signature)++; } else if (t == SD_BUS_TYPE_OBJECT_PATH) { r = message_peek_field_string(m, object_path_is_valid, ri, NULL); if (r < 0) return r; (*signature)++; } else if (t == SD_BUS_TYPE_SIGNATURE) { r = message_peek_field_signature(m, ri, NULL); if (r < 0) return r; (*signature)++; } else if (bus_type_is_basic(t)) { ssize_t align, k; align = bus_type_get_alignment(t); k = bus_type_get_size(t); assert(align > 0 && k > 0); r = message_peek_fields(m, ri, align, k, NULL); if (r < 0) return r; (*signature)++; } else if (t == SD_BUS_TYPE_ARRAY) { r = signature_element_length(*signature+1, &l); if (r < 0) return r; assert(l >= 1); { char sig[l-1], *s; uint32_t nas; int alignment; strncpy(sig, *signature + 1, l-1); s = sig; alignment = bus_type_get_alignment(sig[0]); if (alignment < 0) return alignment; r = message_peek_field_uint32(m, ri, &nas); if (r < 0) return r; if (nas > BUS_ARRAY_MAX_SIZE) return -EBADMSG; r = message_peek_fields(m, ri, alignment, 0, NULL); if (r < 0) return r; r = message_skip_fields(m, ri, nas, (const char**) &s); if (r < 0) return r; } (*signature) += 1 + l; } else if (t == SD_BUS_TYPE_VARIANT) { const char *s; r = message_peek_field_signature(m, ri, &s); if (r < 0) return r; r = message_skip_fields(m, ri, (uint32_t) -1, (const char**) &s); if (r < 0) return r; (*signature)++; } else if (t == SD_BUS_TYPE_STRUCT || t == SD_BUS_TYPE_DICT_ENTRY) { r = signature_element_length(*signature, &l); if (r < 0) return r; assert(l >= 2); { char sig[l-1], *s; strncpy(sig, *signature + 1, l-1); s = sig; r = message_skip_fields(m, ri, (uint32_t) -1, (const char**) &s); if (r < 0) return r; } *signature += l; } else return -EINVAL; } } int bus_message_parse_fields(sd_bus_message *m) { size_t ri; int r; uint32_t unix_fds = 0; assert(m); for (ri = 0; ri < BUS_MESSAGE_FIELDS_SIZE(m); ) { const char *signature; uint8_t *header; r = message_peek_fields(m, &ri, 8, 1, (void**) &header); if (r < 0) return r; r = message_peek_field_signature(m, &ri, &signature); if (r < 0) return r; switch (*header) { case _SD_BUS_MESSAGE_HEADER_INVALID: return -EBADMSG; case SD_BUS_MESSAGE_HEADER_PATH: if (m->path) return -EBADMSG; if (!streq(signature, "o")) return -EBADMSG; r = message_peek_field_string(m, object_path_is_valid, &ri, &m->path); break; case SD_BUS_MESSAGE_HEADER_INTERFACE: if (m->interface) return -EBADMSG; if (!streq(signature, "s")) return -EBADMSG; r = message_peek_field_string(m, interface_name_is_valid, &ri, &m->interface); break; case SD_BUS_MESSAGE_HEADER_MEMBER: if (m->member) return -EBADMSG; if (!streq(signature, "s")) return -EBADMSG; r = message_peek_field_string(m, member_name_is_valid, &ri, &m->member); break; case SD_BUS_MESSAGE_HEADER_ERROR_NAME: if (m->error.name) return -EBADMSG; if (!streq(signature, "s")) return -EBADMSG; r = message_peek_field_string(m, error_name_is_valid, &ri, &m->error.name); break; case SD_BUS_MESSAGE_HEADER_DESTINATION: if (m->destination) return -EBADMSG; if (!streq(signature, "s")) return -EBADMSG; r = message_peek_field_string(m, service_name_is_valid, &ri, &m->destination); break; case SD_BUS_MESSAGE_HEADER_SENDER: if (m->sender) return -EBADMSG; if (!streq(signature, "s")) return -EBADMSG; r = message_peek_field_string(m, service_name_is_valid, &ri, &m->sender); break; case SD_BUS_MESSAGE_HEADER_SIGNATURE: { const char *s; char *c; if (m->root_container.signature) return -EBADMSG; if (!streq(signature, "g")) return -EBADMSG; r = message_peek_field_signature(m, &ri, &s); if (r < 0) return r; c = strdup(s); if (!c) return -ENOMEM; free(m->root_container.signature); m->root_container.signature = c; break; } case SD_BUS_MESSAGE_HEADER_REPLY_SERIAL: if (m->reply_serial != 0) return -EBADMSG; if (!streq(signature, "u")) return -EBADMSG; r = message_peek_field_uint32(m, &ri, &m->reply_serial); if (r < 0) return r; if (m->reply_serial == 0) return -EBADMSG; break; case SD_BUS_MESSAGE_HEADER_UNIX_FDS: if (unix_fds != 0) return -EBADMSG; if (!streq(signature, "u")) return -EBADMSG; r = message_peek_field_uint32(m, &ri, &unix_fds); if (r < 0) return -EBADMSG; if (unix_fds == 0) return -EBADMSG; break; default: r = message_skip_fields(m, &ri, (uint32_t) -1, (const char **) &signature); } if (r < 0) return r; } if (m->n_fds != unix_fds) return -EBADMSG; if (isempty(m->root_container.signature) != (BUS_MESSAGE_BODY_SIZE(m) == 0)) return -EBADMSG; switch (m->header->type) { case SD_BUS_MESSAGE_TYPE_SIGNAL: if (!m->path || !m->interface || !m->member) return -EBADMSG; break; case SD_BUS_MESSAGE_TYPE_METHOD_CALL: if (!m->path || !m->member) return -EBADMSG; break; case SD_BUS_MESSAGE_TYPE_METHOD_RETURN: if (m->reply_serial == 0) return -EBADMSG; break; case SD_BUS_MESSAGE_TYPE_METHOD_ERROR: if (m->reply_serial == 0 || !m->error.name) return -EBADMSG; break; } /* Try to read the error message, but if we can't it's a non-issue */ if (m->header->type == SD_BUS_MESSAGE_TYPE_METHOD_ERROR) sd_bus_message_read(m, "s", &m->error.message); return 0; } int bus_message_seal(sd_bus_message *m, uint64_t serial) { int r; size_t l, a; assert(m); if (m->sealed) return -EPERM; if (m->n_containers > 0) return -EBADMSG; /* If there's a non-trivial signature set, then add it in here */ if (!isempty(m->root_container.signature)) { r = message_append_field_signature(m, SD_BUS_MESSAGE_HEADER_SIGNATURE, m->root_container.signature, NULL); if (r < 0) return r; } if (m->n_fds > 0) { r = message_append_field_uint32(m, SD_BUS_MESSAGE_HEADER_UNIX_FDS, m->n_fds); if (r < 0) return r; } l = BUS_MESSAGE_FIELDS_SIZE(m); a = ALIGN8(l) - l; if (a > 0) { /* Add padding at the end, since we know the body * needs to start at an 8 byte alignment. */ void *p; p = message_extend_fields(m, 1, a); if (!p) return -ENOMEM; memset(p, 0, a); m->header->fields_size -= a; } m->header->serial = serial; m->sealed = true; return 0; } int sd_bus_message_set_destination(sd_bus_message *m, const char *destination) { if (!m) return -EINVAL; if (!destination) return -EINVAL; if (m->sealed) return -EPERM; if (m->destination) return -EEXIST; return message_append_field_string(m, SD_BUS_MESSAGE_HEADER_DESTINATION, SD_BUS_TYPE_STRING, destination, &m->destination); } int bus_message_dump(sd_bus_message *m) { const char *u = NULL, *uu = NULL, *s = NULL; char **cmdline = NULL; unsigned level = 1; int r; uid_t owner; assert(m); printf("Message %p\n" "\tn_ref=%u\n" "\tendian=%c\n" "\ttype=%i\n" "\tflags=%u\n" "\tversion=%u\n" "\tserial=%u\n" "\tfields_size=%u\n" "\tbody_size=%u\n" "\tpath=%s\n" "\tinterface=%s\n" "\tmember=%s\n" "\tdestination=%s\n" "\tsender=%s\n" "\tsignature=%s\n" "\treply_serial=%u\n" "\terror.name=%s\n" "\terror.message=%s\n" "\tsealed=%s\n", m, m->n_ref, m->header->endian, m->header->type, m->header->flags, m->header->version, BUS_MESSAGE_SERIAL(m), BUS_MESSAGE_FIELDS_SIZE(m), BUS_MESSAGE_BODY_SIZE(m), strna(m->path), strna(m->interface), strna(m->member), strna(m->destination), strna(m->sender), strna(m->root_container.signature), m->reply_serial, strna(m->error.name), strna(m->error.message), yes_no(m->sealed)); if (m->pid != 0) printf("\tpid=%lu\n", (unsigned long) m->pid); if (m->tid != 0) printf("\ttid=%lu\n", (unsigned long) m->tid); if (m->uid_valid) printf("\tuid=%lu\n", (unsigned long) m->uid); if (m->gid_valid) printf("\tgid=%lu\n", (unsigned long) m->gid); if (m->pid_starttime != 0) printf("\tpid_starttime=%llu\n", (unsigned long long) m->pid_starttime); if (m->monotonic != 0) printf("\tmonotonic=%llu\n", (unsigned long long) m->monotonic); if (m->realtime != 0) printf("\trealtime=%llu\n", (unsigned long long) m->realtime); if (m->exe) printf("\texe=[%s]\n", m->exe); if (m->comm) printf("\tcomm=[%s]\n", m->comm); if (m->tid_comm) printf("\ttid_comm=[%s]\n", m->tid_comm); if (m->label) printf("\tlabel=[%s]\n", m->label); if (m->cgroup) printf("\tcgroup=[%s]\n", m->cgroup); sd_bus_message_get_unit(m, &u); if (u) printf("\tunit=[%s]\n", u); sd_bus_message_get_user_unit(m, &uu); if (uu) printf("\tuser_unit=[%s]\n", uu); sd_bus_message_get_session(m, &s); if (s) printf("\tsession=[%s]\n", s); if (sd_bus_message_get_owner_uid(m, &owner) >= 0) printf("\towner_uid=%lu\n", (unsigned long) owner); if (sd_bus_message_get_cmdline(m, &cmdline) >= 0) { char **c; fputs("\tcmdline=[", stdout); STRV_FOREACH(c, cmdline) { if (c != cmdline) putchar(' '); fputs(*c, stdout); } fputs("]\n", stdout); } r = sd_bus_message_rewind(m, true); if (r < 0) { log_error("Failed to rewind: %s", strerror(-r)); return r; } printf("BEGIN_MESSAGE \"%s\" {\n", strempty(m->root_container.signature)); for(;;) { _cleanup_free_ char *prefix = NULL; const char *contents = NULL; char type; union { uint8_t u8; uint16_t u16; int16_t s16; uint32_t u32; int32_t s32; uint64_t u64; int64_t s64; double d64; const char *string; int i; } basic; r = sd_bus_message_peek_type(m, &type, &contents); if (r < 0) { log_error("Failed to peek type: %s", strerror(-r)); return r; } if (r == 0) { if (level <= 1) break; r = sd_bus_message_exit_container(m); if (r < 0) { log_error("Failed to exit container: %s", strerror(-r)); return r; } level--; prefix = strrep("\t", level); if (!prefix) return log_oom(); if (type == SD_BUS_TYPE_ARRAY) printf("%s} END_ARRAY \n", prefix); else if (type == SD_BUS_TYPE_VARIANT) printf("%s} END_VARIANT\n", prefix); else if (type == SD_BUS_TYPE_STRUCT) printf("%s} END_STRUCT\n", prefix); else if (type == SD_BUS_TYPE_DICT_ENTRY) printf("%s} END_DICT_ENTRY\n", prefix); continue; } prefix = strrep("\t", level); if (!prefix) return log_oom(); if (bus_type_is_container(type) > 0) { r = sd_bus_message_enter_container(m, type, contents); if (r < 0) { log_error("Failed to enter container: %s", strerror(-r)); return r; } if (type == SD_BUS_TYPE_ARRAY) printf("%sBEGIN_ARRAY \"%s\" {\n", prefix, contents); else if (type == SD_BUS_TYPE_VARIANT) printf("%sBEGIN_VARIANT \"%s\" {\n", prefix, contents); else if (type == SD_BUS_TYPE_STRUCT) printf("%sBEGIN_STRUCT \"%s\" {\n", prefix, contents); else if (type == SD_BUS_TYPE_DICT_ENTRY) printf("%sBEGIN_DICT_ENTRY \"%s\" {\n", prefix, contents); level ++; continue; } r = sd_bus_message_read_basic(m, type, &basic); if (r < 0) { log_error("Failed to get basic: %s", strerror(-r)); return r; } switch (type) { case SD_BUS_TYPE_BYTE: printf("%sBYTE: %u\n", prefix, basic.u8); break; case SD_BUS_TYPE_BOOLEAN: printf("%sBOOLEAN: %s\n", prefix, yes_no(basic.i)); break; case SD_BUS_TYPE_INT16: printf("%sINT16: %i\n", prefix, basic.s16); break; case SD_BUS_TYPE_UINT16: printf("%sUINT16: %u\n", prefix, basic.u16); break; case SD_BUS_TYPE_INT32: printf("%sINT32: %i\n", prefix, basic.s32); break; case SD_BUS_TYPE_UINT32: printf("%sUINT32: %u\n", prefix, basic.u32); break; case SD_BUS_TYPE_INT64: printf("%sINT64: %lli\n", prefix, (long long) basic.s64); break; case SD_BUS_TYPE_UINT64: printf("%sUINT64: %llu\n", prefix, (unsigned long long) basic.u64); break; case SD_BUS_TYPE_DOUBLE: printf("%sDOUBLE: %g\n", prefix, basic.d64); break; case SD_BUS_TYPE_STRING: printf("%sSTRING: \"%s\"\n", prefix, basic.string); break; case SD_BUS_TYPE_OBJECT_PATH: printf("%sOBJECT_PATH: \"%s\"\n", prefix, basic.string); break; case SD_BUS_TYPE_SIGNATURE: printf("%sSIGNATURE: \"%s\"\n", prefix, basic.string); break; case SD_BUS_TYPE_UNIX_FD: printf("%sUNIX_FD: %i\n", prefix, basic.i); break; default: assert_not_reached("Unknown basic type."); } } printf("} END_MESSAGE\n"); return 0; } int bus_message_get_blob(sd_bus_message *m, void **buffer, size_t *sz) { size_t total; void *p, *e; assert(m); assert(buffer); assert(sz); total = BUS_MESSAGE_SIZE(m); p = malloc(total); if (!p) return -ENOMEM; e = mempcpy(p, m->header, sizeof(*m->header)); if (m->fields) { e = mempcpy(e, m->fields, m->header->fields_size); if (m->header->fields_size % 8 != 0) e = mempset(e, 0, 8 - (m->header->fields_size % 8)); } if (m->body) e = mempcpy(e, m->body, m->header->body_size); assert(total == (size_t) ((uint8_t*) e - (uint8_t*) p)); *buffer = p; *sz = total; return 0; } int bus_message_read_strv_extend(sd_bus_message *m, char ***l) { int r; assert(m); assert(l); r = sd_bus_message_enter_container(m, 'a', "s"); if (r < 0) return r; for (;;) { const char *s; r = sd_bus_message_read_basic(m, 's', &s); if (r < 0) return r; if (r == 0) break; r = strv_extend(l, s); if (r < 0) return r; } r = sd_bus_message_exit_container(m); if (r < 0) return r; return 0; } const char* bus_message_get_arg(sd_bus_message *m, unsigned i) { int r; const char *t = NULL; unsigned j; assert(m); r = sd_bus_message_rewind(m, true); if (r < 0) return NULL; for (j = 0; j <= i; j++) { char type; r = sd_bus_message_peek_type(m, &type, NULL); if (r < 0) return NULL; if (type != SD_BUS_TYPE_STRING && type != SD_BUS_TYPE_OBJECT_PATH && type != SD_BUS_TYPE_SIGNATURE) return NULL; r = sd_bus_message_read_basic(m, type, &t); if (r < 0) return NULL; } return t; } int bus_header_size(struct bus_header *h, size_t *sum) { size_t fs, bs; assert(h); assert(sum); if (h->endian == SD_BUS_NATIVE_ENDIAN) { fs = h->fields_size; bs = h->body_size; } else if (h->endian == SD_BUS_REVERSE_ENDIAN) { fs = bswap_32(h->fields_size); bs = bswap_32(h->body_size); } else return -EBADMSG; *sum = sizeof(struct bus_header) + ALIGN8(fs) + bs; return 0; }