1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA - Allan CORNET , Cong WU
* Copyright (C) Bruno PINÇON
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
*
*/
/*--------------------------------------------------------------------------*/
#include "getfastcode.h"
#include "stack-def.h"
#include "core_math.h"
/*--------------------------------------------------------------------------*/
/**
* Scilab not uses ASCII code in internal kernel
* TO DO : Remove this with a new kernel
* To understand Scilab coding style :
* scilab code --> ascii code
* 0 --> 0
* 9 --> 9
* 10 --> a
* 35 --> z
* -10 --> A
* -35 --> Z
*/
#define NUMBER_INTERNAL_CHARACTERS 128
static int INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[NUMBER_INTERNAL_CHARACTERS] =
{
100, 101, 102, 103, 104, 105, 106, 107, 108, -40,
110, 111, 112, 113, 114, 115, 116, 117, 118, 119,
120, 121, 122, 123, 124, 125, 126, 127, 128, 129,
130, 131, 40, 38, -53, 37, 39, 56, 58, 53,
41, 42, 47, 45, 52, 46, 51, 48, 0, 1,
2, 3, 4, 5, 6, 7, 8, 9, 44, 43,
59, 50, 60, -38, -61, -10, -11, -12, -13, -14,
-15, -16, -17, -18, -19, -20, -21, -22, -23, -24,
-25, -26, -27, -28, -29, -30, -31, -32, -33, -34,
-35, 54, 49, 55, 62, 36, -59, 10, 11, 12,
13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
33, 34, 35, -54, 57, -55, 61, 227
};
/*--------------------------------------------------------------------------*/
int C2F(getfastcode)(unsigned char *c, unsigned long c_len)
{
return convertAsciiCodeToScilabCode(c[0]);
}
/*--------------------------------------------------------------------------*/
int convertAsciiCodeToScilabCode(unsigned char scilab_char)
{
int k = (int)scilab_char ;
if (k < NUMBER_INTERNAL_CHARACTERS)
{
return INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[k];
}
else
{
return k + 100;
}
}
/*--------------------------------------------------------------------------*/
unsigned char convertScilabCodeToAsciiCode(int scilab_code)
{
#define eol 99
#define EXCLAMATION_CHAR '!'
if (scilab_code == eol)
{
return (unsigned char)EXCLAMATION_CHAR;
}
else
{
if (Abs(scilab_code) > csiz)
{
if (scilab_code > eol)
{
return (unsigned char)(scilab_code - (eol + 1));
}
else
{
return EXCLAMATION_CHAR;
}
}
else
{
if (scilab_code < 0)
{
return (unsigned char)C2F(cha1).alfb[Abs(scilab_code)];
}
else
{
return(unsigned char) C2F(cha1).alfa[scilab_code];
}
}
}
}
/*--------------------------------------------------------------------------*/
|
