rndcheck.c

好东西

                        /*
                         * errorcode = 3;
                         */
                        mlfAssign(&errorcode, _mxarray4_);
                    } else {
                        mxDestroyArray(a_);
                    }
                /*
                 * return;
                 * end     
                 */
                }
            /*
             * elseif ~scalararg2
             */
            } else if (mclNotBool(mclVv(scalararg2, "scalararg2"))) {
                /*
                 * [rows columns] = size(arg2);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg2, "arg2"), 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_);
                        /*
                         * errorcode = 3;
                         */
                        mlfAssign(&errorcode, _mxarray4_);
                    } else {
                        mxDestroyArray(a_);
                    }
                /*
                 * return;
                 * end     
                 */
                }
            /*
             * else
             */
            } else {
                /*
                 * if (arg3 < 0 | arg4 < 0 | arg3 ~= round(arg3) | arg4 ~= round(arg4)),
                 */
                mxArray * a_
                  = mclInitialize(mclLt(mclVa(arg3, "arg3"), _mxarray0_));
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_, mclOr(a_, mclLt(mclVa(arg4, "arg4"), _mxarray0_)));
                }
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclNe(
                          mclVa(arg3, "arg3"), mlfRound(mclVa(arg3, "arg3")))));
                }
                if (mlfTobool(a_)
                    || mlfTobool(
                         mclOr(
                           a_,
                           mclNe(
                             mclVa(arg4, "arg4"),
                             mlfRound(mclVa(arg4, "arg4")))))) {
                    mxDestroyArray(a_);
                    /*
                     * errorcode = 4;
                     */
                    mlfAssign(&errorcode, _mxarray5_);
                    /*
                     * return;
                     */
                    goto return_;
                } else {
                    mxDestroyArray(a_);
                }
                /*
                 * end 
                 * rows = arg3;
                 */
                mlfAssign(rows, mclVa(arg3, "arg3"));
                /*
                 * columns = arg4;
                 */
                mlfAssign(columns, mclVa(arg4, "arg4"));
            /*
             * end
             */
            }
        /*
         * elseif nparms == 3
         */
        } else if (mclEqBool(mclVa(nparms, "nparms"), _mxarray4_)) {
            /*
             * [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);
            /*
             * [r3 c3] = size(arg3);
             */
            mlfSize(mlfVarargout(&r3, &c3, NULL), mclVa(arg3, "arg3"), 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_));
            /*
             * scalararg3 = (prod(size(arg3)) == 1);
             */
            mlfAssign(
              &scalararg3,
              mclEq(
                mlfProd(
                  mlfSize(mclValueVarargout(), mclVa(arg3, "arg3"), 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_9
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r2, "r2")));
                        if (mlfTobool(a_9)
                            || mlfTobool(
                                 mclOr(
                                   a_9,
                                   mclNe(mclVv(c1, "c1"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_9);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_9);
                        }
                    /*
                     * end
                     */
                    }
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end
             */
            }
            /*
             * 
             * if ~scalararg1 & ~scalararg3
             */
            {
                mxArray * a_
                  = mclInitialize(mclNot(mclVv(scalararg1, "scalararg1")));
                if (mlfTobool(a_)
                    && mlfTobool(
                         mclAnd(
                           a_, mclNot(mclVv(scalararg3, "scalararg3"))))) {
                    mxDestroyArray(a_);
                    /*
                     * if r1 ~= r3 | c1 ~= c3
                     */
                    {
                        mxArray * a_00
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r3, "r3")));
                        if (mlfTobool(a_00)
                            || mlfTobool(
                                 mclOr(
                                   a_00,
                                   mclNe(mclVv(c1, "c1"), mclVv(c3, "c3"))))) {
                            mxDestroyArray(a_00);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;                 
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_00);
                        }
                    /*
                     * end
                     */
                    }
                } 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_01
                          = mclInitialize(
                              mclNe(mclVv(r3, "r3"), mclVv(r2, "r2")));
                        if (mlfTobool(a_01)
                            || mlfTobool(
                                 mclOr(
                                   a_01,
                                   mclNe(mclVv(c3, "c3"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_01);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_01);
                        }
                    /*
                     * 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 ~= arg4 | columns ~= arg5 
                 */
                {
                    mxArray * a_
                      = mclInitialize(
                          mclNe(mclVv(*rows, "rows"), mclVa(arg4, "arg4")));
                    if (mlfTobool(a_)
                        || mlfTobool(
                             mclOr(
                               a_,
                               mclNe(
                                 mclVv(*columns, "columns"),
                                 mclVa(arg5, "arg5"))))) {
                        mxDestroyArray(a_);
                        /*
                         * errorcode = 3;
                         */
                        mlfAssign(&errorcode, _mxarray4_);
                    } else {
                        mxDestroyArray(a_);
                    }
                /*
                 * return;
                 * end     
                 */
                }
            /*
             * elseif ~scalararg2
             */
            } else if (mclNotBool(mclVv(scalararg2, "scalararg2"))) {
                /*
                 * [rows columns] = size(arg2);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg2, "arg2"), NULL);
                /*
                 * if rows ~= arg4 | columns ~= arg5 
                 */
                {
                    mxArray * a_
                      = mclInitialize(
                          mclNe(mclVv(*rows, "rows"), mclVa(arg4, "arg4")));
                    if (mlfTobool(a_)
                        || mlfTobool(
                             mclOr(
                               a_,
                               mclNe(
                                 mclVv(*columns, "columns"),
                                 mclVa(arg5, "arg5"))))) {
                        mxDestroyArray(a_);
                        /*
                         * errorcode = 3;
                         */
                        mlfAssign(&errorcode, _mxarray4_);
                    } else {
                        mxDestroyArray(a_);
                    }
                /*
                 * return;
                 * end
                 */
                }
            /*
             * elseif ~scalararg3
             */
            } else if (mclNotBool(mclVv(scalararg3, "scalararg3"))) {
                /*
                 * [rows columns] = size(arg3);
                 */
                mlfSize(
                  mlfVarargout(rows, columns, NULL), mclVa(arg3, "arg3"), NULL);
                /*
                 * if rows ~= arg4 | columns ~= arg5 
                 */
                {
                    mxArray * a_
                      = mclInit