/* FLAGS.C

  * 

  * Portions Copyright (c) 1990-1999 Nokia Corporation and/or its subsidiary(-ies).

  * All rights reserved.

  */

 /* No user fns here. Pesch 15apr92 */

 /*

  * Copyright (c) 1990 Regents of the University of California.

  * All rights reserved.

  *

  * Redistribution and use in source and binary forms are permitted

  * provided that the above copyright notice and this paragraph are

  * duplicated in all such forms and that any documentation,

  * advertising materials, and other materials related to such

  * distribution and use acknowledge that the software was developed

  * by the University of California, Berkeley.  The name of the

  * University may not be used to endorse or promote products derived

  * from this software without specific prior written permission.

  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED

  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

  */

 #include <stdio_r.h>

 #include <time.h>

 #include <fcntl.h>

 #include "LOCAL.H"

 #include <errno.h>

 #include <sys/types.h>

 /*

  * Return the (stdio) flags for a given mode.  Store the flags

  * to be passed to an open() syscall through *optr.

  * Return 0 on error.

  */

 int __sflags (struct _reent *ptr, const wchar_t *mode, int *optr)

 {

   register int ret, m, o;

   switch (mode[0])

     {

     case L'r':			/* open for reading */

       ret = __SRD;

       m = O_RDONLY;

       o = 0;

       break;

     case L'w':			/* open for writing */

       ret = __SWR;

       m = O_WRONLY;

       o = O_CREAT | O_TRUNC;

       break;

     case L'a':			/* open for appending */

       ret = __SWR | __SAPP;

       m = O_WRONLY;

       o = O_CREAT | O_APPEND;

       break;

     default:			/* illegal mode */

       ptr->_errno = EINVAL;

       return (0);

     }

   if (mode[1] == L'+' || mode[2] == L'+')

     {

       ret = __SRW;

       m = O_RDWR;

     }

   if (mode[1] == L'b' || mode[2] == L'b')

     {

       m |= O_BINARY;

     }

   else

     {

       m |= O_TEXT;

     }

   *optr = m | o;

   return ret;

 }