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