wcstod no more convert d and D characters
[scilab.git] / scilab / modules / string / src / c / getfastcode.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) INRIA - Allan CORNET , Cong WU
4  * Copyright (C) Bruno PINÇON
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 "getfastcode.h"
19 #include "core_math.h"
20 /*--------------------------------------------------------------------------*/
21 /**
22 * Scilab not uses ASCII code in internal kernel
23 * TO DO : Remove this with a new kernel
24 * To understand Scilab coding style :
25 * scilab code --> ascii code
26 *           0 --> 0
27 *           9 --> 9
28 *          10 --> a
29 *          35 --> z
30 *         -10 --> A
31 *         -35 --> Z
32 */
33 #define NUMBER_INTERNAL_CHARACTERS 128
34 static int INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[NUMBER_INTERNAL_CHARACTERS] =
35 {
36     100, 101, 102, 103, 104, 105, 106, 107, 108, -40,
37     110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
38     120, 121, 122, 123, 124, 125, 126, 127, 128, 129,
39     130, 131, 40, 38, -53, 37, 39, 56, 58, 53,
40     41, 42, 47, 45, 52, 46, 51, 48,  0,  1,
41     2,  3,  4,  5,  6,  7,  8,  9, 44, 43,
42     59, 50, 60, -38, -61, -10, -11, -12, -13, -14,
43     -15, -16, -17, -18, -19, -20, -21, -22, -23, -24,
44     -25, -26, -27, -28, -29, -30, -31, -32, -33, -34,
45     -35, 54, 49, 55, 62, 36, -59, 10, 11, 12,
46     13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
47     23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
48     33, 34, 35, -54, 57, -55, 61, 227
49 };
50 /*--------------------------------------------------------------------------*/
51 int C2F(getfastcode)(unsigned char *c, unsigned long c_len)
52 {
53     return convertAsciiCodeToScilabCode(c[0]);
54 }
55 /*--------------------------------------------------------------------------*/
56 int convertAsciiCodeToScilabCode(unsigned char scilab_char)
57 {
58     int k = (int)scilab_char ;
59     if (k < NUMBER_INTERNAL_CHARACTERS)
60     {
61         return INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[k];
62     }
63     else
64     {
65         return k + 100;
66     }
67 }
68 /*--------------------------------------------------------------------------*/
69 unsigned char convertScilabCodeToAsciiCode(int scilab_code)
70 {
71     return 0;
72 }
73 /*--------------------------------------------------------------------------*/