720c28f1ed
This test was disabled with 0a0743f25c since
it fails with octave 7.2.0
The test function horzcat now uses a variable length argument list to fix this.
Before octave 7 it seems to be possible to call a N-argument octave function
with > N arguments without any error. With octave 7 this seems no longer to be
possible which caused the test failure.
51 lines
1.1 KiB
Matlab
51 lines
1.1 KiB
Matlab
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
scriptDir = fileparts(mfilename('fullpath'));
|
|
addpath(scriptDir);
|
|
|
|
# Operator overloading example
|
|
swigexample
|
|
|
|
a = swigexample.ComplexVal(2,3);
|
|
b = swigexample.ComplexVal(-5,10);
|
|
|
|
printf("a = %s\n",disp(a));
|
|
printf("b = %s\n",disp(b));
|
|
|
|
c = a + b;
|
|
printf("c = %s\n",disp(c));
|
|
printf("a*b = %s\n",disp(a*b));
|
|
printf("a-c = %s\n",disp(a-c));
|
|
|
|
e = swigexample.ComplexVal(a-c);
|
|
printf("e = %s\n",disp(e));
|
|
|
|
# Big expression
|
|
f = ((a+b)*(c+b*e)) + (-a);
|
|
printf("f = %s\n",disp(f));
|
|
|
|
# paren overloading
|
|
printf("a(3)= %s\n",disp(a(3)));
|
|
|
|
# friend operator
|
|
printf("2*a = %s\n",disp(2*a));
|
|
|
|
# conversions
|
|
printf("single(a) = %g\n", single(a));
|
|
printf("double(a) = %g\n", double(a));
|
|
|
|
# unary functions
|
|
if swig_octave_prereq(3,8,0)
|
|
printf("real(a) = %g\n", real(a));
|
|
printf("imag(a) = %g\n", imag(a));
|
|
printf("abs(a) = %g\n", abs(a));
|
|
printf("conj(a) = %s\n", disp(conj(a)));
|
|
printf("exp(a) = %s\n", disp(exp(a)));
|
|
endif
|
|
|
|
# concatenation operator, note: calls @swig_ref/horzcat.m
|
|
g = [a, b, c];
|
|
printf("g = %s\n",disp(g));
|