mylib.c

数字信号处理的MATLAB实现

/*
 * MATLAB Compiler: 4.0 (R14)
 * Date: Sat Apr 01 20:12:08 2006
 * Arguments: "-B" "macro_default" "-B" "csglsharedlib:mylib" "-W" "lib:mylib"
 * "-T" "link:lib" "mcc_test" 
 */

#include <stdio.h>
#include "mylib.h"
#ifdef __cplusplus
extern "C" {
#endif
extern const unsigned char __MCC_mylib_public_data[];
extern const char *__MCC_mylib_name_data;
extern const char *__MCC_mylib_root_data;
extern const unsigned char __MCC_mylib_session_data[];
extern const char *__MCC_mylib_matlabpath_data[];
extern const int __MCC_mylib_matlabpath_data_count;
extern const char *__MCC_mylib_mcr_runtime_options[];
extern const int __MCC_mylib_mcr_runtime_option_count;
extern const char *__MCC_mylib_mcr_application_options[];
extern const int __MCC_mylib_mcr_application_option_count;
#ifdef __cplusplus
}
#endif


static HMCRINSTANCE _mcr_inst = NULL;


#if defined( _MSC_VER) || defined(__BORLANDC__) || defined(__WATCOMC__) || defined(__LCC__)
#include <windows.h>

static char path_to_dll[_MAX_PATH];

BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, void *pv)
{
    if (dwReason == DLL_PROCESS_ATTACH)
    {
        char szDllPath[_MAX_PATH];
        char szDir[_MAX_DIR];
        if (GetModuleFileName(hInstance, szDllPath, _MAX_PATH) > 0)
        {
             _splitpath(szDllPath, path_to_dll, szDir, NULL, NULL);
            strcat(path_to_dll, szDir);
        }
	else return FALSE;
    }
    else if (dwReason == DLL_PROCESS_DETACH)
    {
    }
    return TRUE;
}
#endif
static int mclDefaultPrintHandler(const char *s)
{
    return fwrite(s, sizeof(char), strlen(s), stdout);
}

static int mclDefaultErrorHandler(const char *s)
{
    int written = 0, len = 0;
    len = strlen(s);
    written = fwrite(s, sizeof(char), len, stderr);
    if (len > 0 && s[ len-1 ] != '\n')
        written += fwrite("\n", sizeof(char), 1, stderr);
    return written;
}

bool mylibInitializeWithHandlers(
    mclOutputHandlerFcn error_handler,
    mclOutputHandlerFcn print_handler
)
{
    if (_mcr_inst != NULL)
        return true;
    if (!mclmcrInitialize())
        return false;
    if (!mclInitializeComponentInstance(&_mcr_inst, __MCC_mylib_public_data,
                                        __MCC_mylib_name_data,
                                        __MCC_mylib_root_data,
                                        __MCC_mylib_session_data,
                                        __MCC_mylib_matlabpath_data,
                                        __MCC_mylib_matlabpath_data_count,
                                        __MCC_mylib_mcr_runtime_options,
                                        __MCC_mylib_mcr_runtime_option_count,
                                        true, NoObjectType, LibTarget,
                                        path_to_dll, error_handler,
                                        print_handler))
        return false;
    return true;
}

bool mylibInitialize(void)
{
    return mylibInitializeWithHandlers(mclDefaultErrorHandler,
                                       mclDefaultPrintHandler);
}

void mylibTerminate(void)
{
    if (_mcr_inst != NULL)
        mclTerminateInstance(&_mcr_inst);
}


void mlxMcc_test(int nlhs, mxArray *plhs[], int nrhs, mxArray *prhs[])
{
    mclFeval(_mcr_inst, "mcc_test", nlhs, plhs, nrhs, prhs);
}

void mlfMcc_test(int nargout, mxArray** y, mxArray* t)
{
    mclMlfFeval(_mcr_inst, "mcc_test", nargout, 1, 1, y, t);
}