rndcheck.c

好东西

                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end
             */
            }
            /*
             * 
             * if ~scalararg3 & ~scalararg2
             */
            {
                mxArray * a_
                  = mclInitialize(mclNot(mclVv(scalararg3, "scalararg3")));
                if (mlfTobool(a_)
                    && mlfTobool(
                         mclAnd(
                           a_, mclNot(mclVv(scalararg2, "scalararg2"))))) {
                    mxDestroyArray(a_);
                    /*
                     * if r3 ~= r2 | c3 ~= c2
                     */
                    {
                        mxArray * a_7
                          = mclInitialize(
                              mclNe(mclVv(r3, "r3"), mclVv(r2, "r2")));
                        if (mlfTobool(a_7)
                            || mlfTobool(
                                 mclOr(
                                   a_7,
                                   mclNe(mclVv(c3, "c3"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_7);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_7);
                        }
                    /*
                     * end
                     */
                    }
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end
             */
            }
            /*
             * if ~scalararg1
             */
            if (mclNotBool(mclVv(scalararg1, "scalararg1"))) {
                /*
                 * if any(arg4 ~= size(arg1))
                 */
                if (mlfTobool(
                      mlfAny(
                        mclNe(
                          mclVa(arg4, "arg4"),
                          mlfSize(
                            mclValueVarargout(), mclVa(arg1, "arg1"), NULL)),
                        NULL))) {
                    /*
                     * errorcode = 3;
                     */
                    mlfAssign(&errorcode, _mxarray4_);
                    /*
                     * return;
                     */
                    goto return_;
                /*
                 * end
                 */
                }
                /*
                 * [rows columns] = size(arg1);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg1, "arg1"), NULL);
            /*
             * elseif ~scalararg2
             */
            } else if (mclNotBool(mclVv(scalararg2, "scalararg2"))) {
                /*
                 * if any(arg4 ~= size(arg2))
                 */
                if (mlfTobool(
                      mlfAny(
                        mclNe(
                          mclVa(arg4, "arg4"),
                          mlfSize(
                            mclValueVarargout(), mclVa(arg2, "arg2"), NULL)),
                        NULL))) {
                    /*
                     * errorcode = 3;
                     */
                    mlfAssign(&errorcode, _mxarray4_);
                    /*
                     * return;
                     */
                    goto return_;
                /*
                 * end
                 */
                }
                /*
                 * [rows columns] = size(arg2);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg2, "arg2"), NULL);
            /*
             * elseif ~scalararg3
             */
            } else if (mclNotBool(mclVv(scalararg3, "scalararg3"))) {
                /*
                 * if any(arg4 ~= size(arg3))
                 */
                if (mlfTobool(
                      mlfAny(
                        mclNe(
                          mclVa(arg4, "arg4"),
                          mlfSize(
                            mclValueVarargout(), mclVa(arg3, "arg3"), NULL)),
                        NULL))) {
                    /*
                     * errorcode = 3;
                     */
                    mlfAssign(&errorcode, _mxarray4_);
                    /*
                     * return;
                     */
                    goto return_;
                /*
                 * end
                 */
                }
                /*
                 * [rows columns] = size(arg3);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg3, "arg3"), NULL);
            /*
             * else
             */
            } else {
                /*
                 * rows    = arg4(1);
                 */
                mlfAssign(rows, mclIntArrayRef1(mclVa(arg4, "arg4"), 1));
                /*
                 * columns = arg4(2);
                 */
                mlfAssign(columns, mclIntArrayRef1(mclVa(arg4, "arg4"), 2));
            /*
             * end
             */
            }
        /*
         * end 
         */
        }
    /*
     * elseif sizeinfo == 2
     */
    } else if (mclEqBool(mclVv(sizeinfo, "sizeinfo"), _mxarray3_)) {
        /*
         * if nparms == 1
         */
        if (mclEqBool(mclVa(nparms, "nparms"), _mxarray2_)) {
            /*
             * scalararg1 = (prod(size(arg1)) == 1);
             */
            mlfAssign(
              &scalararg1,
              mclEq(
                mlfProd(
                  mlfSize(mclValueVarargout(), mclVa(arg1, "arg1"), NULL),
                  NULL),
                _mxarray2_));
            /*
             * if ~scalararg1
             */
            if (mclNotBool(mclVv(scalararg1, "scalararg1"))) {
                /*
                 * [rows columns] = size(arg1);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg1, "arg1"), NULL);
                /*
                 * if rows ~= arg2 | columns ~= arg3 
                 */
                {
                    mxArray * a_
                      = mclInitialize(
                          mclNe(mclVv(*rows, "rows"), mclVa(arg2, "arg2")));
                    if (mlfTobool(a_)
                        || mlfTobool(
                             mclOr(
                               a_,
                               mclNe(
                                 mclVv(*columns, "columns"),
                                 mclVa(arg3, "arg3"))))) {
                        mxDestroyArray(a_);
                        /*
                         * errorcode = 3;
                         */
                        mlfAssign(&errorcode, _mxarray4_);
                        /*
                         * return;
                         */
                        goto return_;
                    } else {
                        mxDestroyArray(a_);
                    }
                /*
                 * end
                 */
                }
            /*
             * end
             */
            }
            /*
             * if (arg2 < 0 | arg3 < 0 | arg2 ~= round(arg2) | arg3 ~= round(arg3)),
             */
            {
                mxArray * a_
                  = mclInitialize(mclLt(mclVa(arg2, "arg2"), _mxarray0_));
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_, mclOr(a_, mclLt(mclVa(arg3, "arg3"), _mxarray0_)));
                }
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclNe(
                          mclVa(arg2, "arg2"), mlfRound(mclVa(arg2, "arg2")))));
                }
                if (mlfTobool(a_)
                    || mlfTobool(
                         mclOr(
                           a_,
                           mclNe(
                             mclVa(arg3, "arg3"),
                             mlfRound(mclVa(arg3, "arg3")))))) {
                    mxDestroyArray(a_);
                    /*
                     * errorcode = 4;
                     */
                    mlfAssign(&errorcode, _mxarray5_);
                    /*
                     * return;
                     */
                    goto return_;
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end 
             */
            }
            /*
             * rows = arg2;
             */
            mlfAssign(rows, mclVa(arg2, "arg2"));
            /*
             * columns = arg3;
             */
            mlfAssign(columns, mclVa(arg3, "arg3"));
        /*
         * elseif nparms == 2
         */
        } else if (mclEqBool(mclVa(nparms, "nparms"), _mxarray3_)) {
            /*
             * [r1 c1] = size(arg1);
             */
            mlfSize(mlfVarargout(&r1, &c1, NULL), mclVa(arg1, "arg1"), NULL);
            /*
             * [r2 c2] = size(arg2);
             */
            mlfSize(mlfVarargout(&r2, &c2, NULL), mclVa(arg2, "arg2"), NULL);
            /*
             * scalararg1 = (prod(size(arg1)) == 1);
             */
            mlfAssign(
              &scalararg1,
              mclEq(
                mlfProd(
                  mlfSize(mclValueVarargout(), mclVa(arg1, "arg1"), NULL),
                  NULL),
                _mxarray2_));
            /*
             * scalararg2 = (prod(size(arg2)) == 1);
             */
            mlfAssign(
              &scalararg2,
              mclEq(
                mlfProd(
                  mlfSize(mclValueVarargout(), mclVa(arg2, "arg2"), NULL),
                  NULL),
                _mxarray2_));
            /*
             * if ~scalararg1 & ~scalararg2
             */
            {
                mxArray * a_
                  = mclInitialize(mclNot(mclVv(scalararg1, "scalararg1")));
                if (mlfTobool(a_)
                    && mlfTobool(
                         mclAnd(
                           a_, mclNot(mclVv(scalararg2, "scalararg2"))))) {
                    mxDestroyArray(a_);
                    /*
                     * if r1 ~= r2 | c1 ~= c2
                     */
                    {
                        mxArray * a_8
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r2, "r2")));
                        if (mlfTobool(a_8)
                            || mlfTobool(
                                 mclOr(
                                   a_8,
                                   mclNe(mclVv(c1, "c1"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_8);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_8);
                        }
                    /*
                     * end
                     */
                    }
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end
             */
            }
            /*
             * if ~scalararg1
             */
            if (mclNotBool(mclVv(scalararg1, "scalararg1"))) {
                /*
                 * [rows columns] = size(arg1);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg1, "arg1"), NULL);
                /*
                 * if rows ~= arg3 | columns ~= arg4 
                 */
                {
                    mxArray * a_
                      = mclInitialize(
                          mclNe(mclVv(*rows, "rows"), mclVa(arg3, "arg3")));
                    if (mlfTobool(a_)
                        || mlfTobool(
                             mclOr(
                               a_,
                               mclNe(
                                 mclVv(*columns, "columns"),
                                 mclVa(arg4, "arg4"))))) {
                        mxDestroyArray(a_);