07be68a6f36472e617a8f9497eed477a5dee5841
[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  * This file must be used under the terms of the CeCILL.
8  * This source file is licensed as described in the file COPYING, which
9  * you should have received as part of this distribution.  The terms
10  * are also available at
11  * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
12  *
13  */
14
15 /*--------------------------------------------------------------------------*/
16 #include <string.h>
17 #include <stdio.h>
18 #include <ctype.h>
19 #include <wchar.h>
20 #include <wctype.h>
21 #include "convstr.h"
22 /*--------------------------------------------------------------------------*/
23 void convstr(wchar_t **Input_Matrix, wchar_t **Output_Matrix, char typ, int mn)
24 {
25     int x = 0;
26     for (x = 0 ; x < mn; x++)
27     {
28         int y = 0;
29         size_t len_Input_Matrix = wcslen(Input_Matrix[x]);
30         for (y = 0; y < len_Input_Matrix; y++)
31         {
32             /*To traverse every string in the string matrix */
33             if ( (typ == UPPER) || (typ == UPPER_B) )
34             {
35                 /*converts the matrix of strings  str-matrix into upper case */
36                 Output_Matrix[x][y] = (wchar_t) towupper(Input_Matrix[x][y]);
37             }
38             else if ( (typ == LOW) || (typ == LOW_B) )
39             {
40                 /*converts the matrix of strings  str-matrix  into lower case */
41                 Output_Matrix[x][y] = (wchar_t) towlower(Input_Matrix[x][y]);
42             }
43         }
44         Output_Matrix[x][y] = 0;
45     }
46 }
47 /*--------------------------------------------------------------------------*/