shg.cpp

《精通Matlab6.5版》张志勇等编著

//
// MATLAB Compiler: 2.2
// Date: Tue Jun 25 10:54:12 2002
// 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" "exm110633_1" 
//
#include "shg.hpp"
#include "libmatlbm.hpp"
#include "libmmfile.hpp"

static mxChar _array1_[124] = { 'R', 'u', 'n', '-', 't', 'i', 'm', 'e', ' ',
                                'E', 'r', 'r', 'o', 'r', ':', ' ', 'F', 'i',
                                'l', 'e', ':', ' ', 's', 'h', 'g', ' ', 'L',
                                'i', 'n', 'e', ':', ' ', '1', ' ', 'C', 'o',
                                'l', 'u', 'm', 'n', ':', ' ', '1', ' ', 'T',
                                'h', 'e', ' ', 'f', 'u', 'n', 'c', 't', 'i',
                                'o', 'n', ' ', '"', 's', 'h', 'g', '"', ' ',
                                'w', 'a', 's', ' ', 'c', 'a', 'l', 'l', 'e',
                                'd', ' ', 'w', 'i', 't', 'h', ' ', 'm', 'o',
                                'r', 'e', ' ', 't', 'h', 'a', 'n', ' ', 't',
                                'h', 'e', ' ', 'd', 'e', 'c', 'l', 'a', 'r',
                                'e', 'd', ' ', 'n', 'u', 'm', 'b', 'e', 'r',
                                ' ', 'o', 'f', ' ', 'o', 'u', 't', 'p', 'u',
                                't', 's', ' ', '(', '0', ')', '.' };
static mwArray _mxarray0_ = mclInitializeString(124, _array1_);

static mxChar _array3_[123] = { 'R', 'u', 'n', '-', 't', 'i', 'm', 'e', ' ',
                                'E', 'r', 'r', 'o', 'r', ':', ' ', 'F', 'i',
                                'l', 'e', ':', ' ', 's', 'h', 'g', ' ', 'L',
                                'i', 'n', 'e', ':', ' ', '1', ' ', 'C', 'o',
                                'l', 'u', 'm', 'n', ':', ' ', '1', ' ', 'T',
                                'h', 'e', ' ', 'f', 'u', 'n', 'c', 't', 'i',
                                'o', 'n', ' ', '"', 's', 'h', 'g', '"', ' ',
                                'w', 'a', 's', ' ', 'c', 'a', 'l', 'l', 'e',
                                'd', ' ', 'w', 'i', 't', 'h', ' ', 'm', 'o',
                                'r', 'e', ' ', 't', 'h', 'a', 'n', ' ', 't',
                                'h', 'e', ' ', 'd', 'e', 'c', 'l', 'a', 'r',
                                'e', 'd', ' ', 'n', 'u', 'm', 'b', 'e', 'r',
                                ' ', 'o', 'f', ' ', 'i', 'n', 'p', 'u', 't',
                                's', ' ', '(', '0', ')', '.' };
static mwArray _mxarray2_ = mclInitializeString(123, _array3_);

void InitializeModule_shg() {
}

void TerminateModule_shg() {
}

static void Mshg();

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

//
// The function "shg" contains the normal interface for the "shg" M-function
// from file "d:\MATLAB6p1\toolbox\matlab\graphics\shg.m" (lines 1-9). This
// function processes any input arguments and passes them to the implementation
// version of the function, appearing above.
//
void shg() {
    Mshg();
}

//
// The function "mlxShg" contains the feval interface for the "shg" M-function
// from file "d:\MATLAB6p1\toolbox\matlab\graphics\shg.m" (lines 1-9). The
// feval function calls the implementation version of shg through this
// function. This function processes any input arguments and passes them to the
// implementation version of the function, appearing above.
//
void mlxShg(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) {
    MW_BEGIN_MLX();
    {
        if (nlhs > 0) {
            error(_mxarray0_);
        }
        if (nrhs > 0) {
            error(_mxarray2_);
        }
        Mshg();
    }
    MW_END_MLX();
}

//
// The function "Mshg" is the implementation version of the "shg" M-function
// from file "d:\MATLAB6p1\toolbox\matlab\graphics\shg.m" (lines 1-9). 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 shg()
//
static void Mshg() {
    mwLocalFunctionTable save_local_function_table_(&_local_function_table_shg);
    mwArray ans(mclGetUninitializedArray());
    //
    // %SHG    Show graph window.
    // %   SHG brings the current figure window forward.
    // 
    // %   Copyright 1984-2001 The MathWorks, Inc. 
    // %   $Revision: 5.7 $  $Date: 2001/04/15 11:59:54 $
    // 
    // figure(gcf);
    //
    ans.EqAns(Nfigure(0, mwVarargin(mwVe(gcf()))));
}