swig/SWIG/Lib/ocaml/carray.i

template < class T > class SWIG_OCAML_ARRAY_WRAPPER {
public:
  SWIG_OCAML_ARRAY_WRAPPER( T *t ) : t(t) { }
  SWIG_OCAML_ARRAY_WRAPPER( T &t ) : t(&t) { }
  SWIG_OCAML_ARRAY_WRAPPER( T t[] ) : t(&t[0]) { }
  T &operator[]( int n ) { return t[n]; }
  SWIG_OCAML_ARRAY_WRAPPER offset( int elts ) {
	return SWIG_OCAML_ARRAY_WRAPPER( t + elts );
  }
  T *operator & () { return t; }
  void own() { owned = true; }
  void disown() { owned = false; }
  ~SWIG_OCAML_ARRAY_WRAPPER() {
    if( owned ) delete t;
  }

private:
  T *t;
  int owned;
};

%apply SWIGTYPE [ANY] {SWIG_OCAML_ARRAY_WRAPPER};