add extra logic to the octave_swig_type::dims(void) method: it checks if the user has defined a __dims__ method and uses this in stead of returning (1,1) (patch from jgillis, sf 3425993)

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12955 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/test-suite/octave/Makefile.in

@@ -12,7 +12,8 @@ top_builddir = @top_builddir@
 CPP_TEST_CASES += \
 	li_std_pair_extra \
 	li_std_string_extra \
-	octave_cell_deref
+	octave_cell_deref\
+	octave_dim
 
 CPP_TEST_BROKEN += \
 	implicittest \

Examples/test-suite/octave/octave_dim_runme.m

@@ -0,0 +1,18 @@
+octave_dim
+
+assert(all(size(Foo45a())==[4 5]));
+assert(all(size(Foo456a())==[4 5 6]));
+assert(all(size(Foo4a())==[4 1]));
+assert(all(size(Foo4b())==[4 1]));
+assert(all(size(Foo())==[1 1]));
+assert(all(size(Bar1())==[1 1]));
+assert(all(size(Bar2())==[1 1]));
+assert(all(size(Baz1())==[3 4]));
+assert(all(size(Baz2())==[3 4]));
+assert(all(size(Baz3())==[3 4]));
+assert(all(size(Baz4())==[3 4]));
+
+% Assertions will not work, but kept for future reference.
+%assert(all(size(Baz5())==[3 4]));
+%assert(all(size(Baz6())==[3 4]));
+%assert(all(size(Baz7())==[3 4]));

Examples/test-suite/octave_dim.i

@@ -0,0 +1,160 @@
+%module octave_dim
+
+%include "std_vector.i"
+
+namespace std {
+    %template(IntVector) vector<int>;
+}
+
+
+%typemap(out) Matrix {
+  $result = $1;
+}
+
+// Code below will not work. Kept for future reference.
+// Reason: there is no octave_value(Array<octave_idx_type>) constructor
+//%typemap(out) Array<octave_idx_type> {
+//  $result = octave_value($1,true);
+//}
+
+
+%inline %{
+
+class Foo45a {
+public:
+  std::vector<int> __dims__() const {
+    std::vector<int> ret(2);
+    ret[0] = 4;
+    ret[1] = 5;
+    return ret;
+  }
+};
+
+// doubles are not converted to ints.
+class Bar1 {
+public:
+  std::vector<double> __dims__() const {
+    std::vector<double> ret(2);
+    ret[0] = 4;
+    ret[1] = 5;
+    return ret;
+  }
+};
+
+class Bar2 {
+public:
+  std::string __dims__() const {
+    return "foo";
+  }
+};
+
+
+class Foo4a {
+public:
+  std::vector<int> __dims__() const {
+    std::vector<int> ret(1);
+    ret[0] = 4;
+    return ret;
+  }
+};
+
+class Foo4b {
+public:
+  int __dims__() const {
+    return 4;
+  }
+};
+
+class Foo456a {
+public:
+  std::vector<int> __dims__() const {
+    std::vector<int> ret(3);
+    ret[0] = 4;
+    ret[1] = 5;
+    ret[2] = 6;
+    return ret;
+  }
+};
+
+
+
+
+class Foo {
+
+};
+
+
+class Baz1 {
+public:
+  Cell __dims__() const {
+    Cell c(1,2);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+class Baz2 {
+public:
+  Cell __dims__() const {
+    Cell c(2,1);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+class Baz3 {
+public:
+  Matrix __dims__() const {
+    Matrix c(2,1);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+class Baz4 {
+public:
+  Matrix __dims__() const {
+    Matrix c(1,2);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+class Baz5 {
+public:
+  Array<octave_idx_type> __dims__() const {
+    Array<octave_idx_type> c(2,1);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+class Baz6 {
+public:
+  Array<octave_idx_type> __dims__() const {
+    Array<octave_idx_type> c(1,2);
+    c(0) = 3;
+    c(1) = 4;
+    return c;
+  }
+};
+
+// Code below will not work. Kept for future reference.
+// Reason: there is no octave_value(dim_vector) constructor
+// class Baz7 {
+//public:
+//  dim_vector __dims__() const {
+//    octave_value v = dim_vector(3,4);
+//    Array<int> a = v.int_vector_value();
+//   if (error_state) return dim_vector(1,1);
+//    int mysize = a.numel();
+//    return dim_vector(3,4);
+//  }
+//};
+
+%}