mirror of https://github.com/swig/swig
54 lines
953 B
OpenEdge ABL
54 lines
953 B
OpenEdge ABL
%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;
|
|
};
|
|
|
|
%}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|