Update to 2.0.0 tree from current Fremantle build

[opencv] / interfaces / swig / octave / ml.i

diff --git a/interfaces/swig/octave/ml.i b/interfaces/swig/octave/ml.i
new file mode 100644 (file)
index 0000000..2e81d0f
--- /dev/null
+++ b/interfaces/swig/octave/ml.i
@@ -0,0 +1,98 @@
+/*M///////////////////////////////////////////////////////////////////////////////////////
+//
+//  IMPORTANT: READ BEFORE DOWNLOADING, COPYING, INSTALLING OR USING.
+//
+//  By downloading, copying, installing or using the software you agree to this license.
+//  If you do not agree to this license, do not download, install,
+//  copy or use the software.
+//
+//
+//                        Intel License Agreement
+//                For Open Source Computer Vision Library
+//
+// Copyright (C) 2000, Intel Corporation, all rights reserved.
+// Third party copyrights are property of their respective owners.
+//
+// Redistribution and use in source and binary forms, with or without modification,
+// are permitted provided that the following conditions are met:
+//
+//   * Redistribution's of source code must retain the above copyright notice,
+//     this list of conditions and the following disclaimer.
+//
+//   * Redistribution's in binary form must reproduce the above copyright notice,
+//     this list of conditions and the following disclaimer in the documentation
+//     and/or other materials provided with the distribution.
+//
+//   * The name of Intel Corporation may not be used to endorse or promote products
+//     derived from this software without specific prior written permission.
+//
+// This software is provided by the copyright holders and contributors "as is" and
+// any express or implied warranties, including, but not limited to, the implied
+// warranties of merchantability and fitness for a particular purpose are disclaimed.
+// In no event shall the Intel Corporation or contributors be liable for any direct,
+// indirect, incidental, special, exemplary, or consequential damages
+// (including, but not limited to, procurement of substitute goods or services;
+// loss of use, data, or profits; or business interruption) however caused
+// and on any theory of liability, whether in contract, strict liability,
+// or tort (including negligence or otherwise) arising in any way out of
+// the use of this software, even if advised of the possibility of such damage.
+//
+//M*/
+
+
+// 2004-03-16, Mark Asbach       <asbach@ient.rwth-aachen.de>
+//             Institute of Communications Engineering, RWTH Aachen University
+
+%module(package="opencv") ml
+
+// todo remove these..
+#pragma SWIG nowarn=312,362,303,365,366,367,368,370,371,372,451,454,503
+
+%{
+#include <ml.h>
+#include <cxtypes.h>
+#include <cv.h>
+#include <highgui.h>
+#include "octhelpers.h"
+#include "octcvseq.hpp"
+%}
+
+// include octave-specific files
+%include "./octtypemaps.i"
+%include "exception.i"
+
+%import "../general/cv.i"
+
+%include "../general/memory.i"
+%include "../general/typemaps.i"
+
+%newobject cvCreateCNNConvolutionLayer;
+%newobject cvCreateCNNSubSamplingLayer;
+%newobject cvCreateCNNFullConnectLayer;
+%newobject cvCreateCNNetwork;
+%newobject cvTrainCNNClassifier;
+
+%newobject cvCreateCrossValidationEstimateModel;
+
+
+%extend CvEM
+{
+  octave_value get_covs()
+    {
+      CvMat ** pointers = const_cast<CvMat **> (self->get_covs());
+      int n = self->get_nclusters();
+
+      octave_value result = OctTuple_New(n);
+      for (int i=0; i<n; ++i)
+       {
+         octave_value obj = SWIG_NewPointerObj(pointers[i], $descriptor(CvMat *), 0);
+         OctTuple_SetItem(result, i, obj);
+       }
+       
+      return result;
+    }
+}
+
+%ignore CvEM::get_covs;
+
+%include "ml.h"