li1.txt

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

//img_main.c代码
/*
 * MATLAB Compiler: 4.3 (R14SP3)
 * Date: Sat Apr 12 16:13:09 2008
 * Arguments: "-B" "macro_default" "-m" "-W" "main" "-T" "link:exe" "img.m" 
 */
#include <stdio.h>
#include "mclmcr.h"
#ifdef __cplusplus
extern "C" {
#endif
extern mclComponentData __MCC_img_component_data;
#ifdef __cplusplus
}
#endif
static HMCRINSTANCE _mcr_inst = NULL;
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;
}
/* This symbol is defined in shared libraries. Define it here
 * (to nothing) in case this isn't a shared library. 
 */
#ifndef LIB_img_C_API 
#define LIB_img_C_API /* No special import/export declaration */
#endif
LIB_img_C_API 
bool imgInitializeWithHandlers(
    mclOutputHandlerFcn error_handler,
    mclOutputHandlerFcn print_handler
)
{
    if (_mcr_inst != NULL)
        return true;
    if (!mclmcrInitialize())
        return false;
    if (!mclInitializeComponentInstance(&_mcr_inst, &__MCC_img_component_data,
                                        true, NoObjectType, ExeTarget,
                                        error_handler, print_handler))
        return false;
    return true;
}
LIB_img_C_API 
bool imgInitialize(void)
{
    return imgInitializeWithHandlers(mclDefaultErrorHandler,
                                     mclDefaultPrintHandler);
}
LIB_img_C_API 
void imgTerminate(void)
{
    if (_mcr_inst != NULL)
        mclTerminateInstance(&_mcr_inst);
}
int run_main(int argc, const char **argv)
{
    int _retval;
    /* Generate and populate the path_to_component. */
    char *path_to_component = separatePathName(argv[0]);
    __MCC_img_component_data.path_to_component = path_to_component; 
    if (!imgInitialize()) {
        free(path_to_component);
        return -1;
    }
    _retval = mclMain(_mcr_inst, argc, argv, "img", 0);
    if (_retval == 0 /* no error */) mclWaitForFiguresToDie(NULL);
    imgTerminate();
    free(path_to_component);
    mclTerminateApplication();
    return _retval;
}
int main(int argc, const char **argv)
{
    if (!mclInitializeApplication(
        __MCC_img_component_data.application_options,
        __MCC_img_component_data.application_option_count))
        return 0;
        return mclRunMain(run_main, argc, argv);
}