wcstod no more convert d and D characters
[scilab.git] / scilab / modules / string / src / c / convstr.c
1
2 /*
3  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4  * Copyright (C) INRIA - Cong WU
5  * Copyright (C) INRIA - Allan CORNET
6  *
7  * Copyright (C) 2012 - 2016 - Scilab Enterprises
8  *
9  * This file is hereby licensed under the terms of the GNU GPL v2.0,
10  * pursuant to article 5.3.4 of the CeCILL v.2.1.
11  * This file was originally licensed under the terms of the CeCILL v2.1,
12  * and continues to be available under such terms.
13  * For more information, see the COPYING file which you should have received
14  * along with this program.
15  *
16  */
17
18 /*--------------------------------------------------------------------------*/
19 #include <string.h>
20 #include <stdio.h>
21 #include <ctype.h>
22 #include <wchar.h>
23 #include <wctype.h>
24 #include "convstr.h"
25 /*--------------------------------------------------------------------------*/
26 void convstr(wchar_t **Input_Matrix, wchar_t **Output_Matrix, char typ, int mn)
27 {
28     int x = 0;
29     for (x = 0 ; x < mn; x++)
30     {
31         int y = 0;
32         size_t len_Input_Matrix = wcslen(Input_Matrix[x]);
33         for (y = 0; y < len_Input_Matrix; y++)
34         {
35             /*To traverse every string in the string matrix */
36             if ( (typ == UPPER) || (typ == UPPER_B) )
37             {
38                 /*converts the matrix of strings  str-matrix into upper case */
39                 Output_Matrix[x][y] = (wchar_t) towupper(Input_Matrix[x][y]);
40             }
41             else if ( (typ == LOW) || (typ == LOW_B) )
42             {
43                 /*converts the matrix of strings  str-matrix  into lower case */
44                 Output_Matrix[x][y] = (wchar_t) towlower(Input_Matrix[x][y]);
45             }
46         }
47         Output_Matrix[x][y] = 0;
48     }
49 }
50 /*--------------------------------------------------------------------------*/