LXR qemu/qom/qom-hmp-cmds.c

   1/*
   2 * HMP commands related to QOM
   3 *
   4 * This work is licensed under the terms of the GNU GPL, version 2 or
   5 * later.  See the COPYING file in the top-level directory.
   6 */
   7
   8#include "qemu/osdep.h"
   9#include "hw/qdev-core.h"
  10#include "monitor/hmp.h"
  11#include "monitor/monitor.h"
  12#include "qapi/error.h"
  13#include "qapi/qapi-commands-qom.h"
  14#include "qapi/qmp/qdict.h"
  15#include "qom/object.h"
  16
  17void hmp_qom_list(Monitor *mon, const QDict *qdict)
  18{
  19    const char *path = qdict_get_try_str(qdict, "path");
  20    ObjectPropertyInfoList *list;
  21    Error *err = NULL;
  22
  23    if (path == NULL) {
  24        monitor_printf(mon, "/\n");
  25        return;
  26    }
  27
  28    list = qmp_qom_list(path, &err);
  29    if (err == NULL) {
  30        ObjectPropertyInfoList *start = list;
  31        while (list != NULL) {
  32            ObjectPropertyInfo *value = list->value;
  33
  34            monitor_printf(mon, "%s (%s)\n",
  35                           value->name, value->type);
  36            list = list->next;
  37        }
  38        qapi_free_ObjectPropertyInfoList(start);
  39    }
  40    hmp_handle_error(mon, &err);
  41}
  42
  43void hmp_qom_set(Monitor *mon, const QDict *qdict)
  44{
  45    const char *path = qdict_get_str(qdict, "path");
  46    const char *property = qdict_get_str(qdict, "property");
  47    const char *value = qdict_get_str(qdict, "value");
  48    Error *err = NULL;
  49    bool ambiguous = false;
  50    Object *obj;
  51
  52    obj = object_resolve_path(path, &ambiguous);
  53    if (obj == NULL) {
  54        error_set(&err, ERROR_CLASS_DEVICE_NOT_FOUND,
  55                  "Device '%s' not found", path);
  56    } else {
  57        if (ambiguous) {
  58            monitor_printf(mon, "Warning: Path '%s' is ambiguous\n", path);
  59        }
  60        object_property_parse(obj, value, property, &err);
  61    }
  62    hmp_handle_error(mon, &err);
  63}
  64
  65typedef struct QOMCompositionState {
  66    Monitor *mon;
  67    int indent;
  68} QOMCompositionState;
  69
  70static void print_qom_composition(Monitor *mon, Object *obj, int indent);
  71
  72static int print_qom_composition_child(Object *obj, void *opaque)
  73{
  74    QOMCompositionState *s = opaque;
  75
  76    print_qom_composition(s->mon, obj, s->indent);
  77
  78    return 0;
  79}
  80
  81static void print_qom_composition(Monitor *mon, Object *obj, int indent)
  82{
  83    QOMCompositionState s = {
  84        .mon = mon,
  85        .indent = indent + 2,
  86    };
  87    char *name;
  88
  89    if (obj == object_get_root()) {
  90        name = g_strdup("");
  91    } else {
  92        name = object_get_canonical_path_component(obj);
  93    }
  94    monitor_printf(mon, "%*s/%s (%s)\n", indent, "", name,
  95                   object_get_typename(obj));
  96    g_free(name);
  97    object_child_foreach(obj, print_qom_composition_child, &s);
  98}
  99
 100void hmp_info_qom_tree(Monitor *mon, const QDict *dict)
 101{
 102    const char *path = qdict_get_try_str(dict, "path");
 103    Object *obj;
 104    bool ambiguous = false;
 105
 106    if (path) {
 107        obj = object_resolve_path(path, &ambiguous);
 108        if (!obj) {
 109            monitor_printf(mon, "Path '%s' could not be resolved.\n", path);
 110            return;
 111        }
 112        if (ambiguous) {
 113            monitor_printf(mon, "Warning: Path '%s' is ambiguous.\n", path);
 114            return;
 115        }
 116    } else {
 117        obj = qdev_get_machine();
 118    }
 119    print_qom_composition(mon, obj, 0);
 120}
 121