/*      $NetBSD: kern_info_43.c,v 1.40 2021/09/07 11:43:02 riastradh Exp $      */

/*
* Copyright (c) 1982, 1986, 1991, 1993
*      The Regents of the University of California.  All rights reserved.
*
* 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.
* 3. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
*
*      @(#)subr_xxx.c  8.1 (Berkeley) 6/10/93
*/

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: kern_info_43.c,v 1.40 2021/09/07 11:43:02 riastradh Exp $");

#if defined(_KERNEL_OPT)
#include "opt_compat_netbsd.h"
#endif

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/filedesc.h>
#include <sys/kernel.h>
#include <sys/vnode.h>
#include <sys/proc.h>
#include <sys/file.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/stat.h>
#include <sys/ioctl.h>
#include <sys/fcntl.h>
#include <sys/syslog.h>
#include <sys/unistd.h>
#include <sys/resourcevar.h>
#include <sys/kauth.h>
#include <sys/cpu.h>

#include <uvm/uvm_extern.h>
#include <sys/sysctl.h>

#include <sys/mount.h>
#include <sys/syscall.h>
#include <sys/syscallvar.h>
#include <sys/syscallargs.h>
#include <compat/sys/time.h>

#include <compat/common/compat_mod.h>

static struct syscall_package kern_info_43_syscalls[] = {
       { SYS_compat_43_ogetdtablesize, 0,
           (sy_call_t *)compat_43_sys_getdtablesize },
       { SYS_compat_43_ogethostid, 0, (sy_call_t *)compat_43_sys_gethostid },
       { SYS_compat_43_ogethostname, 0,
           (sy_call_t *)compat_43_sys_gethostname },
       { SYS_compat_43_ogetkerninfo, 0,
           (sy_call_t *)compat_43_sys_getkerninfo },
       { SYS_compat_43_osethostid, 0, (sy_call_t *)compat_43_sys_sethostid },
       { SYS_compat_43_osethostname, 0,
           (sy_call_t *)compat_43_sys_sethostname },
       { 0, 0, NULL }
};

int
compat_43_sys_getdtablesize(struct lwp *l, const void *v, register_t *retval)
{
       struct proc *p = l->l_proc;

       mutex_enter(p->p_lock);
       *retval = uimin((int)p->p_rlimit[RLIMIT_NOFILE].rlim_cur, maxfiles);
       mutex_exit(p->p_lock);
       return (0);
}


/* ARGSUSED */
int
compat_43_sys_gethostid(struct lwp *l, const void *v, register_t *retval)
{

       *(int32_t *)retval = hostid;
       return (0);
}


/*ARGSUSED*/
int
compat_43_sys_gethostname(struct lwp *l, const struct compat_43_sys_gethostname_args *uap, register_t *retval)
{
       /* {
               syscallarg(char *) hostname;
               syscallarg(u_int) len;
       } */
       int name[2];
       size_t sz;

       name[0] = CTL_KERN;
       name[1] = KERN_HOSTNAME;
       sz = SCARG(uap, len);
       return (old_sysctl(&name[0], 2, SCARG(uap, hostname), &sz, 0, 0, l));
}

#define KINFO_PROC              (0<<8)
#define KINFO_RT                (1<<8)
#define KINFO_VNODE             (2<<8)
#define KINFO_FILE              (3<<8)
#define KINFO_METER             (4<<8)
#define KINFO_LOADAVG           (5<<8)
#define KINFO_CLOCKRATE         (6<<8)
#define KINFO_BSDI_SYSINFO      (101<<8)


/*
* The string data is appended to the end of the bsdi_si structure during
* copyout. The "char *" offsets in the bsdi_si struct are relative to the
* base of the bsdi_si struct.
*/
struct bsdi_si {
       char    *machine;
       char    *cpu_model;
       long    ncpu;
       long    cpuspeed;
       long    hwflags;
       u_long  physmem;
       u_long  usermem;
       u_long  pagesize;

       char    *ostype;
       char    *osrelease;
       long    os_revision;
       long    posix1_version;
       char    *version;

       long    hz;
       long    profhz;
       int     ngroups_max;
       long    arg_max;
       long    open_max;
       long    child_max;

       struct  timeval50 boottime;
       char    *hostname;
};

int
compat_43_sys_getkerninfo(struct lwp *l, const struct compat_43_sys_getkerninfo_args *uap, register_t *retval)
{
       /* {
               syscallarg(int) op;
               syscallarg(char *) where;
               syscallarg(int *) size;
               syscallarg(int) arg;
       } */
       int error, name[6];
       int isize;
       size_t size;

       if (!SCARG(uap, size))
               return EINVAL;

       if ((error = copyin(SCARG(uap, size), &isize, sizeof(isize))) != 0)
               return error;

       if (isize < 0 || isize > 4096)
               return EINVAL;

       size = isize;

       switch (SCARG(uap, op) & 0xff00) {

       case KINFO_RT:
               name[0] = CTL_NET;
               name[1] = PF_ROUTE;
               name[2] = 0;
               name[3] = (SCARG(uap, op) & 0xff0000) >> 16;
               name[4] = SCARG(uap, op) & 0xff;
               name[5] = SCARG(uap, arg);
               error = old_sysctl(&name[0], 6, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_VNODE:
               name[0] = CTL_KERN;
               name[1] = KERN_VNODE;
               error = old_sysctl(&name[0], 2, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_PROC:
               name[0] = CTL_KERN;
               name[1] = KERN_PROC;
               name[2] = SCARG(uap, op) & 0xff;
               name[3] = SCARG(uap, arg);
               error = old_sysctl(&name[0], 4, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_FILE:
               name[0] = CTL_KERN;
               name[1] = KERN_FILE;
               error = old_sysctl(&name[0], 2, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_METER:
               name[0] = CTL_VM;
               name[1] = VM_METER;
               error = old_sysctl(&name[0], 2, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_LOADAVG:
               name[0] = CTL_VM;
               name[1] = VM_LOADAVG;
               error = old_sysctl(&name[0], 2, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;

       case KINFO_CLOCKRATE:
               name[0] = CTL_KERN;
               name[1] = KERN_CLOCKRATE;
               error = old_sysctl(&name[0], 2, SCARG(uap, where), &size,
                                  NULL, 0, l);
               break;


       case KINFO_BSDI_SYSINFO:
               {
                       size_t len;
                       struct bsdi_si *usi =
                           (struct bsdi_si *) SCARG(uap, where);
                       struct bsdi_si ksi;
                       struct timeval tv;
                       const char *cpu_model = cpu_getmodel();
                       char *us = (char *) &usi[1];

                       if (usi == NULL) {
                               size = sizeof(ksi) +
                                   strlen(ostype) + strlen(cpu_model) +
                                   strlen(osrelease) + strlen(machine) +
                                   strlen(version) + strlen(hostname) + 6;
                               error = 0;
                               break;
                       }

                       memset(&ksi, 0, sizeof(ksi));

#define COPY(fld)                                                       \
                       ksi.fld = us - (u_long) usi;                    \
                       if ((error = copyoutstr(fld, us, 1024, &len)) != 0)\
                               return error;                           \
                       us += len

                       COPY(machine);
                       COPY(cpu_model);
                       ksi.ncpu = ncpu;                /* XXX */
                       ksi.cpuspeed = 40;              /* XXX */
                       ksi.hwflags = 0;                /* XXX */
                       ksi.physmem = ctob(physmem);
                       ksi.usermem = ctob(physmem);    /* XXX */
                       ksi.pagesize = PAGE_SIZE;

                       COPY(ostype);
                       COPY(osrelease);
                       ksi.os_revision = NetBSD;       /* XXX */
                       ksi.posix1_version = _POSIX_VERSION;
                       COPY(version);                  /* XXX */

                       ksi.hz = hz;
                       ksi.profhz = profhz;
                       ksi.ngroups_max = NGROUPS_MAX;
                       ksi.arg_max = ARG_MAX;
                       ksi.open_max = OPEN_MAX;
                       ksi.child_max = CHILD_MAX;

                       getmicroboottime(&tv);
                       timeval_to_timeval50(&tv, &ksi.boottime);
                       COPY(hostname);

                       size = (us - (char *) &usi[1]) + sizeof(ksi);

                       if ((error = copyout(&ksi, usi, sizeof(ksi))) != 0)
                               return error;
               }
               break;

       default:
               return (EOPNOTSUPP);
       }
       if (error)
               return (error);
       *retval = size;
       if (SCARG(uap, size))
               error = copyout((void *)&size, (void *)SCARG(uap, size),
                   sizeof(size));
       return (error);
}


/* ARGSUSED */
int
compat_43_sys_sethostid(struct lwp *l, const struct compat_43_sys_sethostid_args *uap, register_t *retval)
{
       long uhostid;
       int name[2];

       uhostid = SCARG(uap, hostid);
       name[0] = CTL_KERN;
       name[1] = KERN_HOSTID;

       return (old_sysctl(&name[0], 2, 0, 0, &uhostid, sizeof(long), l));
}


/* ARGSUSED */
int
compat_43_sys_sethostname(struct lwp *l, const struct compat_43_sys_sethostname_args *uap, register_t *retval)
{
       int name[2];

       name[0] = CTL_KERN;
       name[1] = KERN_HOSTNAME;
       return (old_sysctl(&name[0], 2, 0, 0, SCARG(uap, hostname),
                          SCARG(uap, len), l));
}

int
kern_info_43_init(void)
{

       return syscall_establish(NULL, kern_info_43_syscalls);
}

int
kern_info_43_fini(void)
{

       return syscall_disestablish(NULL, kern_info_43_syscalls);
}