mirror of https://github.com/swig/swig
53 lines
1.2 KiB
Matlab
53 lines
1.2 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));
|
|
# Above temporarily removed as broken in octave-7.2.0, see https://github.com/swig/swig/issues/2353
|