librols/stdio/cvmod.c

   1 /*
   2  * This file has been modified for the cdrkit suite.
   3  *
   4  * The behaviour and appearence of the program code below can differ to a major
   5  * extent from the version distributed by the original author(s).
   6  *
   7  * For details, see Changelog file distributed with the cdrkit package. If you
   8  * received this file from another source then ask the distributing person for
   9  * a log of modifications.
  10  *
  11  */
  12
  13 /* @(#)cvmod.c  2.9 04/08/08 Copyright 1986, 1995-2003 J. Schilling */
  14 /*
  15  *      Copyright (c) 1986, 1995-2003 J. Schilling
  16  */
  17 /*
  18  * This program is free software; you can redistribute it and/or modify
  19  * it under the terms of the GNU General Public License version 2
  20  * as published by the Free Software Foundation.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  *
  27  * You should have received a copy of the GNU General Public License along with
  28  * this program; see the file COPYING.  If not, write to the Free Software
  29  * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  30  */
  31
  32 #include "schilyio.h"
  33
  34 #ifndef O_BINARY
  35 #define O_BINARY        0
  36 #endif
  37 #ifndef O_LARGEFILE
  38 #define O_LARGEFILE     0
  39 #endif
  40
  41 EXPORT int
  42 _cvmod(mode, omode, flag)
  43         const char      *mode;
  44         int             *omode;
  45         int             *flag;
  46 {
  47         while (*mode) {
  48                 switch (*mode) {
  49
  50                 case 'r':   *omode |= O_RDONLY; *flag |= FI_READ;       break;
  51                 case 'w':   *omode |= O_WRONLY; *flag |= FI_WRITE;      break;
  52                 case 'e':   *omode |= O_EXCL;                           break;
  53                 case 'c':   *omode |= O_CREAT;  *flag |= FI_CREATE;     break;
  54                 case 't':   *omode |= O_TRUNC;  *flag |= FI_TRUNC;      break;
  55                 case 'a':   *omode |= O_APPEND; *flag |= FI_APPEND;     break;
  56                 case 'u':                       *flag |= FI_UNBUF;      break;
  57                         /* dummy on UNIX */
  58                 case 'b':   *omode |= O_BINARY; *flag |= FI_BINARY;     break;
  59                         /*
  60                          * XXX do we need this ?
  61                          * XXX May this be a problem?
  62                          */
  63                 case 'l':   *omode |= O_LARGEFILE;                      break;
  64                 default:    raisecond(_badmode, 0L);
  65                             return (0);
  66                 }
  67                 mode++;
  68         }
  69         if (*flag & FI_READ && *flag & FI_WRITE) {
  70                 *omode &= ~(O_RDONLY|O_WRONLY);
  71                 *omode |= O_RDWR;
  72         }
  73         return (1);
  74 }