/*********************************************************/
/*  ptycon: a pty-console bridge                         */
/*  Copyright (C) 2016  Z. Gilboa                        */
/*  Released under GPLv2 and GPLv3; see COPYING.PTYCON.  */
/*********************************************************/

#include <psxtypes/psxtypes.h>
#include <ntapi/ntapi.h>
#include <ntapi/nt_termios.h>
#include <ptycon/ptycon.h>
#include "ptycon_driver_impl.h"
#include "ptycon_ioctl_impl.h"
#include "ptycon_status_impl.h"

static int32_t ptyc_pty_open(nt_pty * hptm, nt_guid * pty_guid, nt_pty ** hpty)
{
	nt_vfd_dev_name		pty_name;
	nt_oa			oa = {sizeof(oa),0,0,0,0,0};

	ntapi->vfd_dev_name_init(
		&pty_name,pty_guid);

	oa.obj_name = &pty_name.name;
	oa.root_dir = hptm;

	return ntapi->pty_open(
		0,hpty,
		NT_FILE_ALL_ACCESS,
		&oa,0,0,0);
}

static int32_t ptyc_ptm_open(struct ptyc_common_ctx * cctx)
{
	nt_guid pty_guid = TTY_PTM_GUID;

	return ptyc_pty_open(
		0,&pty_guid,
		&cctx->hptm);
}

static int32_t ptyc_pts_open(struct ptyc_common_ctx * cctx)
{
	int32_t status;
	nt_guid pty_guid = TTY_PTS_GUID;

	if ((status = ptyc_grant(cctx->hptm)))
		return status;

	return ptyc_pty_open(
		cctx->hptm,&pty_guid,
		&cctx->hpts);
}

static int32_t ptyc_make_raw(nt_pty * hpty)
{
	int32_t			status;
	nt_iosb			iosb;
	nt_tty_sigctl_info	ctlinfo;
	struct tty_termios	termios;

	ntapi->tt_aligned_block_memset(
		&ctlinfo,0,sizeof(ctlinfo));

	if ((status = ntapi->pty_ioctl(
			hpty,
			0,0,0,
			&iosb,
			TTY_TCGETS,
			&ctlinfo,sizeof(ctlinfo),
			&ctlinfo,sizeof(ctlinfo))))
		return status;

	ntapi->tt_generic_memcpy(
		&termios,
		&ctlinfo.terminfo,
		sizeof(termios));

	termios.c_oflag &= ~TTY_OPOST;

	termios.c_cflag &= ~(TTY_CSIZE | TTY_PARENB);
	termios.c_cflag |= TTY_CS8;

	termios.c_lflag &= ~(TTY_ECHO
				| TTY_ECHONL
				| TTY_ICANON
				| TTY_ISIG
				| TTY_IEXTEN);

	termios.c_iflag &= ~(TTY_IGNBRK
				| TTY_BRKINT
				| TTY_PARMRK
				| TTY_ISTRIP
				| TTY_INLCR
				| TTY_IGNCR
				| TTY_ICRNL
				| TTY_IXON);

	ntapi->tt_aligned_block_memset(
		&ctlinfo,0,sizeof(ctlinfo));

	ntapi->tt_generic_memcpy(
		&ctlinfo.terminfo,
		&termios,
		sizeof(termios));

	return ntapi->pty_ioctl(
		hpty,
		0,0,0,
		&iosb,
		TTY_TCSETS,
		&ctlinfo,sizeof(ctlinfo),
		&ctlinfo,sizeof(ctlinfo));
}

static int32_t ptyc_make_oven(nt_pty * hpty)
{
	int32_t			status;
	nt_iosb			iosb;
	nt_tty_sigctl_info	ctlinfo;
	struct tty_termios	termios;

	ntapi->tt_aligned_block_memset(
		&ctlinfo,0,sizeof(ctlinfo));

	if ((status = ntapi->pty_ioctl(
			hpty,
			0,0,0,
			&iosb,
			TTY_TCGETS,
			&ctlinfo,sizeof(ctlinfo),
			&ctlinfo,sizeof(ctlinfo))))
		return status;

	ntapi->tt_generic_memcpy(
		&termios,
		&ctlinfo.terminfo,
		sizeof(termios));

	termios.c_cflag = TTY_CBAUD | TTY_CREAD | TTY_CS8 | TTY_HUPCL;
	termios.c_iflag = TTY_ICRNL | TTY_BRKINT | TTY_IXON;
	termios.c_lflag = TTY_ECHO
				| TTY_ECHOCTL
				| TTY_ECHOE
				| TTY_ECHOK
				| TTY_ECHOKE
				| TTY_ICANON
				| TTY_ISIG
				| TTY_IEXTEN;

	termios.c_oflag = TTY_OPOST
				| TTY_ONLCR
				| TTY_TAB0
				| TTY_VT0
				| TTY_BS0
				| TTY_CR0
				| TTY_FF0
				| TTY_NL0;

	ntapi->tt_aligned_block_memset(
		&ctlinfo,0,sizeof(ctlinfo));

	ntapi->tt_generic_memcpy(
		&ctlinfo.terminfo,
		&termios,
		sizeof(termios));

	return ntapi->pty_ioctl(
		hpty,
		0,0,0,
		&iosb,
		TTY_TCSETS,
		&ctlinfo,sizeof(ctlinfo),
		&ctlinfo,sizeof(ctlinfo));
}

int ptyc_alloc_pty(struct ptyc_driver_ctx * dctx)
{
	int32_t				status;
	struct ptyc_driver_ctx_impl *	ictx;
	struct ptyc_common_ctx *	cctx;

	if (!(ictx = ptyc_get_driver_ictx(dctx)))
		return NT_STATUS_INVALID_HANDLE;

	cctx = &ictx->cctx;

	if (cctx->hpts || cctx->hptm)
		return ptyc_set_status(
			dctx,NT_STATUS_DEVICE_ALREADY_ATTACHED);

	if ((status = ptyc_ptm_open(cctx)))
		return ptyc_set_status(
			dctx,status);

	if ((status = ptyc_make_raw(cctx->hptm)))
		return ptyc_set_status(
			dctx,status);

	if (!dctx->units[0]
			&& !(cctx->drvflags & PTYC_DRIVER_DBG_OVEN)
			&& !(cctx->drvflags & PTYC_DRIVER_DBG_RAW))
		return ptyc_set_status(
			dctx,NT_STATUS_SUCCESS);

	if ((status = ptyc_pts_open(cctx)))
		return ptyc_set_status(
			dctx,status);

	if (cctx->drvflags & PTYC_DRIVER_DBG_RAW)
		if ((status = ptyc_make_raw(cctx->hpts)))
			return ptyc_set_status(
				dctx,status);

	if (cctx->drvflags & PTYC_DRIVER_DBG_OVEN)
		if ((status = ptyc_make_oven(cctx->hpts)))
			return ptyc_set_status(
				dctx,status);

	return ptyc_set_status(
		dctx,NT_STATUS_SUCCESS);
}

void ptyc_free_pty(struct ptyc_driver_ctx * dctx)
{
	struct ptyc_driver_ctx_impl * ictx;

	if (!(ictx = ptyc_get_driver_ictx(dctx)))
		return;

	if (ictx->cctx.hpts) {
		ntapi->pty_close(ictx->cctx.hpts);
		ictx->cctx.hpts = 0;
	}

	if (ictx->cctx.hptm) {
		ntapi->pty_close(ictx->cctx.hptm);
		ictx->cctx.hptm = 0;
	}
}