isvarname.c

精通Matlab与C_C++混合程序设计.rar 是精通Matlab与C_C++混合程序设计 这本书的配套源码

static mxArray * Misvarname(int nargout_, mxArray * s) {
    #line 1 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMlineEnterFunction("d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m", "isvarname")
    #line 1 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mexLocalFunctionTable save_local_function_table_ = mclSetCurrentLocalFunctionTable(&_local_function_table_isvarname);
    #line 1 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mxArray * t = NULL;
    #line 1 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclCopyArray(&s);
    /*
     * %ISVARNAME True for valid variable name.
     * %   ISVARNAME(S) is true if S is a valid MATLAB variable name.
     * %   A valid variable name is a character string of letters, digits and
     * %   underscores, with length <= namelengthmax and the first character a letter.
     * %
     * %   See also ISKEYWORD, NAMELENGTHMAX.
     * 
     * %   Copyright 1984-2002 The MathWorks, Inc. 
     * %   $Revision: 1.7 $  $Date: 2002/04/26 03:56:46 $
     * 
     * t = ischar(s) & size(s,1) == 1 & length(s) <= namelengthmax;
     */
    #line 12 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMline(12);
    #line 12 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mlfAssign(&t, mclAnd(mclAnd(mlfIschar(mclVa(s, "s")), mclEq(mlfSize(mclValueVarargout(), mclVa(s, "s"), mlfScalar(1)), mlfScalar(1))), mclBoolToArray(mclLengthInt(mclVa(s, "s")) <= 63)));
    /*
     * if t
     */
    #line 13 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMline(13);
    #line 13 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    if (mlfTobool(mclVv(t, "t"))) {
        /*
         * t = isletter(s(1)) & all(isletter(s) | s == '_' | ('0' <= s & s <= '9'));
         */
        #line 14 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
        mclMline(14);
        #line 14 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
        mlfAssign(&t, mclAnd(mlfIsletter(mlfIndexRef(mclVa(s, "s"), "(?)", mlfScalar(1))), mlfAll(mclOr(mclOr(mlfIsletter(mclVa(s, "s")), mclEq(mclVa(s, "s"), mxCreateString("_"))), mclAnd(mclLe(mxCreateString("0"), mclVa(s, "s")), mclLe(mclVa(s, "s"), mxCreateString("9")))), NULL)));
        /*
         * t = t & ~iskeyword(s); 
         */
        #line 15 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
        mclMline(15);
        #line 15 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
        mlfAssign(&t, mclAnd(mclVv(t, "t"), mclNot(mlfIskeyword(mclVa(s, "s")))));
    /*
     * end
     */
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMline(16);
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    }
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclValidateOutput(t, 1, nargout_, "t", "isvarname");
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mxDestroyArray(s);
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclSetCurrentLocalFunctionTable(save_local_function_table_);
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMlineFunctionReturn()
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    return t;
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
    mclMlineExitFunctionReturn();
    #line 16 "d:\\matlab6p5\\toolbox\\matlab\\lang\\isvarname.m"
}