jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scilab: support typed constants (U UL L) in scilabconst(1)

Browse source
This commit is contained in:
Simon Marchetto 2014-10-16 16:00:51 +02:00
commit 20fc167624
4 changed files with 70 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Examples/test-suite/scilab/scilab_consts_runme.sci
View file

@ -1,32 +1,35 @@
exec("swigtest.start", -1);
function checkConst(const_val, expected_type, expected_const_val)
if typeof(const_val) <> expected_type then swigtesterror(); end
if const_val <> expected_const_val then swigtesterror(); end
endfunction
checkequal(ICONST0_get(), 42, "ICONST0_get()");
checkequal(FCONST0_get(), 2.1828, "FCONST0_get()");
checkequal(CCONST0_get(), "x", "CCONST0_get()");
//checkequal(CCONST0_2_get(), "\n", "CCONST0_2_get()");
checkequal(SCONST0_get(), "Hello World", "SCONST0_get()");
checkequal(SCONST0_2_get(), """Hello World""", "SCONST0_2_get()");
checkequal(EXPR0_get(), 48.5484, "EXPR0_get()");
checkequal(iconst0_get(), 37, "iconst0_get()");
checkequal(fconst0_get(), 42.2, "fconst0_get()");
checkConst(ICONST0_get(), "constant", 42);
checkConst(FCONST0_get(), "constant", 2.1828);
checkConst(CCONST0_get(), "string", "x");
//checkConst(CCONST0_2_get(), "string", "\n");
checkConst(SCONST0_get(), "string", "Hello World");
checkConst(SCONST0_2_get(), "string", """Hello World""");
checkConst(EXPR0_get(), "constant", 48.5484);
checkConst(iconst0_get(), "constant", 37);
checkConst(fconst0_get(), "constant", 42.2);
checkequal(UNSIGNED0_get(), hex2dec("5FFF"), "UNSIGNED0_get()");
checkequal(LONG0_get(), hex2dec("3FFF0000"), "LONG0_get()");
checkequal(ULONG0_get(), hex2dec("5FF0000"), "ULONG0_get()");
if isdef('BAR0') then swigtesterror(); end
if isdef('BAR0') then swigtesterror("BAR0"); end
checkConst(ICONST1, "int32", 42);
checkConst(FCONST1, "constant", 2.1828);
checkConst(CCONST1, "string", "x");
//checkConst(CCONST1_2, "string", "\n");
checkConst(SCONST1, "string", "Hello World");
checkConst(SCONST1_2, "string", """Hello World""");
checkConst(EXPR1, "constant", 48.5484);
checkConst(iconst0_get(), "constant", 37);
checkConst(fconst0_get(), "constant", 42.2);
checkequal(ICONST1, int32(42), "ICONST1");
checkequal(FCONST1, 2.1828, "FCONST1");
checkequal(CCONST1, "x", "CCONST1");
//checkequal(CCONST1_2, "\n", "CCONST1_2");
checkequal(SCONST1, "Hello World", "SCONST1");
checkequal(SCONST1_2, """Hello World""", "SCONST1_2");
checkequal(EXPR1, 48.5484, "EXPR1");
checkequal(iconst1, int32(37), "iconst1");
checkequal(fconst1, 42.2, "fconst1");
if isdef('BAR1') then swigtesterror(); end
checkequal(UNSIGNED1, uint32(hex2dec("5FFF")), "UNSIGNED1");
checkequal(LONG1, int32(hex2dec("3FFF0000")), "LONG1");
checkequal(ULONG1, uint32(hex2dec("5FF0000")), "ULONG1");
if isdef('BAR1') then swigtesterror("BAR1"); end
exec("swigtest.quit", -1);

10
Examples/test-suite/scilab_consts.i
View file

@ -10,6 +10,11 @@
#define SCONST0 "Hello World"
#define SCONST0_2 "\"Hello World\""
/* Constants with type */
#define UNSIGNED0 0x5FFFU
#define LONG0 0x3FFF0000L
#define ULONG0 0x5FF0000UL
/* Expressions should work too */
#define EXPR0 ICONST0 + 3*FCONST0
@ -31,6 +36,11 @@
#define SCONST1 "Hello World"
#define SCONST1_2 "\"Hello World\""
/* Constants with type */
#define UNSIGNED1 0x5FFFU
#define LONG1 0x3FFF0000L
#define ULONG1 0x5FF0000UL
/* Expressions should work too */
#define EXPR1 ICONST1 + 3*FCONST1