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

Initial commit of Octave module.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10290 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Xavier Delacour 2008-03-01 23:35:44 +00:00
commit 393391965c
275 changed files with 14004 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

91
Examples/test-suite/octave/reference_global_vars_runme.m Normal file
View file

@ -0,0 +1,91 @@
reference_global_vars
# const class reference variable
if (getconstTC().num != 33)
error
endif
# primitive reference variables
cvar.var_bool = createref_bool(false);
if (value_bool(cvar.var_bool) != 0)
error
endif
cvar.var_bool = createref_bool(true);
if (value_bool(cvar.var_bool) != 1)
error
endif
cvar.var_char = createref_char('w');
if (!strcmp(value_char(cvar.var_char),'w'))
error
endif
cvar.var_unsigned_char = createref_unsigned_char(10);
if (value_unsigned_char(cvar.var_unsigned_char) != 10)
error
endif
cvar.var_signed_char = createref_signed_char(10);
if (value_signed_char(cvar.var_signed_char) != 10)
error
endif
cvar.var_short = createref_short(10);
if (value_short(cvar.var_short) != 10)
error
endif
cvar.var_unsigned_short = createref_unsigned_short(10);
if (value_unsigned_short(cvar.var_unsigned_short) != 10)
error
endif
cvar.var_int = createref_int(10);
if (value_int(cvar.var_int) != 10)
error
endif
cvar.var_unsigned_int = createref_unsigned_int(10);
if (value_unsigned_int(cvar.var_unsigned_int) != 10)
error
endif
cvar.var_long = createref_long(10);
if (value_long(cvar.var_long) != 10)
error
endif
cvar.var_unsigned_long = createref_unsigned_long(10);
if (value_unsigned_long(cvar.var_unsigned_long) != 10)
error
endif
cvar.var_long_long = createref_long_long(int64(0x6FFFFFFFFFFFFFF8));
if (value_long_long(cvar.var_long_long) != int64(0x6FFFFFFFFFFFFFF8))
error
endif
#ull = abs(0xFFFFFFF2FFFFFFF0)
ull = uint64(55834574864);
cvar.var_unsigned_long_long = createref_unsigned_long_long(ull);
if (value_unsigned_long_long(cvar.var_unsigned_long_long) != ull)
error
endif
cvar.var_float = createref_float(10.5);
if (value_float(cvar.var_float) != 10.5)
error
endif
cvar.var_double = createref_double(10.5);
if (value_double(cvar.var_double) != 10.5)
error
endif
# class reference variable
cvar.var_TestClass = createref_TestClass(TestClass(20));
if (value_TestClass(cvar.var_TestClass).num != 20)
error
endif