//
// MATLAB Compiler: 3.0
// Date: Wed Jul 14 12:15:03 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 "chabujicunchu.hpp"
#include "libmatlbm.hpp"
#include "libmmfile.hpp"
#include "libmwsglm.hpp"

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

static mxChar _array3_[1] = { 'h' };
static mwArray _mxarray2_ = mclInitializeString(1, _array3_);

static mxChar _array5_[1] = { 'i' };
static mwArray _mxarray4_ = mclInitializeString(1, _array5_);
static mwArray _mxarray6_ = mclInitializeDouble(1.0);
static mwArray _mxarray7_ = mclInitializeDouble(3.0);

static mxChar _array10_[45] = { 0xcae4, 0xc8eb, 0xc2b7, 0xbeb6, 0xbcb0, 0xc3fb,
                                0xb3c6, 0xa3ba, 0xa3a8, 0xc4ac, 0xc8cf, 0xceaa,
                                0xa3ba, 'E', ':', 0x005c, 'm', 'a', 't', 'l',
                                'a', 'b', '6', '.', '5', 0x005c, 'w', 'o', 'r',
                                'k', 0x005c, 'm', 'y', 'w', 'o', 'r', 'k',
                                0x005c, 'a', '2', '.', 't', 'x', 't', 0xa3a9 };
static mxArray * _mxarray9_ = mclInitializeString(45, _array10_);
static mwArray _mxarray8_ = mclInitializeCell(_mxarray9_);

static mxChar _array13_[31] = { 'E', ':', 0x005c, 'm', 'a', 't', 'l', 'a',
                                'b', '6', '.', '5', 0x005c, 'w', 'o', 'r',
                                'k', 0x005c, 'm', 'y', 'w', 'o', 'r', 'k',
                                0x005c, 'a', '2', '.', 't', 'x', 't' };
static mxArray * _mxarray12_ = mclInitializeString(31, _array13_);
static mwArray _mxarray11_ = mclInitializeCell(_mxarray12_);

static mxChar _array15_[9] = { 0xd0c2, 0xcec4, 0xbcfe, 0xb5c4, 0xc2b7,
                               0xbeb6, 0xbcb0, 0xc3fb, 0xb3c6 };
static mwArray _mxarray14_ = mclInitializeString(9, _array15_);

static mxChar _array17_[8] = { 's', 't', 'r', 'i', 'n', 'g', 'a', 'b' };
static mwArray _mxarray16_ = mclInitializeString(8, _array17_);

static mxChar _array19_[2] = { 'a', '+' };
static mwArray _mxarray18_ = mclInitializeString(2, _array19_);

static mxChar _array21_[2] = { '%', 's' };
static mwArray _mxarray20_ = mclInitializeString(2, _array21_);

void InitializeModule_chabujicunchu() {
}

void TerminateModule_chabujicunchu() {
    mxDestroyArray(_mxarray12_);
    mxDestroyArray(_mxarray9_);
}

static void Mchabujicunchu();

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

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

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

//
// The function "Mchabujicunchu" is the implementation version of the
// "chabujicunchu" M-function from file
// "e:\matlab6.5\work\qqmywork\chabujicunchu.m" (lines 1-23). 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 chabujicunchu
//
static void Mchabujicunchu() {
    mwLocalFunctionTable save_local_function_table_
      = &_local_function_table_chabujicunchu;
    mwArray fid1 = mwArray::UNDEFINED;
    mwArray stringab = mwArray::UNDEFINED;
    mwArray stringb = mwArray::UNDEFINED;
    mwArray stringa = mwArray::UNDEFINED;
    mwArray default0 = mwArray::UNDEFINED;
    mwArray promp = mwArray::UNDEFINED;
    mwArray uu = mwArray::UNDEFINED;
    mwArray w = mwArray::UNDEFINED;
    mwArray u = mwArray::UNDEFINED;
    mwArray v = mwArray::UNDEFINED;
    mwArray shux = mwArray::UNDEFINED;
    mwArray str0 = mwArray::UNDEFINED;
    mwArray y = mwArray::UNDEFINED;
    mwArray x = mwArray::UNDEFINED;
    mwArray ans = mwArray::UNDEFINED;
    mwArray a1 = mwArray::UNDEFINED;
    mwArray fid = mwArray::UNDEFINED;
    //
    // fid=fopen('a1.txt');
    //
    fid = fopen(_mxarray0_);
    //
    // a1=fgets(fid);
    //
    a1 = fgets(mwVv(fid, "fid"));
    //
    // fclose(fid);
    //
    ans.EqAns(fclose(mwVv(fid, "fid")));
    //
    // x=findstr(a1,'h');
    //
    x = findstr(mwVv(a1, "a1"), _mxarray2_);
    //
    // y=findstr(a1,'i');
    //
    y = findstr(mwVv(a1, "a1"), _mxarray4_);
    //
    // str0=a1(x+1:y-1);
    //
    str0
      = mclArrayRef(
          mwVv(a1, "a1"),
          colon(mwVv(x, "x") + _mxarray6_, mwVv(y, "y") - _mxarray6_));
    //
    // shux=str2num(str0);
    //
    shux = str2num(mwVv(str0, "str0"));
    //
    // shux=shux*3;
    //
    shux = mwVv(shux, "shux") * _mxarray7_;
    //
    // v=num2str(shux);
    //
    v = num2str(mwVv(shux, "shux"));
    //
    // u=a1(1:x);
    //
    u = mclArrayRef(mwVv(a1, "a1"), colon(_mxarray6_, mwVv(x, "x")));
    //
    // w=a1(y:length(a1));
    //
    w
      = mclArrayRef(
          mwVv(a1, "a1"), colon(mwVv(y, "y"), mclLengthInt(mwVv(a1, "a1"))));
    //
    // uu=[u,v,w];
    //
    uu = horzcat(mwVarargin(mwVv(u, "u"), mwVv(v, "v"), mwVv(w, "w")));
    //
    // 
    // promp={'輸入路徑及名稱：（默認為：E:\matlab6.5\work\mywork\a2.txt）'};
    //
    promp = _mxarray8_;
    //
    // default={'E:\matlab6.5\work\mywork\a2.txt'};
    //
    default0 = _mxarray11_;
    //
    // stringa=inputdlg(promp,'新文件的路徑及名稱',1,default);
    //
    stringa
      = Ninputdlg(
          1,
          mwVv(promp, "promp"),
          _mxarray14_,
          _mxarray6_,
          mwVv(default0, "default"));
    //
    // stringb=char(stringa);
    //
    stringb = char_func(mwVarargin(mwVv(stringa, "stringa")));
    //
    // save stringab stringb
    //
    save(_mxarray16_, "w", "stringb", stringb, NULL);
    //
    // 
    // fid1=fopen(stringb,'a+');
    //
    fid1 = fopen(mwVv(stringb, "stringb"), _mxarray18_);
    //
    // fprintf(fid1,'%s',uu);
    //
    ans.EqAns(
      Nfprintf(0, mwVv(fid1, "fid1"), mwVarargin(_mxarray20_, mwVv(uu, "uu"))));
    //
    // fclose(fid1);
    //
    ans.EqAns(fclose(mwVv(fid1, "fid1")));
}