37 lines
533 B
Mathematica
37 lines
533 B
Mathematica
|
# do not dump Octave core
|
||
|
|
if exist("crash_dumps_octave_core", "builtin")
|
||
|
|
crash_dumps_octave_core(0);
|
||
|
|
endif
|
||
|
|
|
||
|
|
director_stl
|
||
|
|
|
||
|
|
MyFoo=@() subclass(director_stl.Foo(),\
|
||
|
|
'ping',@(self,s) "MyFoo::ping():" + s,\
|
||
|
|
'pident',@(self,arg) arg,\
|
||
|
|
'vident',@(self,v) v,\
|
||
|
|
'vidents',@(self,v) v,\
|
||
|
|
'vsecond',@(self,v1,v2) v2,\
|
||
|
|
);
|
||
|
|
|
||
|
|
a = MyFoo();
|
||
|
|
|
||
|
|
a.tping("hello");
|
||
|
|
a.tpong("hello");
|
||
|
|
|
||
|
|
p = {1,2}
|
||
|
|
a.pident(p);
|
||
|
|
v = {3,4}
|
||
|
|
a.vident(v);
|
||
|
|
|
||
|
|
a.tpident(p);
|
||
|
|
a.tvident(v);
|
||
|
|
|
||
|
|
v1 = {3,4};
|
||
|
|
v2 = {5,6};
|
||
|
|
a.tvsecond(v1,v2);
|
||
|
|
|
||
|
|
vs=("hi", "hello");
|
||
|
|
vs;
|
||
|
|
a.tvidents(vs);
|
||
|
|
|