accosin.c

来自「zemax与matlab调用程序」· C语言 代码 · 共 1,620 行 · 第 1/5 页

            "1 The function \"accosin\" was called with mor"
            "e than the declared number of outputs (1)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    mlfEnterNewContext(0, 0);
    mprhs[0] = NULL;
    mlfAssign(&mprhs[0], mclCreateVararginCell(nrhs, prhs));
    mplhs[0] = Maccosin(nlhs, mprhs[0]);
    mlfRestorePreviousContext(0, 0);
    plhs[0] = mplhs[0];
    mxDestroyArray(mprhs[0]);
}

/*
 * The function "mlfAccosin_ReadACCOSFile" contains the normal interface for
 * the "accosin/ReadACCOSFile" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 57-287). This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static mxArray * mlfAccosin_ReadACCOSFile(mxArray * Filename) {
    int nargout = 1;
    mxArray * Status = NULL;
    mlfEnterNewContext(0, 1, Filename);
    Status = Maccosin_ReadACCOSFile(nargout, Filename);
    mlfRestorePreviousContext(0, 1, Filename);
    return mlfReturnValue(Status);
}

/*
 * The function "mlxAccosin_ReadACCOSFile" contains the feval interface for the
 * "accosin/ReadACCOSFile" M-function from file "c:\projects\mzdde\accosin.m"
 * (lines 57-287). The feval function calls the implementation version of
 * accosin/ReadACCOSFile through this function. This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static void mlxAccosin_ReadACCOSFile(int nlhs,
                                     mxArray * plhs[],
                                     int nrhs,
                                     mxArray * prhs[]) {
    mxArray * mprhs[1];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadACCOSFile Line: 57 Co"
            "lumn: 1 The function \"accosin/ReadACCOSFile\" was call"
            "ed with more than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadACCOSFile Line: 57 Co"
            "lumn: 1 The function \"accosin/ReadACCOSFile\" was call"
            "ed with more than the declared number of inputs (1)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 1 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 1; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 1, mprhs[0]);
    mplhs[0] = Maccosin_ReadACCOSFile(nlhs, mprhs[0]);
    mlfRestorePreviousContext(0, 1, mprhs[0]);
    plhs[0] = mplhs[0];
}

/*
 * The function "mlfAccosin_NewSurface" contains the normal interface for the
 * "accosin/NewSurface" M-function from file "c:\projects\mzdde\accosin.m"
 * (lines 287-293). This function processes any input arguments and passes them
 * to the implementation version of the function, appearing above.
 */
static mxArray * mlfAccosin_NewSurface(mxArray * * ACCOSout,
                                       mxArray * ZEMAXin,
                                       mxArray * ACCOSin) {
    int nargout = 1;
    mxArray * ZEMAXout = NULL;
    mxArray * ACCOSout__ = NULL;
    mlfEnterNewContext(1, 2, ACCOSout, ZEMAXin, ACCOSin);
    if (ACCOSout != NULL) {
        ++nargout;
    }
    ZEMAXout = Maccosin_NewSurface(&ACCOSout__, nargout, ZEMAXin, ACCOSin);
    mlfRestorePreviousContext(1, 2, ACCOSout, ZEMAXin, ACCOSin);
    if (ACCOSout != NULL) {
        mclCopyOutputArg(ACCOSout, ACCOSout__);
    } else {
        mxDestroyArray(ACCOSout__);
    }
    return mlfReturnValue(ZEMAXout);
}

/*
 * The function "mlxAccosin_NewSurface" contains the feval interface for the
 * "accosin/NewSurface" M-function from file "c:\projects\mzdde\accosin.m"
 * (lines 287-293). The feval function calls the implementation version of
 * accosin/NewSurface through this function. This function processes any input
 * arguments and passes them to the implementation version of the function,
 * appearing above.
 */
static void mlxAccosin_NewSurface(int nlhs,
                                  mxArray * plhs[],
                                  int nrhs,
                                  mxArray * prhs[]) {
    mxArray * mprhs[2];
    mxArray * mplhs[2];
    int i;
    if (nlhs > 2) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/NewSurface Line: 287 Col"
            "umn: 1 The function \"accosin/NewSurface\" was called "
            "with more than the declared number of outputs (2)."),
          NULL);
    }
    if (nrhs > 2) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/NewSurface Line: 287 Co"
            "lumn: 1 The function \"accosin/NewSurface\" was calle"
            "d with more than the declared number of inputs (2)."),
          NULL);
    }
    for (i = 0; i < 2; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 2 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 2; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 2, mprhs[0], mprhs[1]);
    mplhs[0] = Maccosin_NewSurface(&mplhs[1], nlhs, mprhs[0], mprhs[1]);
    mlfRestorePreviousContext(0, 2, mprhs[0], mprhs[1]);
    plhs[0] = mplhs[0];
    for (i = 1; i < 2 && i < nlhs; ++i) {
        plhs[i] = mplhs[i];
    }
    for (; i < 2; ++i) {
        mxDestroyArray(mplhs[i]);
    }
}

/*
 * The function "mlfAccosin_CleanFileName" contains the normal interface for
 * the "accosin/CleanFileName" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 293-310). This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static mxArray * mlfAccosin_CleanFileName(mxArray * DirtyName) {
    int nargout = 1;
    mxArray * CleanName = NULL;
    mlfEnterNewContext(0, 1, DirtyName);
    CleanName = Maccosin_CleanFileName(nargout, DirtyName);
    mlfRestorePreviousContext(0, 1, DirtyName);
    return mlfReturnValue(CleanName);
}

/*
 * The function "mlxAccosin_CleanFileName" contains the feval interface for the
 * "accosin/CleanFileName" M-function from file "c:\projects\mzdde\accosin.m"
 * (lines 293-310). The feval function calls the implementation version of
 * accosin/CleanFileName through this function. This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static void mlxAccosin_CleanFileName(int nlhs,
                                     mxArray * plhs[],
                                     int nrhs,
                                     mxArray * prhs[]) {
    mxArray * mprhs[1];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/CleanFileName Line: 293 Co"
            "lumn: 1 The function \"accosin/CleanFileName\" was calle"
            "d with more than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/CleanFileName Line: 293 C"
            "olumn: 1 The function \"accosin/CleanFileName\" was cal"
            "led with more than the declared number of inputs (1)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 1 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 1; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 1, mprhs[0]);
    mplhs[0] = Maccosin_CleanFileName(nlhs, mprhs[0]);
    mlfRestorePreviousContext(0, 1, mprhs[0]);
    plhs[0] = mplhs[0];
}

/*
 * The function "mlfAccosin_ReadOldConfigData" contains the normal interface
 * for the "accosin/ReadOldConfigData" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 310-325). This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static void mlfAccosin_ReadOldConfigData(mxArray * fID) {
    mlfEnterNewContext(0, 1, fID);
    Maccosin_ReadOldConfigData(fID);
    mlfRestorePreviousContext(0, 1, fID);
}

/*
 * The function "mlxAccosin_ReadOldConfigData" contains the feval interface for
 * the "accosin/ReadOldConfigData" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 310-325). The feval function calls the
 * implementation version of accosin/ReadOldConfigData through this function.
 * This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
static void mlxAccosin_ReadOldConfigData(int nlhs,
                                         mxArray * plhs[],
                                         int nrhs,
                                         mxArray * prhs[]) {
    mxArray * mprhs[1];
    int i;
    if (nlhs > 0) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadOldConfigData Line: 310 "
            "Column: 1 The function \"accosin/ReadOldConfigData\" was c"
            "alled with more than the declared number of outputs (0)."),
          NULL);
    }
    if (nrhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadOldConfigData Line: 310 "
            "Column: 1 The function \"accosin/ReadOldConfigData\" was c"
            "alled with more than the declared number of inputs (1)."),
          NULL);
    }
    for (i = 0; i < 1 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 1; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 1, mprhs[0]);
    Maccosin_ReadOldConfigData(mprhs[0]);
    mlfRestorePreviousContext(0, 1, mprhs[0]);
}

/*
 * The function "mlfAccosin_ReadNewConfigData" contains the normal interface
 * for the "accosin/ReadNewConfigData" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 325-337). This function processes any
 * input arguments and passes them to the implementation version of the
 * function, appearing above.
 */
static void mlfAccosin_ReadNewConfigData(mxArray * fID,
                                         mxArray * Config,
                                         mxArray * Surface) {
    mlfEnterNewContext(0, 3, fID, Config, Surface);
    Maccosin_ReadNewConfigData(fID, Config, Surface);
    mlfRestorePreviousContext(0, 3, fID, Config, Surface);
}

/*
 * The function "mlxAccosin_ReadNewConfigData" contains the feval interface for
 * the "accosin/ReadNewConfigData" M-function from file
 * "c:\projects\mzdde\accosin.m" (lines 325-337). The feval function calls the
 * implementation version of accosin/ReadNewConfigData through this function.
 * This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
static void mlxAccosin_ReadNewConfigData(int nlhs,
                                         mxArray * plhs[],
                                         int nrhs,
                                         mxArray * prhs[]) {
    mxArray * mprhs[3];
    int i;
    if (nlhs > 0) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadNewConfigData Line: 325 "
            "Column: 1 The function \"accosin/ReadNewConfigData\" was c"
            "alled with more than the declared number of outputs (0)."),
          NULL);
    }
    if (nrhs > 3) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin/ReadNewConfigData Line: 325 "
            "Column: 1 The function \"accosin/ReadNewConfigData\" was c"
            "alled with more than the declared number of inputs (3)."),
          NULL);
    }
    for (i = 0; i < 3 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 3; ++i) {
        mprhs[i] = NULL;
    }