rndcheck.c

好东西

            {
                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_4
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r2, "r2")));
                        if (mlfTobool(a_4)
                            || mlfTobool(
                                 mclOr(
                                   a_4,
                                   mclNe(mclVv(c1, "c1"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_4);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_4);
                        }
                    /*
                     * end
                     */
                    }
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end
             */
            }
            /*
             * if (arg3(1) < 0 | arg3(2) < 0 | arg3(1) ~= round(arg3(1)) | arg3(2) ~= round(arg3(2))),
             */
            {
                mxArray * a_
                  = mclInitialize(
                      mclLt(
                        mclIntArrayRef1(mclVa(arg3, "arg3"), 1), _mxarray0_));
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclLt(
                          mclIntArrayRef1(mclVa(arg3, "arg3"), 2),
                          _mxarray0_)));
                }
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclNe(
                          mclIntArrayRef1(mclVa(arg3, "arg3"), 1),
                          mlfRound(mclIntArrayRef1(mclVa(arg3, "arg3"), 1)))));
                }
                if (mlfTobool(a_)
                    || mlfTobool(
                         mclOr(
                           a_,
                           mclNe(
                             mclIntArrayRef1(mclVa(arg3, "arg3"), 2),
                             mlfRound(
                               mclIntArrayRef1(mclVa(arg3, "arg3"), 2)))))) {
                    mxDestroyArray(a_);
                    /*
                     * errorcode = 4;
                     */
                    mlfAssign(&errorcode, _mxarray5_);
                    /*
                     * return;
                     */
                    goto return_;
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end 
             */
            }
            /*
             * if ~scalararg1
             */
            if (mclNotBool(mclVv(scalararg1, "scalararg1"))) {
                /*
                 * if any(arg3 ~= size(arg1))
                 */
                if (mlfTobool(
                      mlfAny(
                        mclNe(
                          mclVa(arg3, "arg3"),
                          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(arg3 ~= size(arg2))
                 */
                if (mlfTobool(
                      mlfAny(
                        mclNe(
                          mclVa(arg3, "arg3"),
                          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);
            /*
             * else
             */
            } else {
                /*
                 * rows    = arg3(1);
                 */
                mlfAssign(rows, mclIntArrayRef1(mclVa(arg3, "arg3"), 1));
                /*
                 * columns = arg3(2);
                 */
                mlfAssign(columns, mclIntArrayRef1(mclVa(arg3, "arg3"), 2));
            /*
             * 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);
            /*
             * if prod(size(arg4)) ~= 2
             */
            if (mclNeBool(
                  mlfProd(
                    mlfSize(mclValueVarargout(), mclVa(arg4, "arg4"), NULL),
                    NULL),
                  _mxarray3_)) {
                /*
                 * errorcode = 2;
                 */
                mlfAssign(&errorcode, _mxarray3_);
                /*
                 * return;
                 */
                goto return_;
            /*
             * end
             */
            }
            /*
             * 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 (arg4(1) < 0 | arg4(2) < 0 | arg4(1) ~= round(arg4(1)) | arg4(2) ~= round(arg4(2))),
             */
            {
                mxArray * a_
                  = mclInitialize(
                      mclLt(
                        mclIntArrayRef1(mclVa(arg4, "arg4"), 1), _mxarray0_));
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclLt(
                          mclIntArrayRef1(mclVa(arg4, "arg4"), 2),
                          _mxarray0_)));
                }
                if (mlfTobool(a_)) {
                    mlfAssign(&a_, mlfScalar(1));
                } else {
                    mlfAssign(
                      &a_,
                      mclOr(
                        a_,
                        mclNe(
                          mclIntArrayRef1(mclVa(arg4, "arg4"), 1),
                          mlfRound(mclIntArrayRef1(mclVa(arg4, "arg4"), 1)))));
                }
                if (mlfTobool(a_)
                    || mlfTobool(
                         mclOr(
                           a_,
                           mclNe(
                             mclIntArrayRef1(mclVa(arg4, "arg4"), 2),
                             mlfRound(
                               mclIntArrayRef1(mclVa(arg4, "arg4"), 2)))))) {
                    mxDestroyArray(a_);
                    /*
                     * errorcode = 4;
                     */
                    mlfAssign(&errorcode, _mxarray5_);
                    /*
                     * return;
                     */
                    goto return_;
                } else {
                    mxDestroyArray(a_);
                }
            /*
             * end 
             */
            }
            /*
             * 
             * 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_5
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r2, "r2")));
                        if (mlfTobool(a_5)
                            || mlfTobool(
                                 mclOr(
                                   a_5,
                                   mclNe(mclVv(c1, "c1"), mclVv(c2, "c2"))))) {
                            mxDestroyArray(a_5);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;         
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_5);
                        }
                    /*
                     * 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_6
                          = mclInitialize(
                              mclNe(mclVv(r1, "r1"), mclVv(r3, "r3")));
                        if (mlfTobool(a_6)
                            || mlfTobool(
                                 mclOr(
                                   a_6,
                                   mclNe(mclVv(c1, "c1"), mclVv(c3, "c3"))))) {
                            mxDestroyArray(a_6);
                            /*
                             * errorcode = 1;
                             */
                            mlfAssign(&errorcode, _mxarray2_);
                            /*
                             * return;                 
                             */
                            goto return_;
                        } else {
                            mxDestroyArray(a_6);
                        }
                    /*
                     * end
                     */
                    }