iskeyword.c

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

     * %ISKEYWORD Check if input is a keyword.
     * %   ISKEYWORD(S) returns one if S is a MATLAB keyword,
     * %   and 0 otherwise.  MATLAB keywords cannot be used 
     * %   as variable names.
     * %
     * %   ISKEYWORD used without any inputs returns a cell array containing
     * %   the MATLAB keywords.
     * %
     * %   See also ISVARNAME.
     * 
     * %   $Revision: 1.3 $  $Date: 2002/04/08 23:29:22 $
     * %   Copyright 1984-2002 The MathWorks, Inc.
     * 
     * L = {...
     */
    #line 15 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclMline(15);
    #line 15 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mlfAssign(&L, mlfVertcat(mlfCellhcat(mxCreateString("break"), NULL), mlfCellhcat(mxCreateString("case"), NULL), mlfCellhcat(mxCreateString("catch"), NULL), mlfCellhcat(mxCreateString("continue"), NULL), mlfCellhcat(mxCreateString("else"), NULL), mlfCellhcat(mxCreateString("elseif"), NULL), mlfCellhcat(mxCreateString("end"), NULL), mlfCellhcat(mxCreateString("for"), NULL), mlfCellhcat(mxCreateString("function"), NULL), mlfCellhcat(mxCreateString("global"), NULL), mlfCellhcat(mxCreateString("if"), NULL), mlfCellhcat(mxCreateString("otherwise"), NULL), mlfCellhcat(mxCreateString("persistent"), NULL), mlfCellhcat(mxCreateString("return"), NULL), mlfCellhcat(mxCreateString("switch"), NULL), mlfCellhcat(mxCreateString("try"), NULL), mlfCellhcat(mxCreateString("while"), NULL), NULL));
    /*
     * 'break',
     * 'case',
     * 'catch',
     * 'continue',
     * 'else',
     * 'elseif',
     * 'end',
     * 'for',
     * 'function',
     * 'global',
     * 'if',
     * 'otherwise',
     * 'persistent',
     * 'return',
     * 'switch',
     * 'try',
     * 'while',
     * };
     * 
     * if nargin==0
     */
    #line 35 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclMline(35);
    #line 35 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    if (nargin_ == 0) {
    /*
     * %  Return the list only
     * return
     * else
     */
    #line 38 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    } else {
        /*
         * L = any(strcmp(s,L));
         */
        #line 39 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
        mclMline(39);
        #line 39 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
        mlfAssign(&L, mlfAny(mlfStrcmp(mclVa(s, "s"), mclVv(L, "L")), NULL));
    /*
     * end
     */
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclMline(40);
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    }
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclValidateOutput(L, 1, nargout_, "L", "iskeyword");
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mxDestroyArray(s);
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclSetCurrentLocalFunctionTable(save_local_function_table_);
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclMlineFunctionReturn()
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    return L;
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
    mclMlineExitFunctionReturn();
    #line 40 "d:\\matlab6p5\\toolbox\\matlab\\lang\\iskeyword.m"
}