Changeset 756 for library/bdm/mex

Timestamp:

12/28/09 17:02:37 (14 years ago)

Author:

mido

Message:

odladen FindMatlab?.cmake
trida UImxConfig smazana a nahrazena statickou funkci UImxArray::create_mxArray(), a podle toho upravene zdrojaky
odstranen abort ze shared pointeru

Location:

library/bdm/mex

Files:

• config2mxstruct.h (deleted)
• mex_BM.h (modified) (3 diffs)
• mex_parser.h (modified) (3 diffs)

library/bdm/mex/mex_BM.h

@@ -1 +1 @@
 #include <estim/arx.h>
 #include <itpp/itmex.h>
-#include <mex/config2mxstruct.h>
 #include "mex_parser.h"
 
@@ -25 +24 @@
         mexEpdf() {};
         void from_setting ( const Setting &S )  {
-                name = ( const char * ) S["name"];
-                UImxConfig conf ( S );
-                data = mxDuplicateArray ( conf.mxconfig );
+                UIFile conf( ( const char * ) S["name"] );
+                data = UImxArray::create_mxArray( conf );
                 //mexCallMATLAB(1, &data, 0, 0, (name+"_new").c_str());
                 //TODO (future...):
@@ -63 +61 @@
         void from_setting ( const Setting &S )  {
                 BM::from_setting ( S );
-                name = ( const char * ) S["name"];
-                UImxConfig conf ( S );
-                data = mxDuplicateArray ( conf.mxconfig );
+
+                UIFile conf( ( const char * ) S["name"] );
+                data = UImxArray::create_mxArray( conf );
+
                 //string fname = name+"_new";
                 //mexCallMATLAB(1, &data, 0, 0, (name+"_new").c_str());

library/bdm/mex/mex_parser.h

@@ -22 +22 @@
                         mexErrMsgTxt ( "Given mxArray is not a struct." );
                 };
+
                 //mexCallMATLAB(0, NULL, 1, (mxArray **) &mxarray, "dump");
                 fillGroup ( setting, mxarray );
@@ -41 +42 @@
                 fillGroup ( child, mxarray );
         }
-        //! Operator for more convenient access to this Confic
+        //! Operator for more convenient access to this Config
         operator Setting&() {
                 return getRoot();
         }
+
 private:
         void storeNumeric ( Setting &setting, const mxArray *value, string key = "" ) {
@@ -135 +137 @@
                 }
         }
+
+public:
+        //! Convert existing Setting to Matlab arrays
+        static mxArray * create_mxArray( const Setting &setting )
+        {
+                return group2mxstruct ( setting );
+        }
+
+        //! Convert existing Setting to Matlab arrays
+        mxArray * create_mxArray(  )
+        {
+                return group2mxstruct ( *this );
+        }
+
+private:
+        //! Convert libconfig's array to Matlab vector
+        static mxArray* array2mxvector ( const Setting &setting )  {
+                if ( !setting.isArray() ) mexErrMsgTxt ( "Given setting is not an array" );
+                mxArray *result = mxCreateDoubleMatrix ( 1, setting.getLength(), mxREAL );
+                double *elements = mxGetPr ( result );
+                for ( int i = 0; i < setting.getLength(); i++ ) {
+                        if ( setting.getType() == Setting::TypeInt ) { //TODO: tady je chyba -- zaporna cisla nejsou TypeInt
+                                elements[i] = ( int ) setting[i];
+                        } else {
+                                elements[i] =  setting[i];
+                        }
+                }
+                return result;
+        }
+
+        //! Convert libconfig's array to Matlab matrix
+        static mxArray* list2mxmatrix ( const Setting &setting )  {
+                if ( !setting.isList() || ( strcmp ( "matrix", setting[0] ) != 0 ) )
+                        mexErrMsgTxt ( "Given setting is not a matrix" );
+                int rows = setting[1];
+                int cols = setting[2];
+                if ( setting[3].getLength() != rows*cols )
+                        mexErrMsgTxt ( "Matrix elements do not fit to rows*cols" );
+                double *elements = new double[rows*cols];
+                for ( int i = 0; i < rows*cols; i++ ) {
+                        elements[i] = setting[3][i];
+                }
+                mat &m = * ( new mat ( elements, rows, cols ) );
+                mxArray *result = mxCreateDoubleMatrix ( rows, cols, mxREAL );
+                mat2mxArray ( m, result );
+                delete &m;
+                delete [] elements;
+                return result;
+        }
+
+        //! Convert libconfig's gourp to Matlab structure
+        static mxArray* group2mxstruct ( const Setting &setting ) {
+                if ( !setting.isGroup() ) mexErrMsgTxt ( "Given setting is not a group." );
+                const char ** keys = new const char*[setting.getLength() ];
+                for ( int i = 0; i < setting.getLength(); i++ ) {
+                        keys[i] = setting[i].getName();
+                }
+                mxArray *result = mxCreateStructMatrix ( 1, 1, setting.getLength(), keys );
+                delete keys;
+                for ( int i = 0; i < setting.getLength(); i++ ) {
+                        Setting &value = setting[i];
+                        mxArray *old = mxGetFieldByNumber ( result, 0, i );
+                        if ( old ) mxDestroyArray ( old );
+                        switch ( value.getType() ) {
+                        case Setting::TypeString:
+                                mxSetFieldByNumber ( result, 0, i, mxCreateString ( value ) );
+                                break;
+                        case Setting::TypeBoolean:
+                                mxSetFieldByNumber ( result, 0, i, mxCreateLogicalScalar ( value ) );
+                                break;
+                        case Setting::TypeGroup:
+                                mxSetFieldByNumber ( result, 0, i, group2mxstruct ( value ) );
+                                break;
+                        case Setting::TypeList:
+                                mxSetFieldByNumber ( result, 0, i, list2mxcell ( value ) );
+                                break;
+                        case Setting::TypeArray:
+                                mxSetFieldByNumber ( result, 0, i, array2mxvector ( value ) );
+                                break;
+                        case Setting::TypeInt:
+                        case Setting::TypeInt64:
+                                mxSetFieldByNumber ( result, 0, i, mxCreateDoubleScalar ( ( int ) value ) );
+                                break;
+                        case Setting::TypeFloat:
+                                mxSetFieldByNumber ( result, 0, i, mxCreateDoubleScalar ( value ) );
+                                break;
+                        default:
+                                //this should never happen
+                                mexErrMsgTxt ( "Unknown type of a setting." );
+                        }
+                }
+                return result;
+
+        }
+        //! Convert libconfig's list  to Matlab cell
+        static mxArray* list2mxcell ( const Setting &setting )  {
+                if ( !setting.isList() ) mexErrMsgTxt ( "Given setting is not a list." );
+                if ( setting.getLength() == 0 ) {
+                        mxArray *result = mxCreateCellMatrix ( 1, 0 );
+                        return result;
+                }
+
+                if ( ( setting[0].getType() == Setting::TypeString ) ) {
+                        string s = ( setting[0] );
+                        if ( s == "matrix" ) {
+                                return list2mxmatrix ( setting );
+                        }
+                }
+                mxArray *result = mxCreateCellMatrix ( 1, setting.getLength() );
+                for ( int i = 0; i < setting.getLength(); i++ ) {
+                        Setting &value = setting[i];
+                        mxArray *old = mxGetCell ( result, i );
+                        if ( old ) mxDestroyArray ( old );
+                        switch ( value.getType() ) {
+                        case Setting::TypeString:
+                                mxSetCell ( result, i, mxCreateString ( value ) );
+                                break;
+                        case Setting::TypeBoolean:
+                                mxSetCell ( result, i, mxCreateLogicalScalar ( value ) );
+                                break;
+                        case Setting::TypeGroup:
+                                mxSetCell ( result, i, group2mxstruct ( value ) );
+                                break;
+                        case Setting::TypeList:
+                                mxSetCell ( result, i, list2mxcell ( value ) );
+                                break;
+                        case Setting::TypeArray:
+                                mxSetCell ( result, i, array2mxvector ( value ) );
+                                break;
+                        case Setting::TypeInt:
+                        case Setting::TypeInt64:
+                                mxSetCell ( result, i, mxCreateDoubleScalar ( ( int ) value ) );
+                                break;
+                        case Setting::TypeFloat:
+                                mxSetCell ( result, i, mxCreateDoubleScalar ( value ) );
+                                break;
+                        default:
+                                //this should never happen
+                                mexErrMsgTxt ( "Unknown type of a setting." );
+                        }
+                }
+                return result;
+        }
 };