blob: ec70011b03be2aa1f51a556ba4e5b797beb169d1 (
plain)
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
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA - Allan CORNET
* Copyright (C) DIGITEO - 2010 - Allan CORNET
*
* 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 <string.h>
#include "setScilabCharactersCodes.h"
#include "stack-def.h"
/*--------------------------------------------------------------------------*/
void setScilabCharactersCodes(void)
{
const char alpha[csiz] =
{
"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
"a" "b" "c" "d" "e" "f" "g" "h" "i" "j"
"k" "l" "m" "n" "o" "p" "q" "r" "s" "t"
"u" "v" "w" "x" "y" "z" "_" "#" "!" "$"
" " "(" ")" ";" ":" "+" "-" "*" "/" "\\"
"=" "." "," "'" "[" "]" "%" "|" "&" "<"
">" "~" "^"
};
const char alphb[csiz] =
{
"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
"A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
"K" "L" "M" "N" "O" "P" "Q" "R" "S" "T"
"U" "V" "W" "X" "Y" "Z" "0" "0" "?" "0"
"\t" "0" "0" "0" "0" "0" "0" "0" "0" "$"
"0" "0" "0" "\"" "{" "}" "0" "0" "0" "`"
"0" "@" "0"
};
memcpy(C2F(cha1).alfa, alpha, sizeof(alpha));
memcpy(C2F(cha1).alfb, alphb, sizeof(alphb));
C2F(cha1).buf[0] = 0;
}
/*--------------------------------------------------------------------------*/
|
