/*      $NetBSD: linux32_termios.c,v 1.16 2021/11/26 19:28:37 ryo Exp $ */

/*-
* Copyright (c) 1995-2006, 2008  The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Frank van der Linden, Eric Haszlakiewicz, and Emmanuel Dreyfus.
*
* 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 NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``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 FOUNDATION OR CONTRIBUTORS
* 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 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 <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: linux32_termios.c,v 1.16 2021/11/26 19:28:37 ryo Exp $");

#ifdef _KERNEL_OPT
#include "opt_compat_linux32.h"
#include "opt_ptm.h"
#endif

#include <sys/param.h>
#include <sys/proc.h>
#include <sys/systm.h>
#include <sys/file.h>
#include <sys/filedesc.h>
#include <sys/ioctl.h>
#include <sys/mount.h>
#include <sys/termios.h>
#include <sys/kernel.h>

#include <compat/netbsd32/netbsd32.h>
#include <compat/netbsd32/netbsd32_syscallargs.h>

#include <compat/linux32/common/linux32_types.h>
#include <compat/linux32/common/linux32_signal.h>
#include <compat/linux32/common/linux32_ioctl.h>
#include <compat/linux32/common/linux32_machdep.h>
#include <compat/linux32/common/linux32_termios.h>
#include <compat/linux32/linux32_syscallargs.h>

#include <compat/linux/common/linux_types.h>
#include <compat/linux/common/linux_signal.h>
#include <compat/linux/common/linux_util.h>
#include <compat/linux/common/linux_termios.h>
#include <compat/linux/common/linux_ipc.h>
#include <compat/linux/common/linux_sem.h>

#include <compat/linux/linux_syscallargs.h>

#ifdef DEBUG_LINUX
#define DPRINTF(a)      uprintf a
#else
#define DPRINTF(a)
#endif

int
linux32_ioctl_termios(struct lwp *l, const struct linux32_sys_ioctl_args *uap, register_t *retval)
{
       /* {
               syscallarg(int) fd;
               syscallarg(netbsd32_u_long) com;
               syscallarg(netbsd32_charp) data;
       } */
       file_t *fp;
       u_long com;
       struct linux32_termio tmplt;
       struct linux32_termios tmplts;
       struct termios tmpbts;
       int idat;
       struct netbsd32_ioctl_args ia;
       int error;
       char tioclinux;
       int (*bsdioctl)(file_t *, u_long, void *);

       if ((fp = fd_getfile(SCARG(uap, fd))) == NULL)
               return (EBADF);

       if ((fp->f_flag & (FREAD | FWRITE)) == 0) {
               error = EBADF;
               goto out;
       }

       bsdioctl = fp->f_ops->fo_ioctl;
       com = SCARG(uap, com);
       retval[0] = 0;

       switch (com) {
       case LINUX32_TCGETS:
               error = (*bsdioctl)(fp, TIOCGETA, &tmpbts);
               if (error)
                       goto out;
               bsd_termios_to_linux32_termios(&tmpbts, &tmplts);
               error = copyout(&tmplts, SCARG_P32(uap, data), sizeof tmplts);
               goto out;
       case LINUX32_TCSETS:
       case LINUX32_TCSETSW:
       case LINUX32_TCSETSF:
               /*
                * First fill in all fields, so that we keep the current
                * values for fields that Linux doesn't know about.
                */
               error = (*bsdioctl)(fp, TIOCGETA, &tmpbts);
               if (error)
                       goto out;
               if ((error = copyin(SCARG_P32(uap, data),
                   &tmplts, sizeof tmplts)) != 0)
                       goto out;
               linux32_termios_to_bsd_termios(&tmplts, &tmpbts);
               switch (com) {
               case LINUX32_TCSETS:
                       com = TIOCSETA;
                       break;
               case LINUX32_TCSETSW:
                       com = TIOCSETAW;
                       break;
               case LINUX32_TCSETSF:
                       com = TIOCSETAF;
                       break;
               }
               error = (*bsdioctl)(fp, com, &tmpbts);
               goto out;
       case LINUX32_TCGETA:
               error = (*bsdioctl)(fp, TIOCGETA, &tmpbts);
               if (error)
                       goto out;
               bsd_termios_to_linux32_termio(&tmpbts, &tmplt);
               error = copyout(&tmplt, SCARG_P32(uap, data), sizeof tmplt);
               goto out;
       case LINUX32_TCSETA:
       case LINUX32_TCSETAW:
       case LINUX32_TCSETAF:
               /*
                * First fill in all fields, so that we keep the current
                * values for fields that Linux doesn't know about.
                */
               error = (*bsdioctl)(fp, TIOCGETA, &tmpbts);
               if (error)
                       goto out;
               if ((error = copyin(SCARG_P32(uap, data),
                   &tmplt, sizeof tmplt)) != 0)
                       goto out;
               linux32_termio_to_bsd_termios(&tmplt, &tmpbts);
               switch (com) {
               case LINUX32_TCSETA:
                       com = TIOCSETA;
                       break;
               case LINUX32_TCSETAW:
                       com = TIOCSETAW;
                       break;
               case LINUX32_TCSETAF:
                       com = TIOCSETAF;
                       break;
               }
               error = (*bsdioctl)(fp, com, &tmpbts);
               goto out;
       case LINUX32_TCFLSH:
               switch((u_long)SCARG_P32(uap, data)) {
               case 0:
                       idat = FREAD;
                       break;
               case 1:
                       idat = FWRITE;
                       break;
               case 2:
                       idat = 0;
                       break;
               default:
                       error = EINVAL;
                       goto out;
               }
               error = (*bsdioctl)(fp, TIOCFLUSH, &idat);
               goto out;
       case LINUX32_TIOCGETD:
               error = (*bsdioctl)(fp, TIOCGETD, &idat);
               if (error)
                       goto out;
               switch (idat) {
               case TTYDISC:
                       idat = LINUX_N_TTY;
                       break;
               case SLIPDISC:
                       idat = LINUX_N_SLIP;
                       break;
               case PPPDISC:
                       idat = LINUX_N_PPP;
                       break;
               case STRIPDISC:
                       idat = LINUX_N_STRIP;
                       break;
               /*
                * Linux does not have the tablet line discipline.
                */
               case TABLDISC:
               default:
                       idat = -1;      /* XXX What should this be? */
                       break;
               }
               error = copyout(&idat, SCARG_P32(uap, data), sizeof idat);
               goto out;
       case LINUX32_TIOCSETD:
               if ((error = copyin(SCARG_P32(uap, data),
                   &idat, sizeof idat)) != 0)
                       goto out;
               switch (idat) {
               case LINUX_N_TTY:
                       idat = TTYDISC;
                       break;
               case LINUX_N_SLIP:
                       idat = SLIPDISC;
                       break;
               case LINUX_N_PPP:
                       idat = PPPDISC;
                       break;
               case LINUX_N_STRIP:
                       idat = STRIPDISC;
                       break;
               /*
                * We can't handle the mouse line discipline Linux has.
                */
               case LINUX_N_MOUSE:
               case LINUX_N_AX25:
               case LINUX_N_X25:
               case LINUX_N_6PACK:
               default:
                       error = EINVAL;
                       goto out;
               }
               error = (*bsdioctl)(fp, TIOCSETD, &idat);
               goto out;
       case LINUX32_TIOCLINUX:
               if ((error = copyin(SCARG_P32(uap, data),
                   &tioclinux, sizeof tioclinux)) != 0)
                       goto out;
               switch (tioclinux) {
               case LINUX_TIOCLINUX_KERNMSG:
                       /*
                        * XXX needed to not fail for some things. Could
                        * try to use TIOCCONS, but the char argument
                        * specifies the VT #, not an fd.
                        */
                       error = 0;
                       goto out;
               case LINUX_TIOCLINUX_COPY:
               case LINUX_TIOCLINUX_PASTE:
               case LINUX_TIOCLINUX_UNBLANK:
               case LINUX_TIOCLINUX_LOADLUT:
               case LINUX_TIOCLINUX_READSHIFT:
               case LINUX_TIOCLINUX_READMOUSE:
               case LINUX_TIOCLINUX_VESABLANK:
               case LINUX_TIOCLINUX_CURCONS:   /* could use VT_GETACTIVE */
               default:
                       error = EINVAL;
                       goto out;
               }
               break;
       case LINUX32_TIOCGWINSZ:
               SCARG(&ia, com) = TIOCGWINSZ;
               break;
       case LINUX32_TIOCSWINSZ:
               SCARG(&ia, com) = TIOCSWINSZ;
               break;
       case LINUX32_TIOCGPGRP:
               SCARG(&ia, com) = TIOCGPGRP;
               break;
       case LINUX32_TIOCSPGRP:
               SCARG(&ia, com) = TIOCSPGRP;
               break;
       case LINUX32_FIOCLEX:
               SCARG(&ia, com) = FIOCLEX;
               break;
       case LINUX32_FIONCLEX:
               SCARG(&ia, com) = FIONCLEX;
               break;
       case LINUX32_FIONREAD:
               SCARG(&ia, com) = FIONREAD;
               break;
       case LINUX32_FIONBIO:
               SCARG(&ia, com) = FIONBIO;
               break;
       case LINUX32_FIOASYNC:
               SCARG(&ia, com) = FIOASYNC;
               break;
       case LINUX32_TIOCEXCL:
               SCARG(&ia, com) = TIOCEXCL;
               break;
       case LINUX32_TIOCNXCL:
               SCARG(&ia, com) = TIOCNXCL;
               break;
       case LINUX32_TIOCCONS:
               SCARG(&ia, com) = TIOCCONS;
               break;
       case LINUX32_TIOCNOTTY:
               SCARG(&ia, com) = TIOCNOTTY;
               break;
       case LINUX32_TCSBRK:
               idat = (u_long)SCARG_P32(uap, data);
               if (idat != 0)
                       SCARG(&ia, com) = TIOCDRAIN;
               else {
                       if ((error = (*bsdioctl)(fp, TIOCSBRK, NULL)) != 0)
                               goto out;
                       error = tsleep(&idat, PZERO | PCATCH, "linux_tcsbrk", hz / 4);
                       if (error == EINTR || error == ERESTART) {
                               (void)(*bsdioctl)(fp, TIOCCBRK, NULL);
                               error = EINTR;
                       } else
                               error = (*bsdioctl)(fp, TIOCCBRK, NULL);
                       goto out;
               }
               break;
       case LINUX32_TIOCMGET:
               SCARG(&ia, com) = TIOCMGET;
               break;
       case LINUX32_TIOCMSET:
               SCARG(&ia, com) = TIOCMSET;
               break;
       case LINUX32_TIOCMBIC:
               SCARG(&ia, com) = TIOCMBIC;
               break;
       case LINUX32_TIOCMBIS:
               SCARG(&ia, com) = TIOCMBIS;
               break;
#ifdef LINUX32_TIOCGPTN
       case LINUX32_TIOCGPTN:
#ifndef NO_DEV_PTM
               {
                       struct ptmget ptm;

                       error = (*bsdioctl)(fp, TIOCPTSNAME, &ptm);
                       if (error != 0)
                               goto out;

                       error = copyout(&ptm.sfd, SCARG_P32(uap, data),
                           sizeof(ptm.sfd));
                       goto out;
               }
#endif /* NO_DEV_PTM */
#endif /* LINUX32_TIOCGPTN */
#ifdef LINUX32_TIOCSPTLCK
       case LINUX32_TIOCSPTLCK:
                       fd_putfile(SCARG(uap, fd));
                       error = copyin(SCARG_P32(uap, data), &idat, sizeof(idat));
                       if (error)
                               return error;
                       DPRINTF(("TIOCSPTLCK %d\n", idat));
                       return 0;
#endif
       case LINUX32_TCXONC:
               idat = (u_long)SCARG_P32(uap, data);
               switch (idat) {
               case LINUX_TCOOFF:
                       SCARG(&ia, com) = TIOCSTOP;
                       break;
               case LINUX_TCOON:
                       SCARG(&ia, com) = TIOCSTART;
                       break;
               case LINUX_TCIOFF:
               case LINUX_TCION:
               default:
                       error = EINVAL;
                       goto out;
               }
               break;
       default:
               error = EINVAL;
               goto out;
       }

       SCARG(&ia, fd) = SCARG(uap, fd);
       SCARG(&ia, data) = SCARG(uap, data);
       error = netbsd32_ioctl(curlwp, &ia, retval);
out:
       fd_putfile(SCARG(uap, fd));
       return error;
}