Standard Libraries for EDK II.

[mirror_edk2.git] / StdLib / LibC / Stdio / fdopen.c

/*  $NetBSD: fdopen.c,v 1.14 2003/08/07 16:43:22 agc Exp $  */\r
\r
/*-\r
 * Copyright (c) 1990, 1993\r
 *  The Regents of the University of California.  All rights reserved.\r
 *\r
 * This code is derived from software contributed to Berkeley by\r
 * Chris Torek.\r
 *\r
 * Redistribution and use in source and binary forms, with or without\r
 * modification, are permitted provided that the following conditions\r
 * are met:\r
 * 1. Redistributions of source code must retain the above copyright\r
 *    notice, this list of conditions and the following disclaimer.\r
 * 2. Redistributions in binary form must reproduce the above copyright\r
 *    notice, this list of conditions and the following disclaimer in the\r
 *    documentation and/or other materials provided with the distribution.\r
 * 3. Neither the name of the University nor the names of its contributors\r
 *    may be used to endorse or promote products derived from this software\r
 *    without specific prior written permission.\r
 *\r
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND\r
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE\r
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\r
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS\r
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT\r
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY\r
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF\r
 * SUCH DAMAGE.\r
 */\r
#include  <LibConfig.h>\r
#include  <sys/EfiCdefs.h>\r
#if defined(LIBC_SCCS) && !defined(lint)\r
#if 0\r
static char sccsid[] = "@(#)fdopen.c  8.1 (Berkeley) 6/4/93";\r
#else\r
__RCSID("$NetBSD: fdopen.c,v 1.14 2003/08/07 16:43:22 agc Exp $");\r
#endif\r
#endif /* LIBC_SCCS and not lint */\r
\r
#include  "namespace.h"\r
#include  <sys/types.h>\r
\r
#include  <assert.h>\r
#include  <errno.h>\r
#include  <fcntl.h>\r
#include  <sys/EfiSysCall.h>\r
#include  <stdio.h>\r
\r
#include  "reentrant.h"\r
#include  "local.h"\r
\r
#ifdef __weak_alias\r
__weak_alias(fdopen,_fdopen)\r
#endif\r
\r
FILE *\r
fdopen(int fd, const char *mode)\r
{\r
  FILE *fp;\r
  int flags, oflags, fdflags, tmp;\r
\r
  _DIAGASSERT(fd != -1);\r
\r
  if ((flags = __sflags(mode, &oflags)) == 0)\r
    return (NULL);\r
\r
  /* Make sure the mode the user wants is a subset of the actual mode. */\r
  if ((fdflags = fcntl(fd, F_GETFL, 0)) < 0)\r
    return (NULL);\r
  tmp = fdflags & O_ACCMODE;\r
  if (tmp != O_RDWR && (tmp != (oflags & O_ACCMODE))) {\r
    errno = EINVAL;\r
    return (NULL);\r
  }\r
\r
  if (oflags & O_NONBLOCK) {\r
    struct stat st;\r
    if (fstat(fd, &st) == -1) {\r
      return (NULL);\r
    }\r
    if (!S_ISREG(st.st_mode)) {\r
      errno = EFTYPE;\r
      return (NULL);\r
    }\r
  }\r
\r
  if ((fp = __sfp()) == NULL)\r
    return (NULL);\r
  fp->_flags = (unsigned short)flags;\r
  /*\r
   * If opened for appending, but underlying descriptor does not have\r
   * O_APPEND bit set, assert __SAPP so that __swrite() will lseek to\r
   * end before each write.\r
   */\r
  if ((oflags & O_APPEND) && !(fdflags & O_APPEND))\r
    fp->_flags |= __SAPP;\r
  fp->_file = (short)fd;\r
  fp->_cookie = fp;\r
  fp->_read = __sread;\r
  fp->_write = __swrite;\r
  fp->_seek = __sseek;\r
  fp->_close = __sclose;\r
  return (fp);\r
}\r