windows-xp/Source/XPSP1/NT/ds/security/authz/test/adl/adlparser.cpp

#ifndef lint
static char yysccsid[] = "@(#)yaccpar	1.9 (Berkeley) 02/21/93";
#endif
#define YYBYACC 1
#define YYMAJOR 1
#define YYMINOR 9
#define yyclearin (yychar=(-1))
#define yyerrok (yyerrflag=0)
#define YYRECOVERING (yyerrflag!=0)
#define YYPREFIX "yy"
/*++

Copyright (c) 2000  Microsoft Corporation

Module Name:

   adl.y/adlparser.cpp

Abstract:

   YACC parser definition for the ADL language
   AdlParser::ParseAdl() function

Author:

    t-eugenz - August 2000

Environment:

    User mode only.

Revision History:

    Created - August 2000

--*/

#include "pch.h"
#include "adl.h"

/**/
/* YACC generates some long->short automatic conversion, disable the warning*/
/**/
#pragma warning(disable : 4242)

/**/
/* ISSUE-2000/08/28-t-eugenz*/
/* This is a private netlib function. */
/**/
    
extern "C" NET_API_STATUS
NetpwNameValidate(
    IN  LPTSTR  Name,
    IN  DWORD   NameType,
    IN  DWORD   Flags
    );

/**/
/* Name types for I_NetName* and I_NetListCanonicalize*/
/**/

#define NAMETYPE_USER           1
#define NAMETYPE_PASSWORD       2
#define NAMETYPE_GROUP          3
#define NAMETYPE_COMPUTER       4
#define NAMETYPE_EVENT          5
#define NAMETYPE_DOMAIN         6
#define NAMETYPE_SERVICE        7
#define NAMETYPE_NET            8
#define NAMETYPE_SHARE          9
#define NAMETYPE_MESSAGE        10
#define NAMETYPE_MESSAGEDEST    11
#define NAMETYPE_SHAREPASSWORD  12
#define NAMETYPE_WORKGROUP      13



/**/
/* Validate various tokens, with error handling*/
/* have to cast away const, since NetpNameValidate takes a non-const for some*/
/* reason*/
/**/

#define VALIDATE_USERNAME(TOK) \
    if( NetpwNameValidate( \
                          (WCHAR *)(TOK)->GetValue(), \
                          NAMETYPE_USER, \
                          0) != ERROR_SUCCESS) \
    { \
        this->SetErrorToken( TOK ); \
        throw AdlStatement::ERROR_INVALID_USERNAME; \
    }

#define VALIDATE_DOMAIN(TOK) \
    if( NetpwNameValidate( \
                          (WCHAR *)(TOK)->GetValue(), \
                          NAMETYPE_DOMAIN, \
                          0) != ERROR_SUCCESS) \
    { \
        this->SetErrorToken( TOK ); \
        throw AdlStatement::ERROR_INVALID_DOMAIN; \
    }
    
#define VALIDATE_PERMISSION(TOK) \
    { \
        for(DWORD i = 0;; i++) \
        { \
            if( (_pControl->pPermissions)[i].str == NULL ) \
            { \
                this->SetErrorToken( TOK ); \
                throw AdlStatement::ERROR_UNKNOWN_PERMISSION; \
            } \
            if(!_wcsicmp(TOK->GetValue(), \
                         (_pControl->pPermissions)[i].str)) \
            { \
                break; \
            } \
        } \
    }


/**/
/* YACC value type*/
/**/

#define YYSTYPE AdlToken *

/**/
/* YACC error handler: raise an exception*/
/**/

void yyerror(char *szErr)
{
    throw AdlStatement::ERROR_NOT_IN_LANGUAGE;
}



#define TK_ERROR 257
#define TK_IDENT 258
#define TK_AT 259
#define TK_SLASH 260
#define TK_PERIOD 261
#define TK_COMMA 262
#define TK_OPENPAREN 263
#define TK_CLOSEPAREN 264
#define TK_SEMICOLON 265
#define TK_EXCEPT 266
#define TK_ON 267
#define TK_ALLOWED 268
#define TK_AND 269
#define TK_AS 270
#define TK_THIS_OBJECT 271
#define TK_CONTAINERS 272
#define TK_OBJECTS 273
#define TK_CONTAINERS_OBJECTS 274
#define TK_NO_PROPAGATE 275
#define TK_LANG_ENGLISH 276
#define TK_LANG_REVERSE 277
#define YYERRCODE 256
short yylhs[] = {                                        -1,
    0,    0,    1,    1,    3,    3,    2,    2,    8,    8,
    4,    4,    4,    5,    5,    5,    6,    6,    6,   10,
    7,    7,    7,    9,    9,   13,   13,   13,   14,   14,
   12,   12,   12,   12,   12,   11,   11,   11,   11,   11,
   11,   11,
};
short yylen[] = {                                         2,
    2,    2,    1,    2,   10,    6,    1,    2,   10,    6,
    1,    3,    3,    1,    3,    3,    1,    3,    3,    1,
    1,    3,    3,    1,    3,    3,    3,    1,    1,    3,
    1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
    1,    1,
};
short yydefred[] = {                                      0,
    0,    0,    0,   42,   36,   40,   41,   37,   38,   39,
    0,    3,    0,   11,    0,    0,    0,    0,    0,    0,
    7,    4,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    8,    0,   12,    0,    0,   17,   20,   13,   29,
    0,   25,   27,   30,    0,   14,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,   19,   31,   32,   33,
   34,   35,    0,   21,   18,   15,    0,   16,    0,    0,
    0,    6,    0,    0,   10,    0,   23,   22,    0,    0,
    0,    0,    0,    5,    9,
};
short yydgoto[] = {                                       3,
   11,   19,   12,   13,   45,   36,   63,   21,   14,   37,
   15,   64,   16,   17,
};
short yysindex[] = {                                   -222,
 -238, -210,    0,    0,    0,    0,    0,    0,    0,    0,
 -238,    0, -184,    0, -249, -257, -136, -248, -210, -254,
    0,    0, -238, -240, -238, -238, -238, -238, -238, -238,
 -238,    0, -238,    0, -238, -179,    0,    0,    0,    0,
 -227,    0,    0,    0, -224,    0, -176, -220, -238, -152,
 -238, -238, -238, -238, -152, -216,    0,    0,    0,    0,
    0,    0, -173,    0,    0,    0, -168,    0, -167, -238,
 -152,    0, -152, -238,    0, -163,    0,    0, -159, -152,
 -152, -153, -151,    0,    0,
};
short yyrindex[] = {                                      0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
   41,    0,    0,    0, -199, -187,    0,    0,   80,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
 -196,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,
};
short yygindex[] = {                                      0,
    0,    0,   76,   -2,   62,  -31,  -44,   86,  -19,  -28,
  -24,  -49,   79,   88,
};
#define YYTABLESIZE 125
short yytable[] = {                                      20,
   38,   47,   40,   34,   43,   44,   39,   23,   38,   27,
   69,   46,   28,   33,   26,   46,   20,   31,    4,    5,
   57,   77,   65,   78,   38,   35,   38,    6,    7,    8,
    9,   10,   66,   30,   68,   82,   83,   52,   76,   53,
    1,   52,   79,   56,   54,   38,    4,    5,   54,   38,
   67,   70,   18,    1,    2,    6,    7,    8,    9,   10,
   29,   29,   28,   28,   28,   26,   26,   26,   28,   28,
   28,   26,   26,   26,   24,   24,   24,   23,   24,    2,
   24,   24,   49,   25,   26,   49,   22,   50,   71,   51,
   55,   72,   51,   23,   71,   73,   48,   75,   49,   74,
   26,   73,   49,   80,   32,   51,   42,   81,   71,   51,
   71,   84,    0,   85,   41,   73,    0,   73,   58,   59,
   60,   61,   62,   29,   30,
};
short yycheck[] = {                                       2,
   25,   33,   27,   23,   29,   30,   26,  262,   33,  259,
   55,   31,  270,  268,  269,   35,   19,  266,  257,  258,
   49,   71,   51,   73,   49,  266,   51,  266,  267,  268,
  269,  270,   52,  261,   54,   80,   81,  262,   70,  264,
    0,  262,   74,  264,  269,   70,  257,  258,  269,   74,
   53,  268,  263,  276,  277,  266,  267,  268,  269,  270,
  260,  261,  262,  263,  264,  262,  263,  264,  268,  269,
  270,  268,  269,  270,  262,  263,  264,  262,  263,    0,
  268,  269,  262,  268,  269,  262,   11,  267,  262,  269,
  267,  265,  269,  262,  262,  269,   35,  265,  262,  268,
  269,  269,  262,  267,   19,  269,   28,  267,  262,  269,
  262,  265,   -1,  265,   27,  269,   -1,  269,  271,  272,
  273,  274,  275,  260,  261,
};
#define YYFINAL 3
#ifndef YYDEBUG
#define YYDEBUG 0
#endif
#define YYMAXTOKEN 277
#ifndef YYSTYPE
typedef int YYSTYPE;
#endif
#ifdef YYSTACKSIZE
#undef YYMAXDEPTH
#define YYMAXDEPTH YYSTACKSIZE
#else
#ifdef YYMAXDEPTH
#define YYSTACKSIZE YYMAXDEPTH
#else
#define YYSTACKSIZE 500
#define YYMAXDEPTH 500
#endif
#endif
#define yystacksize YYSTACKSIZE
#define YYABORT goto yyabort
#define YYREJECT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab
int
AdlStatement::ParseAdl(const WCHAR *szInput)
{
    register int yym, yyn, yystate;

	int yydebug = 0;
	int yynerrs;
	int yyerrflag;
	int yychar;
	short *yyssp;
	YYSTYPE *yyvsp;
	YYSTYPE yyval;
	YYSTYPE yylval;
	short yyss[YYSTACKSIZE];
	YYSTYPE yyvs[YYSTACKSIZE];
	AdlLexer Lexer(szInput, this, _pControl->pLang);


    yynerrs = 0;
    yyerrflag = 0;
    yychar = (-1);

    yyssp = yyss;
    yyvsp = yyvs;
    *yyssp = yystate = 0;

yyloop:
    if (yyn = yydefred[yystate]) goto yyreduce;
    if (yychar < 0)
    {
        if ((yychar = Lexer.NextToken(&yylval)) < 0) yychar = 0;
    }
    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        if (yyssp >= yyss + yystacksize - 1)
        {
            goto yyoverflow;
        }
        *++yyssp = yystate = yytable[yyn];
        *++yyvsp = yylval;
        yychar = (-1);
        if (yyerrflag > 0)  --yyerrflag;
        goto yyloop;
    }
    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        yyn = yytable[yyn];
        goto yyreduce;
    }
    if (yyerrflag) goto yyinrecovery;
#ifdef lint
    goto yynewerror;
#endif
    yyerror("syntax error");
#ifdef lint
    goto yyerrlab;
#endif
yyinrecovery:
    if (yyerrflag < 3)
    {
        yyerrflag = 3;
        for (;;)
        {
            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
            {
                if (yyssp >= yyss + yystacksize - 1)
                {
                    goto yyoverflow;
                }
                *++yyssp = yystate = yytable[yyn];
                *++yyvsp = yylval;
                goto yyloop;
            }
            else
            {
                if (yyssp <= yyss) goto yyabort;
                --yyssp;
                --yyvsp;
            }
        }
    }
    else
    {
        if (yychar == 0) goto yyabort;
        yychar = (-1);
        goto yyloop;
    }
yyreduce:
    yym = yylen[yyn];
    yyval = yyvsp[1-yym];
    switch (yyn)
    {
case 1:
{
            /**/
            /* At the end of all ADL_STATEMENT's*/
            /* pop the extra AdlTree that was pushed*/
            /* on when the last ADL_STATEMENT*/
            /* was completed*/
            /**/
            
            this->PopEmpty();
        }
break;
case 2:
{
            /**/
            /* At the end of all ADL_STATEMENT's*/
            /* pop the extra AdlTree that was pushed*/
            /* on when the last ADL_STATEMENT*/
            /* was completed*/
            /**/
            
            this->PopEmpty();
        }
break;
case 5:
{
            this->Next();
        }
break;
case 6:
{
            this->Next();
        }
break;
case 9:
{
            this->Next();
        }
break;
case 10:
{
            this->Next();
        }
break;
case 11:
{
            this->Cur()->AddPrincipal( yyvsp[0] ); 
        }
break;
case 12:
{       
            this->Cur()->AddPrincipal( yyvsp[0] ); 
        }
break;
case 13:
{       
            this->Cur()->AddPrincipal( yyvsp[0] ); 
        }
break;
case 14:
{
            this->Cur()->AddExPrincipal( yyvsp[0] ); 
        }
break;
case 15:
{
            this->Cur()->AddExPrincipal( yyvsp[0] ); 
        }
break;
case 16:
{
            this->Cur()->AddExPrincipal( yyvsp[0] ); 
        }
break;
case 17:
{       
            this->Cur()->AddPermission( yyvsp[0] ); 
        }
break;
case 18:
{       
            this->Cur()->AddPermission( yyvsp[0] );
        }
break;
case 19:
{       
            this->Cur()->AddPermission( yyvsp[0] );
        }
break;
case 20:
{
            VALIDATE_PERMISSION(yyvsp[0]);
        }
break;
case 25:
{       
            /**/
            /* For now, impersonation is not supported*/
            /**/
            
            throw AdlStatement::ERROR_IMPERSONATION_UNSUPPORTED;
        }
break;
case 26:
{       
            VALIDATE_USERNAME(yyvsp[-2]);
            VALIDATE_DOMAIN(yyvsp[0]);
            AdlToken *newTok = new AdlToken(yyvsp[-2]->GetValue(),
                                            yyvsp[0]->GetValue(),
                                            yyvsp[-2]->GetStart(),
                                            yyvsp[0]->GetEnd());
            this->AddToken(newTok);
            yyval = newTok;
        }
break;
case 27:
{       

            VALIDATE_USERNAME(yyvsp[0]);
            VALIDATE_DOMAIN(yyvsp[-2]);
            AdlToken *newTok = new AdlToken(yyvsp[0]->GetValue(),
                                            yyvsp[-2]->GetValue(),
                                            yyvsp[-2]->GetStart(), 
                                            yyvsp[0]->GetEnd());
            this->AddToken(newTok);
            yyval = newTok;
        }
break;
case 28:
{
            VALIDATE_USERNAME(yyvsp[0]);
            yyval = yyvsp[0];
        }
break;
case 30:
{
            /**/
            /* Concatenate into single domain string*/
            /**/
            
            wstring newStr;
            newStr.append(yyvsp[-2]->GetValue());
            newStr.append(yyvsp[-1]->GetValue());
            newStr.append(yyvsp[0]->GetValue());
            AdlToken *newTok = new AdlToken(newStr.c_str(),
                                            yyvsp[-2]->GetStart(),
                                            yyvsp[-2]->GetEnd());
            this->AddToken(newTok);
            yyval = newTok;
        }
break;
case 31:
{
            this->Cur()->UnsetFlags(INHERIT_ONLY_ACE);
        }
break;
case 32:
{
            this->Cur()->SetFlags(CONTAINER_INHERIT_ACE);
        }
break;
case 33:
{
            this->Cur()->SetFlags(OBJECT_INHERIT_ACE);
        }
break;
case 34:
{
            this->Cur()->SetFlags(CONTAINER_INHERIT_ACE);
            this->Cur()->SetFlags(OBJECT_INHERIT_ACE);
        }
break;
case 35:
{
            this->Cur()->SetFlags(NO_PROPAGATE_INHERIT_ACE);
        }
break;
case 42:
{
            /**/
            /* This should never happen*/
            /**/

            throw AdlStatement::ERROR_FATAL_LEXER_ERROR;
        }
break;
    }
    yyssp -= yym;
    yystate = *yyssp;
    yyvsp -= yym;
    yym = yylhs[yyn];
    if (yystate == 0 && yym == 0)
    {
        yystate = YYFINAL;
        *++yyssp = YYFINAL;
        *++yyvsp = yyval;
        if (yychar < 0)
        {
            if ((yychar = Lexer.NextToken(&yylval)) < 0) yychar = 0;
        }
        if (yychar == 0) goto yyaccept;
        goto yyloop;
    }
    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
        yystate = yytable[yyn];
    else
        yystate = yydgoto[yym];
    if (yyssp >= yyss + yystacksize - 1)
    {
        goto yyoverflow;
    }
    *++yyssp = yystate;
    *++yyvsp = yyval;
    goto yyloop;
yyoverflow:
    yyerror("yacc stack overflow");
yyabort:
    return (1);
yyaccept:
    return (0);
}