/** Get address of registers and IRQ for given device.
*
* @param[in] dev Device asking for the addresses.
* @param[out] mem_reg_address Base address of the memory range.
* @param[out] mem_reg_size Size of the memory range.
* @param[out] irq_no IRQ assigned to the device.
* @return Error code.
*/
int get_my_registers(ddf_dev_t *dev,
uintptr_t *mem_reg_address, size_t *mem_reg_size, int *irq_no)
{
assert(dev);
async_sess_t *parent_sess =
devman_parent_device_connect(EXCHANGE_SERIALIZE,
ddf_dev_get_handle(dev), IPC_FLAG_BLOCKING);
if (!parent_sess)
return ENOMEM;
hw_res_list_parsed_t hw_res;
hw_res_list_parsed_init(&hw_res);
const int ret = hw_res_get_list_parsed(parent_sess, &hw_res, 0);
async_hangup(parent_sess);
if (ret != EOK) {
return ret;
}
/* We want one irq and one mem range. */
if (hw_res.irqs.count != 1 || hw_res.mem_ranges.count != 1) {
hw_res_list_parsed_clean(&hw_res);
return EINVAL;
}
if (mem_reg_address)
*mem_reg_address = hw_res.mem_ranges.ranges[0].address;
if (mem_reg_size)
*mem_reg_size = hw_res.mem_ranges.ranges[0].size;
if (irq_no)
*irq_no = hw_res.irqs.irqs[0];
hw_res_list_parsed_clean(&hw_res);
return EOK;
}
/** Initialize a new ddf driver instance of i8042 driver
*
* @param[in] device DDF instance of the device to initialize.
*
* @return Error code.
*
*/
static int i8042_dev_add(ddf_dev_t *device)
{
if (!device)
return EINVAL;
uintptr_t io_regs = 0;
size_t io_size = 0;
int kbd = 0;
int mouse = 0;
int ret = get_my_registers(device, &io_regs, &io_size, &kbd, &mouse);
CHECK_RET_RETURN(ret, "Failed to get registers: %s.",
str_error(ret));
ddf_msg(LVL_DEBUG, "I/O regs at %p (size %zuB), IRQ kbd %d, IRQ mouse %d.",
(void *) io_regs, io_size, kbd, mouse);
i8042_t *i8042 = ddf_dev_data_alloc(device, sizeof(i8042_t));
ret = (i8042 == NULL) ? ENOMEM : EOK;
CHECK_RET_RETURN(ret, "Failed to allocate i8042 driver instance.");
ret = i8042_init(i8042, (void *) io_regs, io_size, kbd, mouse, device);
CHECK_RET_RETURN(ret, "Failed to initialize i8042 driver: %s.",
str_error(ret));
ddf_msg(LVL_NOTE, "Controlling '%s' (%" PRIun ").",
ddf_dev_get_name(device), ddf_dev_get_handle(device));
return EOK;
}
int usb_device_create_ddf(ddf_dev_t *ddf_dev,
const usb_endpoint_description_t **desc, const char **err)
{
assert(ddf_dev);
assert(err);
devman_handle_t h = 0;
int iface_no = -1;
async_sess_t *sess = devman_parent_device_connect(
ddf_dev_get_handle(ddf_dev), IPC_FLAG_BLOCKING);
if (sess == NULL)
return ENOMEM;
const int ret = usb_device_get_info(sess, &h, &iface_no);
async_hangup(sess);
if (ret != EOK)
return ret;
usb_device_t *usb_dev =
ddf_dev_data_alloc(ddf_dev, sizeof(usb_device_t));
if (usb_dev == NULL) {
*err = "DDF data alloc";
return ENOMEM;
}
return usb_device_init(usb_dev, ddf_dev, desc, err, h, iface_no);
}
int sb_enable_interrupts(ddf_dev_t *device)
{
async_sess_t *parent_sess = devman_parent_device_connect(
ddf_dev_get_handle(device), IPC_FLAG_BLOCKING);
if (!parent_sess)
return ENOMEM;
bool enabled = hw_res_enable_interrupt(parent_sess);
async_hangup(parent_sess);
return enabled ? EOK : EIO;
}
/** Call the PCI driver with a request to clear legacy support register
*
* @param[in] device Device asking to disable interrupts
* @return Error code.
*/
static int disable_legacy(ddf_dev_t *device)
{
assert(device);
async_sess_t *parent_sess = devman_parent_device_connect(
ddf_dev_get_handle(device), IPC_FLAG_BLOCKING);
if (!parent_sess)
return ENOMEM;
/* See UHCI design guide page 45 for these values.
* Write all WC bits in USB legacy register */
const int rc = pci_config_space_write_16(parent_sess, 0xc0, 0xaf00);
async_hangup(parent_sess);
return rc;
}
/** Initialize a new ddf driver instance
*
* @param[in] device DDF instance of the device to initialize.
* @return Error code.
*/
static int mouse_add(ddf_dev_t *device)
{
if (!device)
return EINVAL;
#define CHECK_RET_RETURN(ret, message...) \
if (ret != EOK) { \
ddf_msg(LVL_ERROR, message); \
return ret; \
} else (void)0
ps2_mouse_t *mouse = ddf_dev_data_alloc(device, sizeof(ps2_mouse_t));
int ret = (mouse == NULL) ? ENOMEM : EOK;
CHECK_RET_RETURN(ret, "Failed to allocate mouse driver instance.");
ret = ps2_mouse_init(mouse, device);
CHECK_RET_RETURN(ret,
"Failed to initialize mouse driver: %s.", str_error(ret));
ddf_msg(LVL_NOTE, "Controlling '%s' (%" PRIun ").",
ddf_dev_get_name(device), ddf_dev_get_handle(device));
return EOK;
}
/** Initialize a new ddf driver instance of the driver
*
* @param[in] device DDF instance of the device to initialize.
*
* @return Error code.
*
*/
static int at_kbd_add(ddf_dev_t *device)
{
int rc;
if (!device)
return EINVAL;
at_kbd_t *kbd = ddf_dev_data_alloc(device, sizeof(at_kbd_t));
if (kbd == NULL) {
ddf_msg(LVL_ERROR, "Failed to allocate AT_KBD driver instance.");
return ENOMEM;
}
rc = at_kbd_init(kbd, device);
if (rc != EOK) {
ddf_msg(LVL_ERROR, "Failed to initialize AT_KBD driver: %s.",
str_error(rc));
return rc;
}
ddf_msg(LVL_NOTE, "Controlling '%s' (%" PRIun ").",
ddf_dev_get_name(device), ddf_dev_get_handle(device));
return EOK;
}
static int vhc_dev_add(ddf_dev_t *dev)
{
static int vhc_count = 0;
int rc;
if (vhc_count > 0) {
return ELIMIT;
}
vhc_data_t *data = ddf_dev_data_alloc(dev, sizeof(vhc_data_t));
if (data == NULL) {
usb_log_fatal("Failed to allocate memory.\n");
return ENOMEM;
}
data->magic = 0xDEADBEEF;
rc = usb_endpoint_manager_init(&data->ep_manager, (size_t) -1,
bandwidth_count_usb11);
if (rc != EOK) {
usb_log_fatal("Failed to initialize endpoint manager.\n");
free(data);
return rc;
}
usb_device_manager_init(&data->dev_manager, USB_SPEED_MAX);
ddf_fun_t *hc = ddf_fun_create(dev, fun_exposed, "hc");
if (hc == NULL) {
usb_log_fatal("Failed to create device function.\n");
free(data);
return ENOMEM;
}
ddf_fun_set_ops(hc, &vhc_ops);
list_initialize(&data->devices);
fibril_mutex_initialize(&data->guard);
data->hub = &virtual_hub_device;
data->hc_fun = hc;
rc = ddf_fun_bind(hc);
if (rc != EOK) {
usb_log_fatal("Failed to bind HC function: %s.\n",
str_error(rc));
free(data);
return rc;
}
rc = ddf_fun_add_to_category(hc, USB_HC_CATEGORY);
if (rc != EOK) {
usb_log_fatal("Failed to add function to HC class: %s.\n",
str_error(rc));
free(data);
return rc;
}
virtual_hub_device_init(hc);
usb_log_info("Virtual USB host controller ready (dev %zu, hc %zu).\n",
(size_t) ddf_dev_get_handle(dev), (size_t) ddf_fun_get_handle(hc));
rc = vhc_virtdev_plug_hub(data, data->hub, NULL);
if (rc != EOK) {
usb_log_fatal("Failed to plug root hub: %s.\n", str_error(rc));
free(data);
return rc;
}
return EOK;
}
/** Initialize new SB16 driver instance.
*
* @param[in] device DDF instance of the device to initialize.
* @return Error code.
*/
static int sb_add_device(ddf_dev_t *device)
{
bool handler_regd = false;
const size_t irq_cmd_count = sb16_irq_code_size();
irq_cmd_t irq_cmds[irq_cmd_count];
irq_pio_range_t irq_ranges[1];
sb16_t *soft_state = ddf_dev_data_alloc(device, sizeof(sb16_t));
int rc = soft_state ? EOK : ENOMEM;
if (rc != EOK) {
ddf_log_error("Failed to allocate sb16 structure.");
goto error;
}
addr_range_t sb_regs;
addr_range_t *p_sb_regs = &sb_regs;
addr_range_t mpu_regs;
addr_range_t *p_mpu_regs = &mpu_regs;
int irq = 0, dma8 = 0, dma16 = 0;
rc = sb_get_res(device, &p_sb_regs, &p_mpu_regs, &irq, &dma8, &dma16);
if (rc != EOK) {
ddf_log_error("Failed to get resources: %s.", str_error(rc));
goto error;
}
sb16_irq_code(p_sb_regs, dma8, dma16, irq_cmds, irq_ranges);
irq_code_t irq_code = {
.cmdcount = irq_cmd_count,
.cmds = irq_cmds,
.rangecount = 1,
.ranges = irq_ranges
};
rc = register_interrupt_handler(device, irq, irq_handler, &irq_code);
if (rc != EOK) {
ddf_log_error("Failed to register irq handler: %s.",
str_error(rc));
goto error;
}
handler_regd = true;
rc = sb_enable_interrupts(device);
if (rc != EOK) {
ddf_log_error("Failed to enable interrupts: %s.",
str_error(rc));
goto error;
}
rc = sb16_init_sb16(soft_state, p_sb_regs, device, dma8, dma16);
if (rc != EOK) {
ddf_log_error("Failed to init sb16 driver: %s.",
str_error(rc));
goto error;
}
rc = sb16_init_mpu(soft_state, p_mpu_regs);
if (rc == EOK) {
ddf_fun_t *mpu_fun =
ddf_fun_create(device, fun_exposed, "midi");
if (mpu_fun) {
rc = ddf_fun_bind(mpu_fun);
if (rc != EOK)
ddf_log_error(
"Failed to bind midi function: %s.",
str_error(rc));
} else {
ddf_log_error("Failed to create midi function.");
}
} else {
ddf_log_warning("Failed to init mpu driver: %s.",
str_error(rc));
}
/* MPU state does not matter */
return EOK;
error:
if (handler_regd)
unregister_interrupt_handler(device, irq);
return rc;
}
static int sb_get_res(ddf_dev_t *device, addr_range_t **pp_sb_regs,
addr_range_t **pp_mpu_regs, int *irq, int *dma8, int *dma16)
{
assert(device);
async_sess_t *parent_sess = devman_parent_device_connect(
ddf_dev_get_handle(device), IPC_FLAG_BLOCKING);
if (!parent_sess)
return ENOMEM;
hw_res_list_parsed_t hw_res;
hw_res_list_parsed_init(&hw_res);
const int ret = hw_res_get_list_parsed(parent_sess, &hw_res, 0);
async_hangup(parent_sess);
if (ret != EOK) {
return ret;
}
/* 1x IRQ, 1-2x DMA(8,16), 1-2x IO (MPU is separate). */
if (hw_res.irqs.count != 1 ||
(hw_res.io_ranges.count != 1 && hw_res.io_ranges.count != 2) ||
(hw_res.dma_channels.count != 1 && hw_res.dma_channels.count != 2)) {
hw_res_list_parsed_clean(&hw_res);
return EINVAL;
}
if (irq)
*irq = hw_res.irqs.irqs[0];
if (dma8) {
if (hw_res.dma_channels.channels[0] < 4) {
*dma8 = hw_res.dma_channels.channels[0];
} else {
if (hw_res.dma_channels.count == 2 &&
hw_res.dma_channels.channels[1] < 4) {
*dma8 = hw_res.dma_channels.channels[1];
}
}
}
if (dma16) {
if (hw_res.dma_channels.channels[0] > 4) {
*dma16 = hw_res.dma_channels.channels[0];
} else {
if (hw_res.dma_channels.count == 2 &&
hw_res.dma_channels.channels[1] > 4) {
*dma16 = hw_res.dma_channels.channels[1];
}
}
}
if (hw_res.io_ranges.count == 1) {
if (pp_sb_regs && *pp_sb_regs)
**pp_sb_regs = hw_res.io_ranges.ranges[0];
if (pp_mpu_regs)
*pp_mpu_regs = NULL;
} else {
const int sb =
(hw_res.io_ranges.ranges[0].size >= sizeof(sb16_regs_t))
? 0 : 1;
const int mpu = 1 - sb;
if (pp_sb_regs && *pp_sb_regs)
**pp_sb_regs = hw_res.io_ranges.ranges[sb];
if (pp_mpu_regs && *pp_mpu_regs)
**pp_mpu_regs = hw_res.io_ranges.ranges[mpu];
}
return EOK;
}
