Imported Upstream version 1.1.11
[platform/upstream/cdrkit.git] / librols / stdio / filemopen.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 /* @(#)filemopen.c      1.4 05/08/18 Copyright 1986, 1995-2005 J. Schilling */
14 /*
15  *      Copyright (c) 1986, 1995-2005 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 EXPORT FILE *
35 #ifdef  PROTOTYPES
36 filemopen(const char *name, const char *mode, mode_t cmode)
37 #else
38 filemopen(name, mode, cmode)
39         const char      *name;
40         const char      *mode;
41         mode_t          cmode;
42 #endif
43 {
44         int     ret;
45         int     omode = 0;
46         int     flag = 0;
47
48         if (!_cvmod(mode, &omode, &flag))
49                 return ((FILE *) NULL);
50
51         if ((ret = open(name, omode, cmode)) < 0)
52                 return ((FILE *) NULL);
53
54         return (_fcons((FILE *)0, ret, flag | FI_CLOSE));
55 }