wcstod no more convert d and D characters
[scilab.git] / scilab / modules / string / src / c / isascii.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA - Allan CORNET
4  * Copyright (C) DIGITEO - Allan CORNET - 2009
5  *
6  * Copyright (C) 2012 - 2016 - Scilab Enterprises
7  *
8  * This file is hereby licensed under the terms of the GNU GPL v2.0,
9  * pursuant to article 5.3.4 of the CeCILL v.2.1.
10  * This file was originally licensed under the terms of the CeCILL v2.1,
11  * and continues to be available under such terms.
12  * For more information, see the COPYING file which you should have received
13  * along with this program.
14  *
15  */
16
17 /*--------------------------------------------------------------------------*/
18 #include <string.h>
19 #include "isascii.h"
20 #include "sci_malloc.h"
21 /*--------------------------------------------------------------------------*/
22 BOOL* isasciiStringW(wchar_t* input_string, int* returnedSize)
23 {
24     BOOL *returnedValues = NULL;
25     *returnedSize = 0;
26
27     if (input_string)
28     {
29         int i = 0;
30         int length_input_string = (int)wcslen(input_string);
31         *returnedSize = length_input_string;
32
33         if (length_input_string > 0)
34         {
35             returnedValues = (BOOL*)MALLOC(sizeof(BOOL) * length_input_string);
36             if (returnedValues)
37             {
38                 for (i = 0; i < length_input_string; i++)
39                 {
40                     if ( iswascii(input_string[i]) )
41                     {
42                         returnedValues[i] = TRUE;
43                     }
44                     else
45                     {
46                         returnedValues[i] = FALSE;
47                     }
48                 }
49             }
50         }
51     }
52     return returnedValues;
53 }
54
55 BOOL* isasciiMatrix(double* inputValues, int inputSize)
56 {
57     BOOL *returnedValues = NULL;
58     if (inputSize && inputValues != NULL)
59     {
60         int i = 0;
61         returnedValues = (BOOL*)MALLOC(sizeof(BOOL) * inputSize);
62         if (returnedValues)
63         {
64             for (i = 0; i < inputSize; i++)
65             {
66                 if ( iswascii(inputValues[i]) )
67                 {
68                     returnedValues[i] = TRUE;
69                 }
70                 else
71                 {
72                     returnedValues[i] = FALSE;
73                 }
74             }
75         }
76     }
77     return returnedValues;
78 }
79 /*--------------------------------------------------------------------------*/