wcstod no more convert d and D characters
[scilab.git] / scilab / modules / string / src / c / isdigit.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA - 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 /*--------------------------------------------------------------------------*/
17 #include <string.h>
18 #include <wchar.h>
19 #include <wctype.h>
20 #include "isletter.h"
21 #include "sci_malloc.h"
22 #include "isdigit.h"
23 /*--------------------------------------------------------------------------*/
24 BOOL *IsDigitW(wchar_t *input_string, int *returnedSizeArray)
25 {
26     BOOL *returnedValues = NULL;
27     *returnedSizeArray = 0;
28
29     if (input_string)
30     {
31         int i = 0;
32         int length_input_string = (int)wcslen(input_string);
33         *returnedSizeArray = length_input_string;
34
35         if (length_input_string > 0)
36         {
37             returnedValues = (BOOL*)MALLOC(sizeof(BOOL) * length_input_string);
38             if (returnedValues)
39             {
40                 for (i = 0; i < length_input_string; i++)
41                 {
42                     if ( iswdigit(input_string[i]) )
43                     {
44                         returnedValues[i] = TRUE;
45                     }
46                     else
47                     {
48                         returnedValues[i] = FALSE;
49                     }
50                 }
51             }
52         }
53     }
54     return returnedValues;
55 }
56 /*--------------------------------------------------------------------------*/