/* * QEMU monitor * * Copyright (c) 2003-2004 Fabrice Bellard * * Permission is hereby granted, free of charge, to any person obtaining a copy * of this software and associated documentation files (the "Software"), to deal * in the Software without restriction, including without limitation the rights * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell * copies of the Software, and to permit persons to whom the Software is * furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included in * all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN * THE SOFTWARE. */ #include "qemu/osdep.h" #include "monitor-internal.h" #include "qapi/error.h" #include "qapi/opts-visitor.h" #include "qapi/qapi-emit-events.h" #include "qapi/qapi-visit-control.h" #include "qapi/qmp/qdict.h" #include "qemu/error-report.h" #include "qemu/option.h" #include "sysemu/qtest.h" #include "trace.h" /* * To prevent flooding clients, events can be throttled. The * throttling is calculated globally, rather than per-Monitor * instance. */ typedef struct MonitorQAPIEventState { QAPIEvent event; /* Throttling state for this event type and... */ QDict *data; /* ... data, see qapi_event_throttle_equal() */ QEMUTimer *timer; /* Timer for handling delayed events */ QDict *qdict; /* Delayed event (if any) */ } MonitorQAPIEventState; typedef struct { int64_t rate; /* Minimum time (in ns) between two events */ } MonitorQAPIEventConf; /* Shared monitor I/O thread */ IOThread *mon_iothread; /* Coroutine to dispatch the requests received from I/O thread */ Coroutine *qmp_dispatcher_co; /* * Set to true when the dispatcher coroutine should terminate. Protected * by monitor_lock. */ bool qmp_dispatcher_co_shutdown; /* * Protects mon_list, monitor_qapi_event_state, coroutine_mon, * monitor_destroyed. */ QemuMutex monitor_lock; static GHashTable *monitor_qapi_event_state; static GHashTable *coroutine_mon; /* Maps Coroutine* to Monitor* */ MonitorList mon_list; static bool monitor_destroyed; Monitor *monitor_cur(void) { Monitor *mon; qemu_mutex_lock(&monitor_lock); mon = g_hash_table_lookup(coroutine_mon, qemu_coroutine_self()); qemu_mutex_unlock(&monitor_lock); return mon; } /** * Sets a new current monitor and returns the old one. * * If a non-NULL monitor is set for a coroutine, another call * resetting it to NULL is required before the coroutine terminates, * otherwise a stale entry would remain in the hash table. */ Monitor *monitor_set_cur(Coroutine *co, Monitor *mon) { Monitor *old_monitor = monitor_cur(); qemu_mutex_lock(&monitor_lock); if (mon) { g_hash_table_replace(coroutine_mon, co, mon); } else { g_hash_table_remove(coroutine_mon, co); } qemu_mutex_unlock(&monitor_lock); return old_monitor; } /** * Is the current monitor, if any, a QMP monitor? */ bool monitor_cur_is_qmp(void) { Monitor *cur_mon = monitor_cur(); return cur_mon && monitor_is_qmp(cur_mon); } /** * Is @mon is using readline? * Note: not all HMP monitors use readline, e.g., gdbserver has a * non-interactive HMP monitor, so readline is not used there. */ static inline bool monitor_uses_readline(const MonitorHMP *mon) { return mon->use_readline; } static inline bool monitor_is_hmp_non_interactive(const Monitor *mon) { if (monitor_is_qmp(mon)) { return false; } return !monitor_uses_readline(container_of(mon, MonitorHMP, common)); } static gboolean monitor_unblocked(void *do_not_use, GIOCondition cond, void *opaque) { Monitor *mon = opaque; QEMU_LOCK_GUARD(&mon->mon_lock); mon->out_watch = 0; monitor_flush_locked(mon); return G_SOURCE_REMOVE; } /* Caller must hold mon->mon_lock */ void monitor_flush_locked(Monitor *mon) { int rc; size_t len; const char *buf; if (mon->skip_flush) { return; } buf = mon->outbuf->str; len = mon->outbuf->len; if (len && !mon->mux_out) { rc = qemu_chr_fe_write(&mon->chr, (const uint8_t *) buf, len); if ((rc < 0 && errno != EAGAIN) || (rc == len)) { /* all flushed or error */ g_string_truncate(mon->outbuf, 0); return; } if (rc > 0) { /* partial write */ g_string_erase(mon->outbuf, 0, rc); } if (mon->out_watch == 0) { mon->out_watch = qemu_chr_fe_add_watch(&mon->chr, G_IO_OUT | G_IO_HUP, monitor_unblocked, mon); } } } void monitor_flush(Monitor *mon) { QEMU_LOCK_GUARD(&mon->mon_lock); monitor_flush_locked(mon); } /* flush at every end of line */ int monitor_puts_locked(Monitor *mon, const char *str) { int i; char c; for (i = 0; str[i]; i++) { c = str[i]; if (c == '\n') { g_string_append_c(mon->outbuf, '\r'); } g_string_append_c(mon->outbuf, c); if (c == '\n') { monitor_flush_locked(mon); } } return i; } int monitor_puts(Monitor *mon, const char *str) { QEMU_LOCK_GUARD(&mon->mon_lock); return monitor_puts_locked(mon, str); } int monitor_vprintf(Monitor *mon, const char *fmt, va_list ap) { char *buf; int n; if (!mon) { return -1; } if (monitor_is_qmp(mon)) { return -1; } buf = g_strdup_vprintf(fmt, ap); n = monitor_puts(mon, buf); g_free(buf); return n; } int monitor_printf(Monitor *mon, const char *fmt, ...) { int ret; va_list ap; va_start(ap, fmt); ret = monitor_vprintf(mon, fmt, ap); va_end(ap); return ret; } void monitor_printc(Monitor *mon, int c) { monitor_printf(mon, "'"); switch(c) { case '\'': monitor_printf(mon, "\\'"); break; case '\\': monitor_printf(mon, "\\\\"); break; case '\n': monitor_printf(mon, "\\n"); break; case '\r': monitor_printf(mon, "\\r"); break; default: if (c >= 32 && c <= 126) { monitor_printf(mon, "%c", c); } else { monitor_printf(mon, "\\x%02x", c); } break; } monitor_printf(mon, "'"); } /* * Print to current monitor if we have one, else to stderr. */ int error_vprintf(const char *fmt, va_list ap) { Monitor *cur_mon = monitor_cur(); if (cur_mon && !monitor_cur_is_qmp()) { return monitor_vprintf(cur_mon, fmt, ap); } return vfprintf(stderr, fmt, ap); } int error_vprintf_unless_qmp(const char *fmt, va_list ap) { Monitor *cur_mon = monitor_cur(); if (!cur_mon) { return vfprintf(stderr, fmt, ap); } if (!monitor_cur_is_qmp()) { return monitor_vprintf(cur_mon, fmt, ap); } return -1; } int error_printf_unless_qmp(const char *fmt, ...) { va_list ap; int ret; va_start(ap, fmt); ret = error_vprintf_unless_qmp(fmt, ap); va_end(ap); return ret; } static MonitorQAPIEventConf monitor_qapi_event_conf[QAPI_EVENT__MAX] = { /* Limit guest-triggerable events to 1 per second */ [QAPI_EVENT_RTC_CHANGE] = { 1000 * SCALE_MS }, [QAPI_EVENT_BLOCK_IO_ERROR] = { 1000 * SCALE_MS }, [QAPI_EVENT_WATCHDOG] = { 1000 * SCALE_MS }, [QAPI_EVENT_BALLOON_CHANGE] = { 1000 * SCALE_MS }, [QAPI_EVENT_QUORUM_REPORT_BAD] = { 1000 * SCALE_MS }, [QAPI_EVENT_QUORUM_FAILURE] = { 1000 * SCALE_MS }, [QAPI_EVENT_VSERPORT_CHANGE] = { 1000 * SCALE_MS }, [QAPI_EVENT_MEMORY_DEVICE_SIZE_CHANGE] = { 1000 * SCALE_MS }, [QAPI_EVENT_HV_BALLOON_STATUS_REPORT] = { 1000 * SCALE_MS }, }; /* * Return the clock to use for recording an event's time. * It's QEMU_CLOCK_REALTIME, except for qtests it's * QEMU_CLOCK_VIRTUAL, to support testing rate limits. * Beware: result is invalid before configure_accelerator(). */ static inline QEMUClockType monitor_get_event_clock(void) { return qtest_enabled() ? QEMU_CLOCK_VIRTUAL : QEMU_CLOCK_REALTIME; } /* * Broadcast an event to all monitors. * @qdict is the event object. Its member "event" must match @event. * Caller must hold monitor_lock. */ static void monitor_qapi_event_emit(QAPIEvent event, QDict *qdict) { Monitor *mon; MonitorQMP *qmp_mon; trace_monitor_protocol_event_emit(event, qdict); QTAILQ_FOREACH(mon, &mon_list, entry) { if (!monitor_is_qmp(mon)) { continue; } qmp_mon = container_of(mon, MonitorQMP, common); if (qmp_mon->commands != &qmp_cap_negotiation_commands) { qmp_send_response(qmp_mon, qdict); } } } static void monitor_qapi_event_handler(void *opaque); /* * Queue a new event for emission to Monitor instances, * applying any rate limiting if required. */ static void monitor_qapi_event_queue_no_reenter(QAPIEvent event, QDict *qdict) { MonitorQAPIEventConf *evconf; MonitorQAPIEventState *evstate; assert(event < QAPI_EVENT__MAX); evconf = &monitor_qapi_event_conf[event]; trace_monitor_protocol_event_queue(event, qdict, evconf->rate); QEMU_LOCK_GUARD(&monitor_lock); if (!evconf->rate) { /* Unthrottled event */ monitor_qapi_event_emit(event, qdict); } else { QDict *data = qobject_to(QDict, qdict_get(qdict, "data")); MonitorQAPIEventState key = { .event = event, .data = data }; evstate = g_hash_table_lookup(monitor_qapi_event_state, &key); assert(!evstate || timer_pending(evstate->timer)); if (evstate) { /* * Timer is pending for (at least) evconf->rate ns after * last send. Store event for sending when timer fires, * replacing a prior stored event if any. */ qobject_unref(evstate->qdict); evstate->qdict = qobject_ref(qdict); } else { /* * Last send was (at least) evconf->rate ns ago. * Send immediately, and arm the timer to call * monitor_qapi_event_handler() in evconf->rate ns. Any * events arriving before then will be delayed until then. */ int64_t now = qemu_clock_get_ns(monitor_get_event_clock()); monitor_qapi_event_emit(event, qdict); evstate = g_new(MonitorQAPIEventState, 1); evstate->event = event; evstate->data = qobject_ref(data); evstate->qdict = NULL; evstate->timer = timer_new_ns(monitor_get_event_clock(), monitor_qapi_event_handler, evstate); g_hash_table_add(monitor_qapi_event_state, evstate); timer_mod_ns(evstate->timer, now + evconf->rate); } } } void qapi_event_emit(QAPIEvent event, QDict *qdict) { /* * monitor_qapi_event_queue_no_reenter() is not reentrant: it * would deadlock on monitor_lock. Work around by queueing * events in thread-local storage. * TODO: remove this, make it re-enter safe. */ typedef struct MonitorQapiEvent { QAPIEvent event; QDict *qdict; QSIMPLEQ_ENTRY(MonitorQapiEvent) entry; } MonitorQapiEvent; static __thread QSIMPLEQ_HEAD(, MonitorQapiEvent) event_queue; static __thread bool reentered; MonitorQapiEvent *ev; if (!reentered) { QSIMPLEQ_INIT(&event_queue); } ev = g_new(MonitorQapiEvent, 1); ev->qdict = qobject_ref(qdict); ev->event = event; QSIMPLEQ_INSERT_TAIL(&event_queue, ev, entry); if (reentered) { return; } reentered = true; while ((ev = QSIMPLEQ_FIRST(&event_queue)) != NULL) { QSIMPLEQ_REMOVE_HEAD(&event_queue, entry); monitor_qapi_event_queue_no_reenter(ev->event, ev->qdict); qobject_unref(ev->qdict); g_free(ev); } reentered = false; } /* * This function runs evconf->rate ns after sending a throttled * event. * If another event has since been stored, send it. */ static void monitor_qapi_event_handler(void *opaque) { MonitorQAPIEventState *evstate = opaque; MonitorQAPIEventConf *evconf = &monitor_qapi_event_conf[evstate->event]; trace_monitor_protocol_event_handler(evstate->event, evstate->qdict); QEMU_LOCK_GUARD(&monitor_lock); if (evstate->qdict) { int64_t now = qemu_clock_get_ns(monitor_get_event_clock()); monitor_qapi_event_emit(evstate->event, evstate->qdict); qobject_unref(evstate->qdict); evstate->qdict = NULL; timer_mod_ns(evstate->timer, now + evconf->rate); } else { g_hash_table_remove(monitor_qapi_event_state, evstate); qobject_unref(evstate->data); timer_free(evstate->timer); g_free(evstate); } } static unsigned int qapi_event_throttle_hash(const void *key) { const MonitorQAPIEventState *evstate = key; unsigned int hash = evstate->event * 255; if (evstate->event == QAPI_EVENT_VSERPORT_CHANGE) { hash += g_str_hash(qdict_get_str(evstate->data, "id")); } if (evstate->event == QAPI_EVENT_QUORUM_REPORT_BAD) { hash += g_str_hash(qdict_get_str(evstate->data, "node-name")); } if (evstate->event == QAPI_EVENT_MEMORY_DEVICE_SIZE_CHANGE || evstate->event == QAPI_EVENT_BLOCK_IO_ERROR) { hash += g_str_hash(qdict_get_str(evstate->data, "qom-path")); } return hash; } static gboolean qapi_event_throttle_equal(const void *a, const void *b) { const MonitorQAPIEventState *eva = a; const MonitorQAPIEventState *evb = b; if (eva->event != evb->event) { return FALSE; } if (eva->event == QAPI_EVENT_VSERPORT_CHANGE) { return !strcmp(qdict_get_str(eva->data, "id"), qdict_get_str(evb->data, "id")); } if (eva->event == QAPI_EVENT_QUORUM_REPORT_BAD) { return !strcmp(qdict_get_str(eva->data, "node-name"), qdict_get_str(evb->data, "node-name")); } if (eva->event == QAPI_EVENT_MEMORY_DEVICE_SIZE_CHANGE || eva->event == QAPI_EVENT_BLOCK_IO_ERROR) { return !strcmp(qdict_get_str(eva->data, "qom-path"), qdict_get_str(evb->data, "qom-path")); } return TRUE; } int monitor_suspend(Monitor *mon) { if (monitor_is_hmp_non_interactive(mon)) { return -ENOTTY; } qatomic_inc(&mon->suspend_cnt); if (mon->use_io_thread) { /* * Kick I/O thread to make sure this takes effect. It'll be * evaluated again in prepare() of the watch object. */ aio_notify(iothread_get_aio_context(mon_iothread)); } trace_monitor_suspend(mon, 1); return 0; } static void monitor_accept_input(void *opaque) { Monitor *mon = opaque; qemu_mutex_lock(&mon->mon_lock); if (!monitor_is_qmp(mon) && mon->reset_seen) { MonitorHMP *hmp_mon = container_of(mon, MonitorHMP, common); assert(hmp_mon->rs); readline_restart(hmp_mon->rs); qemu_mutex_unlock(&mon->mon_lock); readline_show_prompt(hmp_mon->rs); } else { qemu_mutex_unlock(&mon->mon_lock); } qemu_chr_fe_accept_input(&mon->chr); } void monitor_resume(Monitor *mon) { if (monitor_is_hmp_non_interactive(mon)) { return; } if (qatomic_dec_fetch(&mon->suspend_cnt) == 0) { AioContext *ctx; if (mon->use_io_thread) { ctx = iothread_get_aio_context(mon_iothread); } else { ctx = qemu_get_aio_context(); } aio_bh_schedule_oneshot(ctx, monitor_accept_input, mon); } trace_monitor_suspend(mon, -1); } int monitor_can_read(void *opaque) { Monitor *mon = opaque; return !qatomic_read(&mon->suspend_cnt); } void monitor_list_append(Monitor *mon) { qemu_mutex_lock(&monitor_lock); /* * This prevents inserting new monitors during monitor_cleanup(). * A cleaner solution would involve the main thread telling other * threads to terminate, waiting for their termination. */ if (!monitor_destroyed) { QTAILQ_INSERT_HEAD(&mon_list, mon, entry); mon = NULL; } qemu_mutex_unlock(&monitor_lock); if (mon) { monitor_data_destroy(mon); g_free(mon); } } static void monitor_iothread_init(void) { mon_iothread = iothread_create("mon_iothread", &error_abort); } void monitor_data_init(Monitor *mon, bool is_qmp, bool skip_flush, bool use_io_thread) { if (use_io_thread && !mon_iothread) { monitor_iothread_init(); } qemu_mutex_init(&mon->mon_lock); mon->is_qmp = is_qmp; mon->outbuf = g_string_new(NULL); mon->skip_flush = skip_flush; mon->use_io_thread = use_io_thread; } void monitor_data_destroy(Monitor *mon) { g_free(mon->mon_cpu_path); qemu_chr_fe_deinit(&mon->chr, false); if (monitor_is_qmp(mon)) { monitor_data_destroy_qmp(container_of(mon, MonitorQMP, common)); } else { readline_free(container_of(mon, MonitorHMP, common)->rs); } g_string_free(mon->outbuf, true); qemu_mutex_destroy(&mon->mon_lock); } void monitor_cleanup(void) { /* * The dispatcher needs to stop before destroying the monitor and * the I/O thread. * * We need to poll both qemu_aio_context and iohandler_ctx to make * sure that the dispatcher coroutine keeps making progress and * eventually terminates. qemu_aio_context is automatically * polled by calling AIO_WAIT_WHILE_UNLOCKED on it, but we must poll * iohandler_ctx manually. * * Letting the iothread continue while shutting down the dispatcher * means that new requests may still be coming in. This is okay, * we'll just leave them in the queue without sending a response * and monitor_data_destroy() will free them. */ WITH_QEMU_LOCK_GUARD(&monitor_lock) { qmp_dispatcher_co_shutdown = true; } qmp_dispatcher_co_wake(); AIO_WAIT_WHILE_UNLOCKED(NULL, (aio_poll(iohandler_get_aio_context(), false), qatomic_read(&qmp_dispatcher_co))); /* * We need to explicitly stop the I/O thread (but not destroy it), * clean up the monitor resources, then destroy the I/O thread since * we need to unregister from chardev below in * monitor_data_destroy(), and chardev is not thread-safe yet */ if (mon_iothread) { iothread_stop(mon_iothread); } /* Flush output buffers and destroy monitors */ qemu_mutex_lock(&monitor_lock); monitor_destroyed = true; while (!QTAILQ_EMPTY(&mon_list)) { Monitor *mon = QTAILQ_FIRST(&mon_list); QTAILQ_REMOVE(&mon_list, mon, entry); /* Permit QAPI event emission from character frontend release */ qemu_mutex_unlock(&monitor_lock); monitor_flush(mon); monitor_data_destroy(mon); qemu_mutex_lock(&monitor_lock); g_free(mon); } qemu_mutex_unlock(&monitor_lock); if (mon_iothread) { iothread_destroy(mon_iothread); mon_iothread = NULL; } } static void monitor_qapi_event_init(void) { monitor_qapi_event_state = g_hash_table_new(qapi_event_throttle_hash, qapi_event_throttle_equal); } void monitor_init_globals(void) { monitor_qapi_event_init(); qemu_mutex_init(&monitor_lock); coroutine_mon = g_hash_table_new(NULL, NULL); /* * The dispatcher BH must run in the main loop thread, since we * have commands assuming that context. It would be nice to get * rid of those assumptions. */ qmp_dispatcher_co = qemu_coroutine_create(monitor_qmp_dispatcher_co, NULL); aio_co_schedule(iohandler_get_aio_context(), qmp_dispatcher_co); } int monitor_init(MonitorOptions *opts, bool allow_hmp, Error **errp) { ERRP_GUARD(); Chardev *chr; chr = qemu_chr_find(opts->chardev); if (chr == NULL) { error_setg(errp, "chardev \"%s\" not found", opts->chardev); return -1; } if (!opts->has_mode) { opts->mode = allow_hmp ? MONITOR_MODE_READLINE : MONITOR_MODE_CONTROL; } switch (opts->mode) { case MONITOR_MODE_CONTROL: monitor_init_qmp(chr, opts->pretty, errp); break; case MONITOR_MODE_READLINE: if (!allow_hmp) { error_setg(errp, "Only QMP is supported"); return -1; } if (opts->pretty) { error_setg(errp, "'pretty' is not compatible with HMP monitors"); return -1; } monitor_init_hmp(chr, true, errp); break; default: g_assert_not_reached(); } return *errp ? -1 : 0; } int monitor_init_opts(QemuOpts *opts, Error **errp) { Visitor *v; MonitorOptions *options; int ret; v = opts_visitor_new(opts); visit_type_MonitorOptions(v, NULL, &options, errp); visit_free(v); if (!options) { return -1; } ret = monitor_init(options, true, errp); qapi_free_MonitorOptions(options); return ret; } QemuOptsList qemu_mon_opts = { .name = "mon", .implied_opt_name = "chardev", .head = QTAILQ_HEAD_INITIALIZER(qemu_mon_opts.head), .desc = { { .name = "mode", .type = QEMU_OPT_STRING, },{ .name = "chardev", .type = QEMU_OPT_STRING, },{ .name = "pretty", .type = QEMU_OPT_BOOL, }, { /* end of list */ } }, };