/*
 * uname() emulation by Dave Gymer. In the public domain.
 * Bugs:
 *	The MiNT version stuff is in the release field. According to the GNU
 *	shell utils this is the way SunOS does it, so we put the TOS
 *	version number in the 'version' field (even under MiNT).
 *
 * (Modified slightly by ERS.)
 */

#include <stdlib.h>
#include <unistd.h>
#include <sys/utsname.h>
#include <osbind.h>
#include <stdio.h>
#include <string.h>

extern int __mint;
__EXTERN int gethostname __PROTO((char *buf, size_t len));

static long _mch;	/* value of the _MCH cookie, if any */
static int tosvers;	/* TOS version number */

/*
 * get operating system information; must execute in supervisor mode
 */

static void
getinfo()
{
	long *cookie, *sysbase;

/* get _MCH cookie value */
	cookie = *((long **) 0x5a0);
	if (cookie) {
		while (*cookie) {
			if (*cookie == 0x5f4d4348L) {	/* _MCH */
				_mch = cookie[1];
				break;
			}
			cookie += 2;
		}
	}

/* get TOS version number */
	sysbase = *((long **)(0x4f2));
	tosvers = sysbase[0] & 0x0000ffff;
}

int
uname(buf)
	struct utsname *buf;
{
	if (!tosvers)
		(void)Supexec(getinfo);

	strcpy(buf->sysname, __mint ? "MiNT" : "TOS");

	if (gethostname(buf->nodename, 15))
		strcpy(buf->nodename, "??node??");

	if (__mint)
		sprintf(buf->release, "%d.%d",
		          (__mint >> 8) & 255L, __mint & 255L);
	else
		buf->release[0] = 0;

	sprintf(buf->version, "%d.%d", (tosvers >> 8) & 255, tosvers & 255);

	switch( (_mch >> 16) & 0x0ffffL) {
	case 0:
		strcpy(buf->machine, "atarist"); break;
	case 1:
		strcpy(buf->machine, "atariste"); break;
	case 2:
		strcpy(buf->machine, "ataritt"); break;
	default:
		strcpy(buf->machine, "atari");
	}

	return 0;
}