/*-
* Copyright (c) 2012 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Paul Fleischer <[email protected]>
*
* 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;
}