rndcheck.c

好东西

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