cc37d98bfb
This had been pulled in via qemu/plugin.h from hw/core/cpu.h, but that will be removed. Signed-off-by: Richard Henderson <richard.henderson@linaro.org> Reviewed-by: Philippe Mathieu-Daudé <philmd@linaro.org> Message-Id: <20230310195252.210956-5-richard.henderson@linaro.org> [AJB: add various additional cases shown by CI] Signed-off-by: Alex Bennée <alex.bennee@linaro.org> Message-Id: <20230315174331.2959-15-alex.bennee@linaro.org> Reviewed-by: Emilio Cota <cota@braap.org>
1729 lines
48 KiB
C
1729 lines
48 KiB
C
/*
|
|
* QEMU Xen emulation: Shared/overlay pages support
|
|
*
|
|
* Copyright © 2022 Amazon.com, Inc. or its affiliates. All Rights Reserved.
|
|
*
|
|
* Authors: David Woodhouse <dwmw2@infradead.org>
|
|
*
|
|
* This work is licensed under the terms of the GNU GPL, version 2 or later.
|
|
* See the COPYING file in the top-level directory.
|
|
*/
|
|
|
|
#include "qemu/osdep.h"
|
|
|
|
#include "qemu/host-utils.h"
|
|
#include "qemu/module.h"
|
|
#include "qemu/main-loop.h"
|
|
#include "qemu/cutils.h"
|
|
#include "qemu/error-report.h"
|
|
#include "qapi/error.h"
|
|
#include "qom/object.h"
|
|
#include "migration/vmstate.h"
|
|
|
|
#include "hw/sysbus.h"
|
|
#include "hw/xen/xen.h"
|
|
#include "hw/xen/xen_backend_ops.h"
|
|
#include "xen_overlay.h"
|
|
#include "xen_evtchn.h"
|
|
#include "xen_xenstore.h"
|
|
|
|
#include "sysemu/kvm.h"
|
|
#include "sysemu/kvm_xen.h"
|
|
|
|
#include "trace.h"
|
|
|
|
#include "xenstore_impl.h"
|
|
|
|
#include "hw/xen/interface/io/xs_wire.h"
|
|
#include "hw/xen/interface/event_channel.h"
|
|
#include "hw/xen/interface/grant_table.h"
|
|
|
|
#define TYPE_XEN_XENSTORE "xen-xenstore"
|
|
OBJECT_DECLARE_SIMPLE_TYPE(XenXenstoreState, XEN_XENSTORE)
|
|
|
|
#define ENTRIES_PER_FRAME_V1 (XEN_PAGE_SIZE / sizeof(grant_entry_v1_t))
|
|
#define ENTRIES_PER_FRAME_V2 (XEN_PAGE_SIZE / sizeof(grant_entry_v2_t))
|
|
|
|
#define XENSTORE_HEADER_SIZE ((unsigned int)sizeof(struct xsd_sockmsg))
|
|
|
|
struct XenXenstoreState {
|
|
/*< private >*/
|
|
SysBusDevice busdev;
|
|
/*< public >*/
|
|
|
|
XenstoreImplState *impl;
|
|
GList *watch_events; /* for the guest */
|
|
|
|
MemoryRegion xenstore_page;
|
|
struct xenstore_domain_interface *xs;
|
|
uint8_t req_data[XENSTORE_HEADER_SIZE + XENSTORE_PAYLOAD_MAX];
|
|
uint8_t rsp_data[XENSTORE_HEADER_SIZE + XENSTORE_PAYLOAD_MAX];
|
|
uint32_t req_offset;
|
|
uint32_t rsp_offset;
|
|
bool rsp_pending;
|
|
bool fatal_error;
|
|
|
|
evtchn_port_t guest_port;
|
|
evtchn_port_t be_port;
|
|
struct xenevtchn_handle *eh;
|
|
|
|
uint8_t *impl_state;
|
|
uint32_t impl_state_size;
|
|
|
|
struct xengntdev_handle *gt;
|
|
void *granted_xs;
|
|
};
|
|
|
|
struct XenXenstoreState *xen_xenstore_singleton;
|
|
|
|
static void xen_xenstore_event(void *opaque);
|
|
static void fire_watch_cb(void *opaque, const char *path, const char *token);
|
|
|
|
static struct xenstore_backend_ops emu_xenstore_backend_ops;
|
|
|
|
static void G_GNUC_PRINTF (4, 5) relpath_printf(XenXenstoreState *s,
|
|
GList *perms,
|
|
const char *relpath,
|
|
const char *fmt, ...)
|
|
{
|
|
gchar *abspath;
|
|
gchar *value;
|
|
va_list args;
|
|
GByteArray *data;
|
|
int err;
|
|
|
|
abspath = g_strdup_printf("/local/domain/%u/%s", xen_domid, relpath);
|
|
va_start(args, fmt);
|
|
value = g_strdup_vprintf(fmt, args);
|
|
va_end(args);
|
|
|
|
data = g_byte_array_new_take((void *)value, strlen(value));
|
|
|
|
err = xs_impl_write(s->impl, DOMID_QEMU, XBT_NULL, abspath, data);
|
|
assert(!err);
|
|
|
|
g_byte_array_unref(data);
|
|
|
|
err = xs_impl_set_perms(s->impl, DOMID_QEMU, XBT_NULL, abspath, perms);
|
|
assert(!err);
|
|
|
|
g_free(abspath);
|
|
}
|
|
|
|
static void xen_xenstore_realize(DeviceState *dev, Error **errp)
|
|
{
|
|
XenXenstoreState *s = XEN_XENSTORE(dev);
|
|
GList *perms;
|
|
|
|
if (xen_mode != XEN_EMULATE) {
|
|
error_setg(errp, "Xen xenstore support is for Xen emulation");
|
|
return;
|
|
}
|
|
memory_region_init_ram(&s->xenstore_page, OBJECT(dev), "xen:xenstore_page",
|
|
XEN_PAGE_SIZE, &error_abort);
|
|
memory_region_set_enabled(&s->xenstore_page, true);
|
|
s->xs = memory_region_get_ram_ptr(&s->xenstore_page);
|
|
memset(s->xs, 0, XEN_PAGE_SIZE);
|
|
|
|
/* We can't map it this early as KVM isn't ready */
|
|
xen_xenstore_singleton = s;
|
|
|
|
s->eh = xen_be_evtchn_open();
|
|
if (!s->eh) {
|
|
error_setg(errp, "Xenstore evtchn port init failed");
|
|
return;
|
|
}
|
|
aio_set_fd_handler(qemu_get_aio_context(), xen_be_evtchn_fd(s->eh), true,
|
|
xen_xenstore_event, NULL, NULL, NULL, s);
|
|
|
|
s->impl = xs_impl_create(xen_domid);
|
|
|
|
/* Populate the default nodes */
|
|
|
|
/* Nodes owned by 'dom0' but readable by the guest */
|
|
perms = g_list_append(NULL, xs_perm_as_string(XS_PERM_NONE, DOMID_QEMU));
|
|
perms = g_list_append(perms, xs_perm_as_string(XS_PERM_READ, xen_domid));
|
|
|
|
relpath_printf(s, perms, "", "%s", "");
|
|
|
|
relpath_printf(s, perms, "domid", "%u", xen_domid);
|
|
|
|
relpath_printf(s, perms, "control/platform-feature-xs_reset_watches", "%u", 1);
|
|
relpath_printf(s, perms, "control/platform-feature-multiprocessor-suspend", "%u", 1);
|
|
|
|
relpath_printf(s, perms, "platform/acpi", "%u", 1);
|
|
relpath_printf(s, perms, "platform/acpi_s3", "%u", 1);
|
|
relpath_printf(s, perms, "platform/acpi_s4", "%u", 1);
|
|
relpath_printf(s, perms, "platform/acpi_laptop_slate", "%u", 0);
|
|
|
|
g_list_free_full(perms, g_free);
|
|
|
|
/* Nodes owned by the guest */
|
|
perms = g_list_append(NULL, xs_perm_as_string(XS_PERM_NONE, xen_domid));
|
|
|
|
relpath_printf(s, perms, "attr", "%s", "");
|
|
|
|
relpath_printf(s, perms, "control/shutdown", "%s", "");
|
|
relpath_printf(s, perms, "control/feature-poweroff", "%u", 1);
|
|
relpath_printf(s, perms, "control/feature-reboot", "%u", 1);
|
|
relpath_printf(s, perms, "control/feature-suspend", "%u", 1);
|
|
relpath_printf(s, perms, "control/feature-s3", "%u", 1);
|
|
relpath_printf(s, perms, "control/feature-s4", "%u", 1);
|
|
|
|
relpath_printf(s, perms, "data", "%s", "");
|
|
relpath_printf(s, perms, "device", "%s", "");
|
|
relpath_printf(s, perms, "drivers", "%s", "");
|
|
relpath_printf(s, perms, "error", "%s", "");
|
|
relpath_printf(s, perms, "feature", "%s", "");
|
|
|
|
g_list_free_full(perms, g_free);
|
|
|
|
xen_xenstore_ops = &emu_xenstore_backend_ops;
|
|
}
|
|
|
|
static bool xen_xenstore_is_needed(void *opaque)
|
|
{
|
|
return xen_mode == XEN_EMULATE;
|
|
}
|
|
|
|
static int xen_xenstore_pre_save(void *opaque)
|
|
{
|
|
XenXenstoreState *s = opaque;
|
|
GByteArray *save;
|
|
|
|
if (s->eh) {
|
|
s->guest_port = xen_be_evtchn_get_guest_port(s->eh);
|
|
}
|
|
|
|
g_free(s->impl_state);
|
|
save = xs_impl_serialize(s->impl);
|
|
s->impl_state = save->data;
|
|
s->impl_state_size = save->len;
|
|
g_byte_array_free(save, false);
|
|
|
|
return 0;
|
|
}
|
|
|
|
static int xen_xenstore_post_load(void *opaque, int ver)
|
|
{
|
|
XenXenstoreState *s = opaque;
|
|
GByteArray *save;
|
|
int ret;
|
|
|
|
/*
|
|
* As qemu/dom0, rebind to the guest's port. The Windows drivers may
|
|
* unbind the XenStore evtchn and rebind to it, having obtained the
|
|
* "remote" port through EVTCHNOP_status. In the case that migration
|
|
* occurs while it's unbound, the "remote" port needs to be the same
|
|
* as before so that the guest can find it, but should remain unbound.
|
|
*/
|
|
if (s->guest_port) {
|
|
int be_port = xen_be_evtchn_bind_interdomain(s->eh, xen_domid,
|
|
s->guest_port);
|
|
if (be_port < 0) {
|
|
return be_port;
|
|
}
|
|
s->be_port = be_port;
|
|
}
|
|
|
|
save = g_byte_array_new_take(s->impl_state, s->impl_state_size);
|
|
s->impl_state = NULL;
|
|
s->impl_state_size = 0;
|
|
|
|
ret = xs_impl_deserialize(s->impl, save, xen_domid, fire_watch_cb, s);
|
|
return ret;
|
|
}
|
|
|
|
static const VMStateDescription xen_xenstore_vmstate = {
|
|
.name = "xen_xenstore",
|
|
.unmigratable = 1, /* The PV back ends don't migrate yet */
|
|
.version_id = 1,
|
|
.minimum_version_id = 1,
|
|
.needed = xen_xenstore_is_needed,
|
|
.pre_save = xen_xenstore_pre_save,
|
|
.post_load = xen_xenstore_post_load,
|
|
.fields = (VMStateField[]) {
|
|
VMSTATE_UINT8_ARRAY(req_data, XenXenstoreState,
|
|
sizeof_field(XenXenstoreState, req_data)),
|
|
VMSTATE_UINT8_ARRAY(rsp_data, XenXenstoreState,
|
|
sizeof_field(XenXenstoreState, rsp_data)),
|
|
VMSTATE_UINT32(req_offset, XenXenstoreState),
|
|
VMSTATE_UINT32(rsp_offset, XenXenstoreState),
|
|
VMSTATE_BOOL(rsp_pending, XenXenstoreState),
|
|
VMSTATE_UINT32(guest_port, XenXenstoreState),
|
|
VMSTATE_BOOL(fatal_error, XenXenstoreState),
|
|
VMSTATE_UINT32(impl_state_size, XenXenstoreState),
|
|
VMSTATE_VARRAY_UINT32_ALLOC(impl_state, XenXenstoreState,
|
|
impl_state_size, 0,
|
|
vmstate_info_uint8, uint8_t),
|
|
VMSTATE_END_OF_LIST()
|
|
}
|
|
};
|
|
|
|
static void xen_xenstore_class_init(ObjectClass *klass, void *data)
|
|
{
|
|
DeviceClass *dc = DEVICE_CLASS(klass);
|
|
|
|
dc->realize = xen_xenstore_realize;
|
|
dc->vmsd = &xen_xenstore_vmstate;
|
|
}
|
|
|
|
static const TypeInfo xen_xenstore_info = {
|
|
.name = TYPE_XEN_XENSTORE,
|
|
.parent = TYPE_SYS_BUS_DEVICE,
|
|
.instance_size = sizeof(XenXenstoreState),
|
|
.class_init = xen_xenstore_class_init,
|
|
};
|
|
|
|
void xen_xenstore_create(void)
|
|
{
|
|
DeviceState *dev = sysbus_create_simple(TYPE_XEN_XENSTORE, -1, NULL);
|
|
|
|
xen_xenstore_singleton = XEN_XENSTORE(dev);
|
|
|
|
/*
|
|
* Defer the init (xen_xenstore_reset()) until KVM is set up and the
|
|
* overlay page can be mapped.
|
|
*/
|
|
}
|
|
|
|
static void xen_xenstore_register_types(void)
|
|
{
|
|
type_register_static(&xen_xenstore_info);
|
|
}
|
|
|
|
type_init(xen_xenstore_register_types)
|
|
|
|
uint16_t xen_xenstore_get_port(void)
|
|
{
|
|
XenXenstoreState *s = xen_xenstore_singleton;
|
|
if (!s) {
|
|
return 0;
|
|
}
|
|
return s->guest_port;
|
|
}
|
|
|
|
static bool req_pending(XenXenstoreState *s)
|
|
{
|
|
struct xsd_sockmsg *req = (struct xsd_sockmsg *)s->req_data;
|
|
|
|
return s->req_offset == XENSTORE_HEADER_SIZE + req->len;
|
|
}
|
|
|
|
static void reset_req(XenXenstoreState *s)
|
|
{
|
|
memset(s->req_data, 0, sizeof(s->req_data));
|
|
s->req_offset = 0;
|
|
}
|
|
|
|
static void reset_rsp(XenXenstoreState *s)
|
|
{
|
|
s->rsp_pending = false;
|
|
|
|
memset(s->rsp_data, 0, sizeof(s->rsp_data));
|
|
s->rsp_offset = 0;
|
|
}
|
|
|
|
static void xs_error(XenXenstoreState *s, unsigned int id,
|
|
xs_transaction_t tx_id, int errnum)
|
|
{
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
const char *errstr = NULL;
|
|
|
|
for (unsigned int i = 0; i < ARRAY_SIZE(xsd_errors); i++) {
|
|
struct xsd_errors *xsd_error = &xsd_errors[i];
|
|
|
|
if (xsd_error->errnum == errnum) {
|
|
errstr = xsd_error->errstring;
|
|
break;
|
|
}
|
|
}
|
|
assert(errstr);
|
|
|
|
trace_xenstore_error(id, tx_id, errstr);
|
|
|
|
rsp->type = XS_ERROR;
|
|
rsp->req_id = id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = (uint32_t)strlen(errstr) + 1;
|
|
|
|
memcpy(&rsp[1], errstr, rsp->len);
|
|
}
|
|
|
|
static void xs_ok(XenXenstoreState *s, unsigned int type, unsigned int req_id,
|
|
xs_transaction_t tx_id)
|
|
{
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
const char *okstr = "OK";
|
|
|
|
rsp->type = type;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = (uint32_t)strlen(okstr) + 1;
|
|
|
|
memcpy(&rsp[1], okstr, rsp->len);
|
|
}
|
|
|
|
/*
|
|
* The correct request and response formats are documented in xen.git:
|
|
* docs/misc/xenstore.txt. A summary is given below for convenience.
|
|
* The '|' symbol represents a NUL character.
|
|
*
|
|
* ---------- Database read, write and permissions operations ----------
|
|
*
|
|
* READ <path>| <value|>
|
|
* WRITE <path>|<value|>
|
|
* Store and read the octet string <value> at <path>.
|
|
* WRITE creates any missing parent paths, with empty values.
|
|
*
|
|
* MKDIR <path>|
|
|
* Ensures that the <path> exists, by necessary by creating
|
|
* it and any missing parents with empty values. If <path>
|
|
* or any parent already exists, its value is left unchanged.
|
|
*
|
|
* RM <path>|
|
|
* Ensures that the <path> does not exist, by deleting
|
|
* it and all of its children. It is not an error if <path> does
|
|
* not exist, but it _is_ an error if <path>'s immediate parent
|
|
* does not exist either.
|
|
*
|
|
* DIRECTORY <path>| <child-leaf-name>|*
|
|
* Gives a list of the immediate children of <path>, as only the
|
|
* leafnames. The resulting children are each named
|
|
* <path>/<child-leaf-name>.
|
|
*
|
|
* DIRECTORY_PART <path>|<offset> <gencnt>|<child-leaf-name>|*
|
|
* Same as DIRECTORY, but to be used for children lists longer than
|
|
* XENSTORE_PAYLOAD_MAX. Input are <path> and the byte offset into
|
|
* the list of children to return. Return values are the generation
|
|
* count <gencnt> of the node (to be used to ensure the node hasn't
|
|
* changed between two reads: <gencnt> being the same for multiple
|
|
* reads guarantees the node hasn't changed) and the list of children
|
|
* starting at the specified <offset> of the complete list.
|
|
*
|
|
* GET_PERMS <path>| <perm-as-string>|+
|
|
* SET_PERMS <path>|<perm-as-string>|+?
|
|
* <perm-as-string> is one of the following
|
|
* w<domid> write only
|
|
* r<domid> read only
|
|
* b<domid> both read and write
|
|
* n<domid> no access
|
|
* See https://wiki.xen.org/wiki/XenBus section
|
|
* `Permissions' for details of the permissions system.
|
|
* It is possible to set permissions for the special watch paths
|
|
* "@introduceDomain" and "@releaseDomain" to enable receiving those
|
|
* watches in unprivileged domains.
|
|
*
|
|
* ---------- Watches ----------
|
|
*
|
|
* WATCH <wpath>|<token>|?
|
|
* Adds a watch.
|
|
*
|
|
* When a <path> is modified (including path creation, removal,
|
|
* contents change or permissions change) this generates an event
|
|
* on the changed <path>. Changes made in transactions cause an
|
|
* event only if and when committed. Each occurring event is
|
|
* matched against all the watches currently set up, and each
|
|
* matching watch results in a WATCH_EVENT message (see below).
|
|
*
|
|
* The event's path matches the watch's <wpath> if it is an child
|
|
* of <wpath>.
|
|
*
|
|
* <wpath> can be a <path> to watch or @<wspecial>. In the
|
|
* latter case <wspecial> may have any syntax but it matches
|
|
* (according to the rules above) only the following special
|
|
* events which are invented by xenstored:
|
|
* @introduceDomain occurs on INTRODUCE
|
|
* @releaseDomain occurs on any domain crash or
|
|
* shutdown, and also on RELEASE
|
|
* and domain destruction
|
|
* <wspecial> events are sent to privileged callers or explicitly
|
|
* via SET_PERMS enabled domains only.
|
|
*
|
|
* When a watch is first set up it is triggered once straight
|
|
* away, with <path> equal to <wpath>. Watches may be triggered
|
|
* spuriously. The tx_id in a WATCH request is ignored.
|
|
*
|
|
* Watches are supposed to be restricted by the permissions
|
|
* system but in practice the implementation is imperfect.
|
|
* Applications should not rely on being sent a notification for
|
|
* paths that they cannot read; however, an application may rely
|
|
* on being sent a watch when a path which it _is_ able to read
|
|
* is deleted even if that leaves only a nonexistent unreadable
|
|
* parent. A notification may omitted if a node's permissions
|
|
* are changed so as to make it unreadable, in which case future
|
|
* notifications may be suppressed (and if the node is later made
|
|
* readable, some notifications may have been lost).
|
|
*
|
|
* WATCH_EVENT <epath>|<token>|
|
|
* Unsolicited `reply' generated for matching modification events
|
|
* as described above. req_id and tx_id are both 0.
|
|
*
|
|
* <epath> is the event's path, ie the actual path that was
|
|
* modified; however if the event was the recursive removal of an
|
|
* parent of <wpath>, <epath> is just
|
|
* <wpath> (rather than the actual path which was removed). So
|
|
* <epath> is a child of <wpath>, regardless.
|
|
*
|
|
* Iff <wpath> for the watch was specified as a relative pathname,
|
|
* the <epath> path will also be relative (with the same base,
|
|
* obviously).
|
|
*
|
|
* UNWATCH <wpath>|<token>|?
|
|
*
|
|
* RESET_WATCHES |
|
|
* Reset all watches and transactions of the caller.
|
|
*
|
|
* ---------- Transactions ----------
|
|
*
|
|
* TRANSACTION_START | <transid>|
|
|
* <transid> is an opaque uint32_t allocated by xenstored
|
|
* represented as unsigned decimal. After this, transaction may
|
|
* be referenced by using <transid> (as 32-bit binary) in the
|
|
* tx_id request header field. When transaction is started whole
|
|
* db is copied; reads and writes happen on the copy.
|
|
* It is not legal to send non-0 tx_id in TRANSACTION_START.
|
|
*
|
|
* TRANSACTION_END T|
|
|
* TRANSACTION_END F|
|
|
* tx_id must refer to existing transaction. After this
|
|
* request the tx_id is no longer valid and may be reused by
|
|
* xenstore. If F, the transaction is discarded. If T,
|
|
* it is committed: if there were any other intervening writes
|
|
* then our END gets get EAGAIN.
|
|
*
|
|
* The plan is that in the future only intervening `conflicting'
|
|
* writes cause EAGAIN, meaning only writes or other commits
|
|
* which changed paths which were read or written in the
|
|
* transaction at hand.
|
|
*
|
|
*/
|
|
|
|
static void xs_read(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data, unsigned int len)
|
|
{
|
|
const char *path = (const char *)req_data;
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
uint8_t *rsp_data = (uint8_t *)&rsp[1];
|
|
g_autoptr(GByteArray) data = g_byte_array_new();
|
|
int err;
|
|
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_read(tx_id, path);
|
|
err = xs_impl_read(s->impl, xen_domid, tx_id, path, data);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
rsp->type = XS_READ;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = 0;
|
|
|
|
len = data->len;
|
|
if (len > XENSTORE_PAYLOAD_MAX) {
|
|
xs_error(s, req_id, tx_id, E2BIG);
|
|
return;
|
|
}
|
|
|
|
memcpy(&rsp_data[rsp->len], data->data, len);
|
|
rsp->len += len;
|
|
}
|
|
|
|
static void xs_write(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
g_autoptr(GByteArray) data = g_byte_array_new();
|
|
const char *path;
|
|
int err;
|
|
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
path = (const char *)req_data;
|
|
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
g_byte_array_append(data, req_data, len);
|
|
|
|
trace_xenstore_write(tx_id, path);
|
|
err = xs_impl_write(s->impl, xen_domid, tx_id, path, data);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_WRITE, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_mkdir(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
g_autoptr(GByteArray) data = g_byte_array_new();
|
|
const char *path;
|
|
int err;
|
|
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
path = (const char *)req_data;
|
|
|
|
trace_xenstore_mkdir(tx_id, path);
|
|
err = xs_impl_read(s->impl, xen_domid, tx_id, path, data);
|
|
if (err == ENOENT) {
|
|
err = xs_impl_write(s->impl, xen_domid, tx_id, path, data);
|
|
}
|
|
|
|
if (!err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_MKDIR, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_append_strings(XenXenstoreState *s, struct xsd_sockmsg *rsp,
|
|
GList *strings, unsigned int start, bool truncate)
|
|
{
|
|
uint8_t *rsp_data = (uint8_t *)&rsp[1];
|
|
GList *l;
|
|
|
|
for (l = strings; l; l = l->next) {
|
|
size_t len = strlen(l->data) + 1; /* Including the NUL termination */
|
|
char *str = l->data;
|
|
|
|
if (rsp->len + len > XENSTORE_PAYLOAD_MAX) {
|
|
if (truncate) {
|
|
len = XENSTORE_PAYLOAD_MAX - rsp->len;
|
|
if (!len) {
|
|
return;
|
|
}
|
|
} else {
|
|
xs_error(s, rsp->req_id, rsp->tx_id, E2BIG);
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (start) {
|
|
if (start >= len) {
|
|
start -= len;
|
|
continue;
|
|
}
|
|
|
|
str += start;
|
|
len -= start;
|
|
start = 0;
|
|
}
|
|
|
|
memcpy(&rsp_data[rsp->len], str, len);
|
|
rsp->len += len;
|
|
}
|
|
/* XS_DIRECTORY_PART wants an extra NUL to indicate the end */
|
|
if (truncate && rsp->len < XENSTORE_PAYLOAD_MAX) {
|
|
rsp_data[rsp->len++] = '\0';
|
|
}
|
|
}
|
|
|
|
static void xs_directory(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
GList *items = NULL;
|
|
const char *path;
|
|
int err;
|
|
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
path = (const char *)req_data;
|
|
|
|
trace_xenstore_directory(tx_id, path);
|
|
err = xs_impl_directory(s->impl, xen_domid, tx_id, path, NULL, &items);
|
|
if (err != 0) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
rsp->type = XS_DIRECTORY;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = 0;
|
|
|
|
xs_append_strings(s, rsp, items, 0, false);
|
|
|
|
g_list_free_full(items, g_free);
|
|
}
|
|
|
|
static void xs_directory_part(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
const char *offset_str, *path = (const char *)req_data;
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
char *rsp_data = (char *)&rsp[1];
|
|
uint64_t gencnt = 0;
|
|
unsigned int offset;
|
|
GList *items = NULL;
|
|
int err;
|
|
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
offset_str = (const char *)req_data;
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
if (len) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
if (qemu_strtoui(offset_str, NULL, 10, &offset) < 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_directory_part(tx_id, path, offset);
|
|
err = xs_impl_directory(s->impl, xen_domid, tx_id, path, &gencnt, &items);
|
|
if (err != 0) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
rsp->type = XS_DIRECTORY_PART;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = snprintf(rsp_data, XENSTORE_PAYLOAD_MAX, "%" PRIu64, gencnt) + 1;
|
|
|
|
xs_append_strings(s, rsp, items, offset, true);
|
|
|
|
g_list_free_full(items, g_free);
|
|
}
|
|
|
|
static void xs_transaction_start(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
char *rsp_data = (char *)&rsp[1];
|
|
int err;
|
|
|
|
if (len != 1 || req_data[0] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
rsp->type = XS_TRANSACTION_START;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = 0;
|
|
|
|
err = xs_impl_transaction_start(s->impl, xen_domid, &tx_id);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_transaction_start(tx_id);
|
|
|
|
rsp->len = snprintf(rsp_data, XENSTORE_PAYLOAD_MAX, "%u", tx_id);
|
|
assert(rsp->len < XENSTORE_PAYLOAD_MAX);
|
|
rsp->len++;
|
|
}
|
|
|
|
static void xs_transaction_end(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
bool commit;
|
|
int err;
|
|
|
|
if (len != 2 || req_data[1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
switch (req_data[0]) {
|
|
case 'T':
|
|
commit = true;
|
|
break;
|
|
case 'F':
|
|
commit = false;
|
|
break;
|
|
default:
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_transaction_end(tx_id, commit);
|
|
err = xs_impl_transaction_end(s->impl, xen_domid, tx_id, commit);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_TRANSACTION_END, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_rm(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data, unsigned int len)
|
|
{
|
|
const char *path = (const char *)req_data;
|
|
int err;
|
|
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_rm(tx_id, path);
|
|
err = xs_impl_rm(s->impl, xen_domid, tx_id, path);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_RM, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_get_perms(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
const char *path = (const char *)req_data;
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
GList *perms = NULL;
|
|
int err;
|
|
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_get_perms(tx_id, path);
|
|
err = xs_impl_get_perms(s->impl, xen_domid, tx_id, path, &perms);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
rsp->type = XS_GET_PERMS;
|
|
rsp->req_id = req_id;
|
|
rsp->tx_id = tx_id;
|
|
rsp->len = 0;
|
|
|
|
xs_append_strings(s, rsp, perms, 0, false);
|
|
|
|
g_list_free_full(perms, g_free);
|
|
}
|
|
|
|
static void xs_set_perms(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
const char *path = (const char *)req_data;
|
|
uint8_t *perm;
|
|
GList *perms = NULL;
|
|
int err;
|
|
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
perm = req_data;
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
perms = g_list_append(perms, perm);
|
|
perm = req_data;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Note that there may be trailing garbage at the end of the buffer.
|
|
* This is explicitly permitted by the '?' at the end of the definition:
|
|
*
|
|
* SET_PERMS <path>|<perm-as-string>|+?
|
|
*/
|
|
|
|
trace_xenstore_set_perms(tx_id, path);
|
|
err = xs_impl_set_perms(s->impl, xen_domid, tx_id, path, perms);
|
|
g_list_free(perms);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_SET_PERMS, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_watch(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
const char *token, *path = (const char *)req_data;
|
|
int err;
|
|
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
token = (const char *)req_data;
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Note that there may be trailing garbage at the end of the buffer.
|
|
* This is explicitly permitted by the '?' at the end of the definition:
|
|
*
|
|
* WATCH <wpath>|<token>|?
|
|
*/
|
|
|
|
trace_xenstore_watch(path, token);
|
|
err = xs_impl_watch(s->impl, xen_domid, path, token, fire_watch_cb, s);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_WATCH, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_unwatch(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
const char *token, *path = (const char *)req_data;
|
|
int err;
|
|
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
token = (const char *)req_data;
|
|
while (len--) {
|
|
if (*req_data++ == '\0') {
|
|
break;
|
|
}
|
|
if (len == 0) {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
}
|
|
|
|
trace_xenstore_unwatch(path, token);
|
|
err = xs_impl_unwatch(s->impl, xen_domid, path, token, fire_watch_cb, s);
|
|
if (err) {
|
|
xs_error(s, req_id, tx_id, err);
|
|
return;
|
|
}
|
|
|
|
xs_ok(s, XS_UNWATCH, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_reset_watches(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *req_data,
|
|
unsigned int len)
|
|
{
|
|
if (len == 0 || req_data[len - 1] != '\0') {
|
|
xs_error(s, req_id, tx_id, EINVAL);
|
|
return;
|
|
}
|
|
|
|
trace_xenstore_reset_watches();
|
|
xs_impl_reset_watches(s->impl, xen_domid);
|
|
|
|
xs_ok(s, XS_RESET_WATCHES, req_id, tx_id);
|
|
}
|
|
|
|
static void xs_priv(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *data,
|
|
unsigned int len)
|
|
{
|
|
xs_error(s, req_id, tx_id, EACCES);
|
|
}
|
|
|
|
static void xs_unimpl(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *data,
|
|
unsigned int len)
|
|
{
|
|
xs_error(s, req_id, tx_id, ENOSYS);
|
|
}
|
|
|
|
typedef void (*xs_impl)(XenXenstoreState *s, unsigned int req_id,
|
|
xs_transaction_t tx_id, uint8_t *data,
|
|
unsigned int len);
|
|
|
|
struct xsd_req {
|
|
const char *name;
|
|
xs_impl fn;
|
|
};
|
|
#define XSD_REQ(_type, _fn) \
|
|
[_type] = { .name = #_type, .fn = _fn }
|
|
|
|
struct xsd_req xsd_reqs[] = {
|
|
XSD_REQ(XS_READ, xs_read),
|
|
XSD_REQ(XS_WRITE, xs_write),
|
|
XSD_REQ(XS_MKDIR, xs_mkdir),
|
|
XSD_REQ(XS_DIRECTORY, xs_directory),
|
|
XSD_REQ(XS_DIRECTORY_PART, xs_directory_part),
|
|
XSD_REQ(XS_TRANSACTION_START, xs_transaction_start),
|
|
XSD_REQ(XS_TRANSACTION_END, xs_transaction_end),
|
|
XSD_REQ(XS_RM, xs_rm),
|
|
XSD_REQ(XS_GET_PERMS, xs_get_perms),
|
|
XSD_REQ(XS_SET_PERMS, xs_set_perms),
|
|
XSD_REQ(XS_WATCH, xs_watch),
|
|
XSD_REQ(XS_UNWATCH, xs_unwatch),
|
|
XSD_REQ(XS_CONTROL, xs_priv),
|
|
XSD_REQ(XS_INTRODUCE, xs_priv),
|
|
XSD_REQ(XS_RELEASE, xs_priv),
|
|
XSD_REQ(XS_IS_DOMAIN_INTRODUCED, xs_priv),
|
|
XSD_REQ(XS_RESUME, xs_priv),
|
|
XSD_REQ(XS_SET_TARGET, xs_priv),
|
|
XSD_REQ(XS_RESET_WATCHES, xs_reset_watches),
|
|
};
|
|
|
|
static void process_req(XenXenstoreState *s)
|
|
{
|
|
struct xsd_sockmsg *req = (struct xsd_sockmsg *)s->req_data;
|
|
xs_impl handler = NULL;
|
|
|
|
assert(req_pending(s));
|
|
assert(!s->rsp_pending);
|
|
|
|
if (req->type < ARRAY_SIZE(xsd_reqs)) {
|
|
handler = xsd_reqs[req->type].fn;
|
|
}
|
|
if (!handler) {
|
|
handler = &xs_unimpl;
|
|
}
|
|
|
|
handler(s, req->req_id, req->tx_id, (uint8_t *)&req[1], req->len);
|
|
|
|
s->rsp_pending = true;
|
|
reset_req(s);
|
|
}
|
|
|
|
static unsigned int copy_from_ring(XenXenstoreState *s, uint8_t *ptr,
|
|
unsigned int len)
|
|
{
|
|
if (!len) {
|
|
return 0;
|
|
}
|
|
|
|
XENSTORE_RING_IDX prod = qatomic_read(&s->xs->req_prod);
|
|
XENSTORE_RING_IDX cons = qatomic_read(&s->xs->req_cons);
|
|
unsigned int copied = 0;
|
|
|
|
/* Ensure the ring contents don't cross the req_prod access. */
|
|
smp_rmb();
|
|
|
|
while (len) {
|
|
unsigned int avail = prod - cons;
|
|
unsigned int offset = MASK_XENSTORE_IDX(cons);
|
|
unsigned int copylen = avail;
|
|
|
|
if (avail > XENSTORE_RING_SIZE) {
|
|
error_report("XenStore ring handling error");
|
|
s->fatal_error = true;
|
|
break;
|
|
} else if (avail == 0) {
|
|
break;
|
|
}
|
|
|
|
if (copylen > len) {
|
|
copylen = len;
|
|
}
|
|
if (copylen > XENSTORE_RING_SIZE - offset) {
|
|
copylen = XENSTORE_RING_SIZE - offset;
|
|
}
|
|
|
|
memcpy(ptr, &s->xs->req[offset], copylen);
|
|
copied += copylen;
|
|
|
|
ptr += copylen;
|
|
len -= copylen;
|
|
|
|
cons += copylen;
|
|
}
|
|
|
|
/*
|
|
* Not sure this ever mattered except on Alpha, but this barrier
|
|
* is to ensure that the update to req_cons is globally visible
|
|
* only after we have consumed all the data from the ring, and we
|
|
* don't end up seeing data written to the ring *after* the other
|
|
* end sees the update and writes more to the ring. Xen's own
|
|
* xenstored has the same barrier here (although with no comment
|
|
* at all, obviously, because it's Xen code).
|
|
*/
|
|
smp_mb();
|
|
|
|
qatomic_set(&s->xs->req_cons, cons);
|
|
|
|
return copied;
|
|
}
|
|
|
|
static unsigned int copy_to_ring(XenXenstoreState *s, uint8_t *ptr,
|
|
unsigned int len)
|
|
{
|
|
if (!len) {
|
|
return 0;
|
|
}
|
|
|
|
XENSTORE_RING_IDX cons = qatomic_read(&s->xs->rsp_cons);
|
|
XENSTORE_RING_IDX prod = qatomic_read(&s->xs->rsp_prod);
|
|
unsigned int copied = 0;
|
|
|
|
/*
|
|
* This matches the barrier in copy_to_ring() (or the guest's
|
|
* equivalent) betweem writing the data to the ring and updating
|
|
* rsp_prod. It protects against the pathological case (which
|
|
* again I think never happened except on Alpha) where our
|
|
* subsequent writes to the ring could *cross* the read of
|
|
* rsp_cons and the guest could see the new data when it was
|
|
* intending to read the old.
|
|
*/
|
|
smp_mb();
|
|
|
|
while (len) {
|
|
unsigned int avail = cons + XENSTORE_RING_SIZE - prod;
|
|
unsigned int offset = MASK_XENSTORE_IDX(prod);
|
|
unsigned int copylen = len;
|
|
|
|
if (avail > XENSTORE_RING_SIZE) {
|
|
error_report("XenStore ring handling error");
|
|
s->fatal_error = true;
|
|
break;
|
|
} else if (avail == 0) {
|
|
break;
|
|
}
|
|
|
|
if (copylen > avail) {
|
|
copylen = avail;
|
|
}
|
|
if (copylen > XENSTORE_RING_SIZE - offset) {
|
|
copylen = XENSTORE_RING_SIZE - offset;
|
|
}
|
|
|
|
|
|
memcpy(&s->xs->rsp[offset], ptr, copylen);
|
|
copied += copylen;
|
|
|
|
ptr += copylen;
|
|
len -= copylen;
|
|
|
|
prod += copylen;
|
|
}
|
|
|
|
/* Ensure the ring contents are seen before rsp_prod update. */
|
|
smp_wmb();
|
|
|
|
qatomic_set(&s->xs->rsp_prod, prod);
|
|
|
|
return copied;
|
|
}
|
|
|
|
static unsigned int get_req(XenXenstoreState *s)
|
|
{
|
|
unsigned int copied = 0;
|
|
|
|
if (s->fatal_error) {
|
|
return 0;
|
|
}
|
|
|
|
assert(!req_pending(s));
|
|
|
|
if (s->req_offset < XENSTORE_HEADER_SIZE) {
|
|
void *ptr = s->req_data + s->req_offset;
|
|
unsigned int len = XENSTORE_HEADER_SIZE;
|
|
unsigned int copylen = copy_from_ring(s, ptr, len);
|
|
|
|
copied += copylen;
|
|
s->req_offset += copylen;
|
|
}
|
|
|
|
if (s->req_offset >= XENSTORE_HEADER_SIZE) {
|
|
struct xsd_sockmsg *req = (struct xsd_sockmsg *)s->req_data;
|
|
|
|
if (req->len > (uint32_t)XENSTORE_PAYLOAD_MAX) {
|
|
error_report("Illegal XenStore request");
|
|
s->fatal_error = true;
|
|
return 0;
|
|
}
|
|
|
|
void *ptr = s->req_data + s->req_offset;
|
|
unsigned int len = XENSTORE_HEADER_SIZE + req->len - s->req_offset;
|
|
unsigned int copylen = copy_from_ring(s, ptr, len);
|
|
|
|
copied += copylen;
|
|
s->req_offset += copylen;
|
|
}
|
|
|
|
return copied;
|
|
}
|
|
|
|
static unsigned int put_rsp(XenXenstoreState *s)
|
|
{
|
|
if (s->fatal_error) {
|
|
return 0;
|
|
}
|
|
|
|
assert(s->rsp_pending);
|
|
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
assert(s->rsp_offset < XENSTORE_HEADER_SIZE + rsp->len);
|
|
|
|
void *ptr = s->rsp_data + s->rsp_offset;
|
|
unsigned int len = XENSTORE_HEADER_SIZE + rsp->len - s->rsp_offset;
|
|
unsigned int copylen = copy_to_ring(s, ptr, len);
|
|
|
|
s->rsp_offset += copylen;
|
|
|
|
/* Have we produced a complete response? */
|
|
if (s->rsp_offset == XENSTORE_HEADER_SIZE + rsp->len) {
|
|
reset_rsp(s);
|
|
}
|
|
|
|
return copylen;
|
|
}
|
|
|
|
static void deliver_watch(XenXenstoreState *s, const char *path,
|
|
const char *token)
|
|
{
|
|
struct xsd_sockmsg *rsp = (struct xsd_sockmsg *)s->rsp_data;
|
|
uint8_t *rsp_data = (uint8_t *)&rsp[1];
|
|
unsigned int len;
|
|
|
|
assert(!s->rsp_pending);
|
|
|
|
trace_xenstore_watch_event(path, token);
|
|
|
|
rsp->type = XS_WATCH_EVENT;
|
|
rsp->req_id = 0;
|
|
rsp->tx_id = 0;
|
|
rsp->len = 0;
|
|
|
|
len = strlen(path);
|
|
|
|
/* XENSTORE_ABS/REL_PATH_MAX should ensure there can be no overflow */
|
|
assert(rsp->len + len < XENSTORE_PAYLOAD_MAX);
|
|
|
|
memcpy(&rsp_data[rsp->len], path, len);
|
|
rsp->len += len;
|
|
rsp_data[rsp->len] = '\0';
|
|
rsp->len++;
|
|
|
|
len = strlen(token);
|
|
/*
|
|
* It is possible for the guest to have chosen a token that will
|
|
* not fit (along with the patch) into a watch event. We have no
|
|
* choice but to drop the event if this is the case.
|
|
*/
|
|
if (rsp->len + len >= XENSTORE_PAYLOAD_MAX) {
|
|
return;
|
|
}
|
|
|
|
memcpy(&rsp_data[rsp->len], token, len);
|
|
rsp->len += len;
|
|
rsp_data[rsp->len] = '\0';
|
|
rsp->len++;
|
|
|
|
s->rsp_pending = true;
|
|
}
|
|
|
|
struct watch_event {
|
|
char *path;
|
|
char *token;
|
|
};
|
|
|
|
static void free_watch_event(struct watch_event *ev)
|
|
{
|
|
if (ev) {
|
|
g_free(ev->path);
|
|
g_free(ev->token);
|
|
g_free(ev);
|
|
}
|
|
}
|
|
|
|
static void queue_watch(XenXenstoreState *s, const char *path,
|
|
const char *token)
|
|
{
|
|
struct watch_event *ev = g_new0(struct watch_event, 1);
|
|
|
|
ev->path = g_strdup(path);
|
|
ev->token = g_strdup(token);
|
|
|
|
s->watch_events = g_list_append(s->watch_events, ev);
|
|
}
|
|
|
|
static void fire_watch_cb(void *opaque, const char *path, const char *token)
|
|
{
|
|
XenXenstoreState *s = opaque;
|
|
|
|
assert(qemu_mutex_iothread_locked());
|
|
|
|
/*
|
|
* If there's a response pending, we obviously can't scribble over
|
|
* it. But if there's a request pending, it has dibs on the buffer
|
|
* too.
|
|
*
|
|
* In the common case of a watch firing due to backend activity
|
|
* when the ring was otherwise idle, we should be able to copy the
|
|
* strings directly into the rsp_data and thence the actual ring,
|
|
* without needing to perform any allocations and queue them.
|
|
*/
|
|
if (s->rsp_pending || req_pending(s)) {
|
|
queue_watch(s, path, token);
|
|
} else {
|
|
deliver_watch(s, path, token);
|
|
/*
|
|
* If the message was queued because there was already ring activity,
|
|
* no need to wake the guest. But if not, we need to send the evtchn.
|
|
*/
|
|
xen_be_evtchn_notify(s->eh, s->be_port);
|
|
}
|
|
}
|
|
|
|
static void process_watch_events(XenXenstoreState *s)
|
|
{
|
|
struct watch_event *ev = s->watch_events->data;
|
|
|
|
deliver_watch(s, ev->path, ev->token);
|
|
|
|
s->watch_events = g_list_remove(s->watch_events, ev);
|
|
free_watch_event(ev);
|
|
}
|
|
|
|
static void xen_xenstore_event(void *opaque)
|
|
{
|
|
XenXenstoreState *s = opaque;
|
|
evtchn_port_t port = xen_be_evtchn_pending(s->eh);
|
|
unsigned int copied_to, copied_from;
|
|
bool processed, notify = false;
|
|
|
|
if (port != s->be_port) {
|
|
return;
|
|
}
|
|
|
|
/* We know this is a no-op. */
|
|
xen_be_evtchn_unmask(s->eh, port);
|
|
|
|
do {
|
|
copied_to = copied_from = 0;
|
|
processed = false;
|
|
|
|
if (!s->rsp_pending && s->watch_events) {
|
|
process_watch_events(s);
|
|
}
|
|
|
|
if (s->rsp_pending) {
|
|
copied_to = put_rsp(s);
|
|
}
|
|
|
|
if (!req_pending(s)) {
|
|
copied_from = get_req(s);
|
|
}
|
|
|
|
if (req_pending(s) && !s->rsp_pending && !s->watch_events) {
|
|
process_req(s);
|
|
processed = true;
|
|
}
|
|
|
|
notify |= copied_to || copied_from;
|
|
} while (copied_to || copied_from || processed);
|
|
|
|
if (notify) {
|
|
xen_be_evtchn_notify(s->eh, s->be_port);
|
|
}
|
|
}
|
|
|
|
static void alloc_guest_port(XenXenstoreState *s)
|
|
{
|
|
struct evtchn_alloc_unbound alloc = {
|
|
.dom = DOMID_SELF,
|
|
.remote_dom = DOMID_QEMU,
|
|
};
|
|
|
|
if (!xen_evtchn_alloc_unbound_op(&alloc)) {
|
|
s->guest_port = alloc.port;
|
|
}
|
|
}
|
|
|
|
int xen_xenstore_reset(void)
|
|
{
|
|
XenXenstoreState *s = xen_xenstore_singleton;
|
|
int err;
|
|
|
|
if (!s) {
|
|
return -ENOTSUP;
|
|
}
|
|
|
|
s->req_offset = s->rsp_offset = 0;
|
|
s->rsp_pending = false;
|
|
|
|
if (!memory_region_is_mapped(&s->xenstore_page)) {
|
|
uint64_t gpa = XEN_SPECIAL_PFN(XENSTORE) << TARGET_PAGE_BITS;
|
|
xen_overlay_do_map_page(&s->xenstore_page, gpa);
|
|
}
|
|
|
|
alloc_guest_port(s);
|
|
|
|
/*
|
|
* As qemu/dom0, bind to the guest's port. For incoming migration, this
|
|
* will be unbound as the guest's evtchn table is overwritten. We then
|
|
* rebind to the correct guest port in xen_xenstore_post_load().
|
|
*/
|
|
err = xen_be_evtchn_bind_interdomain(s->eh, xen_domid, s->guest_port);
|
|
if (err < 0) {
|
|
return err;
|
|
}
|
|
s->be_port = err;
|
|
|
|
/*
|
|
* We don't actually access the guest's page through the grant, because
|
|
* this isn't real Xen, and we can just use the page we gave it in the
|
|
* first place. Map the grant anyway, mostly for cosmetic purposes so
|
|
* it *looks* like it's in use in the guest-visible grant table.
|
|
*/
|
|
s->gt = qemu_xen_gnttab_open();
|
|
uint32_t xs_gntref = GNTTAB_RESERVED_XENSTORE;
|
|
s->granted_xs = qemu_xen_gnttab_map_refs(s->gt, 1, xen_domid, &xs_gntref,
|
|
PROT_READ | PROT_WRITE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
struct qemu_xs_handle {
|
|
XenstoreImplState *impl;
|
|
GList *watches;
|
|
QEMUBH *watch_bh;
|
|
};
|
|
|
|
struct qemu_xs_watch {
|
|
struct qemu_xs_handle *h;
|
|
char *path;
|
|
xs_watch_fn fn;
|
|
void *opaque;
|
|
GList *events;
|
|
};
|
|
|
|
static char *xs_be_get_domain_path(struct qemu_xs_handle *h, unsigned int domid)
|
|
{
|
|
return g_strdup_printf("/local/domain/%u", domid);
|
|
}
|
|
|
|
static char **xs_be_directory(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
const char *path, unsigned int *num)
|
|
{
|
|
GList *items = NULL, *l;
|
|
unsigned int i = 0;
|
|
char **items_ret;
|
|
int err;
|
|
|
|
err = xs_impl_directory(h->impl, DOMID_QEMU, t, path, NULL, &items);
|
|
if (err) {
|
|
errno = err;
|
|
return NULL;
|
|
}
|
|
|
|
items_ret = g_new0(char *, g_list_length(items) + 1);
|
|
*num = 0;
|
|
for (l = items; l; l = l->next) {
|
|
items_ret[i++] = l->data;
|
|
(*num)++;
|
|
}
|
|
g_list_free(items);
|
|
return items_ret;
|
|
}
|
|
|
|
static void *xs_be_read(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
const char *path, unsigned int *len)
|
|
{
|
|
GByteArray *data = g_byte_array_new();
|
|
bool free_segment = false;
|
|
int err;
|
|
|
|
err = xs_impl_read(h->impl, DOMID_QEMU, t, path, data);
|
|
if (err) {
|
|
free_segment = true;
|
|
errno = err;
|
|
} else {
|
|
if (len) {
|
|
*len = data->len;
|
|
}
|
|
/* The xen-bus-helper code expects to get NUL terminated string! */
|
|
g_byte_array_append(data, (void *)"", 1);
|
|
}
|
|
|
|
return g_byte_array_free(data, free_segment);
|
|
}
|
|
|
|
static bool xs_be_write(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
const char *path, const void *data, unsigned int len)
|
|
{
|
|
GByteArray *gdata = g_byte_array_new();
|
|
int err;
|
|
|
|
g_byte_array_append(gdata, data, len);
|
|
err = xs_impl_write(h->impl, DOMID_QEMU, t, path, gdata);
|
|
g_byte_array_unref(gdata);
|
|
if (err) {
|
|
errno = err;
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
static bool xs_be_create(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
unsigned int owner, unsigned int domid,
|
|
unsigned int perms, const char *path)
|
|
{
|
|
g_autoptr(GByteArray) data = g_byte_array_new();
|
|
GList *perms_list = NULL;
|
|
int err;
|
|
|
|
/* mkdir does this */
|
|
err = xs_impl_read(h->impl, DOMID_QEMU, t, path, data);
|
|
if (err == ENOENT) {
|
|
err = xs_impl_write(h->impl, DOMID_QEMU, t, path, data);
|
|
}
|
|
if (err) {
|
|
errno = err;
|
|
return false;
|
|
}
|
|
|
|
perms_list = g_list_append(perms_list,
|
|
xs_perm_as_string(XS_PERM_NONE, owner));
|
|
perms_list = g_list_append(perms_list,
|
|
xs_perm_as_string(perms, domid));
|
|
|
|
err = xs_impl_set_perms(h->impl, DOMID_QEMU, t, path, perms_list);
|
|
g_list_free_full(perms_list, g_free);
|
|
if (err) {
|
|
errno = err;
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
static bool xs_be_destroy(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
const char *path)
|
|
{
|
|
int err = xs_impl_rm(h->impl, DOMID_QEMU, t, path);
|
|
if (err) {
|
|
errno = err;
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
static void be_watch_bh(void *_h)
|
|
{
|
|
struct qemu_xs_handle *h = _h;
|
|
GList *l;
|
|
|
|
for (l = h->watches; l; l = l->next) {
|
|
struct qemu_xs_watch *w = l->data;
|
|
|
|
while (w->events) {
|
|
struct watch_event *ev = w->events->data;
|
|
|
|
w->fn(w->opaque, ev->path);
|
|
|
|
w->events = g_list_remove(w->events, ev);
|
|
free_watch_event(ev);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void xs_be_watch_cb(void *opaque, const char *path, const char *token)
|
|
{
|
|
struct watch_event *ev = g_new0(struct watch_event, 1);
|
|
struct qemu_xs_watch *w = opaque;
|
|
|
|
/* We don't care about the token */
|
|
ev->path = g_strdup(path);
|
|
w->events = g_list_append(w->events, ev);
|
|
|
|
qemu_bh_schedule(w->h->watch_bh);
|
|
}
|
|
|
|
static struct qemu_xs_watch *xs_be_watch(struct qemu_xs_handle *h,
|
|
const char *path, xs_watch_fn fn,
|
|
void *opaque)
|
|
{
|
|
struct qemu_xs_watch *w = g_new0(struct qemu_xs_watch, 1);
|
|
int err;
|
|
|
|
w->h = h;
|
|
w->fn = fn;
|
|
w->opaque = opaque;
|
|
|
|
err = xs_impl_watch(h->impl, DOMID_QEMU, path, NULL, xs_be_watch_cb, w);
|
|
if (err) {
|
|
errno = err;
|
|
g_free(w);
|
|
return NULL;
|
|
}
|
|
|
|
w->path = g_strdup(path);
|
|
h->watches = g_list_append(h->watches, w);
|
|
return w;
|
|
}
|
|
|
|
static void xs_be_unwatch(struct qemu_xs_handle *h, struct qemu_xs_watch *w)
|
|
{
|
|
xs_impl_unwatch(h->impl, DOMID_QEMU, w->path, NULL, xs_be_watch_cb, w);
|
|
|
|
h->watches = g_list_remove(h->watches, w);
|
|
g_list_free_full(w->events, (GDestroyNotify)free_watch_event);
|
|
g_free(w->path);
|
|
g_free(w);
|
|
}
|
|
|
|
static xs_transaction_t xs_be_transaction_start(struct qemu_xs_handle *h)
|
|
{
|
|
unsigned int new_tx = XBT_NULL;
|
|
int err = xs_impl_transaction_start(h->impl, DOMID_QEMU, &new_tx);
|
|
if (err) {
|
|
errno = err;
|
|
return XBT_NULL;
|
|
}
|
|
return new_tx;
|
|
}
|
|
|
|
static bool xs_be_transaction_end(struct qemu_xs_handle *h, xs_transaction_t t,
|
|
bool abort)
|
|
{
|
|
int err = xs_impl_transaction_end(h->impl, DOMID_QEMU, t, !abort);
|
|
if (err) {
|
|
errno = err;
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
static struct qemu_xs_handle *xs_be_open(void)
|
|
{
|
|
XenXenstoreState *s = xen_xenstore_singleton;
|
|
struct qemu_xs_handle *h;
|
|
|
|
if (!s && !s->impl) {
|
|
errno = -ENOSYS;
|
|
return NULL;
|
|
}
|
|
|
|
h = g_new0(struct qemu_xs_handle, 1);
|
|
h->impl = s->impl;
|
|
|
|
h->watch_bh = aio_bh_new(qemu_get_aio_context(), be_watch_bh, h);
|
|
|
|
return h;
|
|
}
|
|
|
|
static void xs_be_close(struct qemu_xs_handle *h)
|
|
{
|
|
while (h->watches) {
|
|
struct qemu_xs_watch *w = h->watches->data;
|
|
xs_be_unwatch(h, w);
|
|
}
|
|
|
|
qemu_bh_delete(h->watch_bh);
|
|
g_free(h);
|
|
}
|
|
|
|
static struct xenstore_backend_ops emu_xenstore_backend_ops = {
|
|
.open = xs_be_open,
|
|
.close = xs_be_close,
|
|
.get_domain_path = xs_be_get_domain_path,
|
|
.directory = xs_be_directory,
|
|
.read = xs_be_read,
|
|
.write = xs_be_write,
|
|
.create = xs_be_create,
|
|
.destroy = xs_be_destroy,
|
|
.watch = xs_be_watch,
|
|
.unwatch = xs_be_unwatch,
|
|
.transaction_start = xs_be_transaction_start,
|
|
.transaction_end = xs_be_transaction_end,
|
|
};
|