take_close.cpp

matlab的可执行程序

//
// MATLAB Compiler: 3.0
// Date: Mon Jul 12 20:45:47 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" "-B" "sglcpp" "-p" "-W"
// "main" "-L" "Cpp" "-t" "-T" "link:exe" "-h" "libmmfile.mlib" "-W" "mainhg"
// "libmwsglm.mlib" "QQchabu.m" 
//
#include "take_close.hpp"
#include "libmatlbm.hpp"
#include "libmwsglm.hpp"

static mxChar _array1_[6] = { 'd', 'a', 't', 'a', 'c', '1' };
static mwArray _mxarray0_ = mclInitializeString(6, _array1_);

static mxChar _array3_[6] = { 'd', 'a', 't', 'a', 'c', '2' };
static mwArray _mxarray2_ = mclInitializeString(6, _array3_);

static mxChar _array5_[6] = { 'c', 'l', 'o', 's', 'e', '?' };
static mwArray _mxarray4_ = mclInitializeString(6, _array5_);

static mxChar _array7_[3] = { 'Y', 'e', 's' };
static mwArray _mxarray6_ = mclInitializeString(3, _array7_);
static mwArray _mxarray8_ = mclInitializeDouble(0.0);

static mxChar _array10_[2] = { 'N', 'o' };
static mwArray _mxarray9_ = mclInitializeString(2, _array10_);

void InitializeModule_take_close() {
}

void TerminateModule_take_close() {
}

static void Mtake_close();

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

//
// The function "take_close" contains the normal interface for the "take_close"
// M-function from file "e:\matlab6.5\work\mywork\take_close.m" (lines 1-17).
// This function processes any input arguments and passes them to the
// implementation version of the function, appearing above.
//
void take_close() {
    Mtake_close();
}

//
// The function "mlxTake_close" contains the feval interface for the
// "take_close" M-function from file "e:\matlab6.5\work\mywork\take_close.m"
// (lines 1-17). The feval function calls the implementation version of
// take_close through this function. This function processes any input
// arguments and passes them to the implementation version of the function,
// appearing above.
//
void mlxTake_close(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) {
    MW_BEGIN_MLX();
    {
        if (nlhs > 0) {
            error(
              mwVarargin(
                mwArray(
                  "Run-time Error: File: take_close Line: 1 Column:"
                  " 1 The function \"take_close\" was called with m"
                  "ore than the declared number of outputs (0).")));
        }
        if (nrhs > 0) {
            error(
              mwVarargin(
                mwArray(
                  "Run-time Error: File: take_close Line: 1 Column:"
                  " 1 The function \"take_close\" was called with m"
                  "ore than the declared number of inputs (0).")));
        }
        Mtake_close();
    }
    MW_END_MLX();
}

//
// The function "Mtake_close" is the implementation version of the "take_close"
// M-function from file "e:\matlab6.5\work\mywork\take_close.m" (lines 1-17).
// 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 take_close
//
static void Mtake_close() {
    mwLocalFunctionTable save_local_function_table_
      = &_local_function_table_take_close;
    mwArray answer = mwArray::UNDEFINED;
    mwArray check2 = mwArray::UNDEFINED;
    mwArray check1 = mwArray::UNDEFINED;
    mwArray datac2 = mwArray::UNDEFINED;
    mwArray ans = mwArray::UNDEFINED;
    mwArray datac1 = mwArray::UNDEFINED;
    //
    // load datac1
    //
    loadc_(
      _mxarray0_,
      "ans",
      &ans,
      "answer",
      &answer,
      "check1",
      &check1,
      "check2",
      &check2,
      "datac1",
      &datac1,
      "datac2",
      &datac2,
      NULL);
    //
    // load datac2
    //
    loadc_(
      _mxarray2_,
      "ans",
      &ans,
      "answer",
      &answer,
      "check1",
      &check1,
      "check2",
      &check2,
      "datac1",
      &datac1,
      "datac2",
      &datac2,
      NULL);
    //
    // check1
    //
    ans.EqPrintAns(mwVv(check1, "check1"));
    //
    // check2
    //
    ans.EqPrintAns(mwVv(check2, "check2"));
    //
    // answer=questdlg('close?');
    //
    answer = Nquestdlg(1, _mxarray4_);
    //
    // if answer=='Yes'
    //
    if (mclEqBool(mwVv(answer, "answer"), _mxarray6_)) {
        //
        // check1=0;
        //
        check1 = _mxarray8_;
        //
        // check2=0
        //
        check2 = _mxarray8_;
        mwVv(check2, "check2").Print("check2");
        //
        // save datac1 check1
        //
        save(_mxarray0_, "w", "check1", check1, NULL);
        //
        // save datac2 check2
        //
        save(_mxarray2_, "w", "check2", check2, NULL);
        //
        // close
        //
        ans.EqPrintAns(Nclose(0, mwVarargin()));
    //
    // end
    //
    }
    //
    // if answer=='No'
    //
    if (mclEqBool(mwVv(answer, "answer"), _mxarray9_)) {
        //
        // save datac1 check1
        //
        save(_mxarray0_, "w", "check1", check1, NULL);
        //
        // save datac2 check2
        //
        save(_mxarray2_, "w", "check2", check2, NULL);
    //
    // end
    //
    }
}