librols/stdio/fileluopen.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 /* @(#)fileluopen.c     1.17 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 /*
  35  * Note that because of a definition in schilyio.h we are using fseeko()/ftello()
  36  * instead of fseek()/ftell() if available.
  37  */
  38
  39 #ifndef O_NDELAY                /* This is undefined on BeOS :-( */
  40 #define O_NDELAY        0
  41 #endif
  42 #ifndef O_CREAT
  43 #define O_CREAT         0
  44 #endif
  45 #ifndef O_TRUNC
  46 #define O_TRUNC         0
  47 #endif
  48 #ifndef O_EXCL
  49 #define O_EXCL          0
  50 #endif
  51
  52 /*
  53  *      fileluopen - open a stream for lun
  54  */
  55 EXPORT FILE *
  56 fileluopen(f, mode)
  57         int             f;
  58         const char      *mode;
  59 {
  60         int     omode = 0;
  61         int     flag = 0;
  62
  63         if (!_cvmod(mode, &omode, &flag))
  64                 return ((FILE *) NULL);
  65
  66         if (omode & (O_NDELAY|O_CREAT|O_TRUNC|O_EXCL)) {
  67                 raisecond(_badmode, 0L);
  68                 return ((FILE *) NULL);
  69         }
  70
  71 #ifdef  F_GETFD
  72         if (fcntl(f, F_GETFD, 0) < 0) {
  73                 raisecond(_badfile, 0L);
  74                 return ((FILE *) NULL);
  75         }
  76 #endif
  77
  78 #ifdef  O_APPEND
  79         if (omode & O_APPEND)
  80                 lseek(f, (off_t)0, SEEK_END);
  81 #endif
  82
  83         return (_fcons((FILE *)0, f, flag));
  84 }