addcomplexarray.cpp

《精通matlab与c++混合编程》的光盘内容

//
// MATLAB Compiler: 3.0
// Date: Thu May 20 14:43:44 2004
// Arguments: "-B" "macro_default" "-O" "all" "-O" "fold_scalar_mxarrays:on"
// "-O" "fold_non_scalar_mxarrays:on" "-O" "optimize_integer_for_loops:on" "-O"
// "array_indexing:on" "-O" "optimize_conditionals:on" "-M" "-silentsetup" "-d"
// "D:/MATLAB6p5p1/work/book/dataconversion/arraypass/arraycom/src" "-v" "-B"
// "cppcom:arraypasscom,arraypasscom,1.0" "-B"
// "ccom:arraypasscom,arraypasscom,1.0" "-t" "-W"
// "com:arraypasscom,arraypasscom,1.0" "-T" "link:lib" "-h" "libmmfile.mlib"
// "-i" "-L" "cpp" "-g" "-G" "-A" "debugline:on" "-O" "none" "-O"
// "fold_scalar_mxarrays:off" "-O" "fold_non_scalar_mxarrays:off" "-O"
// "optimize_integer_for_loops:off" "-O" "array_indexing:off" "-O"
// "optimize_conditionals:off" "-O" "speculate:off" "-i"
// "D:/MATLAB6p5p1/work/book/dataconversion/arraypass/mfiles/addarray.m"
// "D:/MATLAB6p5p1/work/book/dataconversion/arraypass/mfiles/addcomplexarray.m"
// "D:/MATLAB6p5p1/work/book/dataconversion/arraypass/mfiles/displayarray.m" 
//
#include "addcomplexarray.hpp"
#include "libmatlbm.hpp"

void InitializeModule_addcomplexarray() {
}

void TerminateModule_addcomplexarray() {
}

static mwArray Maddcomplexarray(int nargout_, mwArray x1, mwArray x2);

_mexLocalFunctionTable _local_function_table_addcomplexarray
  = { 0, (mexFunctionTableEntry *)NULL };

//
// The function "addcomplexarray" contains the normal interface for the
// "addcomplexarray" M-function from file
// "d:\matlab6p5p1\work\book\dataconversion\arraypass\mfiles\addcomplexarray.m"
// (lines 1-3). This function processes any input arguments and passes them to
// the implementation version of the function, appearing above.
//
mwArray addcomplexarray(mwArray x1, mwArray x2) {
    int nargout = 1;
    mwArray y = mwArray::UNDEFINED;
    y = Maddcomplexarray(nargout, x1, x2);
    return y;
}

//
// The function "mlxAddcomplexarray" contains the feval interface for the
// "addcomplexarray" M-function from file
// "d:\matlab6p5p1\work\book\dataconversion\arraypass\mfiles\addcomplexarray.m"
// (lines 1-3). The feval function calls the implementation version of
// addcomplexarray through this function. This function processes any input
// arguments and passes them to the implementation version of the function,
// appearing above.
//
void mlxAddcomplexarray(int nlhs,
                        mxArray * plhs[],
                        int nrhs,
                        mxArray * prhs[]) {
    MW_BEGIN_MLX();
    {
        mwArray mprhs[2];
        mwArray mplhs[1];
        int i;
        mclCppUndefineArrays(1, mplhs);
        if (nlhs > 1) {
            error(
              mwVarargin(
                mwArray(
                  "Run-time Error: File: addcomplexarray Line: 1 Column"
                  ": 1 The function \"addcomplexarray\" was called with"
                  " more than the declared number of outputs (1).")));
        }
        if (nrhs > 2) {
            error(
              mwVarargin(
                mwArray(
                  "Run-time Error: File: addcomplexarray Line: 1 Colum"
                  "n: 1 The function \"addcomplexarray\" was called wi"
                  "th more than the declared number of inputs (2).")));
        }
        for (i = 0; i < 2 && i < nrhs; ++i) {
            mprhs[i] = mwArray(prhs[i], 0);
        }
        for (; i < 2; ++i) {
            mprhs[i].MakeDIN();
        }
        mplhs[0] = Maddcomplexarray(nlhs, mprhs[0], mprhs[1]);
        plhs[0] = mplhs[0].FreezeData();
    }
    MW_END_MLX();
}

//
// The function "Maddcomplexarray" is the implementation version of the
// "addcomplexarray" M-function from file
// "d:\matlab6p5p1\work\book\dataconversion\arraypass\mfiles\addcomplexarray.m"
// (lines 1-3). It contains the actual compiled code for that M-function. It is
// a static function and must only be called from one of the interface
// functions, appearing below.
//
//
// function [y]=addcomplexarray(x1,x2)
//
static mwArray Maddcomplexarray(int nargout_, mwArray x1, mwArray x2) {
    mclMlineEnterFunction(
      "d:\\matlab6p5p1\\work\\book\\dataconversi"
      "on\\arraypass\\mfiles\\addcomplexarray.m",
      "addcomplexarray")
    mwLocalFunctionTable save_local_function_table_
      = &_local_function_table_addcomplexarray;
    mwArray y = mwArray::UNDEFINED;
    //
    // %function [y]=addcomplexarray(x1,x2)
    // y=x1+x2;
    //
    mclMline(2);
    y = mwVa(x1, "x1") + mwVa(x2, "x2");
    mwValidateOutput(y, 1, nargout_, "y", "addcomplexarray");
    mclMlineFunctionReturn()
    return y;
    mclMlineExitFunctionReturn();
}