aboutsummaryrefslogtreecommitdiff
path: root/Examples/test-suite/scilab_identifier_name.i
blob: 4e5a574e92570a58aedd3a27b3ff92dc1b115039 (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
49
50
51
52
53
%module scilab_identifier_name

//
// Test long identifier name (> 24 characters) truncating
//

// Test truncating variables, constants, functions identifier names

%inline %{
// these identifier names won't be truncated
int gvar_identifier_name = -1;
#define CONS_IDENTIFIER_NAME -11
int function_identifier_name() { return -21; };

// these identifier names will be truncated
int too_long_gvar_identifier_name_1 = 1;
int too_long_gvar_identifier_name_2 = 2;

#define TOO_LONG_CONST_IDENTIFIER_NAME_1 11

int too_long_function_identifier_name_1() { return 21; };
%}

// Test truncating when %scilabconst mode is activated
%scilabconst(1);

%inline %{
#define SC_CONST_IDENTIFIER_NAME -12;

#define SC_TOO_LONG_CONST_IDENTIFIER_NAME_1 13
#define SC_TOO_LONG_CONST_IDENTIFIER_NAME_2 14
%}
%scilabconst(0);

// Test truncating in the case of struct
%inline %{
struct st {
  int m_identifier_name;
  int too_long_member_identifier_name;
};

%}