/*	$OpenBSD: prtc.c,v 1.7 2022/10/12 13:39:50 kettenis Exp $	*/

/*
 * Copyright (c) 2008 Mark Kettenis
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

/*
 * Driver to get the time-of-day from the PROM for machines that don't
 * have a hardware real-time clock, like the Enterprise 10000,
 * Fire 12K and Fire 15K.
 */

#include <sys/param.h>
#include <sys/device.h>
#include <sys/malloc.h>
#include <sys/systm.h>

#include <machine/autoconf.h>
#include <machine/openfirm.h>
#include <machine/sparc64.h>

#include <dev/clock_subr.h>

extern todr_chip_handle_t todr_handle;

struct prtc_softc {
	struct device	sc_dev;
	struct todr_chip_handle
			sc_todr_chip;
};

int	prtc_match(struct device *, void *, void *);
void	prtc_attach(struct device *, struct device *, void *);

const struct cfattach prtc_ca = {
	sizeof(struct prtc_softc), prtc_match, prtc_attach
};

struct cfdriver prtc_cd = {
	NULL, "prtc", DV_DULL
};

int	prtc_gettime(todr_chip_handle_t, struct timeval *);
int	prtc_settime(todr_chip_handle_t, struct timeval *);

int	prtc_opl_gettime(todr_chip_handle_t, struct timeval *);
int	prtc_opl_settime(todr_chip_handle_t, struct timeval *);

int
prtc_match(struct device *parent, void *match, void *aux)
{
	struct mainbus_attach_args *ma = aux;

	if (strcmp(ma->ma_name, "prtc") == 0)
		return (1);

	return (0);
}

void
prtc_attach(struct device *parent, struct device *self, void *aux)
{
	struct prtc_softc *sc = (struct prtc_softc *)self;
	todr_chip_handle_t handle = &sc->sc_todr_chip;
	char buf[32];
	int opl;

	opl = OF_getprop(findroot(), "name", buf, sizeof(buf)) > 0 &&
	    strcmp(buf, "SUNW,SPARC-Enterprise") == 0;

	if (opl)
		printf(": OPL");

	printf("\n");

	handle->cookie = sc;
	if (opl) {
		handle->todr_gettime = prtc_opl_gettime;
		handle->todr_settime = prtc_opl_settime;
	} else {
		handle->todr_gettime = prtc_gettime;
		handle->todr_settime = prtc_settime;
	}

	handle->bus_cookie = NULL;
	handle->todr_setwen = NULL;
	handle->todr_quality = 0;
	todr_handle = handle;
}

int
prtc_gettime(todr_chip_handle_t handle, struct timeval *tv)
{
	char buf[32];
	u_int32_t tod = 0;

	snprintf(buf, sizeof(buf), "h# %08lx unix-gettod", (long)&tod);
	OF_interpret(buf, 0);

	tv->tv_sec = tod;
	tv->tv_usec = 0;
	return (0);
}

int
prtc_settime(todr_chip_handle_t handle, struct timeval *tv)
{
	return (0);
}

int
prtc_opl_gettime(todr_chip_handle_t handle, struct timeval *tv)
{
	struct {
		cell_t	name;
		cell_t	nargs;
		cell_t	nrets;
		cell_t	stick;
		cell_t	time;
	} args = {
		.name	= ADR2CELL("FJSV,get-tod"),
		.nargs	= 0,
		.nrets	= 2,
	};

	if (openfirmware(&args) == -1)
		return (-1);

	tv->tv_sec = args.time;
	tv->tv_usec = 0;

	return (0);
}

int
prtc_opl_settime(todr_chip_handle_t handle, struct timeval *tv)
{
	struct timeval otv;
	struct {
		cell_t	name;
		cell_t	nargs;
		cell_t	nrets;
		cell_t	diff;
	} args = {
		.name	= ADR2CELL("FJSV,set-domain-time"),
		.nargs	= 1,
		.nrets	= 0,
	};

	if (prtc_opl_gettime(handle, &otv) == -1)
		return (-1);

	args.diff = tv->tv_sec - otv.tv_sec;
	if (args.diff == 0)
		return (0);

	if (openfirmware(&args) == -1)
		return (-1);

	return (0);
}