* Bug #15018 fixed - Fileio: mfprintf '\n' not working
[scilab.git] / scilab / modules / fileio / src / cpp / mputl.cpp
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2010 - DIGITEO - Allan CORNET
4 *
5  * Copyright (C) 2012 - 2016 - Scilab Enterprises
6  *
7  * This file is hereby licensed under the terms of the GNU GPL v2.0,
8  * pursuant to article 5.3.4 of the CeCILL v.2.1.
9  * This file was originally licensed under the terms of the CeCILL v2.1,
10  * and continues to be available under such terms.
11  * For more information, see the COPYING file which you should have received
12  * along with this program.
13 *
14 */
15 /*--------------------------------------------------------------------------*/
16 #include <string.h>
17 #include <stdio.h>
18 #include "filemanager.hxx"
19 #include "sciprint.h"
20 #include <fcntl.h>
21
22 extern "C"
23 {
24 #include "mputl.h"
25 #include "sci_malloc.h"
26 #include "charEncoding.h"
27 }
28 /*--------------------------------------------------------------------------*/
29 #define MPUTL_FORMAT "%s\n"
30 /*--------------------------------------------------------------------------*/
31 mputlError mputl(int _iFileId, wchar_t **pstStrings, int _iSizeStrings, BOOL _CR)
32 {
33     int i = 0;
34     types::File* pF = NULL;
35
36     if (pstStrings == NULL)
37     {
38         return MPUTL_ERROR;
39     }
40
41     if (_iFileId == STDIN_ID)
42     {
43         return MPUTL_INVALID_FILE_DESCRIPTOR;
44     }
45     else
46     {
47         pF = FileManager::getFile(_iFileId);
48         if (pF)
49         {
50             // file opened with fortran open function
51             if (pF->getFileType() == 1)
52             {
53                 return MPUTL_ERROR;
54             }
55
56             if ((pF->getFileModeAsInt() >= 100) && (pF->getFileModeAsInt() < 200) && ((pF->getFileModeAsInt() % 100) < 10) /* not r+ */)
57             {
58                 return MPUTL_NO_WRITE_RIGHT;
59             }
60         }
61         else
62         {
63             return MPUTL_INVALID_FILE_DESCRIPTOR;
64         }
65     }
66
67     for (i = 0; i < _iSizeStrings; i++)
68     {
69         char* pstTemp = NULL;
70         pstTemp = wide_string_to_UTF8(pstStrings[i]);
71         int iRet = fputs(pstTemp, pF->getFiledesc());
72         FREE(pstTemp);
73         if (iRet == -1)
74         {
75             return MPUTL_ERROR;
76         }
77         if ((i != _iSizeStrings-1) || _CR)
78         {
79             iRet = fputs("\n", pF->getFiledesc());
80             if (iRet == -1)
81             {
82                 return MPUTL_ERROR;
83             }
84         }
85     }
86
87     return MPUTL_NO_ERROR;
88 }
89 /*--------------------------------------------------------------------------*/
90