393391965c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10290 626c5289-ae23-0410-ae9c-e8d60b6d4f22
25 lines
379 B
Mathematica
25 lines
379 B
Mathematica
array_member
|
|
|
|
f = Foo();
|
|
f.data = cvar.global_data;
|
|
|
|
for i=0:7,
|
|
if (get_value(f.data,i) != get_value(cvar.global_data,i))
|
|
error("Bad array assignment");
|
|
endif
|
|
endfor
|
|
|
|
for i=0:7,
|
|
set_value(f.data,i,-i);
|
|
endfor
|
|
|
|
cvar.global_data = f.data;
|
|
|
|
for i=0:7,
|
|
if (get_value(f.data,i) != get_value(cvar.global_data,i))
|
|
error("Bad array assignment")
|
|
endif
|
|
endfor
|
|
|
|
|
|
|