/* vt.c - VT specific routines
 * most of these are simplified versions of routines that can
 * be found in the kbd package.
 *
 * Released under GPL V2.
 * (C) 2006 Stefan Seyfried <seife@suse.de>
 */

#include "config.h"
#include <unistd.h>
#include <sys/ioctl.h>
#include <sys/kd.h>
#include <fcntl.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <linux/vt.h>

int is_a_console(int fd)
{
	char arg;

	arg = 0;
	return (ioctl(fd, KDGKBTYPE, &arg) == 0
		&& ((arg == KB_101) || (arg == KB_84)));
}

int open_a_console(const char *fnam)
{
	int fd;

	fd = open(fnam, O_RDWR);
	if (fd < 0)
		return -1;
	if (!is_a_console(fd)) {
		close(fd);
		return -1;
	}
	return fd;
}

int getconsolefd(void)
{
	int fd;

	fd = open_a_console("/dev/tty");
	if (fd >= 0)
		return fd;

	fd = open_a_console("/dev/tty0");
	if (fd >= 0)
		return fd;

	fd = open_a_console("/dev/vc/0");
	if (fd >= 0)
		return fd;

	fd = open_a_console("/dev/console");
	if (fd >= 0)
		return fd;

	for (fd = 0; fd < 3; fd++)
		if (is_a_console(fd))
			return fd;

	return -1;
}

int fgconsole(void)
{
	int fd;
	struct vt_stat vtstat;

	fd = getconsolefd();
	if (fd < 0) {
		perror("fgconsole: getconsolefd");
		return -1;
	}

	if (ioctl(fd, VT_GETSTATE, &vtstat)) {
		perror("fgconsole: VT_GETSTATE");
		return -1;
	}
	return vtstat.v_active;
}

int chvt(int num)
{
#define	USER_WAIT_SLEEP_US		100000
#define	USER_WAIT_MAX_ITERATIONS	50
	int i, fd, active = 0;

	for (i = 0; i < USER_WAIT_MAX_ITERATIONS; i++) {
		if (fgconsole() == num) {
			active = 1;
			break;
		}
		fd = getconsolefd();
		if (ioctl(fd, VT_ACTIVATE, num)) {
			perror("chvt: VT_ACTIVATE");
		}
		usleep(USER_WAIT_SLEEP_US);
	}
	return active;
}

int is_framebuffer(void)
{
	return !access("/sys/class/graphics/fb0", F_OK);
}

char *get_fbname(void)
{
	int fd, len;
	/* id of the driver can be 16bytes long + cr appended by sysfs */
	char *id = malloc(17);
	fd = open("/sys/class/graphics/fb0/name", O_RDONLY);
	if (fd < 0) {
		strcpy(id, "error");
		goto out;
	}
	len = read(fd, id, 17);
	if (len <= 0)
		strcpy(id, "error");
	else
		/* strip the cr appended by sysfs */
		id[len-1] = '\0';

	close(fd);
 out:
	return id;
}