dist/gcc/gengtype-parse.c

37 /* Simple one-token lookahead mechanism.  */
39 struct token
45 static struct token T;
47 /* Retrieve the code of the current token; if there is no current token,
50 token (void)
60 /* Retrieve the value of the current token (if any) and mark it consumed.
61    The next call to token() will get another token from the lexer.  */
71 /* This array is indexed by the token code minus CHAR_TOKEN_OFFSET.  */
93 /* This array is indexed by token code minus FIRST_TOKEN_WITH_VALUE.  */
105 /* Produce a printable representation for a token defined by CODE and
126    representation of the current token.  */
153 /* If the next token does not have code T, report a parse error; otherwise
154    return the token's value.  */
158   int u = token ();
173   int u = token ();
184 /* If the next token does not have one of the codes T1 or T2, report a
185    parse error; otherwise return the token's value.  */
189   int u = token ();
201 /* If the next token does not have one of the codes T1, T2, T3 or T4, report a
202    parse error; otherwise return the token's value.  */
206   int u = token ();
233   while (token () == STRING)
271       if (token () == ENUM)
277       if (token () == NUM
278 	  || token () == ':'
279 	  || token () == '+')
284       if (token () == '<')
291       if (token () == '>')
326   if (token () == '<')
338     switch (token ())
356 	if (token () != closer)
358 		       closer, token ());
377     switch (token ())
398 	parse_error ("unmatched '%c' while scanning for ';'", token ());
420     switch (token ())
470   if (token () == '(')
494   while (token () == '*')
543   switch (token ())
574   while (token () == ',')
590   if (token () != ')')
601   if (token () != GTY_TOKEN)
628   if (token () == ARRAY)
633   else if (token () == '(')
660   /* The first token in a direct-declarator must be an ID, a
662   switch (token ())
670       /* If the next token is '(', we are parsing a function declaration.
672       if (token () == '(')
686       if (in_struct && token () != '*')
689 	  while (token () != ')')
709       if (token () != '}')
743   if (token () == '*')
774   while (token () == '*')
803   while (token () != '}' && token () != EOF_TOKEN)
808       while (!ty && token () == IGNORABLE_CXX_KEYWORD)
818       if (!ty || token () == ':')
883   switch (token ())
913 	enum typekind kind = (token () == UNION) ? TYPE_UNION : TYPE_STRUCT;
921 	if (nested || token () == GTY_TOKEN)
927 	if (token () == ID)
936 	if (token () == GTY_TOKEN)
944 	if (token () == ':')
968 		while (token () != '{')
975 	    if (token () == '{')
1001 	else if (token () == '{')
1025       if (token () == ID)
1032       if (token () == '{')
1042       if (nested && token () == ';')
1073   gcc_assert (token () == TYPEDEF);
1106      present.  Instead, just eat whatever token is currently lookahead
1122   if (token () != GTY_TOKEN)
1154       switch (token ())
1174 	  parse_error ("unexpected top level token, %s", print_cur_token ());