/*
 *    Zorro Bus Services
 *
 *    Copyright (C) 1995-2003 Geert Uytterhoeven
 *
 *    This file is subject to the terms and conditions of the GNU General Public
 *    License.  See the file COPYING in the main directory of this archive
 *    for more details.
 */

#include <linux/module.h>
#include <linux/types.h>
#include <linux/kernel.h>
#include <linux/init.h>
#include <linux/zorro.h>
#include <linux/bitops.h>
#include <linux/string.h>
#include <linux/platform_device.h>
#include <linux/dma-mapping.h>
#include <linux/slab.h>
#include <linux/string_choices.h>

#include <asm/byteorder.h>
#include <asm/setup.h>
#include <asm/amigahw.h>

#include "zorro.h"


    /*
     *  Zorro Expansion Devices
     */

unsigned int zorro_num_autocon;
struct zorro_dev_init zorro_autocon_init[ZORRO_NUM_AUTO] __initdata;
struct zorro_dev *zorro_autocon;


    /*
     *  Zorro bus
     */

struct zorro_bus {
        struct device dev;
        struct zorro_dev devices[];
};


    /*
     *  Find Zorro Devices
     */

struct zorro_dev *zorro_find_device(zorro_id id, struct zorro_dev *from)
{
        struct zorro_dev *z;

        if (!zorro_num_autocon)
                return NULL;

        for (z = from ? from+1 : &zorro_autocon[0];
             z < zorro_autocon+zorro_num_autocon;
             z++)
                if (id == ZORRO_WILDCARD || id == z->id)
                        return z;
        return NULL;
}
EXPORT_SYMBOL(zorro_find_device);


    /*
     *  Bitmask indicating portions of available Zorro II RAM that are unused
     *  by the system. Every bit represents a 64K chunk, for a maximum of 8MB
     *  (128 chunks, physical 0x00200000-0x009fffff).
     *
     *  If you want to use (= allocate) portions of this RAM, you should clear
     *  the corresponding bits.
     *
     *  Possible uses:
     *      - z2ram device
     *      - SCSI DMA bounce buffers
     *
     *  FIXME: use the normal resource management
     */

DECLARE_BITMAP(zorro_unused_z2ram, 128);
EXPORT_SYMBOL(zorro_unused_z2ram);


static void __init mark_region(unsigned long start, unsigned long end,
                               int flag)
{
        if (flag)
                start += Z2RAM_CHUNKMASK;
        else
                end += Z2RAM_CHUNKMASK;
        start &= ~Z2RAM_CHUNKMASK;
        end &= ~Z2RAM_CHUNKMASK;

        if (end <= Z2RAM_START || start >= Z2RAM_END)
                return;
        start = start < Z2RAM_START ? 0x00000000 : start-Z2RAM_START;
        end = end > Z2RAM_END ? Z2RAM_SIZE : end-Z2RAM_START;
        while (start < end) {
                u32 chunk = start>>Z2RAM_CHUNKSHIFT;

                if (flag)
                        set_bit(chunk, zorro_unused_z2ram);
                else
                        clear_bit(chunk, zorro_unused_z2ram);
                start += Z2RAM_CHUNKSIZE;
        }
}


static struct resource __init *zorro_find_parent_resource(
        struct platform_device *bridge, struct zorro_dev *z)
{
        int i;

        for (i = 0; i < bridge->num_resources; i++) {
                if (resource_contains(&bridge->resource[i], &z->resource))
                        return &bridge->resource[i];
        }

        return &iomem_resource;
}

static int __init amiga_zorro_probe(struct platform_device *pdev)
{
        struct zorro_bus *bus;
        struct zorro_dev_init *zi;
        struct zorro_dev *z;
        struct resource *r;
        unsigned int i;
        int error;

        /* Initialize the Zorro bus */
        bus = kzalloc_flex(*bus, devices, zorro_num_autocon);
        if (!bus)
                return -ENOMEM;

        zorro_autocon = bus->devices;
        bus->dev.parent = &pdev->dev;
        dev_set_name(&bus->dev, zorro_bus_type.name);
        error = device_register(&bus->dev);
        if (error) {
                pr_err("Zorro: Error registering zorro_bus\n");
                put_device(&bus->dev);
                kfree(bus);
                return error;
        }
        platform_set_drvdata(pdev, bus);

        pr_info("Zorro: Probing AutoConfig expansion devices: %u device%s\n",
                 zorro_num_autocon, str_plural(zorro_num_autocon));

        /* First identify all devices ... */
        for (i = 0; i < zorro_num_autocon; i++) {
                zi = &zorro_autocon_init[i];
                z = &zorro_autocon[i];

                z->rom = zi->rom;
                z->id = (be16_to_cpu(z->rom.er_Manufacturer) << 16) |
                        (z->rom.er_Product << 8);
                if (z->id == ZORRO_PROD_GVP_EPC_BASE) {
                        /* GVP quirk */
                        unsigned long magic = zi->boardaddr + 0x8000;

                        z->id |= *(u16 *)ZTWO_VADDR(magic) & GVP_PRODMASK;
                }
                z->slotaddr = zi->slotaddr;
                z->slotsize = zi->slotsize;
                sprintf(z->name, "Zorro device %08x", z->id);
                zorro_name_device(z);
                z->resource = DEFINE_RES_MEM_NAMED(zi->boardaddr, zi->boardsize, z->name);
                r = zorro_find_parent_resource(pdev, z);
                error = request_resource(r, &z->resource);
                if (error && !(z->rom.er_Type & ERTF_MEMLIST))
                        dev_err(&bus->dev,
                                "Address space collision on device %s %pR\n",
                                z->name, &z->resource);
                z->dev.parent = &bus->dev;
                z->dev.bus = &zorro_bus_type;
                z->dev.id = i;
                switch (z->rom.er_Type & ERT_TYPEMASK) {
                case ERT_ZORROIII:
                        z->dev.coherent_dma_mask = DMA_BIT_MASK(32);
                        break;

                case ERT_ZORROII:
                default:
                        z->dev.coherent_dma_mask = DMA_BIT_MASK(24);
                        break;
                }
                z->dev.dma_mask = &z->dev.coherent_dma_mask;
        }

        /* ... then register them */
        for (i = 0; i < zorro_num_autocon; i++) {
                z = &zorro_autocon[i];
                error = device_register(&z->dev);
                if (error) {
                        dev_err(&bus->dev, "Error registering device %s\n",
                                z->name);
                        put_device(&z->dev);
                        continue;
                }
        }

        /* Mark all available Zorro II memory */
        zorro_for_each_dev(z) {
                if (z->rom.er_Type & ERTF_MEMLIST)
                        mark_region(zorro_resource_start(z),
                                    zorro_resource_end(z)+1, 1);
        }

        /* Unmark all used Zorro II memory */
        for (i = 0; i < m68k_num_memory; i++)
                if (m68k_memory[i].addr < 16*1024*1024)
                        mark_region(m68k_memory[i].addr,
                                    m68k_memory[i].addr+m68k_memory[i].size,
                                    0);

        return 0;
}

static struct platform_driver amiga_zorro_driver = {
        .driver   = {
                .name   = "amiga-zorro",
        },
};

static int __init amiga_zorro_init(void)
{
        return platform_driver_probe(&amiga_zorro_driver, amiga_zorro_probe);
}

module_init(amiga_zorro_init);

MODULE_LICENSE("GPL");