/*-
 * Copyright (c) 2012 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Paul Fleischer <paul@xpg.dk>
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``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 FOUNDATION OR CONTRIBUTORS
 * 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.
 */
#include <sys/param.h>
#include <sys/disklabel.h>

#include <netinet/in.h>

#include <lib/libkern/libkern.h>
#include <lib/libsa/stand.h>
#include <lib/libsa/nfs.h>
#include <lib/libsa/tftp.h>
#include <lib/libsa/ext2fs.h>
#include <lib/libsa/dosfs.h>
#include <lib/libsa/ufs.h>

#include "dev_sdmmc.h"
#include <arch/evbarm/mini2440/mini2440_bootinfo.h>

/* Implemented in dev_net.c */
int net_open(struct open_file *, ...);
int net_close(struct open_file *);
int net_strategy(void *, int, daddr_t, size_t, void *, size_t *);

/* Implemented in dev_sdmmc.c */
int sdmmc_open(struct open_file *, ...);
int sdmmc_close(struct open_file *);
int sdmmc_strategy(void *, int, daddr_t, size_t, void *, size_t *);
int sdmmc_get_fstype(void*);

struct devsw devsw[] = {
        { "dm9000", net_strategy, net_open, net_close, noioctl },
        { "s3c sdio", sdmmc_strategy, sdmmc_open, sdmmc_close, noioctl }
};

struct fs_ops ops_nfs = FS_OPS(nfs);
struct fs_ops ops_tftp = FS_OPS(tftp);
struct fs_ops ops_ext2fs = FS_OPS(ext2fs);
struct fs_ops ops_dosfs = FS_OPS(dosfs);
struct fs_ops ops_bsdfs = FS_OPS(ufs);
struct fs_ops file_system[1];
int nfsys = 1;

extern struct btinfo_bootpath           bi_path;
extern struct btinfo_rootdevice         bi_rdev;

static void parseunit(const char *name, int *unitp, int *partp, char **pathp);

int
devopen(struct open_file *of, const char *name, char **file)
{
        int error;
        extern char bootfile[];

        if (strncmp("net:", name, 4) == 0 ||
            strncmp("nfs:", name, 4) == 0 ) {
                of->f_dev = &devsw[0];
                if ((error = net_open(of, name+4, "nfs")) != 0)
                        return error;
                file_system[0] = ops_nfs;
                *file = bootfile;
                strncpy(bi_path.bootpath, bootfile, sizeof(bi_path.bootpath));

                return 0;
        } else if (strncmp("tftp:", name, 5) == 0) {
                of->f_dev = &devsw[0];
                if ((error = net_open(of, name+5, "tftp")) != 0) {
                        return error;
                }
                file_system[0] = ops_tftp;
                *file = bootfile;
                strncpy(bi_path.bootpath, bootfile, sizeof(bi_path.bootpath));

                return 0;
        } else if (name[0] == 'l' && name[1] == 'd') {
                int unit, part;
                parseunit(&name[2], &unit, &part, file);
                if (*file == NULL || strlen(*file) == 0) {
                        strcpy(*file, "netbsd");
                }
                of->f_dev = &devsw[1];
                if ((error = sdmmc_open(of, unit, part)) != 0)
                        return error;

                strncpy(bi_path.bootpath, *file, sizeof(bi_path.bootpath));

                snprintf(bi_rdev.devname, sizeof(bi_rdev.devname), "ld");
                bi_rdev.cookie = unit;
                bi_rdev.partition = part;
                switch(sdmmc_get_fstype(of->f_devdata)) {
                case FS_EX2FS:
                        file_system[0] = ops_ext2fs;
                        break;
                case FS_MSDOS:
                        file_system[0] = ops_dosfs;
                        break;
                case FS_BSDFFS:
                        file_system[0] = ops_bsdfs;
                        break;
                default:
                        return ENOENT;
                }

                return 0;
        }
        return ENOENT;
}

static void
parseunit(const char *name, int *unitp, int *partp, char **pathp)
{
        const char *p = name;
        int unit, part;

        unit = part = -1;
        while (*p != ':' && *p != '\0') {
                if (unit == -1 && *p >= '0' && *p <= '9')
                        unit = *p - '0';
                if (part == -1 && *p >= 'a' && *p < 'a' + 16)
                        part = *p - 'a';
                p += 1;
        }
        *unitp = (unit == -1) ? 0 : unit;
        *partp = (part == -1) ? 0 : part;
        *pathp = (*p == ':') ? (char *)p + 1 : NULL;
}