/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 * Copyright 2024 Oxide Computer Company
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

#include "lint.h"
#include <sys/param.h>
#include <sys/sockio.h>
#include <sys/filio.h>
#include <sys/file.h>
#include <sys/types.h>
#include <fcntl.h>
#include <signal.h>
#include <sys/stat.h>
#include <sys/stropts.h>
#include <sys/socket.h>
#include <sys/stropts.h>
#include <sys/stream.h>
#include <sys/socketvar.h>
#include <sys/syscall.h>
#include <errno.h>
#include <stdio.h>
#include <stdarg.h>
#include <unistd.h>
#include <string.h>
#include <stdlib.h>
#include "libc.h"

#if !defined(_LP64)
/*
 * XXX these hacks are needed for X.25 which assumes that s_fcntl and
 * s_ioctl exist in the socket library.
 * There is no need for s_ioctl for other purposes.
 */
#pragma weak s_fcntl = __fcntl
#pragma weak _s_fcntl = __fcntl
int
s_ioctl(int fd, int cmd, intptr_t arg)
{
        return (ioctl(fd, cmd, arg));
}
#endif  /* _LP64 */

int
__fcntl(int fd, int cmd, ...)
{
        int     res;
        int     pid;
        intptr_t arg, arg1 = 0;
        va_list ap;

        /*
         * The fcntl(2) entry points are responsible for marshalling arguments
         * into intptr_t sized objects prior to calling this. The kernel only
         * works in terms of intptr_t sized arguments; however, some calls (like
         * F_DUP3FD) are in terms of two int sized arguments.
         */
        va_start(ap, cmd);
        arg = va_arg(ap, intptr_t);
        if (cmd == F_DUP3FD) {
                arg1 = va_arg(ap, intptr_t);
        }
        va_end(ap);

        switch (cmd) {
        case F_SETOWN:
                pid = (int)arg;
                return (ioctl(fd, FIOSETOWN, &pid));

        case F_GETOWN:
                if (ioctl(fd, FIOGETOWN, &res) < 0)
                        return (-1);
                return (res);

        default:
                return (syscall(SYS_fcntl, fd, cmd, arg, arg1));
        }
}