/*
 * MATLAB Compiler: 4.0 (R14)
 * Date: Thu Aug 26 21:42:28 2004
 * Arguments: "-B" "macro_default" "-B" "csharedlib:fftlib" "-W" "lib:fftlib"
 * "-T" "link:lib" "myfft.m" "myifft.m" "myfft2.m" "myifft2.m" 
 */

#include <stdio.h>
#include "fftlib.h"
#ifdef __cplusplus
extern "C" {
#endif
extern const unsigned char __MCC_fftlib_public_data[];
extern const char *__MCC_fftlib_name_data;
extern const char *__MCC_fftlib_root_data;
extern const unsigned char __MCC_fftlib_session_data[];
extern const char *__MCC_fftlib_matlabpath_data[];
extern const int __MCC_fftlib_matlabpath_data_count;
extern const char *__MCC_fftlib_mcr_runtime_options[];
extern const int __MCC_fftlib_mcr_runtime_option_count;
extern const char *__MCC_fftlib_mcr_application_options[];
extern const int __MCC_fftlib_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 fftlibInitializeWithHandlers(
    mclOutputHandlerFcn error_handler,
    mclOutputHandlerFcn print_handler
)
{
    if (_mcr_inst != NULL)
        return true;
    if (!mclmcrInitialize())
        return false;
    if (!mclInitializeComponentInstance(&_mcr_inst, __MCC_fftlib_public_data,
                                        __MCC_fftlib_name_data,
                                        __MCC_fftlib_root_data,
                                        __MCC_fftlib_session_data,
                                        __MCC_fftlib_matlabpath_data,
                                        __MCC_fftlib_matlabpath_data_count,
                                        __MCC_fftlib_mcr_runtime_options,
                                        __MCC_fftlib_mcr_runtime_option_count,
                                        true, NoObjectType, LibTarget,
                                        path_to_dll, error_handler,
                                        print_handler))
        return false;
    return true;
}

bool fftlibInitialize(void)
{
    return fftlibInitializeWithHandlers(mclDefaultErrorHandler,
                                        mclDefaultPrintHandler);
}

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


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

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

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

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

void mlfMyfft(int nargout, mxArray** Y, mxArray* X)
{
    mclMlfFeval(_mcr_inst, "myfft", nargout, 1, 1, Y, X);
}

void mlfMyifft(int nargout, mxArray** Y, mxArray* X)
{
    mclMlfFeval(_mcr_inst, "myifft", nargout, 1, 1, Y, X);
}

void mlfMyfft2(int nargout, mxArray** Y, mxArray* X)
{
    mclMlfFeval(_mcr_inst, "myfft2", nargout, 1, 1, Y, X);
}

void mlfMyifft2(int nargout, mxArray** Y, mxArray* X)
{
    mclMlfFeval(_mcr_inst, "myifft2", nargout, 1, 1, Y, X);
}