/* $NetBSD: dev_hppa.c,v 1.2 2014/03/26 17:57:17 christos Exp $ */

/* $NetBSD: dev_hppa.c,v 1.2 2014/03/26 17:57:17 christos Exp $ */

/* $OpenBSD: dev_hppa.c,v 1.5 1999/04/20 20:01:01 mickey Exp $ */

/*
* Copyright (c) 1998-2004 Michael Shalayeff
* All rights reserved.
*
* 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 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 OR HIS RELATIVES 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 MIND, 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 "libsa.h"
#include <sys/param.h>
#include <sys/disklabel.h>
#include <sys/reboot.h>
#include <dev/cons.h>

#include <machine/iomod.h>

#include "dev_hppa.h"

extern int debug;

const char cdevs[][4] = {
"ite", "", "", "", "", "", "", "",
"", "", "", "", ""
};
const int ncdevs = NENTS(cdevs);

const struct pdc_devs {
char name[3];
int dev_type;
} pdc_devs[] = {
{ "dk", 0 },
{ "ct", 1 },
{ "lf", 2 },
{ "", -1 },
{ "rd", -1 },
{ "sw", -1 },
{ "fl", -1 },
};

/* pass dev_t to the open routines */
int
devopen(struct open_file *f, const char *fname, char **file)
{
struct hppa_dev *hpd;
const struct pdc_devs *dp = pdc_devs;
int bdev, badapt, bctlr, bunit, bpart;
unsigned long n;
char *p;
int rc = 1;

if (!(*file = strchr(fname, ':')))
return ENODEV;
else
(*file)++;

#ifdef DEBUGBUG
if (debug)
printf("devopen: ");
#endif

for (dp = pdc_devs; dp < &pdc_devs[NENTS(pdc_devs)]; dp++)
if (!strncmp(fname, dp->name, sizeof(dp->name)-1))
break;

if (dp >= &pdc_devs[NENTS(pdc_devs)] || dp->dev_type < 0)
return ENODEV;
bdev = dp->dev_type;
n = strtoul(fname + sizeof(dp->name)-1, &p, 10);
if (n == ULONG_MAX)
return ENODEV;
bunit = n & 0xf;
bctlr = (n >> 4) & 0xf;
badapt = (n >> 8) & 0xf;
if (*p >= 'a' && *p < 'a' + MAXPARTITIONS) {
bpart = *p - 'a';
} else {
bpart = 0;
}
bootdev = MAKEBOOTDEV(bdev, badapt, bctlr, bunit, bpart);

#ifdef DEBUGBUG
if (debug)
printf("%s\n", dp->name);
#endif

if (!(hpd = alloc(sizeof *hpd))) {
#ifdef DEBUG
printf ("devopen: no mem\n");
#endif
} else {
memset(hpd, 0, sizeof *hpd);
hpd->bootdev = bootdev;
hpd->buf = (char *)(((u_int)hpd->ua_buf + IODC_MINIOSIZ-1) &
~(IODC_MINIOSIZ-1));
f->f_devdata = hpd;
if ((rc = (*devsw[dp->dev_type].dv_open)(f, file)) == 0) {
f->f_dev = &devsw[dp->dev_type];
return 0;
}
dealloc (hpd, 0);
f->f_devdata = NULL;
}

if (!(f->f_flags & F_NODEV))
f->f_dev = &devsw[dp->dev_type];

if (!f->f_devdata)
*file = NULL;

return rc;
}

void
devboot(btdev_t dev, char *p)
{
const char *q;
if (!dev) {
int type, unit;

switch (PAGE0->mem_boot.pz_class) {
case PCL_RANDOM:
type = 0;
unit = PAGE0->mem_boot.pz_layers[0];
break;
case PCL_SEQU:
type = 1;
unit = PAGE0->mem_boot.pz_layers[0];
break;
case PCL_NET_MASK|PCL_SEQU:
type = 2;
unit = 0;
break;
default:
type = 0;
unit = 0;
break;
}
dev = bootdev = MAKEBOOTDEV(type, 0, 0, unit, 0);
}
#ifdef _TEST
*p++ = '/';
*p++ = 'd';
*p++ = 'e';
*p++ = 'v';
*p++ = '/';
*p++ = 'r';
#endif
/* quick copy device name */
for (q = pdc_devs[B_TYPE(dev)].name; (*p++ = *q++););
p[-1] = '0' + B_UNIT(dev);
*p++ = 'a' + B_PARTITION(dev);
*p = '\0';
}

int pch_pos;

void
putchar(int c)
{
switch(c) {
case '\177': /* DEL erases */
cnputc('\b');
cnputc(' ');
case '\b':
cnputc('\b');
if (pch_pos)
pch_pos--;
break;
case '\t':
do
cnputc(' ');
while(++pch_pos % 8);
break;
case '\n':
/*
* XXX fredette - probably only necessary
* when using a serial console?
*/
cnputc(c);
c = '\r';
/* FALLTHROUGH */
case '\r':
cnputc(c);
pch_pos=0;
break;
default:
cnputc(c);
pch_pos++;
break;
}
}

int
getchar(void)
{
int c = cngetc();

if (c == '\r')
c = '\n';

if ((c < ' ' && c != '\n') || c == '\177')
return(c);

/*
* XXX fredette - probably only unnecessary
* when using a serial console?
*/
#if 0
putchar(c);
#endif

return(c);
}

int
tgetchar(void)
{
int c;

if ((c = tcngetc()) == 0)
return(0);
return(getchar());
}

#if 0
char ttyname_buf[8];
char *
ttyname(int fd)
{
snprintf(ttyname_buf, sizeof(ttyname_buf), "%s%d",
cdevs[major(cn_tab->cn_dev)],
minor(cn_tab->cn_dev));
return (ttyname_buf);
}

dev_t
ttydev(char *name)
{
int i, unit = -1;
char *no = name + strlen(name) - 1;

while (no >= name && *no >= '0' && *no <= '9')
unit = (unit < 0 ? 0 : (unit * 10)) + *no-- - '0';
if (no < name || unit < 0)
return (NODEV);
for (i = 0; i < ncdevs; i++)
if (strncmp(name, cdevs[i], no - name + 1) == 0)
return (makedev(i, unit));
return (NODEV);
}
#endif