source: mainline/uspace/lib/usb/src/hcdhubd.c@ 2f4438f5

/*
 * Copyright (c) 2010 Vojtech Horky
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/** @addtogroup libusb
 * @{
 */
/** @file
 * @brief Common stuff for both HC driver and hub driver.
 */
#include <usb/hcdhubd.h>
#include <usb/devreq.h>
#include <usbhc_iface.h>
#include <usb_iface.h>
#include <usb/descriptor.h>
#include <driver.h>
#include <bool.h>
#include <errno.h>
#include <str_error.h>
#include <usb/classes/hub.h>

#include "hcdhubd_private.h"


static int usb_iface_get_hc_handle(device_t *dev, devman_handle_t *handle)
{
        assert(dev);
        assert(dev->parent != NULL);

        device_t *parent = dev->parent;

        if (parent->ops && parent->ops->interfaces[USB_DEV_IFACE]) {
                usb_iface_t *usb_iface
                    = (usb_iface_t *) parent->ops->interfaces[USB_DEV_IFACE];
                assert(usb_iface != NULL);
                if (usb_iface->get_hc_handle) {
                        int rc = usb_iface->get_hc_handle(parent, handle);
                        return rc;
                }
        }

        return ENOTSUP;
}

static usb_iface_t usb_iface = {
        .get_hc_handle = usb_iface_get_hc_handle
};

static device_ops_t child_ops = {
        .interfaces[USB_DEV_IFACE] = &usb_iface
};

/** Callback when new device is detected and must be handled by this driver.
 *
 * @param dev New device.
 * @return Error code.
 */
static int add_device(device_t *dev) {
        return ENOTSUP;
}

/** Operations for combined HC and HUB driver. */
static driver_ops_t hc_driver_generic_ops = {
        .add_device = add_device
};

/** Combined HC and HUB driver. */
static driver_t hc_driver_generic = {
        .driver_ops = &hc_driver_generic_ops
};

/** Main USB host controller driver routine.
 *
 * @see driver_main
 *
 * @param hc Host controller driver.
 * @return Error code.
 */
int usb_hcd_main(usb_hc_driver_t *hc) {
        hc_driver = hc;
        hc_driver_generic.name = hc->name;

        /*
         * Run the device driver framework.
         */
        return driver_main(&hc_driver_generic);
}

/** Add a root hub for given host controller.
 * This function shall be called only once for each host controller driven
 * by this driver.
 * It takes care of creating child device - hub - that will be driven by
 * this task.
 *
 * @param dev Host controller device.
 * @return Error code.
 */
int usb_hcd_add_root_hub(device_t *dev)
{
        char *id;
        int rc = asprintf(&id, "usb&hub");
        if (rc <= 0) {
                return rc;
        }

        rc = usb_hc_add_child_device(dev, USB_HUB_DEVICE_NAME, id, true);
        if (rc != EOK) {
                free(id);
        }

        return rc;
}

/** Info about child device. */
struct child_device_info {
        device_t *parent;
        const char *name;
        const char *match_id;
};

/** Adds a child device fibril worker. */
static int fibril_add_child_device(void *arg) {
        struct child_device_info *child_info
                        = (struct child_device_info *) arg;
        int rc;

        async_usleep(1000);

        device_t *child = create_device();
        match_id_t *match_id = NULL;

        if (child == NULL) {
                rc = ENOMEM;
                goto failure;
        }
        child->name = child_info->name;
        child->parent = child_info->parent;
        child->ops = &child_ops;

        match_id = create_match_id();
        if (match_id == NULL) {
                rc = ENOMEM;
                goto failure;
        }
        match_id->id = child_info->match_id;
        match_id->score = 10;
        add_match_id(&child->match_ids, match_id);

        printf("%s: adding child device `%s' with match \"%s\"\n",
                        hc_driver->name, child->name, match_id->id);
        rc = child_device_register(child, child_info->parent);
        printf("%s: child device `%s' registration: %s\n",
                        hc_driver->name, child->name, str_error(rc));

        if (rc != EOK) {
                goto failure;
        }

        goto leave;

failure:
        if (child != NULL) {
                child->name = NULL;
                delete_device(child);
        }

        if (match_id != NULL) {
                match_id->id = NULL;
                delete_match_id(match_id);
        }

leave:
        free(arg);
        return EOK;
}

/** Adds a child.
 * Due to deadlock in devman when parent registers child that oughts to be
 * driven by the same task, the child adding is done in separate fibril.
 * Not optimal, but it works.
 * Update: not under all circumstances the new fibril is successful either.
 * Thus the last parameter to let the caller choose.
 *
 * @param parent Parent device.
 * @param name Device name.
 * @param match_id Match id.
 * @param create_fibril Whether to run the addition in new fibril.
 * @return Error code.
 */
int usb_hc_add_child_device(device_t *parent, const char *name,
                const char *match_id, bool create_fibril) {
        printf("%s: about to add child device `%s' (%s)\n", hc_driver->name,
                        name, match_id);

        /*
         * Seems that creating fibril which postpones the action
         * is the best solution.
         */
        create_fibril = true;

        struct child_device_info *child_info
                        = malloc(sizeof (struct child_device_info));

        child_info->parent = parent;
        child_info->name = name;
        child_info->match_id = match_id;

        if (create_fibril) {
                fid_t fibril = fibril_create(fibril_add_child_device, child_info);
                if (!fibril) {
                        return ENOMEM;
                }
                fibril_add_ready(fibril);
        } else {
                fibril_add_child_device(child_info);
        }

        return EOK;
}

/** Tell USB address of given device.
 *
 * @param handle Devman handle of the device.
 * @return USB device address or error code.
 */
usb_address_t usb_get_address_by_handle(devman_handle_t handle) {
        /* TODO: search list of attached devices. */
        return ENOENT;
}

usb_address_t usb_use_free_address(usb_hc_device_t * this_hcd) {
        //is there free address?
        link_t * addresses = &this_hcd->addresses;
        if (list_empty(addresses)) return -1;
        link_t * link_addr = addresses;
        bool found = false;
        usb_address_list_t * range = NULL;
        while (!found) {
                link_addr = link_addr->next;
                if (link_addr == addresses) return -2;
                range = list_get_instance(link_addr,
                                usb_address_list_t, link);
                if (range->upper_bound - range->lower_bound > 0) {
                        found = true;
                }
        }
        //now we have interval
        int result = range->lower_bound;
        ++(range->lower_bound);
        if (range->upper_bound - range->lower_bound == 0) {
                list_remove(&range->link);
                free(range);
        }
        return result;
}

void usb_free_used_address(usb_hc_device_t * this_hcd, usb_address_t addr) {
        //check range
        if (addr < usb_lowest_address || addr > usb_highest_address)
                return;
        link_t * addresses = &this_hcd->addresses;
        link_t * link_addr = addresses;
        //find 'good' interval
        usb_address_list_t * found_range = NULL;
        bool found = false;
        while (!found) {
                link_addr = link_addr->next;
                if (link_addr == addresses) {
                        found = true;
                } else {
                        usb_address_list_t * range = list_get_instance(link_addr,
                                        usb_address_list_t, link);
                        if (    (range->lower_bound - 1 == addr) ||
                                        (range->upper_bound == addr)) {
                                found = true;
                                found_range = range;
                        }
                        if (range->lower_bound - 1 > addr) {
                                found = true;
                        }

                }
        }
        if (found_range == NULL) {
                //no suitable range found
                usb_address_list_t * result_range =
                                (usb_address_list_t*) malloc(sizeof (usb_address_list_t));
                result_range->lower_bound = addr;
                result_range->upper_bound = addr + 1;
                list_insert_before(&result_range->link, link_addr);
        } else {
                //we have good range
                if (found_range->lower_bound - 1 == addr) {
                        --found_range->lower_bound;
                } else {
                        //only one possible case
                        ++found_range->upper_bound;
                        if (found_range->link.next != addresses) {
                                usb_address_list_t * next_range =
                                                list_get_instance( &found_range->link.next,
                                                usb_address_list_t, link);
                                //check neighbour range
                                if (next_range->lower_bound == addr + 1) {
                                        //join ranges
                                        found_range->upper_bound = next_range->upper_bound;
                                        list_remove(&next_range->link);
                                        free(next_range);
                                }
                        }
                }
        }

}

/**
 * @}
 */