Archipelago » qemu

#include "net.h"

#include "qdev.h"

#include "qerror.h"

#include "blockdev.h"

void *qdev_get_prop_ptr(DeviceState *dev, Property *prop)

{

    void *ptr = dev;

    ptr += prop->offset;

    return ptr;

}

static uint32_t qdev_get_prop_mask(Property *prop)

{

    assert(prop->info == &qdev_prop_bit);

    return 0x1 << prop->bitnr;

}

static void bit_prop_set(DeviceState *dev, Property *props, bool val)

{

    uint32_t *p = qdev_get_prop_ptr(dev, props);

    uint32_t mask = qdev_get_prop_mask(props);

    if (val)

        *p |= mask;

    else

        *p &= ~mask;

}

/* Bit */

static int print_bit(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    uint32_t *p = qdev_get_prop_ptr(dev, prop);

    return snprintf(dest, len, (*p & qdev_get_prop_mask(prop)) ? "on" : "off");

}

static void get_bit(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    uint32_t *p = qdev_get_prop_ptr(dev, prop);

    bool value = (*p & qdev_get_prop_mask(prop)) != 0;

    visit_type_bool(v, &value, name, errp);

}

static void set_bit(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    Error *local_err = NULL;

    bool value;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_bool(v, &value, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    bit_prop_set(dev, prop, value);

}

PropertyInfo qdev_prop_bit = {

    .name  = "boolean",

    .legacy_name  = "on/off",

    .print = print_bit,

    .get   = get_bit,

    .set   = set_bit,

};

/* --- 8bit integer --- */

static void get_int8(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int8_t *ptr = qdev_get_prop_ptr(dev, prop);

    int64_t value;

    value = *ptr;

    visit_type_int(v, &value, name, errp);

}

static void set_int8(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int8_t *ptr = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    int64_t value;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_int(v, &value, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (value >= prop->info->min && value <= prop->info->max) {

        *ptr = value;

    } else {

        error_set(errp, QERR_PROPERTY_VALUE_OUT_OF_RANGE,

                  dev->id?:"", name, value, prop->info->min,

                  prop->info->max);

    }

}

PropertyInfo qdev_prop_uint8 = {

    .name  = "uint8",

    .get   = get_int8,

    .set   = set_int8,

    .min   = 0,

    .max   = 255,

};

/* --- 8bit hex value --- */

static int parse_hex8(DeviceState *dev, Property *prop, const char *str)

{

    uint8_t *ptr = qdev_get_prop_ptr(dev, prop);

    char *end;

    if (str[0] != '0' || str[1] != 'x') {

        return -EINVAL;

    }

    *ptr = strtoul(str, &end, 16);

    if ((*end != '\0') || (end == str)) {

        return -EINVAL;

    }

    return 0;

}

static int print_hex8(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    uint8_t *ptr = qdev_get_prop_ptr(dev, prop);

    return snprintf(dest, len, "0x%" PRIx8, *ptr);

}

PropertyInfo qdev_prop_hex8 = {

    .name  = "uint8",

    .legacy_name  = "hex8",

    .parse = parse_hex8,

    .print = print_hex8,

    .get   = get_int8,

    .set   = set_int8,

    .min   = 0,

    .max   = 255,

};

/* --- 16bit integer --- */

static void get_int16(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int16_t *ptr = qdev_get_prop_ptr(dev, prop);

    int64_t value;

    value = *ptr;

    visit_type_int(v, &value, name, errp);

}

static void set_int16(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int16_t *ptr = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    int64_t value;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_int(v, &value, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (value >= prop->info->min && value <= prop->info->max) {

        *ptr = value;

    } else {

        error_set(errp, QERR_PROPERTY_VALUE_OUT_OF_RANGE,

                  dev->id?:"", name, value, prop->info->min,

                  prop->info->max);

    }

}

PropertyInfo qdev_prop_uint16 = {

    .name  = "uint16",

    .get   = get_int16,

    .set   = set_int16,

    .min   = 0,

    .max   = 65535,

};

/* --- 32bit integer --- */

static void get_int32(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int32_t *ptr = qdev_get_prop_ptr(dev, prop);

    int64_t value;

    value = *ptr;

    visit_type_int(v, &value, name, errp);

}

static void set_int32(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int32_t *ptr = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    int64_t value;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_int(v, &value, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (value >= prop->info->min && value <= prop->info->max) {

        *ptr = value;

    } else {

        error_set(errp, QERR_PROPERTY_VALUE_OUT_OF_RANGE,

                  dev->id?:"", name, value, prop->info->min,

                  prop->info->max);

    }

}

PropertyInfo qdev_prop_uint32 = {

    .name  = "uint32",

    .get   = get_int32,

    .set   = set_int32,

    .min   = 0,

    .max   = 0xFFFFFFFFULL,

};

PropertyInfo qdev_prop_int32 = {

    .name  = "int32",

    .get   = get_int32,

    .set   = set_int32,

    .min   = -0x80000000LL,

    .max   = 0x7FFFFFFFLL,

};

/* --- 32bit hex value --- */

static int parse_hex32(DeviceState *dev, Property *prop, const char *str)

{

    uint32_t *ptr = qdev_get_prop_ptr(dev, prop);

    char *end;

    if (str[0] != '0' || str[1] != 'x') {

        return -EINVAL;

    }

    *ptr = strtoul(str, &end, 16);

    if ((*end != '\0') || (end == str)) {

        return -EINVAL;

    }

    return 0;

}

static int print_hex32(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    uint32_t *ptr = qdev_get_prop_ptr(dev, prop);

    return snprintf(dest, len, "0x%" PRIx32, *ptr);

}

PropertyInfo qdev_prop_hex32 = {

    .name  = "uint32",

    .legacy_name  = "hex32",

    .parse = parse_hex32,

    .print = print_hex32,

    .get   = get_int32,

    .set   = set_int32,

    .min   = 0,

    .max   = 0xFFFFFFFFULL,

};

/* --- 64bit integer --- */

static void get_int64(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int64_t *ptr = qdev_get_prop_ptr(dev, prop);

    visit_type_int(v, ptr, name, errp);

}

static void set_int64(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int64_t *ptr = qdev_get_prop_ptr(dev, prop);

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_int(v, ptr, name, errp);

}

PropertyInfo qdev_prop_uint64 = {

    .name  = "uint64",

    .get   = get_int64,

    .set   = set_int64,

};

/* --- 64bit hex value --- */

static int parse_hex64(DeviceState *dev, Property *prop, const char *str)

{

    uint64_t *ptr = qdev_get_prop_ptr(dev, prop);

    char *end;

    if (str[0] != '0' || str[1] != 'x') {

        return -EINVAL;

    }

    *ptr = strtoull(str, &end, 16);

    if ((*end != '\0') || (end == str)) {

        return -EINVAL;

    }

    return 0;

}

static int print_hex64(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    uint64_t *ptr = qdev_get_prop_ptr(dev, prop);

    return snprintf(dest, len, "0x%" PRIx64, *ptr);

}

PropertyInfo qdev_prop_hex64 = {

    .name  = "uint64",

    .legacy_name  = "hex64",

    .parse = parse_hex64,

    .print = print_hex64,

    .get   = get_int64,

    .set   = set_int64,

};

/* --- string --- */

static void release_string(Object *obj, const char *name, void *opaque)

{

    Property *prop = opaque;

    g_free(*(char **)qdev_get_prop_ptr(DEVICE(obj), prop));

}

static int print_string(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    char **ptr = qdev_get_prop_ptr(dev, prop);

    if (!*ptr)

        return snprintf(dest, len, "<null>");

    return snprintf(dest, len, "\"%s\"", *ptr);

}

static void get_string(Object *obj, Visitor *v, void *opaque,

                       const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    char **ptr = qdev_get_prop_ptr(dev, prop);

    if (!*ptr) {

        char *str = (char *)"";

        visit_type_str(v, &str, name, errp);

    } else {

        visit_type_str(v, ptr, name, errp);

    }

}

static void set_string(Object *obj, Visitor *v, void *opaque,

                       const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    char **ptr = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    char *str;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_str(v, &str, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (!*str) {

        g_free(str);

        str = NULL;

    }

    if (*ptr) {

        g_free(*ptr);

    }

    *ptr = str;

}

PropertyInfo qdev_prop_string = {

    .name  = "string",

    .print = print_string,

    .release = release_string,

    .get   = get_string,

    .set   = set_string,

};

/* --- drive --- */

static int parse_drive(DeviceState *dev, const char *str, void **ptr)

{

    BlockDriverState *bs;

    bs = bdrv_find(str);

    if (bs == NULL)

        return -ENOENT;

    if (bdrv_attach_dev(bs, dev) < 0)

        return -EEXIST;

    *ptr = bs;

    return 0;

}

static void release_drive(Object *obj, const char *name, void *opaque)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    BlockDriverState **ptr = qdev_get_prop_ptr(dev, prop);

    if (*ptr) {

        bdrv_detach_dev(*ptr, dev);

        blockdev_auto_del(*ptr);

    }

}

static const char *print_drive(void *ptr)

{

    return bdrv_get_device_name(ptr);

}

static void get_pointer(Object *obj, Visitor *v, Property *prop,

                        const char *(*print)(void *ptr),

                        const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    void **ptr = qdev_get_prop_ptr(dev, prop);

    char *p;

    p = (char *) (*ptr ? print(*ptr) : "");

    visit_type_str(v, &p, name, errp);

}

static void set_pointer(Object *obj, Visitor *v, Property *prop,

                        int (*parse)(DeviceState *dev, const char *str, void **ptr),

                        const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Error *local_err = NULL;

    void **ptr = qdev_get_prop_ptr(dev, prop);

    char *str;

    int ret;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_str(v, &str, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (!*str) {

        g_free(str);

        *ptr = NULL;

        return;

    }

    ret = parse(dev, str, ptr);

    error_set_from_qdev_prop_error(errp, ret, dev, prop, str);

    g_free(str);

}

static void get_drive(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    get_pointer(obj, v, opaque, print_drive, name, errp);

}

static void set_drive(Object *obj, Visitor *v, void *opaque,

                      const char *name, Error **errp)

{

    set_pointer(obj, v, opaque, parse_drive, name, errp);

}

PropertyInfo qdev_prop_drive = {

    .name  = "drive",

    .get   = get_drive,

    .set   = set_drive,

    .release = release_drive,

};

/* --- character device --- */

static int parse_chr(DeviceState *dev, const char *str, void **ptr)

{

    CharDriverState *chr = qemu_chr_find(str);

    if (chr == NULL) {

        return -ENOENT;

    }

    if (chr->avail_connections < 1) {

        return -EEXIST;

    }

    *ptr = chr;

    --chr->avail_connections;

    return 0;

}

static void release_chr(Object *obj, const char *name, void *opaque)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    CharDriverState **ptr = qdev_get_prop_ptr(dev, prop);

    if (*ptr) {

        qemu_chr_add_handlers(*ptr, NULL, NULL, NULL, NULL);

    }

}

static const char *print_chr(void *ptr)

{

    CharDriverState *chr = ptr;

    return chr->label ? chr->label : "";

}

static void get_chr(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    get_pointer(obj, v, opaque, print_chr, name, errp);

}

static void set_chr(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    set_pointer(obj, v, opaque, parse_chr, name, errp);

}

PropertyInfo qdev_prop_chr = {

    .name  = "chr",

    .get   = get_chr,

    .set   = set_chr,

    .release = release_chr,

};

/* --- netdev device --- */

static int parse_netdev(DeviceState *dev, const char *str, void **ptr)

{

    VLANClientState *netdev = qemu_find_netdev(str);

    if (netdev == NULL) {

        return -ENOENT;

    }

    if (netdev->peer) {

        return -EEXIST;

    }

    *ptr = netdev;

    return 0;

}

static const char *print_netdev(void *ptr)

{

    VLANClientState *netdev = ptr;

    return netdev->name ? netdev->name : "";

}

static void get_netdev(Object *obj, Visitor *v, void *opaque,

                       const char *name, Error **errp)

{

    get_pointer(obj, v, opaque, print_netdev, name, errp);

}

static void set_netdev(Object *obj, Visitor *v, void *opaque,

                       const char *name, Error **errp)

{

    set_pointer(obj, v, opaque, parse_netdev, name, errp);

}

PropertyInfo qdev_prop_netdev = {

    .name  = "netdev",

    .get   = get_netdev,

    .set   = set_netdev,

};

/* --- vlan --- */

static int print_vlan(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    VLANState **ptr = qdev_get_prop_ptr(dev, prop);

    if (*ptr) {

        return snprintf(dest, len, "%d", (*ptr)->id);

    } else {

        return snprintf(dest, len, "<null>");

    }

}

static void get_vlan(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    VLANState **ptr = qdev_get_prop_ptr(dev, prop);

    int64_t id;

    id = *ptr ? (*ptr)->id : -1;

    visit_type_int(v, &id, name, errp);

}

static void set_vlan(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    VLANState **ptr = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    int64_t id;

    VLANState *vlan;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_int(v, &id, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    if (id == -1) {

        *ptr = NULL;

        return;

    }

    vlan = qemu_find_vlan(id, 1);

    if (!vlan) {

        error_set(errp, QERR_INVALID_PARAMETER_VALUE,

                  name, prop->info->name);

        return;

    }

    *ptr = vlan;

}

PropertyInfo qdev_prop_vlan = {

    .name  = "vlan",

    .print = print_vlan,

    .get   = get_vlan,

    .set   = set_vlan,

};

/* --- pointer --- */

/* Not a proper property, just for dirty hacks.  TODO Remove it!  */

PropertyInfo qdev_prop_ptr = {

    .name  = "ptr",

};

/* --- mac address --- */

/*

 * accepted syntax versions:

 *   01:02:03:04:05:06

 *   01-02-03-04-05-06

 */

static void get_mac(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    MACAddr *mac = qdev_get_prop_ptr(dev, prop);

    char buffer[2 * 6 + 5 + 1];

    char *p = buffer;

    snprintf(buffer, sizeof(buffer), "%02x:%02x:%02x:%02x:%02x:%02x",

             mac->a[0], mac->a[1], mac->a[2],

             mac->a[3], mac->a[4], mac->a[5]);

    visit_type_str(v, &p, name, errp);

}

static void set_mac(Object *obj, Visitor *v, void *opaque,

                    const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    MACAddr *mac = qdev_get_prop_ptr(dev, prop);

    Error *local_err = NULL;

    int i, pos;

    char *str, *p;

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_str(v, &str, name, &local_err);

    if (local_err) {

        error_propagate(errp, local_err);

        return;

    }

    for (i = 0, pos = 0; i < 6; i++, pos += 3) {

        if (!qemu_isxdigit(str[pos]))

            goto inval;

        if (!qemu_isxdigit(str[pos+1]))

            goto inval;

        if (i == 5) {

            if (str[pos+2] != '\0')

                goto inval;

        } else {

            if (str[pos+2] != ':' && str[pos+2] != '-')

                goto inval;

        }

        mac->a[i] = strtol(str+pos, &p, 16);

    }

    return;

inval:

    error_set_from_qdev_prop_error(errp, EINVAL, dev, prop, str);

}

PropertyInfo qdev_prop_macaddr = {

    .name  = "macaddr",

    .get   = get_mac,

    .set   = set_mac,

};

/* --- lost tick policy --- */

static const char *lost_tick_policy_table[LOST_TICK_MAX+1] = {

    [LOST_TICK_DISCARD] = "discard",

    [LOST_TICK_DELAY] = "delay",

    [LOST_TICK_MERGE] = "merge",

    [LOST_TICK_SLEW] = "slew",

    [LOST_TICK_MAX] = NULL,

};

QEMU_BUILD_BUG_ON(sizeof(LostTickPolicy) != sizeof(int));

static void get_enum(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int *ptr = qdev_get_prop_ptr(dev, prop);

    visit_type_enum(v, ptr, prop->info->enum_table,

                    prop->info->name, prop->name, errp);

}

static void set_enum(Object *obj, Visitor *v, void *opaque,

                     const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    int *ptr = qdev_get_prop_ptr(dev, prop);

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_enum(v, ptr, prop->info->enum_table,

                    prop->info->name, prop->name, errp);

}

PropertyInfo qdev_prop_losttickpolicy = {

    .name  = "LostTickPolicy",

    .enum_table  = lost_tick_policy_table,

    .get   = get_enum,

    .set   = set_enum,

};

/* --- pci address --- */

/*

 * bus-local address, i.e. "$slot" or "$slot.$fn"

 */

static void set_pci_devfn(Object *obj, Visitor *v, void *opaque,

                          const char *name, Error **errp)

{

    DeviceState *dev = DEVICE(obj);

    Property *prop = opaque;

    uint32_t *ptr = qdev_get_prop_ptr(dev, prop);

    unsigned int slot, fn, n;

    Error *local_err = NULL;

    char *str = (char *)"";

    if (dev->state != DEV_STATE_CREATED) {

        error_set(errp, QERR_PERMISSION_DENIED);

        return;

    }

    visit_type_str(v, &str, name, &local_err);

    if (local_err) {

        return set_int32(obj, v, opaque, name, errp);

    }

    if (sscanf(str, "%x.%x%n", &slot, &fn, &n) != 2) {

        fn = 0;

        if (sscanf(str, "%x%n", &slot, &n) != 1) {

            goto invalid;

        }

    }

    if (str[n] != '\0' || fn > 7 || slot > 31) {

        goto invalid;

    }

    *ptr = slot << 3 | fn;

    return;

invalid:

    error_set_from_qdev_prop_error(errp, EINVAL, dev, prop, str);

}

static int print_pci_devfn(DeviceState *dev, Property *prop, char *dest, size_t len)

{

    uint32_t *ptr = qdev_get_prop_ptr(dev, prop);

    if (*ptr == -1) {

        return snprintf(dest, len, "<unset>");

    } else {

        return snprintf(dest, len, "%02x.%x", *ptr >> 3, *ptr & 7);

    }

}

PropertyInfo qdev_prop_pci_devfn = {

    .name  = "int32",

    .legacy_name  = "pci-devfn",

    .print = print_pci_devfn,

    .get   = get_int32,

    .set   = set_pci_devfn,

    /* FIXME: this should be -1...255, but the address is stored

     * into an uint32_t rather than int32_t.

     */

    .min   = 0,

    .max   = 0xFFFFFFFFULL,

};

/* --- public helpers --- */

static Property *qdev_prop_walk(Property *props, const char *name)

{

    if (!props)

        return NULL;

    while (props->name) {

        if (strcmp(props->name, name) == 0)

            return props;

        props++;

    }

    return NULL;

}

static Property *qdev_prop_find(DeviceState *dev, const char *name)

{

    Property *prop;