|
|
@@ -0,0 +1,4786 @@
|
|
|
+/* A Bison parser, made by GNU Bison 3.0.2. */
|
|
|
+
|
|
|
+/* Bison implementation for Yacc-like parsers in C
|
|
|
+
|
|
|
+ Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
|
|
|
+
|
|
|
+ This program is free software: you can redistribute it and/or modify
|
|
|
+ it under the terms of the GNU General Public License as published by
|
|
|
+ the Free Software Foundation, either version 3 of the License, or
|
|
|
+ (at your option) any later version.
|
|
|
+
|
|
|
+ This program is distributed in the hope that it will be useful,
|
|
|
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
+ GNU General Public License for more details.
|
|
|
+
|
|
|
+ You should have received a copy of the GNU General Public License
|
|
|
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
+
|
|
|
+/* As a special exception, you may create a larger work that contains
|
|
|
+ part or all of the Bison parser skeleton and distribute that work
|
|
|
+ under terms of your choice, so long as that work isn't itself a
|
|
|
+ parser generator using the skeleton or a modified version thereof
|
|
|
+ as a parser skeleton. Alternatively, if you modify or redistribute
|
|
|
+ the parser skeleton itself, you may (at your option) remove this
|
|
|
+ special exception, which will cause the skeleton and the resulting
|
|
|
+ Bison output files to be licensed under the GNU General Public
|
|
|
+ License without this special exception.
|
|
|
+
|
|
|
+ This special exception was added by the Free Software Foundation in
|
|
|
+ version 2.2 of Bison. */
|
|
|
+
|
|
|
+/* C LALR(1) parser skeleton written by Richard Stallman, by
|
|
|
+ simplifying the original so-called "semantic" parser. */
|
|
|
+
|
|
|
+/* All symbols defined below should begin with yy or YY, to avoid
|
|
|
+ infringing on user name space. This should be done even for local
|
|
|
+ variables, as they might otherwise be expanded by user macros.
|
|
|
+ There are some unavoidable exceptions within include files to
|
|
|
+ define necessary library symbols; they are noted "INFRINGES ON
|
|
|
+ USER NAME SPACE" below. */
|
|
|
+
|
|
|
+/* Identify Bison output. */
|
|
|
+#define YYBISON 1
|
|
|
+
|
|
|
+/* Bison version. */
|
|
|
+#define YYBISON_VERSION "3.0.2"
|
|
|
+
|
|
|
+/* Skeleton name. */
|
|
|
+#define YYSKELETON_NAME "yacc.c"
|
|
|
+
|
|
|
+/* Pure parsers. */
|
|
|
+#define YYPURE 1
|
|
|
+
|
|
|
+/* Push parsers. */
|
|
|
+#define YYPUSH 0
|
|
|
+
|
|
|
+/* Pull parsers. */
|
|
|
+#define YYPULL 1
|
|
|
+
|
|
|
+
|
|
|
+/* Substitute the variable and function names. */
|
|
|
+#define yyparse glcpp_parser_parse
|
|
|
+#define yylex glcpp_parser_lex
|
|
|
+#define yyerror glcpp_parser_error
|
|
|
+#define yydebug glcpp_parser_debug
|
|
|
+#define yynerrs glcpp_parser_nerrs
|
|
|
+
|
|
|
+
|
|
|
+/* Copy the first part of user declarations. */
|
|
|
+#line 1 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:339 */
|
|
|
+
|
|
|
+/*
|
|
|
+ * Copyright © 2010 Intel Corporation
|
|
|
+ *
|
|
|
+ * Permission is hereby granted, free of charge, to any person obtaining a
|
|
|
+ * copy of this software and associated documentation files (the "Software"),
|
|
|
+ * to deal in the Software without restriction, including without limitation
|
|
|
+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
|
+ * and/or sell copies of the Software, and to permit persons to whom the
|
|
|
+ * Software is furnished to do so, subject to the following conditions:
|
|
|
+ *
|
|
|
+ * The above copyright notice and this permission notice (including the next
|
|
|
+ * paragraph) shall be included in all copies or substantial portions of the
|
|
|
+ * Software.
|
|
|
+ *
|
|
|
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
|
+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
|
|
|
+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
|
|
+ * DEALINGS IN THE SOFTWARE.
|
|
|
+ */
|
|
|
+
|
|
|
+#include <stdio.h>
|
|
|
+#include <stdlib.h>
|
|
|
+#include <string.h>
|
|
|
+#include <assert.h>
|
|
|
+#include <inttypes.h>
|
|
|
+
|
|
|
+#include "glcpp.h"
|
|
|
+#include "main/core.h" /* for struct gl_extensions */
|
|
|
+#include "main/mtypes.h" /* for gl_api enum */
|
|
|
+
|
|
|
+static void
|
|
|
+yyerror (YYLTYPE *locp, glcpp_parser_t *parser, const char *error);
|
|
|
+
|
|
|
+static void
|
|
|
+_define_object_macro (glcpp_parser_t *parser,
|
|
|
+ YYLTYPE *loc,
|
|
|
+ const char *macro,
|
|
|
+ token_list_t *replacements);
|
|
|
+
|
|
|
+static void
|
|
|
+_define_function_macro (glcpp_parser_t *parser,
|
|
|
+ YYLTYPE *loc,
|
|
|
+ const char *macro,
|
|
|
+ string_list_t *parameters,
|
|
|
+ token_list_t *replacements);
|
|
|
+
|
|
|
+static string_list_t *
|
|
|
+_string_list_create (void *ctx);
|
|
|
+
|
|
|
+static void
|
|
|
+_string_list_append_item (string_list_t *list, const char *str);
|
|
|
+
|
|
|
+static int
|
|
|
+_string_list_contains (string_list_t *list, const char *member, int *index);
|
|
|
+
|
|
|
+static const char *
|
|
|
+_string_list_has_duplicate (string_list_t *list);
|
|
|
+
|
|
|
+static int
|
|
|
+_string_list_length (string_list_t *list);
|
|
|
+
|
|
|
+static int
|
|
|
+_string_list_equal (string_list_t *a, string_list_t *b);
|
|
|
+
|
|
|
+static argument_list_t *
|
|
|
+_argument_list_create (void *ctx);
|
|
|
+
|
|
|
+static void
|
|
|
+_argument_list_append (argument_list_t *list, token_list_t *argument);
|
|
|
+
|
|
|
+static int
|
|
|
+_argument_list_length (argument_list_t *list);
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_argument_list_member_at (argument_list_t *list, int index);
|
|
|
+
|
|
|
+/* Note: This function ralloc_steal()s the str pointer. */
|
|
|
+static token_t *
|
|
|
+_token_create_str (void *ctx, int type, char *str);
|
|
|
+
|
|
|
+static token_t *
|
|
|
+_token_create_ival (void *ctx, int type, int ival);
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_token_list_create (void *ctx);
|
|
|
+
|
|
|
+static void
|
|
|
+_token_list_append (token_list_t *list, token_t *token);
|
|
|
+
|
|
|
+static void
|
|
|
+_token_list_append_list (token_list_t *list, token_list_t *tail);
|
|
|
+
|
|
|
+static int
|
|
|
+_token_list_equal_ignoring_space (token_list_t *a, token_list_t *b);
|
|
|
+
|
|
|
+static void
|
|
|
+_parser_active_list_push (glcpp_parser_t *parser,
|
|
|
+ const char *identifier,
|
|
|
+ token_node_t *marker);
|
|
|
+
|
|
|
+static void
|
|
|
+_parser_active_list_pop (glcpp_parser_t *parser);
|
|
|
+
|
|
|
+static int
|
|
|
+_parser_active_list_contains (glcpp_parser_t *parser, const char *identifier);
|
|
|
+
|
|
|
+typedef enum {
|
|
|
+ EXPANSION_MODE_IGNORE_DEFINED,
|
|
|
+ EXPANSION_MODE_EVALUATE_DEFINED
|
|
|
+} expansion_mode_t;
|
|
|
+
|
|
|
+/* Expand list, and begin lexing from the result (after first
|
|
|
+ * prefixing a token of type 'head_token_type').
|
|
|
+ */
|
|
|
+static void
|
|
|
+_glcpp_parser_expand_and_lex_from (glcpp_parser_t *parser,
|
|
|
+ int head_token_type,
|
|
|
+ token_list_t *list,
|
|
|
+ expansion_mode_t mode);
|
|
|
+
|
|
|
+/* Perform macro expansion in-place on the given list. */
|
|
|
+static void
|
|
|
+_glcpp_parser_expand_token_list (glcpp_parser_t *parser,
|
|
|
+ token_list_t *list,
|
|
|
+ expansion_mode_t mode);
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_print_expanded_token_list (glcpp_parser_t *parser,
|
|
|
+ token_list_t *list);
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_push_if (glcpp_parser_t *parser, YYLTYPE *loc,
|
|
|
+ int condition);
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_change_if (glcpp_parser_t *parser, YYLTYPE *loc,
|
|
|
+ const char *type, int condition);
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_pop (glcpp_parser_t *parser, YYLTYPE *loc);
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_handle_version_declaration(glcpp_parser_t *parser, intmax_t version,
|
|
|
+ const char *ident, bool explicitly_set);
|
|
|
+
|
|
|
+static int
|
|
|
+glcpp_parser_lex (YYSTYPE *yylval, YYLTYPE *yylloc, glcpp_parser_t *parser);
|
|
|
+
|
|
|
+static void
|
|
|
+glcpp_parser_lex_from (glcpp_parser_t *parser, token_list_t *list);
|
|
|
+
|
|
|
+static void
|
|
|
+add_builtin_define(glcpp_parser_t *parser, const char *name, int value);
|
|
|
+
|
|
|
+
|
|
|
+#line 232 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:339 */
|
|
|
+
|
|
|
+# ifndef YY_NULLPTR
|
|
|
+# if defined __cplusplus && 201103L <= __cplusplus
|
|
|
+# define YY_NULLPTR nullptr
|
|
|
+# else
|
|
|
+# define YY_NULLPTR 0
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+
|
|
|
+/* Enabling verbose error messages. */
|
|
|
+#ifdef YYERROR_VERBOSE
|
|
|
+# undef YYERROR_VERBOSE
|
|
|
+# define YYERROR_VERBOSE 1
|
|
|
+#else
|
|
|
+# define YYERROR_VERBOSE 1
|
|
|
+#endif
|
|
|
+
|
|
|
+/* In a future release of Bison, this section will be replaced
|
|
|
+ by #include "glcpp-parse.h". */
|
|
|
+#ifndef YY_GLCPP_PARSER_SRC_GLSL_GLCPP_GLCPP_PARSE_H_INCLUDED
|
|
|
+# define YY_GLCPP_PARSER_SRC_GLSL_GLCPP_GLCPP_PARSE_H_INCLUDED
|
|
|
+/* Debug traces. */
|
|
|
+#ifndef YYDEBUG
|
|
|
+# define YYDEBUG 1
|
|
|
+#endif
|
|
|
+#if YYDEBUG
|
|
|
+extern int glcpp_parser_debug;
|
|
|
+#endif
|
|
|
+
|
|
|
+/* Token type. */
|
|
|
+#ifndef YYTOKENTYPE
|
|
|
+# define YYTOKENTYPE
|
|
|
+ enum yytokentype
|
|
|
+ {
|
|
|
+ DEFINED = 258,
|
|
|
+ ELIF_EXPANDED = 259,
|
|
|
+ HASH_TOKEN = 260,
|
|
|
+ DEFINE_TOKEN = 261,
|
|
|
+ FUNC_IDENTIFIER = 262,
|
|
|
+ OBJ_IDENTIFIER = 263,
|
|
|
+ ELIF = 264,
|
|
|
+ ELSE = 265,
|
|
|
+ ENDIF = 266,
|
|
|
+ ERROR_TOKEN = 267,
|
|
|
+ IF = 268,
|
|
|
+ IFDEF = 269,
|
|
|
+ IFNDEF = 270,
|
|
|
+ LINE = 271,
|
|
|
+ PRAGMA = 272,
|
|
|
+ UNDEF = 273,
|
|
|
+ VERSION_TOKEN = 274,
|
|
|
+ GARBAGE = 275,
|
|
|
+ IDENTIFIER = 276,
|
|
|
+ IF_EXPANDED = 277,
|
|
|
+ INTEGER = 278,
|
|
|
+ INTEGER_STRING = 279,
|
|
|
+ LINE_EXPANDED = 280,
|
|
|
+ NEWLINE = 281,
|
|
|
+ OTHER = 282,
|
|
|
+ PLACEHOLDER = 283,
|
|
|
+ SPACE = 284,
|
|
|
+ PLUS_PLUS = 285,
|
|
|
+ MINUS_MINUS = 286,
|
|
|
+ PASTE = 287,
|
|
|
+ OR = 288,
|
|
|
+ AND = 289,
|
|
|
+ EQUAL = 290,
|
|
|
+ NOT_EQUAL = 291,
|
|
|
+ LESS_OR_EQUAL = 292,
|
|
|
+ GREATER_OR_EQUAL = 293,
|
|
|
+ LEFT_SHIFT = 294,
|
|
|
+ RIGHT_SHIFT = 295,
|
|
|
+ UNARY = 296
|
|
|
+ };
|
|
|
+#endif
|
|
|
+
|
|
|
+/* Value type. */
|
|
|
+
|
|
|
+/* Location type. */
|
|
|
+#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
|
|
|
+typedef struct YYLTYPE YYLTYPE;
|
|
|
+struct YYLTYPE
|
|
|
+{
|
|
|
+ int first_line;
|
|
|
+ int first_column;
|
|
|
+ int last_line;
|
|
|
+ int last_column;
|
|
|
+};
|
|
|
+# define YYLTYPE_IS_DECLARED 1
|
|
|
+# define YYLTYPE_IS_TRIVIAL 1
|
|
|
+#endif
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+int glcpp_parser_parse (glcpp_parser_t *parser);
|
|
|
+
|
|
|
+#endif /* !YY_GLCPP_PARSER_SRC_GLSL_GLCPP_GLCPP_PARSE_H_INCLUDED */
|
|
|
+
|
|
|
+/* Copy the second part of user declarations. */
|
|
|
+
|
|
|
+#line 333 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:358 */
|
|
|
+
|
|
|
+#ifdef short
|
|
|
+# undef short
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifdef YYTYPE_UINT8
|
|
|
+typedef YYTYPE_UINT8 yytype_uint8;
|
|
|
+#else
|
|
|
+typedef unsigned char yytype_uint8;
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifdef YYTYPE_INT8
|
|
|
+typedef YYTYPE_INT8 yytype_int8;
|
|
|
+#else
|
|
|
+typedef signed char yytype_int8;
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifdef YYTYPE_UINT16
|
|
|
+typedef YYTYPE_UINT16 yytype_uint16;
|
|
|
+#else
|
|
|
+typedef unsigned short int yytype_uint16;
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifdef YYTYPE_INT16
|
|
|
+typedef YYTYPE_INT16 yytype_int16;
|
|
|
+#else
|
|
|
+typedef short int yytype_int16;
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifndef YYSIZE_T
|
|
|
+# ifdef __SIZE_TYPE__
|
|
|
+# define YYSIZE_T __SIZE_TYPE__
|
|
|
+# elif defined size_t
|
|
|
+# define YYSIZE_T size_t
|
|
|
+# elif ! defined YYSIZE_T
|
|
|
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# define YYSIZE_T size_t
|
|
|
+# else
|
|
|
+# define YYSIZE_T unsigned int
|
|
|
+# endif
|
|
|
+#endif
|
|
|
+
|
|
|
+#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
|
|
|
+
|
|
|
+#ifndef YY_
|
|
|
+# if defined YYENABLE_NLS && YYENABLE_NLS
|
|
|
+# if ENABLE_NLS
|
|
|
+# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# ifndef YY_
|
|
|
+# define YY_(Msgid) Msgid
|
|
|
+# endif
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifndef YY_ATTRIBUTE
|
|
|
+# if (defined __GNUC__ \
|
|
|
+ && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
|
|
|
+ || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
|
|
|
+# define YY_ATTRIBUTE(Spec) __attribute__(Spec)
|
|
|
+# else
|
|
|
+# define YY_ATTRIBUTE(Spec) /* empty */
|
|
|
+# endif
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifndef YY_ATTRIBUTE_PURE
|
|
|
+# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
|
|
|
+#endif
|
|
|
+
|
|
|
+#ifndef YY_ATTRIBUTE_UNUSED
|
|
|
+# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
|
|
|
+#endif
|
|
|
+
|
|
|
+#if !defined _Noreturn \
|
|
|
+ && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
|
|
|
+# if defined _MSC_VER && 1200 <= _MSC_VER
|
|
|
+# define _Noreturn __declspec (noreturn)
|
|
|
+# else
|
|
|
+# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
|
|
|
+# endif
|
|
|
+#endif
|
|
|
+
|
|
|
+/* Suppress unused-variable warnings by "using" E. */
|
|
|
+#if ! defined lint || defined __GNUC__
|
|
|
+# define YYUSE(E) ((void) (E))
|
|
|
+#else
|
|
|
+# define YYUSE(E) /* empty */
|
|
|
+#endif
|
|
|
+
|
|
|
+#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
|
|
|
+/* Suppress an incorrect diagnostic about yylval being uninitialized. */
|
|
|
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
|
|
|
+ _Pragma ("GCC diagnostic push") \
|
|
|
+ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
|
|
|
+ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
|
|
|
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
|
|
|
+ _Pragma ("GCC diagnostic pop")
|
|
|
+#else
|
|
|
+# define YY_INITIAL_VALUE(Value) Value
|
|
|
+#endif
|
|
|
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
|
|
|
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
|
|
|
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
|
|
|
+#endif
|
|
|
+#ifndef YY_INITIAL_VALUE
|
|
|
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
|
|
|
+#endif
|
|
|
+
|
|
|
+
|
|
|
+#if ! defined yyoverflow || YYERROR_VERBOSE
|
|
|
+
|
|
|
+/* The parser invokes alloca or malloc; define the necessary symbols. */
|
|
|
+
|
|
|
+# ifdef YYSTACK_USE_ALLOCA
|
|
|
+# if YYSTACK_USE_ALLOCA
|
|
|
+# ifdef __GNUC__
|
|
|
+# define YYSTACK_ALLOC __builtin_alloca
|
|
|
+# elif defined __BUILTIN_VA_ARG_INCR
|
|
|
+# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# elif defined _AIX
|
|
|
+# define YYSTACK_ALLOC __alloca
|
|
|
+# elif defined _MSC_VER
|
|
|
+# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# define alloca _alloca
|
|
|
+# else
|
|
|
+# define YYSTACK_ALLOC alloca
|
|
|
+# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
|
|
|
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+ /* Use EXIT_SUCCESS as a witness for stdlib.h. */
|
|
|
+# ifndef EXIT_SUCCESS
|
|
|
+# define EXIT_SUCCESS 0
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+
|
|
|
+# ifdef YYSTACK_ALLOC
|
|
|
+ /* Pacify GCC's 'empty if-body' warning. */
|
|
|
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
|
|
|
+# ifndef YYSTACK_ALLOC_MAXIMUM
|
|
|
+ /* The OS might guarantee only one guard page at the bottom of the stack,
|
|
|
+ and a page size can be as small as 4096 bytes. So we cannot safely
|
|
|
+ invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
|
|
|
+ to allow for a few compiler-allocated temporary stack slots. */
|
|
|
+# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
|
|
|
+# endif
|
|
|
+# else
|
|
|
+# define YYSTACK_ALLOC YYMALLOC
|
|
|
+# define YYSTACK_FREE YYFREE
|
|
|
+# ifndef YYSTACK_ALLOC_MAXIMUM
|
|
|
+# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
|
|
|
+# endif
|
|
|
+# if (defined __cplusplus && ! defined EXIT_SUCCESS \
|
|
|
+ && ! ((defined YYMALLOC || defined malloc) \
|
|
|
+ && (defined YYFREE || defined free)))
|
|
|
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# ifndef EXIT_SUCCESS
|
|
|
+# define EXIT_SUCCESS 0
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# ifndef YYMALLOC
|
|
|
+# define YYMALLOC malloc
|
|
|
+# if ! defined malloc && ! defined EXIT_SUCCESS
|
|
|
+void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# ifndef YYFREE
|
|
|
+# define YYFREE free
|
|
|
+# if ! defined free && ! defined EXIT_SUCCESS
|
|
|
+void free (void *); /* INFRINGES ON USER NAME SPACE */
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
|
|
|
+
|
|
|
+
|
|
|
+#if (! defined yyoverflow \
|
|
|
+ && (! defined __cplusplus \
|
|
|
+ || (defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \
|
|
|
+ && defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
|
|
|
+
|
|
|
+/* A type that is properly aligned for any stack member. */
|
|
|
+union yyalloc
|
|
|
+{
|
|
|
+ yytype_int16 yyss_alloc;
|
|
|
+ YYSTYPE yyvs_alloc;
|
|
|
+ YYLTYPE yyls_alloc;
|
|
|
+};
|
|
|
+
|
|
|
+/* The size of the maximum gap between one aligned stack and the next. */
|
|
|
+# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
|
|
|
+
|
|
|
+/* The size of an array large to enough to hold all stacks, each with
|
|
|
+ N elements. */
|
|
|
+# define YYSTACK_BYTES(N) \
|
|
|
+ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \
|
|
|
+ + 2 * YYSTACK_GAP_MAXIMUM)
|
|
|
+
|
|
|
+# define YYCOPY_NEEDED 1
|
|
|
+
|
|
|
+/* Relocate STACK from its old location to the new one. The
|
|
|
+ local variables YYSIZE and YYSTACKSIZE give the old and new number of
|
|
|
+ elements in the stack, and YYPTR gives the new location of the
|
|
|
+ stack. Advance YYPTR to a properly aligned location for the next
|
|
|
+ stack. */
|
|
|
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
|
|
|
+ do \
|
|
|
+ { \
|
|
|
+ YYSIZE_T yynewbytes; \
|
|
|
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
|
|
|
+ Stack = &yyptr->Stack_alloc; \
|
|
|
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
|
|
|
+ yyptr += yynewbytes / sizeof (*yyptr); \
|
|
|
+ } \
|
|
|
+ while (0)
|
|
|
+
|
|
|
+#endif
|
|
|
+
|
|
|
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
|
|
|
+/* Copy COUNT objects from SRC to DST. The source and destination do
|
|
|
+ not overlap. */
|
|
|
+# ifndef YYCOPY
|
|
|
+# if defined __GNUC__ && 1 < __GNUC__
|
|
|
+# define YYCOPY(Dst, Src, Count) \
|
|
|
+ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
|
|
|
+# else
|
|
|
+# define YYCOPY(Dst, Src, Count) \
|
|
|
+ do \
|
|
|
+ { \
|
|
|
+ YYSIZE_T yyi; \
|
|
|
+ for (yyi = 0; yyi < (Count); yyi++) \
|
|
|
+ (Dst)[yyi] = (Src)[yyi]; \
|
|
|
+ } \
|
|
|
+ while (0)
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+#endif /* !YYCOPY_NEEDED */
|
|
|
+
|
|
|
+/* YYFINAL -- State number of the termination state. */
|
|
|
+#define YYFINAL 2
|
|
|
+/* YYLAST -- Last index in YYTABLE. */
|
|
|
+#define YYLAST 652
|
|
|
+
|
|
|
+/* YYNTOKENS -- Number of terminals. */
|
|
|
+#define YYNTOKENS 64
|
|
|
+/* YYNNTS -- Number of nonterminals. */
|
|
|
+#define YYNNTS 25
|
|
|
+/* YYNRULES -- Number of rules. */
|
|
|
+#define YYNRULES 118
|
|
|
+/* YYNSTATES -- Number of states. */
|
|
|
+#define YYNSTATES 185
|
|
|
+
|
|
|
+/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
|
|
|
+ by yylex, with out-of-bounds checking. */
|
|
|
+#define YYUNDEFTOK 2
|
|
|
+#define YYMAXUTOK 296
|
|
|
+
|
|
|
+#define YYTRANSLATE(YYX) \
|
|
|
+ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
|
|
|
+
|
|
|
+/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
|
|
|
+ as returned by yylex, without out-of-bounds checking. */
|
|
|
+static const yytype_uint8 yytranslate[] =
|
|
|
+{
|
|
|
+ 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 54, 2, 2, 2, 50, 37, 2,
|
|
|
+ 52, 53, 48, 46, 56, 47, 61, 49, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 62,
|
|
|
+ 40, 63, 41, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 57, 2, 58, 36, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 59, 35, 60, 55, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
|
|
|
+ 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
|
|
|
+ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
|
|
|
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
|
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
|
|
|
+ 38, 39, 42, 43, 44, 45, 51
|
|
|
+};
|
|
|
+
|
|
|
+#if YYDEBUG
|
|
|
+ /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
|
|
|
+static const yytype_uint16 yyrline[] =
|
|
|
+{
|
|
|
+ 0, 205, 205, 207, 211, 212, 213, 218, 222, 227,
|
|
|
+ 232, 240, 253, 256, 259, 265, 268, 269, 269, 284,
|
|
|
+ 284, 287, 287, 304, 304, 327, 337, 337, 344, 344,
|
|
|
+ 351, 377, 397, 397, 410, 410, 413, 419, 425, 428,
|
|
|
+ 434, 437, 440, 446, 455, 460, 464, 471, 482, 493,
|
|
|
+ 500, 507, 514, 521, 528, 535, 542, 549, 556, 563,
|
|
|
+ 570, 577, 584, 596, 608, 615, 619, 623, 627, 631,
|
|
|
+ 637, 642, 650, 651, 655, 656, 659, 661, 667, 672,
|
|
|
+ 679, 683, 687, 691, 695, 699, 706, 707, 708, 709,
|
|
|
+ 710, 711, 712, 713, 714, 715, 716, 717, 718, 719,
|
|
|
+ 720, 721, 722, 723, 724, 725, 726, 727, 728, 729,
|
|
|
+ 730, 731, 732, 733, 734, 735, 736, 737, 738
|
|
|
+};
|
|
|
+#endif
|
|
|
+
|
|
|
+#if YYDEBUG || YYERROR_VERBOSE || 1
|
|
|
+/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
|
|
|
+ First, the terminals, then, starting at YYNTOKENS, nonterminals. */
|
|
|
+static const char *const yytname[] =
|
|
|
+{
|
|
|
+ "$end", "error", "$undefined", "DEFINED", "ELIF_EXPANDED", "HASH_TOKEN",
|
|
|
+ "DEFINE_TOKEN", "FUNC_IDENTIFIER", "OBJ_IDENTIFIER", "ELIF", "ELSE",
|
|
|
+ "ENDIF", "ERROR_TOKEN", "IF", "IFDEF", "IFNDEF", "LINE", "PRAGMA",
|
|
|
+ "UNDEF", "VERSION_TOKEN", "GARBAGE", "IDENTIFIER", "IF_EXPANDED",
|
|
|
+ "INTEGER", "INTEGER_STRING", "LINE_EXPANDED", "NEWLINE", "OTHER",
|
|
|
+ "PLACEHOLDER", "SPACE", "PLUS_PLUS", "MINUS_MINUS", "PASTE", "OR", "AND",
|
|
|
+ "'|'", "'^'", "'&'", "EQUAL", "NOT_EQUAL", "'<'", "'>'", "LESS_OR_EQUAL",
|
|
|
+ "GREATER_OR_EQUAL", "LEFT_SHIFT", "RIGHT_SHIFT", "'+'", "'-'", "'*'",
|
|
|
+ "'/'", "'%'", "UNARY", "'('", "')'", "'!'", "'~'", "','", "'['", "']'",
|
|
|
+ "'{'", "'}'", "'.'", "';'", "'='", "$accept", "input", "line",
|
|
|
+ "expanded_line", "define", "control_line", "$@1", "control_line_success",
|
|
|
+ "$@2", "$@3", "$@4", "$@5", "$@6", "$@7", "$@8", "control_line_error",
|
|
|
+ "integer_constant", "expression", "identifier_list", "text_line",
|
|
|
+ "replacement_list", "junk", "pp_tokens", "preprocessing_token",
|
|
|
+ "operator", YY_NULLPTR
|
|
|
+};
|
|
|
+#endif
|
|
|
+
|
|
|
+# ifdef YYPRINT
|
|
|
+/* YYTOKNUM[NUM] -- (External) token number corresponding to the
|
|
|
+ (internal) symbol number NUM (which must be that of a token). */
|
|
|
+static const yytype_uint16 yytoknum[] =
|
|
|
+{
|
|
|
+ 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
|
|
|
+ 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
|
|
|
+ 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
|
|
|
+ 285, 286, 287, 288, 289, 124, 94, 38, 290, 291,
|
|
|
+ 60, 62, 292, 293, 294, 295, 43, 45, 42, 47,
|
|
|
+ 37, 296, 40, 41, 33, 126, 44, 91, 93, 123,
|
|
|
+ 125, 46, 59, 61
|
|
|
+};
|
|
|
+# endif
|
|
|
+
|
|
|
+#define YYPACT_NINF -142
|
|
|
+
|
|
|
+#define yypact_value_is_default(Yystate) \
|
|
|
+ (!!((Yystate) == (-142)))
|
|
|
+
|
|
|
+#define YYTABLE_NINF -1
|
|
|
+
|
|
|
+#define yytable_value_is_error(Yytable_value) \
|
|
|
+ 0
|
|
|
+
|
|
|
+ /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
|
|
|
+ STATE-NUM. */
|
|
|
+static const yytype_int16 yypact[] =
|
|
|
+{
|
|
|
+ -142, 134, -142, -142, -18, 578, -142, -18, -142, -15,
|
|
|
+ -142, -142, 26, -142, -142, -142, -142, -142, -142, -142,
|
|
|
+ -142, -142, -142, -142, -142, -142, -142, -142, -142, -142,
|
|
|
+ -142, -142, -142, -142, -142, -142, -142, -142, -142, -142,
|
|
|
+ -142, -142, -142, -142, -142, -142, -142, -142, -142, -142,
|
|
|
+ -142, -142, 182, -142, -142, -142, -142, -142, -18, -18,
|
|
|
+ -18, -18, -18, -142, 508, 7, 230, -142, -142, 9,
|
|
|
+ 25, -142, -142, -142, 35, -142, -15, 470, -142, 533,
|
|
|
+ 81, -142, -142, -142, -142, -142, -142, -23, -142, -142,
|
|
|
+ -142, -18, -18, -18, -18, -18, -18, -18, -18, -18,
|
|
|
+ -18, -18, -18, -18, -18, -18, -18, -18, -18, -142,
|
|
|
+ 65, -142, 278, 38, 58, -142, -142, 470, 90, 91,
|
|
|
+ 470, -142, 92, 37, 326, -142, -142, 89, -142, 571,
|
|
|
+ 587, 602, 83, 102, 0, 0, 33, 33, 33, 33,
|
|
|
+ 20, 20, 60, 60, -142, -142, -142, 66, 470, -142,
|
|
|
+ -142, -142, -142, 374, 470, 470, 422, 109, 110, -142,
|
|
|
+ -142, -142, -14, 131, 470, -142, 136, 470, 172, -142,
|
|
|
+ -142, -142, -142, 470, 4, -142, -142, -142, 173, 470,
|
|
|
+ 179, -142, 175, -142, -142
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
|
|
|
+ Performed when YYTABLE does not specify something else to do. Zero
|
|
|
+ means the default is an error. */
|
|
|
+static const yytype_uint8 yydefact[] =
|
|
|
+{
|
|
|
+ 2, 0, 1, 83, 0, 0, 80, 0, 81, 0,
|
|
|
+ 72, 84, 85, 117, 118, 116, 112, 111, 110, 109,
|
|
|
+ 93, 107, 108, 103, 104, 105, 106, 101, 102, 95,
|
|
|
+ 96, 94, 99, 100, 88, 89, 98, 97, 114, 86,
|
|
|
+ 87, 90, 91, 92, 113, 115, 3, 7, 4, 15,
|
|
|
+ 16, 6, 0, 78, 82, 46, 44, 43, 0, 0,
|
|
|
+ 0, 0, 0, 45, 0, 19, 0, 32, 34, 0,
|
|
|
+ 23, 26, 28, 17, 0, 21, 0, 0, 38, 0,
|
|
|
+ 0, 5, 73, 85, 79, 68, 67, 0, 65, 66,
|
|
|
+ 9, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
|
|
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 41,
|
|
|
+ 0, 31, 0, 0, 0, 40, 25, 0, 0, 0,
|
|
|
+ 0, 39, 0, 0, 0, 8, 10, 0, 69, 47,
|
|
|
+ 48, 49, 50, 51, 53, 52, 57, 56, 55, 54,
|
|
|
+ 59, 58, 61, 60, 64, 63, 62, 0, 74, 20,
|
|
|
+ 30, 33, 35, 0, 76, 76, 0, 0, 0, 36,
|
|
|
+ 42, 11, 0, 0, 75, 24, 0, 77, 0, 18,
|
|
|
+ 22, 37, 70, 74, 0, 12, 27, 29, 0, 74,
|
|
|
+ 0, 13, 0, 71, 14
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYPGOTO[NTERM-NUM]. */
|
|
|
+static const yytype_int16 yypgoto[] =
|
|
|
+{
|
|
|
+ -142, -142, -142, -142, -142, 47, -142, -142, -142, -142,
|
|
|
+ -142, -142, -142, -142, -142, -142, -5, -6, -142, -142,
|
|
|
+ -141, 49, -1, -50, -142
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYDEFGOTO[NTERM-NUM]. */
|
|
|
+static const yytype_int16 yydefgoto[] =
|
|
|
+{
|
|
|
+ -1, 1, 46, 47, 149, 48, 120, 49, 110, 122,
|
|
|
+ 117, 118, 119, 113, 114, 50, 63, 64, 174, 51,
|
|
|
+ 163, 166, 164, 53, 54
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
|
|
|
+ positive, shift that token. If negative, reduce the rule whose
|
|
|
+ number is the opposite. If YYTABLE_NINF, syntax error. */
|
|
|
+static const yytype_uint8 yytable[] =
|
|
|
+{
|
|
|
+ 52, 79, 84, 55, 80, 56, 57, 172, 56, 57,
|
|
|
+ 91, 92, 93, 94, 95, 96, 97, 98, 99, 100,
|
|
|
+ 101, 102, 103, 104, 105, 106, 107, 108, 58, 59,
|
|
|
+ 128, 5, 178, 109, 60, 115, 61, 62, 182, 173,
|
|
|
+ 98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
|
|
|
+ 108, 116, 85, 86, 87, 88, 89, 179, 158, 81,
|
|
|
+ 180, 121, 84, 159, 151, 112, 104, 105, 106, 107,
|
|
|
+ 108, 123, 147, 148, 84, 127, 124, 102, 103, 104,
|
|
|
+ 105, 106, 107, 108, 152, 129, 130, 131, 132, 133,
|
|
|
+ 134, 135, 136, 137, 138, 139, 140, 141, 142, 143,
|
|
|
+ 144, 145, 146, 84, 56, 57, 84, 126, 106, 107,
|
|
|
+ 108, 154, 155, 157, 84, 161, 153, 84, 162, 156,
|
|
|
+ 95, 96, 97, 98, 99, 100, 101, 102, 103, 104,
|
|
|
+ 105, 106, 107, 108, 2, 170, 171, 3, 4, 5,
|
|
|
+ 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
|
|
|
+ 106, 107, 108, 167, 167, 6, 7, 175, 8, 9,
|
|
|
+ 10, 11, 176, 12, 13, 14, 15, 16, 17, 18,
|
|
|
+ 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
|
|
|
+ 29, 30, 31, 32, 33, 3, 34, 35, 36, 37,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 177, 181,
|
|
|
+ 183, 184, 0, 6, 168, 0, 8, 0, 82, 11,
|
|
|
+ 0, 83, 13, 14, 15, 16, 17, 18, 19, 20,
|
|
|
+ 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
|
|
|
+ 31, 32, 33, 3, 34, 35, 36, 37, 38, 39,
|
|
|
+ 40, 41, 42, 43, 44, 45, 0, 0, 0, 0,
|
|
|
+ 0, 6, 0, 0, 8, 0, 111, 11, 0, 83,
|
|
|
+ 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
|
|
|
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
|
|
|
+ 33, 3, 34, 35, 36, 37, 38, 39, 40, 41,
|
|
|
+ 42, 43, 44, 45, 0, 0, 0, 0, 0, 6,
|
|
|
+ 0, 0, 8, 0, 150, 11, 0, 83, 13, 14,
|
|
|
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
|
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 3,
|
|
|
+ 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
|
|
|
+ 44, 45, 0, 0, 0, 0, 0, 6, 0, 0,
|
|
|
+ 8, 0, 160, 11, 0, 83, 13, 14, 15, 16,
|
|
|
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26,
|
|
|
+ 27, 28, 29, 30, 31, 32, 33, 3, 34, 35,
|
|
|
+ 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
|
|
|
+ 0, 0, 0, 0, 0, 6, 0, 0, 8, 0,
|
|
|
+ 165, 11, 0, 83, 13, 14, 15, 16, 17, 18,
|
|
|
+ 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
|
|
|
+ 29, 30, 31, 32, 33, 3, 34, 35, 36, 37,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 0, 0,
|
|
|
+ 0, 0, 0, 6, 0, 0, 8, 0, 169, 11,
|
|
|
+ 0, 83, 13, 14, 15, 16, 17, 18, 19, 20,
|
|
|
+ 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
|
|
|
+ 31, 32, 33, 3, 34, 35, 36, 37, 38, 39,
|
|
|
+ 40, 41, 42, 43, 44, 45, 0, 0, 0, 0,
|
|
|
+ 0, 6, 0, 0, 8, 0, 0, 11, 0, 83,
|
|
|
+ 13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
|
|
|
+ 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
|
|
|
+ 33, 0, 34, 35, 36, 37, 38, 39, 40, 41,
|
|
|
+ 42, 43, 44, 45, 90, 0, 0, 0, 0, 0,
|
|
|
+ 0, 91, 92, 93, 94, 95, 96, 97, 98, 99,
|
|
|
+ 100, 101, 102, 103, 104, 105, 106, 107, 108, 125,
|
|
|
+ 0, 0, 0, 0, 0, 0, 91, 92, 93, 94,
|
|
|
+ 95, 96, 97, 98, 99, 100, 101, 102, 103, 104,
|
|
|
+ 105, 106, 107, 108, 65, 0, 0, 66, 67, 68,
|
|
|
+ 69, 70, 71, 72, 73, 74, 75, 76, 77, 0,
|
|
|
+ 0, 0, 0, 0, 78, 92, 93, 94, 95, 96,
|
|
|
+ 97, 98, 99, 100, 101, 102, 103, 104, 105, 106,
|
|
|
+ 107, 108, 93, 94, 95, 96, 97, 98, 99, 100,
|
|
|
+ 101, 102, 103, 104, 105, 106, 107, 108, 94, 95,
|
|
|
+ 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
|
|
|
+ 106, 107, 108
|
|
|
+};
|
|
|
+
|
|
|
+static const yytype_int16 yycheck[] =
|
|
|
+{
|
|
|
+ 1, 7, 52, 21, 9, 23, 24, 21, 23, 24,
|
|
|
+ 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
|
|
|
+ 43, 44, 45, 46, 47, 48, 49, 50, 46, 47,
|
|
|
+ 53, 5, 173, 26, 52, 26, 54, 55, 179, 53,
|
|
|
+ 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
|
|
|
+ 50, 26, 58, 59, 60, 61, 62, 53, 21, 12,
|
|
|
+ 56, 26, 112, 26, 26, 66, 46, 47, 48, 49,
|
|
|
+ 50, 76, 7, 8, 124, 80, 77, 44, 45, 46,
|
|
|
+ 47, 48, 49, 50, 26, 91, 92, 93, 94, 95,
|
|
|
+ 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
|
|
|
+ 106, 107, 108, 153, 23, 24, 156, 26, 48, 49,
|
|
|
+ 50, 21, 21, 21, 164, 26, 117, 167, 52, 120,
|
|
|
+ 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
|
|
|
+ 47, 48, 49, 50, 0, 26, 26, 3, 4, 5,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
|
|
|
+ 48, 49, 50, 154, 155, 21, 22, 26, 24, 25,
|
|
|
+ 26, 27, 26, 29, 30, 31, 32, 33, 34, 35,
|
|
|
+ 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
|
|
|
+ 46, 47, 48, 49, 50, 3, 52, 53, 54, 55,
|
|
|
+ 56, 57, 58, 59, 60, 61, 62, 63, 26, 26,
|
|
|
+ 21, 26, -1, 21, 155, -1, 24, -1, 26, 27,
|
|
|
+ -1, 29, 30, 31, 32, 33, 34, 35, 36, 37,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
|
|
|
+ 48, 49, 50, 3, 52, 53, 54, 55, 56, 57,
|
|
|
+ 58, 59, 60, 61, 62, 63, -1, -1, -1, -1,
|
|
|
+ -1, 21, -1, -1, 24, -1, 26, 27, -1, 29,
|
|
|
+ 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
|
|
|
+ 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
|
|
|
+ 50, 3, 52, 53, 54, 55, 56, 57, 58, 59,
|
|
|
+ 60, 61, 62, 63, -1, -1, -1, -1, -1, 21,
|
|
|
+ -1, -1, 24, -1, 26, 27, -1, 29, 30, 31,
|
|
|
+ 32, 33, 34, 35, 36, 37, 38, 39, 40, 41,
|
|
|
+ 42, 43, 44, 45, 46, 47, 48, 49, 50, 3,
|
|
|
+ 52, 53, 54, 55, 56, 57, 58, 59, 60, 61,
|
|
|
+ 62, 63, -1, -1, -1, -1, -1, 21, -1, -1,
|
|
|
+ 24, -1, 26, 27, -1, 29, 30, 31, 32, 33,
|
|
|
+ 34, 35, 36, 37, 38, 39, 40, 41, 42, 43,
|
|
|
+ 44, 45, 46, 47, 48, 49, 50, 3, 52, 53,
|
|
|
+ 54, 55, 56, 57, 58, 59, 60, 61, 62, 63,
|
|
|
+ -1, -1, -1, -1, -1, 21, -1, -1, 24, -1,
|
|
|
+ 26, 27, -1, 29, 30, 31, 32, 33, 34, 35,
|
|
|
+ 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
|
|
|
+ 46, 47, 48, 49, 50, 3, 52, 53, 54, 55,
|
|
|
+ 56, 57, 58, 59, 60, 61, 62, 63, -1, -1,
|
|
|
+ -1, -1, -1, 21, -1, -1, 24, -1, 26, 27,
|
|
|
+ -1, 29, 30, 31, 32, 33, 34, 35, 36, 37,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
|
|
|
+ 48, 49, 50, 3, 52, 53, 54, 55, 56, 57,
|
|
|
+ 58, 59, 60, 61, 62, 63, -1, -1, -1, -1,
|
|
|
+ -1, 21, -1, -1, 24, -1, -1, 27, -1, 29,
|
|
|
+ 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
|
|
|
+ 40, 41, 42, 43, 44, 45, 46, 47, 48, 49,
|
|
|
+ 50, -1, 52, 53, 54, 55, 56, 57, 58, 59,
|
|
|
+ 60, 61, 62, 63, 26, -1, -1, -1, -1, -1,
|
|
|
+ -1, 33, 34, 35, 36, 37, 38, 39, 40, 41,
|
|
|
+ 42, 43, 44, 45, 46, 47, 48, 49, 50, 26,
|
|
|
+ -1, -1, -1, -1, -1, -1, 33, 34, 35, 36,
|
|
|
+ 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
|
|
|
+ 47, 48, 49, 50, 6, -1, -1, 9, 10, 11,
|
|
|
+ 12, 13, 14, 15, 16, 17, 18, 19, 20, -1,
|
|
|
+ -1, -1, -1, -1, 26, 34, 35, 36, 37, 38,
|
|
|
+ 39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
|
|
|
+ 49, 50, 35, 36, 37, 38, 39, 40, 41, 42,
|
|
|
+ 43, 44, 45, 46, 47, 48, 49, 50, 36, 37,
|
|
|
+ 38, 39, 40, 41, 42, 43, 44, 45, 46, 47,
|
|
|
+ 48, 49, 50
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
|
|
|
+ symbol of state STATE-NUM. */
|
|
|
+static const yytype_uint8 yystos[] =
|
|
|
+{
|
|
|
+ 0, 65, 0, 3, 4, 5, 21, 22, 24, 25,
|
|
|
+ 26, 27, 29, 30, 31, 32, 33, 34, 35, 36,
|
|
|
+ 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
|
|
|
+ 47, 48, 49, 50, 52, 53, 54, 55, 56, 57,
|
|
|
+ 58, 59, 60, 61, 62, 63, 66, 67, 69, 71,
|
|
|
+ 79, 83, 86, 87, 88, 21, 23, 24, 46, 47,
|
|
|
+ 52, 54, 55, 80, 81, 6, 9, 10, 11, 12,
|
|
|
+ 13, 14, 15, 16, 17, 18, 19, 20, 26, 81,
|
|
|
+ 80, 69, 26, 29, 87, 81, 81, 81, 81, 81,
|
|
|
+ 26, 33, 34, 35, 36, 37, 38, 39, 40, 41,
|
|
|
+ 42, 43, 44, 45, 46, 47, 48, 49, 50, 26,
|
|
|
+ 72, 26, 86, 77, 78, 26, 26, 74, 75, 76,
|
|
|
+ 70, 26, 73, 80, 86, 26, 26, 80, 53, 81,
|
|
|
+ 81, 81, 81, 81, 81, 81, 81, 81, 81, 81,
|
|
|
+ 81, 81, 81, 81, 81, 81, 81, 7, 8, 68,
|
|
|
+ 26, 26, 26, 86, 21, 21, 86, 21, 21, 26,
|
|
|
+ 26, 26, 52, 84, 86, 26, 85, 86, 85, 26,
|
|
|
+ 26, 26, 21, 53, 82, 26, 26, 26, 84, 53,
|
|
|
+ 56, 26, 84, 21, 26
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
|
|
|
+static const yytype_uint8 yyr1[] =
|
|
|
+{
|
|
|
+ 0, 64, 65, 65, 66, 66, 66, 66, 67, 67,
|
|
|
+ 67, 67, 68, 68, 68, 69, 69, 70, 69, 72,
|
|
|
+ 71, 73, 71, 74, 71, 71, 75, 71, 76, 71,
|
|
|
+ 71, 71, 77, 71, 78, 71, 71, 71, 71, 71,
|
|
|
+ 79, 79, 79, 80, 80, 81, 81, 81, 81, 81,
|
|
|
+ 81, 81, 81, 81, 81, 81, 81, 81, 81, 81,
|
|
|
+ 81, 81, 81, 81, 81, 81, 81, 81, 81, 81,
|
|
|
+ 82, 82, 83, 83, 84, 84, 85, 85, 86, 86,
|
|
|
+ 87, 87, 87, 87, 87, 87, 88, 88, 88, 88,
|
|
|
+ 88, 88, 88, 88, 88, 88, 88, 88, 88, 88,
|
|
|
+ 88, 88, 88, 88, 88, 88, 88, 88, 88, 88,
|
|
|
+ 88, 88, 88, 88, 88, 88, 88, 88, 88
|
|
|
+};
|
|
|
+
|
|
|
+ /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
|
|
|
+static const yytype_uint8 yyr2[] =
|
|
|
+{
|
|
|
+ 0, 2, 0, 2, 1, 2, 1, 1, 3, 3,
|
|
|
+ 3, 4, 3, 5, 6, 1, 1, 0, 5, 0,
|
|
|
+ 4, 0, 5, 0, 5, 3, 0, 6, 0, 6,
|
|
|
+ 4, 3, 0, 4, 0, 4, 4, 5, 2, 3,
|
|
|
+ 3, 3, 4, 1, 1, 1, 1, 3, 3, 3,
|
|
|
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
|
|
|
+ 3, 3, 3, 3, 3, 2, 2, 2, 2, 3,
|
|
|
+ 1, 3, 1, 2, 0, 1, 0, 1, 1, 2,
|
|
|
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
|
|
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
|
|
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
|
|
+ 1, 1, 1, 1, 1, 1, 1, 1, 1
|
|
|
+};
|
|
|
+
|
|
|
+
|
|
|
+#define yyerrok (yyerrstatus = 0)
|
|
|
+#define yyclearin (yychar = YYEMPTY)
|
|
|
+#define YYEMPTY (-2)
|
|
|
+#define YYEOF 0
|
|
|
+
|
|
|
+#define YYACCEPT goto yyacceptlab
|
|
|
+#define YYABORT goto yyabortlab
|
|
|
+#define YYERROR goto yyerrorlab
|
|
|
+
|
|
|
+
|
|
|
+#define YYRECOVERING() (!!yyerrstatus)
|
|
|
+
|
|
|
+#define YYBACKUP(Token, Value) \
|
|
|
+do \
|
|
|
+ if (yychar == YYEMPTY) \
|
|
|
+ { \
|
|
|
+ yychar = (Token); \
|
|
|
+ yylval = (Value); \
|
|
|
+ YYPOPSTACK (yylen); \
|
|
|
+ yystate = *yyssp; \
|
|
|
+ goto yybackup; \
|
|
|
+ } \
|
|
|
+ else \
|
|
|
+ { \
|
|
|
+ yyerror (&yylloc, parser, YY_("syntax error: cannot back up")); \
|
|
|
+ YYERROR; \
|
|
|
+ } \
|
|
|
+while (0)
|
|
|
+
|
|
|
+/* Error token number */
|
|
|
+#define YYTERROR 1
|
|
|
+#define YYERRCODE 256
|
|
|
+
|
|
|
+
|
|
|
+/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
|
|
|
+ If N is 0, then set CURRENT to the empty location which ends
|
|
|
+ the previous symbol: RHS[0] (always defined). */
|
|
|
+
|
|
|
+#ifndef YYLLOC_DEFAULT
|
|
|
+# define YYLLOC_DEFAULT(Current, Rhs, N) \
|
|
|
+ do \
|
|
|
+ if (N) \
|
|
|
+ { \
|
|
|
+ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
|
|
|
+ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
|
|
|
+ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
|
|
|
+ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
|
|
|
+ } \
|
|
|
+ else \
|
|
|
+ { \
|
|
|
+ (Current).first_line = (Current).last_line = \
|
|
|
+ YYRHSLOC (Rhs, 0).last_line; \
|
|
|
+ (Current).first_column = (Current).last_column = \
|
|
|
+ YYRHSLOC (Rhs, 0).last_column; \
|
|
|
+ } \
|
|
|
+ while (0)
|
|
|
+#endif
|
|
|
+
|
|
|
+#define YYRHSLOC(Rhs, K) ((Rhs)[K])
|
|
|
+
|
|
|
+
|
|
|
+/* Enable debugging if requested. */
|
|
|
+#if YYDEBUG
|
|
|
+
|
|
|
+# ifndef YYFPRINTF
|
|
|
+# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
|
|
|
+# define YYFPRINTF fprintf
|
|
|
+# endif
|
|
|
+
|
|
|
+# define YYDPRINTF(Args) \
|
|
|
+do { \
|
|
|
+ if (yydebug) \
|
|
|
+ YYFPRINTF Args; \
|
|
|
+} while (0)
|
|
|
+
|
|
|
+
|
|
|
+/* YY_LOCATION_PRINT -- Print the location on the stream.
|
|
|
+ This macro was not mandated originally: define only if we know
|
|
|
+ we won't break user code: when these are the locations we know. */
|
|
|
+
|
|
|
+#ifndef YY_LOCATION_PRINT
|
|
|
+# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
|
|
|
+
|
|
|
+/* Print *YYLOCP on YYO. Private, do not rely on its existence. */
|
|
|
+
|
|
|
+YY_ATTRIBUTE_UNUSED
|
|
|
+static unsigned
|
|
|
+yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp)
|
|
|
+{
|
|
|
+ unsigned res = 0;
|
|
|
+ int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0;
|
|
|
+ if (0 <= yylocp->first_line)
|
|
|
+ {
|
|
|
+ res += YYFPRINTF (yyo, "%d", yylocp->first_line);
|
|
|
+ if (0 <= yylocp->first_column)
|
|
|
+ res += YYFPRINTF (yyo, ".%d", yylocp->first_column);
|
|
|
+ }
|
|
|
+ if (0 <= yylocp->last_line)
|
|
|
+ {
|
|
|
+ if (yylocp->first_line < yylocp->last_line)
|
|
|
+ {
|
|
|
+ res += YYFPRINTF (yyo, "-%d", yylocp->last_line);
|
|
|
+ if (0 <= end_col)
|
|
|
+ res += YYFPRINTF (yyo, ".%d", end_col);
|
|
|
+ }
|
|
|
+ else if (0 <= end_col && yylocp->first_column < end_col)
|
|
|
+ res += YYFPRINTF (yyo, "-%d", end_col);
|
|
|
+ }
|
|
|
+ return res;
|
|
|
+ }
|
|
|
+
|
|
|
+# define YY_LOCATION_PRINT(File, Loc) \
|
|
|
+ yy_location_print_ (File, &(Loc))
|
|
|
+
|
|
|
+# else
|
|
|
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
|
|
|
+# endif
|
|
|
+#endif
|
|
|
+
|
|
|
+
|
|
|
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
|
|
|
+do { \
|
|
|
+ if (yydebug) \
|
|
|
+ { \
|
|
|
+ YYFPRINTF (stderr, "%s ", Title); \
|
|
|
+ yy_symbol_print (stderr, \
|
|
|
+ Type, Value, Location, parser); \
|
|
|
+ YYFPRINTF (stderr, "\n"); \
|
|
|
+ } \
|
|
|
+} while (0)
|
|
|
+
|
|
|
+
|
|
|
+/*----------------------------------------.
|
|
|
+| Print this symbol's value on YYOUTPUT. |
|
|
|
+`----------------------------------------*/
|
|
|
+
|
|
|
+static void
|
|
|
+yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ FILE *yyo = yyoutput;
|
|
|
+ YYUSE (yyo);
|
|
|
+ YYUSE (yylocationp);
|
|
|
+ YYUSE (parser);
|
|
|
+ if (!yyvaluep)
|
|
|
+ return;
|
|
|
+# ifdef YYPRINT
|
|
|
+ if (yytype < YYNTOKENS)
|
|
|
+ YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
|
|
|
+# endif
|
|
|
+ YYUSE (yytype);
|
|
|
+}
|
|
|
+
|
|
|
+
|
|
|
+/*--------------------------------.
|
|
|
+| Print this symbol on YYOUTPUT. |
|
|
|
+`--------------------------------*/
|
|
|
+
|
|
|
+static void
|
|
|
+yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp, glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ YYFPRINTF (yyoutput, "%s %s (",
|
|
|
+ yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
|
|
|
+
|
|
|
+ YY_LOCATION_PRINT (yyoutput, *yylocationp);
|
|
|
+ YYFPRINTF (yyoutput, ": ");
|
|
|
+ yy_symbol_value_print (yyoutput, yytype, yyvaluep, yylocationp, parser);
|
|
|
+ YYFPRINTF (yyoutput, ")");
|
|
|
+}
|
|
|
+
|
|
|
+/*------------------------------------------------------------------.
|
|
|
+| yy_stack_print -- Print the state stack from its BOTTOM up to its |
|
|
|
+| TOP (included). |
|
|
|
+`------------------------------------------------------------------*/
|
|
|
+
|
|
|
+static void
|
|
|
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
|
|
|
+{
|
|
|
+ YYFPRINTF (stderr, "Stack now");
|
|
|
+ for (; yybottom <= yytop; yybottom++)
|
|
|
+ {
|
|
|
+ int yybot = *yybottom;
|
|
|
+ YYFPRINTF (stderr, " %d", yybot);
|
|
|
+ }
|
|
|
+ YYFPRINTF (stderr, "\n");
|
|
|
+}
|
|
|
+
|
|
|
+# define YY_STACK_PRINT(Bottom, Top) \
|
|
|
+do { \
|
|
|
+ if (yydebug) \
|
|
|
+ yy_stack_print ((Bottom), (Top)); \
|
|
|
+} while (0)
|
|
|
+
|
|
|
+
|
|
|
+/*------------------------------------------------.
|
|
|
+| Report that the YYRULE is going to be reduced. |
|
|
|
+`------------------------------------------------*/
|
|
|
+
|
|
|
+static void
|
|
|
+yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp, int yyrule, glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ unsigned long int yylno = yyrline[yyrule];
|
|
|
+ int yynrhs = yyr2[yyrule];
|
|
|
+ int yyi;
|
|
|
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
|
|
|
+ yyrule - 1, yylno);
|
|
|
+ /* The symbols being reduced. */
|
|
|
+ for (yyi = 0; yyi < yynrhs; yyi++)
|
|
|
+ {
|
|
|
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
|
|
|
+ yy_symbol_print (stderr,
|
|
|
+ yystos[yyssp[yyi + 1 - yynrhs]],
|
|
|
+ &(yyvsp[(yyi + 1) - (yynrhs)])
|
|
|
+ , &(yylsp[(yyi + 1) - (yynrhs)]) , parser);
|
|
|
+ YYFPRINTF (stderr, "\n");
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+# define YY_REDUCE_PRINT(Rule) \
|
|
|
+do { \
|
|
|
+ if (yydebug) \
|
|
|
+ yy_reduce_print (yyssp, yyvsp, yylsp, Rule, parser); \
|
|
|
+} while (0)
|
|
|
+
|
|
|
+/* Nonzero means print parse trace. It is left uninitialized so that
|
|
|
+ multiple parsers can coexist. */
|
|
|
+int yydebug;
|
|
|
+#else /* !YYDEBUG */
|
|
|
+# define YYDPRINTF(Args)
|
|
|
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
|
|
|
+# define YY_STACK_PRINT(Bottom, Top)
|
|
|
+# define YY_REDUCE_PRINT(Rule)
|
|
|
+#endif /* !YYDEBUG */
|
|
|
+
|
|
|
+
|
|
|
+/* YYINITDEPTH -- initial size of the parser's stacks. */
|
|
|
+#ifndef YYINITDEPTH
|
|
|
+# define YYINITDEPTH 200
|
|
|
+#endif
|
|
|
+
|
|
|
+/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
|
|
|
+ if the built-in stack extension method is used).
|
|
|
+
|
|
|
+ Do not make this value too large; the results are undefined if
|
|
|
+ YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
|
|
|
+ evaluated with infinite-precision integer arithmetic. */
|
|
|
+
|
|
|
+#ifndef YYMAXDEPTH
|
|
|
+# define YYMAXDEPTH 10000
|
|
|
+#endif
|
|
|
+
|
|
|
+
|
|
|
+#if YYERROR_VERBOSE
|
|
|
+
|
|
|
+# ifndef yystrlen
|
|
|
+# if defined __GLIBC__ && defined _STRING_H
|
|
|
+# define yystrlen strlen
|
|
|
+# else
|
|
|
+/* Return the length of YYSTR. */
|
|
|
+static YYSIZE_T
|
|
|
+yystrlen (const char *yystr)
|
|
|
+{
|
|
|
+ YYSIZE_T yylen;
|
|
|
+ for (yylen = 0; yystr[yylen]; yylen++)
|
|
|
+ continue;
|
|
|
+ return yylen;
|
|
|
+}
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+
|
|
|
+# ifndef yystpcpy
|
|
|
+# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
|
|
|
+# define yystpcpy stpcpy
|
|
|
+# else
|
|
|
+/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
|
|
|
+ YYDEST. */
|
|
|
+static char *
|
|
|
+yystpcpy (char *yydest, const char *yysrc)
|
|
|
+{
|
|
|
+ char *yyd = yydest;
|
|
|
+ const char *yys = yysrc;
|
|
|
+
|
|
|
+ while ((*yyd++ = *yys++) != '\0')
|
|
|
+ continue;
|
|
|
+
|
|
|
+ return yyd - 1;
|
|
|
+}
|
|
|
+# endif
|
|
|
+# endif
|
|
|
+
|
|
|
+# ifndef yytnamerr
|
|
|
+/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
|
|
|
+ quotes and backslashes, so that it's suitable for yyerror. The
|
|
|
+ heuristic is that double-quoting is unnecessary unless the string
|
|
|
+ contains an apostrophe, a comma, or backslash (other than
|
|
|
+ backslash-backslash). YYSTR is taken from yytname. If YYRES is
|
|
|
+ null, do not copy; instead, return the length of what the result
|
|
|
+ would have been. */
|
|
|
+static YYSIZE_T
|
|
|
+yytnamerr (char *yyres, const char *yystr)
|
|
|
+{
|
|
|
+ if (*yystr == '"')
|
|
|
+ {
|
|
|
+ YYSIZE_T yyn = 0;
|
|
|
+ char const *yyp = yystr;
|
|
|
+
|
|
|
+ for (;;)
|
|
|
+ switch (*++yyp)
|
|
|
+ {
|
|
|
+ case '\'':
|
|
|
+ case ',':
|
|
|
+ goto do_not_strip_quotes;
|
|
|
+
|
|
|
+ case '\\':
|
|
|
+ if (*++yyp != '\\')
|
|
|
+ goto do_not_strip_quotes;
|
|
|
+ /* Fall through. */
|
|
|
+ default:
|
|
|
+ if (yyres)
|
|
|
+ yyres[yyn] = *yyp;
|
|
|
+ yyn++;
|
|
|
+ break;
|
|
|
+
|
|
|
+ case '"':
|
|
|
+ if (yyres)
|
|
|
+ yyres[yyn] = '\0';
|
|
|
+ return yyn;
|
|
|
+ }
|
|
|
+ do_not_strip_quotes: ;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (! yyres)
|
|
|
+ return yystrlen (yystr);
|
|
|
+
|
|
|
+ return yystpcpy (yyres, yystr) - yyres;
|
|
|
+}
|
|
|
+# endif
|
|
|
+
|
|
|
+/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
|
|
|
+ about the unexpected token YYTOKEN for the state stack whose top is
|
|
|
+ YYSSP.
|
|
|
+
|
|
|
+ Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
|
|
|
+ not large enough to hold the message. In that case, also set
|
|
|
+ *YYMSG_ALLOC to the required number of bytes. Return 2 if the
|
|
|
+ required number of bytes is too large to store. */
|
|
|
+static int
|
|
|
+yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
|
|
|
+ yytype_int16 *yyssp, int yytoken)
|
|
|
+{
|
|
|
+ YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]);
|
|
|
+ YYSIZE_T yysize = yysize0;
|
|
|
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
|
|
|
+ /* Internationalized format string. */
|
|
|
+ const char *yyformat = YY_NULLPTR;
|
|
|
+ /* Arguments of yyformat. */
|
|
|
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
|
|
|
+ /* Number of reported tokens (one for the "unexpected", one per
|
|
|
+ "expected"). */
|
|
|
+ int yycount = 0;
|
|
|
+
|
|
|
+ /* There are many possibilities here to consider:
|
|
|
+ - If this state is a consistent state with a default action, then
|
|
|
+ the only way this function was invoked is if the default action
|
|
|
+ is an error action. In that case, don't check for expected
|
|
|
+ tokens because there are none.
|
|
|
+ - The only way there can be no lookahead present (in yychar) is if
|
|
|
+ this state is a consistent state with a default action. Thus,
|
|
|
+ detecting the absence of a lookahead is sufficient to determine
|
|
|
+ that there is no unexpected or expected token to report. In that
|
|
|
+ case, just report a simple "syntax error".
|
|
|
+ - Don't assume there isn't a lookahead just because this state is a
|
|
|
+ consistent state with a default action. There might have been a
|
|
|
+ previous inconsistent state, consistent state with a non-default
|
|
|
+ action, or user semantic action that manipulated yychar.
|
|
|
+ - Of course, the expected token list depends on states to have
|
|
|
+ correct lookahead information, and it depends on the parser not
|
|
|
+ to perform extra reductions after fetching a lookahead from the
|
|
|
+ scanner and before detecting a syntax error. Thus, state merging
|
|
|
+ (from LALR or IELR) and default reductions corrupt the expected
|
|
|
+ token list. However, the list is correct for canonical LR with
|
|
|
+ one exception: it will still contain any token that will not be
|
|
|
+ accepted due to an error action in a later state.
|
|
|
+ */
|
|
|
+ if (yytoken != YYEMPTY)
|
|
|
+ {
|
|
|
+ int yyn = yypact[*yyssp];
|
|
|
+ yyarg[yycount++] = yytname[yytoken];
|
|
|
+ if (!yypact_value_is_default (yyn))
|
|
|
+ {
|
|
|
+ /* Start YYX at -YYN if negative to avoid negative indexes in
|
|
|
+ YYCHECK. In other words, skip the first -YYN actions for
|
|
|
+ this state because they are default actions. */
|
|
|
+ int yyxbegin = yyn < 0 ? -yyn : 0;
|
|
|
+ /* Stay within bounds of both yycheck and yytname. */
|
|
|
+ int yychecklim = YYLAST - yyn + 1;
|
|
|
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
|
|
|
+ int yyx;
|
|
|
+
|
|
|
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
|
|
|
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
|
|
|
+ && !yytable_value_is_error (yytable[yyx + yyn]))
|
|
|
+ {
|
|
|
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
|
|
|
+ {
|
|
|
+ yycount = 1;
|
|
|
+ yysize = yysize0;
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ yyarg[yycount++] = yytname[yyx];
|
|
|
+ {
|
|
|
+ YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]);
|
|
|
+ if (! (yysize <= yysize1
|
|
|
+ && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
|
|
|
+ return 2;
|
|
|
+ yysize = yysize1;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ switch (yycount)
|
|
|
+ {
|
|
|
+# define YYCASE_(N, S) \
|
|
|
+ case N: \
|
|
|
+ yyformat = S; \
|
|
|
+ break
|
|
|
+ YYCASE_(0, YY_("syntax error"));
|
|
|
+ YYCASE_(1, YY_("syntax error, unexpected %s"));
|
|
|
+ YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
|
|
|
+ YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
|
|
|
+ YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
|
|
|
+ YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
|
|
|
+# undef YYCASE_
|
|
|
+ }
|
|
|
+
|
|
|
+ {
|
|
|
+ YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
|
|
|
+ if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
|
|
|
+ return 2;
|
|
|
+ yysize = yysize1;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (*yymsg_alloc < yysize)
|
|
|
+ {
|
|
|
+ *yymsg_alloc = 2 * yysize;
|
|
|
+ if (! (yysize <= *yymsg_alloc
|
|
|
+ && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
|
|
|
+ *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
|
|
|
+ return 1;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Avoid sprintf, as that infringes on the user's name space.
|
|
|
+ Don't have undefined behavior even if the translation
|
|
|
+ produced a string with the wrong number of "%s"s. */
|
|
|
+ {
|
|
|
+ char *yyp = *yymsg;
|
|
|
+ int yyi = 0;
|
|
|
+ while ((*yyp = *yyformat) != '\0')
|
|
|
+ if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
|
|
|
+ {
|
|
|
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
|
|
|
+ yyformat += 2;
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ yyp++;
|
|
|
+ yyformat++;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ return 0;
|
|
|
+}
|
|
|
+#endif /* YYERROR_VERBOSE */
|
|
|
+
|
|
|
+/*-----------------------------------------------.
|
|
|
+| Release the memory associated to this symbol. |
|
|
|
+`-----------------------------------------------*/
|
|
|
+
|
|
|
+static void
|
|
|
+yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, YYLTYPE *yylocationp, glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ YYUSE (yyvaluep);
|
|
|
+ YYUSE (yylocationp);
|
|
|
+ YYUSE (parser);
|
|
|
+ if (!yymsg)
|
|
|
+ yymsg = "Deleting";
|
|
|
+ YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
|
|
|
+
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
|
|
|
+ YYUSE (yytype);
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
|
|
|
+}
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+/*----------.
|
|
|
+| yyparse. |
|
|
|
+`----------*/
|
|
|
+
|
|
|
+int
|
|
|
+yyparse (glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+/* The lookahead symbol. */
|
|
|
+int yychar;
|
|
|
+
|
|
|
+
|
|
|
+/* The semantic value of the lookahead symbol. */
|
|
|
+/* Default value used for initialization, for pacifying older GCCs
|
|
|
+ or non-GCC compilers. */
|
|
|
+YY_INITIAL_VALUE (static YYSTYPE yyval_default;)
|
|
|
+YYSTYPE yylval YY_INITIAL_VALUE (= yyval_default);
|
|
|
+
|
|
|
+/* Location data for the lookahead symbol. */
|
|
|
+static YYLTYPE yyloc_default
|
|
|
+# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
|
|
|
+ = { 1, 1, 1, 1 }
|
|
|
+# endif
|
|
|
+;
|
|
|
+YYLTYPE yylloc = yyloc_default;
|
|
|
+
|
|
|
+ /* Number of syntax errors so far. */
|
|
|
+ int yynerrs;
|
|
|
+
|
|
|
+ int yystate;
|
|
|
+ /* Number of tokens to shift before error messages enabled. */
|
|
|
+ int yyerrstatus;
|
|
|
+
|
|
|
+ /* The stacks and their tools:
|
|
|
+ 'yyss': related to states.
|
|
|
+ 'yyvs': related to semantic values.
|
|
|
+ 'yyls': related to locations.
|
|
|
+
|
|
|
+ Refer to the stacks through separate pointers, to allow yyoverflow
|
|
|
+ to reallocate them elsewhere. */
|
|
|
+
|
|
|
+ /* The state stack. */
|
|
|
+ yytype_int16 yyssa[YYINITDEPTH];
|
|
|
+ yytype_int16 *yyss;
|
|
|
+ yytype_int16 *yyssp;
|
|
|
+
|
|
|
+ /* The semantic value stack. */
|
|
|
+ YYSTYPE yyvsa[YYINITDEPTH];
|
|
|
+ YYSTYPE *yyvs;
|
|
|
+ YYSTYPE *yyvsp;
|
|
|
+
|
|
|
+ /* The location stack. */
|
|
|
+ YYLTYPE yylsa[YYINITDEPTH];
|
|
|
+ YYLTYPE *yyls;
|
|
|
+ YYLTYPE *yylsp;
|
|
|
+
|
|
|
+ /* The locations where the error started and ended. */
|
|
|
+ YYLTYPE yyerror_range[3];
|
|
|
+
|
|
|
+ YYSIZE_T yystacksize;
|
|
|
+
|
|
|
+ int yyn;
|
|
|
+ int yyresult;
|
|
|
+ /* Lookahead token as an internal (translated) token number. */
|
|
|
+ int yytoken = 0;
|
|
|
+ /* The variables used to return semantic value and location from the
|
|
|
+ action routines. */
|
|
|
+ YYSTYPE yyval;
|
|
|
+ YYLTYPE yyloc;
|
|
|
+
|
|
|
+#if YYERROR_VERBOSE
|
|
|
+ /* Buffer for error messages, and its allocated size. */
|
|
|
+ char yymsgbuf[128];
|
|
|
+ char *yymsg = yymsgbuf;
|
|
|
+ YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
|
|
|
+#endif
|
|
|
+
|
|
|
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N))
|
|
|
+
|
|
|
+ /* The number of symbols on the RHS of the reduced rule.
|
|
|
+ Keep to zero when no symbol should be popped. */
|
|
|
+ int yylen = 0;
|
|
|
+
|
|
|
+ yyssp = yyss = yyssa;
|
|
|
+ yyvsp = yyvs = yyvsa;
|
|
|
+ yylsp = yyls = yylsa;
|
|
|
+ yystacksize = YYINITDEPTH;
|
|
|
+
|
|
|
+ YYDPRINTF ((stderr, "Starting parse\n"));
|
|
|
+
|
|
|
+ yystate = 0;
|
|
|
+ yyerrstatus = 0;
|
|
|
+ yynerrs = 0;
|
|
|
+ yychar = YYEMPTY; /* Cause a token to be read. */
|
|
|
+
|
|
|
+/* User initialization code. */
|
|
|
+#line 165 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1429 */
|
|
|
+{
|
|
|
+ yylloc.first_line = 1;
|
|
|
+ yylloc.first_column = 1;
|
|
|
+ yylloc.last_line = 1;
|
|
|
+ yylloc.last_column = 1;
|
|
|
+ yylloc.source = 0;
|
|
|
+}
|
|
|
+
|
|
|
+#line 1568 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1429 */
|
|
|
+ yylsp[0] = yylloc;
|
|
|
+ goto yysetstate;
|
|
|
+
|
|
|
+/*------------------------------------------------------------.
|
|
|
+| yynewstate -- Push a new state, which is found in yystate. |
|
|
|
+`------------------------------------------------------------*/
|
|
|
+ yynewstate:
|
|
|
+ /* In all cases, when you get here, the value and location stacks
|
|
|
+ have just been pushed. So pushing a state here evens the stacks. */
|
|
|
+ yyssp++;
|
|
|
+
|
|
|
+ yysetstate:
|
|
|
+ *yyssp = yystate;
|
|
|
+
|
|
|
+ if (yyss + yystacksize - 1 <= yyssp)
|
|
|
+ {
|
|
|
+ /* Get the current used size of the three stacks, in elements. */
|
|
|
+ YYSIZE_T yysize = yyssp - yyss + 1;
|
|
|
+
|
|
|
+#ifdef yyoverflow
|
|
|
+ {
|
|
|
+ /* Give user a chance to reallocate the stack. Use copies of
|
|
|
+ these so that the &'s don't force the real ones into
|
|
|
+ memory. */
|
|
|
+ YYSTYPE *yyvs1 = yyvs;
|
|
|
+ yytype_int16 *yyss1 = yyss;
|
|
|
+ YYLTYPE *yyls1 = yyls;
|
|
|
+
|
|
|
+ /* Each stack pointer address is followed by the size of the
|
|
|
+ data in use in that stack, in bytes. This used to be a
|
|
|
+ conditional around just the two extra args, but that might
|
|
|
+ be undefined if yyoverflow is a macro. */
|
|
|
+ yyoverflow (YY_("memory exhausted"),
|
|
|
+ &yyss1, yysize * sizeof (*yyssp),
|
|
|
+ &yyvs1, yysize * sizeof (*yyvsp),
|
|
|
+ &yyls1, yysize * sizeof (*yylsp),
|
|
|
+ &yystacksize);
|
|
|
+
|
|
|
+ yyls = yyls1;
|
|
|
+ yyss = yyss1;
|
|
|
+ yyvs = yyvs1;
|
|
|
+ }
|
|
|
+#else /* no yyoverflow */
|
|
|
+# ifndef YYSTACK_RELOCATE
|
|
|
+ goto yyexhaustedlab;
|
|
|
+# else
|
|
|
+ /* Extend the stack our own way. */
|
|
|
+ if (YYMAXDEPTH <= yystacksize)
|
|
|
+ goto yyexhaustedlab;
|
|
|
+ yystacksize *= 2;
|
|
|
+ if (YYMAXDEPTH < yystacksize)
|
|
|
+ yystacksize = YYMAXDEPTH;
|
|
|
+
|
|
|
+ {
|
|
|
+ yytype_int16 *yyss1 = yyss;
|
|
|
+ union yyalloc *yyptr =
|
|
|
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
|
|
|
+ if (! yyptr)
|
|
|
+ goto yyexhaustedlab;
|
|
|
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
|
|
|
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
|
|
|
+ YYSTACK_RELOCATE (yyls_alloc, yyls);
|
|
|
+# undef YYSTACK_RELOCATE
|
|
|
+ if (yyss1 != yyssa)
|
|
|
+ YYSTACK_FREE (yyss1);
|
|
|
+ }
|
|
|
+# endif
|
|
|
+#endif /* no yyoverflow */
|
|
|
+
|
|
|
+ yyssp = yyss + yysize - 1;
|
|
|
+ yyvsp = yyvs + yysize - 1;
|
|
|
+ yylsp = yyls + yysize - 1;
|
|
|
+
|
|
|
+ YYDPRINTF ((stderr, "Stack size increased to %lu\n",
|
|
|
+ (unsigned long int) yystacksize));
|
|
|
+
|
|
|
+ if (yyss + yystacksize - 1 <= yyssp)
|
|
|
+ YYABORT;
|
|
|
+ }
|
|
|
+
|
|
|
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
|
|
|
+
|
|
|
+ if (yystate == YYFINAL)
|
|
|
+ YYACCEPT;
|
|
|
+
|
|
|
+ goto yybackup;
|
|
|
+
|
|
|
+/*-----------.
|
|
|
+| yybackup. |
|
|
|
+`-----------*/
|
|
|
+yybackup:
|
|
|
+
|
|
|
+ /* Do appropriate processing given the current state. Read a
|
|
|
+ lookahead token if we need one and don't already have one. */
|
|
|
+
|
|
|
+ /* First try to decide what to do without reference to lookahead token. */
|
|
|
+ yyn = yypact[yystate];
|
|
|
+ if (yypact_value_is_default (yyn))
|
|
|
+ goto yydefault;
|
|
|
+
|
|
|
+ /* Not known => get a lookahead token if don't already have one. */
|
|
|
+
|
|
|
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
|
|
|
+ if (yychar == YYEMPTY)
|
|
|
+ {
|
|
|
+ YYDPRINTF ((stderr, "Reading a token: "));
|
|
|
+ yychar = yylex (&yylval, &yylloc, parser);
|
|
|
+ }
|
|
|
+
|
|
|
+ if (yychar <= YYEOF)
|
|
|
+ {
|
|
|
+ yychar = yytoken = YYEOF;
|
|
|
+ YYDPRINTF ((stderr, "Now at end of input.\n"));
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ yytoken = YYTRANSLATE (yychar);
|
|
|
+ YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
|
|
|
+ }
|
|
|
+
|
|
|
+ /* If the proper action on seeing token YYTOKEN is to reduce or to
|
|
|
+ detect an error, take that action. */
|
|
|
+ yyn += yytoken;
|
|
|
+ if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
|
|
|
+ goto yydefault;
|
|
|
+ yyn = yytable[yyn];
|
|
|
+ if (yyn <= 0)
|
|
|
+ {
|
|
|
+ if (yytable_value_is_error (yyn))
|
|
|
+ goto yyerrlab;
|
|
|
+ yyn = -yyn;
|
|
|
+ goto yyreduce;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Count tokens shifted since error; after three, turn off error
|
|
|
+ status. */
|
|
|
+ if (yyerrstatus)
|
|
|
+ yyerrstatus--;
|
|
|
+
|
|
|
+ /* Shift the lookahead token. */
|
|
|
+ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
|
|
|
+
|
|
|
+ /* Discard the shifted token. */
|
|
|
+ yychar = YYEMPTY;
|
|
|
+
|
|
|
+ yystate = yyn;
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
|
|
|
+ *++yyvsp = yylval;
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
|
|
|
+ *++yylsp = yylloc;
|
|
|
+ goto yynewstate;
|
|
|
+
|
|
|
+
|
|
|
+/*-----------------------------------------------------------.
|
|
|
+| yydefault -- do the default action for the current state. |
|
|
|
+`-----------------------------------------------------------*/
|
|
|
+yydefault:
|
|
|
+ yyn = yydefact[yystate];
|
|
|
+ if (yyn == 0)
|
|
|
+ goto yyerrlab;
|
|
|
+ goto yyreduce;
|
|
|
+
|
|
|
+
|
|
|
+/*-----------------------------.
|
|
|
+| yyreduce -- Do a reduction. |
|
|
|
+`-----------------------------*/
|
|
|
+yyreduce:
|
|
|
+ /* yyn is the number of a rule to reduce with. */
|
|
|
+ yylen = yyr2[yyn];
|
|
|
+
|
|
|
+ /* If YYLEN is nonzero, implement the default value of the action:
|
|
|
+ '$$ = $1'.
|
|
|
+
|
|
|
+ Otherwise, the following line sets YYVAL to garbage.
|
|
|
+ This behavior is undocumented and Bison
|
|
|
+ users should not rely upon it. Assigning to YYVAL
|
|
|
+ unconditionally makes the parser a bit smaller, and it avoids a
|
|
|
+ GCC warning that YYVAL may be used uninitialized. */
|
|
|
+ yyval = yyvsp[1-yylen];
|
|
|
+
|
|
|
+ /* Default location. */
|
|
|
+ YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen);
|
|
|
+ YY_REDUCE_PRINT (yyn);
|
|
|
+ switch (yyn)
|
|
|
+ {
|
|
|
+ case 6:
|
|
|
+#line 213 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ _glcpp_parser_print_expanded_token_list (parser, (yyvsp[0].token_list));
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output, &parser->output_length, "\n");
|
|
|
+ ralloc_free ((yyvsp[0].token_list));
|
|
|
+ }
|
|
|
+#line 1761 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 8:
|
|
|
+#line 222 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (parser->is_gles && (yyvsp[-1].expression_value).undefined_macro)
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "undefined macro %s in expression (illegal in GLES)", (yyvsp[-1].expression_value).undefined_macro);
|
|
|
+ _glcpp_parser_skip_stack_push_if (parser, & (yylsp[-2]), (yyvsp[-1].expression_value).value);
|
|
|
+ }
|
|
|
+#line 1771 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 9:
|
|
|
+#line 227 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (parser->is_gles && (yyvsp[-1].expression_value).undefined_macro)
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "undefined macro %s in expression (illegal in GLES)", (yyvsp[-1].expression_value).undefined_macro);
|
|
|
+ _glcpp_parser_skip_stack_change_if (parser, & (yylsp[-2]), "elif", (yyvsp[-1].expression_value).value);
|
|
|
+ }
|
|
|
+#line 1781 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 10:
|
|
|
+#line 232 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ parser->has_new_line_number = 1;
|
|
|
+ parser->new_line_number = (yyvsp[-1].ival);
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output,
|
|
|
+ &parser->output_length,
|
|
|
+ "#line %" PRIiMAX "\n",
|
|
|
+ (yyvsp[-1].ival));
|
|
|
+ }
|
|
|
+#line 1794 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 11:
|
|
|
+#line 240 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ parser->has_new_line_number = 1;
|
|
|
+ parser->new_line_number = (yyvsp[-2].ival);
|
|
|
+ parser->has_new_source_number = 1;
|
|
|
+ parser->new_source_number = (yyvsp[-1].ival);
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output,
|
|
|
+ &parser->output_length,
|
|
|
+ "#line %" PRIiMAX " %" PRIiMAX "\n",
|
|
|
+ (yyvsp[-2].ival), (yyvsp[-1].ival));
|
|
|
+ }
|
|
|
+#line 1809 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 12:
|
|
|
+#line 253 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ _define_object_macro (parser, & (yylsp[-2]), (yyvsp[-2].str), (yyvsp[-1].token_list));
|
|
|
+ }
|
|
|
+#line 1817 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 13:
|
|
|
+#line 256 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ _define_function_macro (parser, & (yylsp[-4]), (yyvsp[-4].str), NULL, (yyvsp[-1].token_list));
|
|
|
+ }
|
|
|
+#line 1825 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 14:
|
|
|
+#line 259 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ _define_function_macro (parser, & (yylsp[-5]), (yyvsp[-5].str), (yyvsp[-3].string_list), (yyvsp[-1].token_list));
|
|
|
+ }
|
|
|
+#line 1833 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 15:
|
|
|
+#line 265 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output, &parser->output_length, "\n");
|
|
|
+ }
|
|
|
+#line 1841 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 17:
|
|
|
+#line 269 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1849 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 18:
|
|
|
+#line 271 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+
|
|
|
+ if (parser->skip_stack == NULL ||
|
|
|
+ parser->skip_stack->type == SKIP_NO_SKIP)
|
|
|
+ {
|
|
|
+ _glcpp_parser_expand_and_lex_from (parser,
|
|
|
+ LINE_EXPANDED, (yyvsp[-1].token_list),
|
|
|
+ EXPANSION_MODE_IGNORE_DEFINED);
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 1864 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 19:
|
|
|
+#line 284 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1872 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 21:
|
|
|
+#line 287 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1880 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 22:
|
|
|
+#line 289 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ macro_t *macro;
|
|
|
+ if (strcmp("__LINE__", (yyvsp[-1].str)) == 0
|
|
|
+ || strcmp("__FILE__", (yyvsp[-1].str)) == 0
|
|
|
+ || strcmp("__VERSION__", (yyvsp[-1].str)) == 0)
|
|
|
+ glcpp_error(& (yylsp[-4]), parser, "Built-in (pre-defined)"
|
|
|
+ " macro names can not be undefined.");
|
|
|
+
|
|
|
+ macro = hash_table_find (parser->defines, (yyvsp[-1].str));
|
|
|
+ if (macro) {
|
|
|
+ hash_table_remove (parser->defines, (yyvsp[-1].str));
|
|
|
+ ralloc_free (macro);
|
|
|
+ }
|
|
|
+ ralloc_free ((yyvsp[-1].str));
|
|
|
+ }
|
|
|
+#line 1900 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 23:
|
|
|
+#line 304 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1908 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 24:
|
|
|
+#line 306 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ /* Be careful to only evaluate the 'if' expression if
|
|
|
+ * we are not skipping. When we are skipping, we
|
|
|
+ * simply push a new 0-valued 'if' onto the skip
|
|
|
+ * stack.
|
|
|
+ *
|
|
|
+ * This avoids generating diagnostics for invalid
|
|
|
+ * expressions that are being skipped. */
|
|
|
+ if (parser->skip_stack == NULL ||
|
|
|
+ parser->skip_stack->type == SKIP_NO_SKIP)
|
|
|
+ {
|
|
|
+ _glcpp_parser_expand_and_lex_from (parser,
|
|
|
+ IF_EXPANDED, (yyvsp[-1].token_list),
|
|
|
+ EXPANSION_MODE_EVALUATE_DEFINED);
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ _glcpp_parser_skip_stack_push_if (parser, & (yylsp[-4]), 0);
|
|
|
+ parser->skip_stack->type = SKIP_TO_ENDIF;
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 1934 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 25:
|
|
|
+#line 327 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ /* #if without an expression is only an error if we
|
|
|
+ * are not skipping */
|
|
|
+ if (parser->skip_stack == NULL ||
|
|
|
+ parser->skip_stack->type == SKIP_NO_SKIP)
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "#if with no expression");
|
|
|
+ }
|
|
|
+ _glcpp_parser_skip_stack_push_if (parser, & (yylsp[-2]), 0);
|
|
|
+ }
|
|
|
+#line 1949 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 26:
|
|
|
+#line 337 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1957 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 27:
|
|
|
+#line 339 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ macro_t *macro = hash_table_find (parser->defines, (yyvsp[-2].str));
|
|
|
+ ralloc_free ((yyvsp[-2].str));
|
|
|
+ _glcpp_parser_skip_stack_push_if (parser, & (yylsp[-5]), macro != NULL);
|
|
|
+ }
|
|
|
+#line 1967 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 28:
|
|
|
+#line 344 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 1975 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 29:
|
|
|
+#line 346 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ macro_t *macro = hash_table_find (parser->defines, (yyvsp[-2].str));
|
|
|
+ ralloc_free ((yyvsp[-2].str));
|
|
|
+ _glcpp_parser_skip_stack_push_if (parser, & (yylsp[-3]), macro == NULL);
|
|
|
+ }
|
|
|
+#line 1985 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 30:
|
|
|
+#line 351 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ /* Be careful to only evaluate the 'elif' expression
|
|
|
+ * if we are not skipping. When we are skipping, we
|
|
|
+ * simply change to a 0-valued 'elif' on the skip
|
|
|
+ * stack.
|
|
|
+ *
|
|
|
+ * This avoids generating diagnostics for invalid
|
|
|
+ * expressions that are being skipped. */
|
|
|
+ if (parser->skip_stack &&
|
|
|
+ parser->skip_stack->type == SKIP_TO_ELSE)
|
|
|
+ {
|
|
|
+ _glcpp_parser_expand_and_lex_from (parser,
|
|
|
+ ELIF_EXPANDED, (yyvsp[-1].token_list),
|
|
|
+ EXPANSION_MODE_EVALUATE_DEFINED);
|
|
|
+ }
|
|
|
+ else if (parser->skip_stack &&
|
|
|
+ parser->skip_stack->has_else)
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-3]), parser, "#elif after #else");
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ _glcpp_parser_skip_stack_change_if (parser, & (yylsp[-3]),
|
|
|
+ "elif", 0);
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 2016 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 31:
|
|
|
+#line 377 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ /* #elif without an expression is an error unless we
|
|
|
+ * are skipping. */
|
|
|
+ if (parser->skip_stack &&
|
|
|
+ parser->skip_stack->type == SKIP_TO_ELSE)
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "#elif with no expression");
|
|
|
+ }
|
|
|
+ else if (parser->skip_stack &&
|
|
|
+ parser->skip_stack->has_else)
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "#elif after #else");
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ _glcpp_parser_skip_stack_change_if (parser, & (yylsp[-2]),
|
|
|
+ "elif", 0);
|
|
|
+ glcpp_warning(& (yylsp[-2]), parser, "ignoring illegal #elif without expression");
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 2041 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 32:
|
|
|
+#line 397 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { parser->lexing_directive = 1; }
|
|
|
+#line 2047 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 33:
|
|
|
+#line 397 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (parser->skip_stack &&
|
|
|
+ parser->skip_stack->has_else)
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-3]), parser, "multiple #else");
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ _glcpp_parser_skip_stack_change_if (parser, & (yylsp[-3]), "else", 1);
|
|
|
+ if (parser->skip_stack)
|
|
|
+ parser->skip_stack->has_else = true;
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 2065 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 34:
|
|
|
+#line 410 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ _glcpp_parser_skip_stack_pop (parser, & (yylsp[-1]));
|
|
|
+ }
|
|
|
+#line 2073 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 36:
|
|
|
+#line 413 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (parser->version_resolved) {
|
|
|
+ glcpp_error(& (yylsp[-3]), parser, "#version must appear on the first line");
|
|
|
+ }
|
|
|
+ _glcpp_parser_handle_version_declaration(parser, (yyvsp[-1].ival), NULL, true);
|
|
|
+ }
|
|
|
+#line 2084 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 37:
|
|
|
+#line 419 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (parser->version_resolved) {
|
|
|
+ glcpp_error(& (yylsp[-4]), parser, "#version must appear on the first line");
|
|
|
+ }
|
|
|
+ _glcpp_parser_handle_version_declaration(parser, (yyvsp[-2].ival), (yyvsp[-1].str), true);
|
|
|
+ }
|
|
|
+#line 2095 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 38:
|
|
|
+#line 425 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_parser_resolve_implicit_version(parser);
|
|
|
+ }
|
|
|
+#line 2103 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 39:
|
|
|
+#line 428 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output, &parser->output_length, "#%s", (yyvsp[-1].str));
|
|
|
+ }
|
|
|
+#line 2111 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 40:
|
|
|
+#line 434 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_error(& (yylsp[-2]), parser, "#%s", (yyvsp[-1].str));
|
|
|
+ }
|
|
|
+#line 2119 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 41:
|
|
|
+#line 437 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_error (& (yylsp[-2]), parser, "#define without macro name");
|
|
|
+ }
|
|
|
+#line 2127 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 42:
|
|
|
+#line 440 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_error (& (yylsp[-3]), parser, "Illegal non-directive after #");
|
|
|
+ }
|
|
|
+#line 2135 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 43:
|
|
|
+#line 446 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if (strlen ((yyvsp[0].str)) >= 3 && strncmp ((yyvsp[0].str), "0x", 2) == 0) {
|
|
|
+ (yyval.ival) = (int)strtoll ((yyvsp[0].str) + 2, NULL, 16);
|
|
|
+ } else if ((yyvsp[0].str)[0] == '0') {
|
|
|
+ (yyval.ival) = (int)strtoll ((yyvsp[0].str), NULL, 8);
|
|
|
+ } else {
|
|
|
+ (yyval.ival) = (int)strtoll ((yyvsp[0].str), NULL, 10);
|
|
|
+ }
|
|
|
+ }
|
|
|
+#line 2149 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 44:
|
|
|
+#line 455 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.ival) = (yyvsp[0].ival);
|
|
|
+ }
|
|
|
+#line 2157 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 45:
|
|
|
+#line 460 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[0].ival);
|
|
|
+ (yyval.expression_value).undefined_macro = NULL;
|
|
|
+ }
|
|
|
+#line 2166 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 46:
|
|
|
+#line 464 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = 0;
|
|
|
+ if (parser->is_gles)
|
|
|
+ (yyval.expression_value).undefined_macro = ralloc_strdup (parser, (yyvsp[0].str));
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = NULL;
|
|
|
+ }
|
|
|
+#line 2178 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 47:
|
|
|
+#line 471 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value || (yyvsp[0].expression_value).value;
|
|
|
+
|
|
|
+ /* Short-circuit: Only flag undefined from right side
|
|
|
+ * if left side evaluates to false.
|
|
|
+ */
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else if (! (yyvsp[-2].expression_value).value)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2194 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 48:
|
|
|
+#line 482 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value && (yyvsp[0].expression_value).value;
|
|
|
+
|
|
|
+ /* Short-circuit: Only flag undefined from right-side
|
|
|
+ * if left side evaluates to true.
|
|
|
+ */
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else if ((yyvsp[-2].expression_value).value)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2210 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 49:
|
|
|
+#line 493 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value | (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2222 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 50:
|
|
|
+#line 500 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value ^ (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2234 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 51:
|
|
|
+#line 507 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value & (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2246 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 52:
|
|
|
+#line 514 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value != (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2258 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 53:
|
|
|
+#line 521 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value == (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2270 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 54:
|
|
|
+#line 528 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value >= (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2282 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 55:
|
|
|
+#line 535 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value <= (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2294 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 56:
|
|
|
+#line 542 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value > (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2306 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 57:
|
|
|
+#line 549 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value < (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2318 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 58:
|
|
|
+#line 556 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value >> (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2330 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 59:
|
|
|
+#line 563 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value << (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2342 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 60:
|
|
|
+#line 570 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value - (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2354 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 61:
|
|
|
+#line 577 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value + (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2366 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 62:
|
|
|
+#line 584 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if ((yyvsp[0].expression_value).value == 0) {
|
|
|
+ yyerror (& (yylsp[-2]), parser,
|
|
|
+ "zero modulus in preprocessor directive");
|
|
|
+ } else {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value % (yyvsp[0].expression_value).value;
|
|
|
+ }
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2383 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 63:
|
|
|
+#line 596 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ if ((yyvsp[0].expression_value).value == 0) {
|
|
|
+ yyerror (& (yylsp[-2]), parser,
|
|
|
+ "division by 0 in preprocessor directive");
|
|
|
+ } else {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value / (yyvsp[0].expression_value).value;
|
|
|
+ }
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2400 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 64:
|
|
|
+#line 608 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = (yyvsp[-2].expression_value).value * (yyvsp[0].expression_value).value;
|
|
|
+ if ((yyvsp[-2].expression_value).undefined_macro)
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[-2].expression_value).undefined_macro;
|
|
|
+ else
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2412 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 65:
|
|
|
+#line 615 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = ! (yyvsp[0].expression_value).value;
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2421 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 66:
|
|
|
+#line 619 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = ~ (yyvsp[0].expression_value).value;
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2430 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 67:
|
|
|
+#line 623 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = - (yyvsp[0].expression_value).value;
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2439 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 68:
|
|
|
+#line 627 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value).value = + (yyvsp[0].expression_value).value;
|
|
|
+ (yyval.expression_value).undefined_macro = (yyvsp[0].expression_value).undefined_macro;
|
|
|
+ }
|
|
|
+#line 2448 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 69:
|
|
|
+#line 631 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.expression_value) = (yyvsp[-1].expression_value);
|
|
|
+ }
|
|
|
+#line 2456 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 70:
|
|
|
+#line 637 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.string_list) = _string_list_create (parser);
|
|
|
+ _string_list_append_item ((yyval.string_list), (yyvsp[0].str));
|
|
|
+ ralloc_steal ((yyval.string_list), (yyvsp[0].str));
|
|
|
+ }
|
|
|
+#line 2466 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 71:
|
|
|
+#line 642 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.string_list) = (yyvsp[-2].string_list);
|
|
|
+ _string_list_append_item ((yyval.string_list), (yyvsp[0].str));
|
|
|
+ ralloc_steal ((yyval.string_list), (yyvsp[0].str));
|
|
|
+ }
|
|
|
+#line 2476 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 72:
|
|
|
+#line 650 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.token_list) = NULL; }
|
|
|
+#line 2482 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 74:
|
|
|
+#line 655 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.token_list) = NULL; }
|
|
|
+#line 2488 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 77:
|
|
|
+#line 661 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ glcpp_error(&(yylsp[0]), parser, "extra tokens at end of directive");
|
|
|
+ }
|
|
|
+#line 2496 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 78:
|
|
|
+#line 667 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ parser->space_tokens = 1;
|
|
|
+ (yyval.token_list) = _token_list_create (parser);
|
|
|
+ _token_list_append ((yyval.token_list), (yyvsp[0].token));
|
|
|
+ }
|
|
|
+#line 2506 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 79:
|
|
|
+#line 672 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token_list) = (yyvsp[-1].token_list);
|
|
|
+ _token_list_append ((yyval.token_list), (yyvsp[0].token));
|
|
|
+ }
|
|
|
+#line 2515 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 80:
|
|
|
+#line 679 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_str (parser, IDENTIFIER, (yyvsp[0].str));
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2524 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 81:
|
|
|
+#line 683 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_str (parser, INTEGER_STRING, (yyvsp[0].str));
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2533 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 82:
|
|
|
+#line 687 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_ival (parser, (yyvsp[0].ival), (yyvsp[0].ival));
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2542 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 83:
|
|
|
+#line 691 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_ival (parser, DEFINED, DEFINED);
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2551 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 84:
|
|
|
+#line 695 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_str (parser, OTHER, (yyvsp[0].str));
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2560 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 85:
|
|
|
+#line 699 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ {
|
|
|
+ (yyval.token) = _token_create_ival (parser, SPACE, SPACE);
|
|
|
+ (yyval.token)->location = yylloc;
|
|
|
+ }
|
|
|
+#line 2569 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 86:
|
|
|
+#line 706 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '['; }
|
|
|
+#line 2575 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 87:
|
|
|
+#line 707 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = ']'; }
|
|
|
+#line 2581 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 88:
|
|
|
+#line 708 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '('; }
|
|
|
+#line 2587 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 89:
|
|
|
+#line 709 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = ')'; }
|
|
|
+#line 2593 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 90:
|
|
|
+#line 710 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '{'; }
|
|
|
+#line 2599 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 91:
|
|
|
+#line 711 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '}'; }
|
|
|
+#line 2605 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 92:
|
|
|
+#line 712 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '.'; }
|
|
|
+#line 2611 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 93:
|
|
|
+#line 713 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '&'; }
|
|
|
+#line 2617 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 94:
|
|
|
+#line 714 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '*'; }
|
|
|
+#line 2623 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 95:
|
|
|
+#line 715 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '+'; }
|
|
|
+#line 2629 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 96:
|
|
|
+#line 716 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '-'; }
|
|
|
+#line 2635 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 97:
|
|
|
+#line 717 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '~'; }
|
|
|
+#line 2641 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 98:
|
|
|
+#line 718 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '!'; }
|
|
|
+#line 2647 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 99:
|
|
|
+#line 719 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '/'; }
|
|
|
+#line 2653 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 100:
|
|
|
+#line 720 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '%'; }
|
|
|
+#line 2659 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 101:
|
|
|
+#line 721 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = LEFT_SHIFT; }
|
|
|
+#line 2665 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 102:
|
|
|
+#line 722 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = RIGHT_SHIFT; }
|
|
|
+#line 2671 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 103:
|
|
|
+#line 723 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '<'; }
|
|
|
+#line 2677 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 104:
|
|
|
+#line 724 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '>'; }
|
|
|
+#line 2683 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 105:
|
|
|
+#line 725 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = LESS_OR_EQUAL; }
|
|
|
+#line 2689 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 106:
|
|
|
+#line 726 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = GREATER_OR_EQUAL; }
|
|
|
+#line 2695 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 107:
|
|
|
+#line 727 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = EQUAL; }
|
|
|
+#line 2701 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 108:
|
|
|
+#line 728 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = NOT_EQUAL; }
|
|
|
+#line 2707 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 109:
|
|
|
+#line 729 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '^'; }
|
|
|
+#line 2713 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 110:
|
|
|
+#line 730 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '|'; }
|
|
|
+#line 2719 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 111:
|
|
|
+#line 731 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = AND; }
|
|
|
+#line 2725 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 112:
|
|
|
+#line 732 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = OR; }
|
|
|
+#line 2731 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 113:
|
|
|
+#line 733 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = ';'; }
|
|
|
+#line 2737 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 114:
|
|
|
+#line 734 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = ','; }
|
|
|
+#line 2743 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 115:
|
|
|
+#line 735 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = '='; }
|
|
|
+#line 2749 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 116:
|
|
|
+#line 736 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = PASTE; }
|
|
|
+#line 2755 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 117:
|
|
|
+#line 737 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = PLUS_PLUS; }
|
|
|
+#line 2761 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+ case 118:
|
|
|
+#line 738 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1646 */
|
|
|
+ { (yyval.ival) = MINUS_MINUS; }
|
|
|
+#line 2767 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ break;
|
|
|
+
|
|
|
+
|
|
|
+#line 2771 "src/glsl/glcpp/glcpp-parse.c" /* yacc.c:1646 */
|
|
|
+ default: break;
|
|
|
+ }
|
|
|
+ /* User semantic actions sometimes alter yychar, and that requires
|
|
|
+ that yytoken be updated with the new translation. We take the
|
|
|
+ approach of translating immediately before every use of yytoken.
|
|
|
+ One alternative is translating here after every semantic action,
|
|
|
+ but that translation would be missed if the semantic action invokes
|
|
|
+ YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
|
|
|
+ if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
|
|
|
+ incorrect destructor might then be invoked immediately. In the
|
|
|
+ case of YYERROR or YYBACKUP, subsequent parser actions might lead
|
|
|
+ to an incorrect destructor call or verbose syntax error message
|
|
|
+ before the lookahead is translated. */
|
|
|
+ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
|
|
|
+
|
|
|
+ YYPOPSTACK (yylen);
|
|
|
+ yylen = 0;
|
|
|
+ YY_STACK_PRINT (yyss, yyssp);
|
|
|
+
|
|
|
+ *++yyvsp = yyval;
|
|
|
+ *++yylsp = yyloc;
|
|
|
+
|
|
|
+ /* Now 'shift' the result of the reduction. Determine what state
|
|
|
+ that goes to, based on the state we popped back to and the rule
|
|
|
+ number reduced by. */
|
|
|
+
|
|
|
+ yyn = yyr1[yyn];
|
|
|
+
|
|
|
+ yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
|
|
|
+ if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
|
|
|
+ yystate = yytable[yystate];
|
|
|
+ else
|
|
|
+ yystate = yydefgoto[yyn - YYNTOKENS];
|
|
|
+
|
|
|
+ goto yynewstate;
|
|
|
+
|
|
|
+
|
|
|
+/*--------------------------------------.
|
|
|
+| yyerrlab -- here on detecting error. |
|
|
|
+`--------------------------------------*/
|
|
|
+yyerrlab:
|
|
|
+ /* Make sure we have latest lookahead translation. See comments at
|
|
|
+ user semantic actions for why this is necessary. */
|
|
|
+ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
|
|
|
+
|
|
|
+ /* If not already recovering from an error, report this error. */
|
|
|
+ if (!yyerrstatus)
|
|
|
+ {
|
|
|
+ ++yynerrs;
|
|
|
+#if ! YYERROR_VERBOSE
|
|
|
+ yyerror (&yylloc, parser, YY_("syntax error"));
|
|
|
+#else
|
|
|
+# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
|
|
|
+ yyssp, yytoken)
|
|
|
+ {
|
|
|
+ char const *yymsgp = YY_("syntax error");
|
|
|
+ int yysyntax_error_status;
|
|
|
+ yysyntax_error_status = YYSYNTAX_ERROR;
|
|
|
+ if (yysyntax_error_status == 0)
|
|
|
+ yymsgp = yymsg;
|
|
|
+ else if (yysyntax_error_status == 1)
|
|
|
+ {
|
|
|
+ if (yymsg != yymsgbuf)
|
|
|
+ YYSTACK_FREE (yymsg);
|
|
|
+ yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
|
|
|
+ if (!yymsg)
|
|
|
+ {
|
|
|
+ yymsg = yymsgbuf;
|
|
|
+ yymsg_alloc = sizeof yymsgbuf;
|
|
|
+ yysyntax_error_status = 2;
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ yysyntax_error_status = YYSYNTAX_ERROR;
|
|
|
+ yymsgp = yymsg;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ yyerror (&yylloc, parser, yymsgp);
|
|
|
+ if (yysyntax_error_status == 2)
|
|
|
+ goto yyexhaustedlab;
|
|
|
+ }
|
|
|
+# undef YYSYNTAX_ERROR
|
|
|
+#endif
|
|
|
+ }
|
|
|
+
|
|
|
+ yyerror_range[1] = yylloc;
|
|
|
+
|
|
|
+ if (yyerrstatus == 3)
|
|
|
+ {
|
|
|
+ /* If just tried and failed to reuse lookahead token after an
|
|
|
+ error, discard it. */
|
|
|
+
|
|
|
+ if (yychar <= YYEOF)
|
|
|
+ {
|
|
|
+ /* Return failure if at end of input. */
|
|
|
+ if (yychar == YYEOF)
|
|
|
+ YYABORT;
|
|
|
+ }
|
|
|
+ else
|
|
|
+ {
|
|
|
+ yydestruct ("Error: discarding",
|
|
|
+ yytoken, &yylval, &yylloc, parser);
|
|
|
+ yychar = YYEMPTY;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Else will try to reuse lookahead token after shifting the error
|
|
|
+ token. */
|
|
|
+ goto yyerrlab1;
|
|
|
+
|
|
|
+
|
|
|
+/*---------------------------------------------------.
|
|
|
+| yyerrorlab -- error raised explicitly by YYERROR. |
|
|
|
+`---------------------------------------------------*/
|
|
|
+yyerrorlab:
|
|
|
+
|
|
|
+ /* Pacify compilers like GCC when the user code never invokes
|
|
|
+ YYERROR and the label yyerrorlab therefore never appears in user
|
|
|
+ code. */
|
|
|
+ if (/*CONSTCOND*/ 0)
|
|
|
+ goto yyerrorlab;
|
|
|
+
|
|
|
+ yyerror_range[1] = yylsp[1-yylen];
|
|
|
+ /* Do not reclaim the symbols of the rule whose action triggered
|
|
|
+ this YYERROR. */
|
|
|
+ YYPOPSTACK (yylen);
|
|
|
+ yylen = 0;
|
|
|
+ YY_STACK_PRINT (yyss, yyssp);
|
|
|
+ yystate = *yyssp;
|
|
|
+ goto yyerrlab1;
|
|
|
+
|
|
|
+
|
|
|
+/*-------------------------------------------------------------.
|
|
|
+| yyerrlab1 -- common code for both syntax error and YYERROR. |
|
|
|
+`-------------------------------------------------------------*/
|
|
|
+yyerrlab1:
|
|
|
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
|
|
|
+
|
|
|
+ for (;;)
|
|
|
+ {
|
|
|
+ yyn = yypact[yystate];
|
|
|
+ if (!yypact_value_is_default (yyn))
|
|
|
+ {
|
|
|
+ yyn += YYTERROR;
|
|
|
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
|
|
|
+ {
|
|
|
+ yyn = yytable[yyn];
|
|
|
+ if (0 < yyn)
|
|
|
+ break;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Pop the current state because it cannot handle the error token. */
|
|
|
+ if (yyssp == yyss)
|
|
|
+ YYABORT;
|
|
|
+
|
|
|
+ yyerror_range[1] = *yylsp;
|
|
|
+ yydestruct ("Error: popping",
|
|
|
+ yystos[yystate], yyvsp, yylsp, parser);
|
|
|
+ YYPOPSTACK (1);
|
|
|
+ yystate = *yyssp;
|
|
|
+ YY_STACK_PRINT (yyss, yyssp);
|
|
|
+ }
|
|
|
+
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
|
|
|
+ *++yyvsp = yylval;
|
|
|
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
|
|
|
+
|
|
|
+ yyerror_range[2] = yylloc;
|
|
|
+ /* Using YYLLOC is tempting, but would change the location of
|
|
|
+ the lookahead. YYLOC is available though. */
|
|
|
+ YYLLOC_DEFAULT (yyloc, yyerror_range, 2);
|
|
|
+ *++yylsp = yyloc;
|
|
|
+
|
|
|
+ /* Shift the error token. */
|
|
|
+ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
|
|
|
+
|
|
|
+ yystate = yyn;
|
|
|
+ goto yynewstate;
|
|
|
+
|
|
|
+
|
|
|
+/*-------------------------------------.
|
|
|
+| yyacceptlab -- YYACCEPT comes here. |
|
|
|
+`-------------------------------------*/
|
|
|
+yyacceptlab:
|
|
|
+ yyresult = 0;
|
|
|
+ goto yyreturn;
|
|
|
+
|
|
|
+/*-----------------------------------.
|
|
|
+| yyabortlab -- YYABORT comes here. |
|
|
|
+`-----------------------------------*/
|
|
|
+yyabortlab:
|
|
|
+ yyresult = 1;
|
|
|
+ goto yyreturn;
|
|
|
+
|
|
|
+#if !defined yyoverflow || YYERROR_VERBOSE
|
|
|
+/*-------------------------------------------------.
|
|
|
+| yyexhaustedlab -- memory exhaustion comes here. |
|
|
|
+`-------------------------------------------------*/
|
|
|
+yyexhaustedlab:
|
|
|
+ yyerror (&yylloc, parser, YY_("memory exhausted"));
|
|
|
+ yyresult = 2;
|
|
|
+ /* Fall through. */
|
|
|
+#endif
|
|
|
+
|
|
|
+yyreturn:
|
|
|
+ if (yychar != YYEMPTY)
|
|
|
+ {
|
|
|
+ /* Make sure we have latest lookahead translation. See comments at
|
|
|
+ user semantic actions for why this is necessary. */
|
|
|
+ yytoken = YYTRANSLATE (yychar);
|
|
|
+ yydestruct ("Cleanup: discarding lookahead",
|
|
|
+ yytoken, &yylval, &yylloc, parser);
|
|
|
+ }
|
|
|
+ /* Do not reclaim the symbols of the rule whose action triggered
|
|
|
+ this YYABORT or YYACCEPT. */
|
|
|
+ YYPOPSTACK (yylen);
|
|
|
+ YY_STACK_PRINT (yyss, yyssp);
|
|
|
+ while (yyssp != yyss)
|
|
|
+ {
|
|
|
+ yydestruct ("Cleanup: popping",
|
|
|
+ yystos[*yyssp], yyvsp, yylsp, parser);
|
|
|
+ YYPOPSTACK (1);
|
|
|
+ }
|
|
|
+#ifndef yyoverflow
|
|
|
+ if (yyss != yyssa)
|
|
|
+ YYSTACK_FREE (yyss);
|
|
|
+#endif
|
|
|
+#if YYERROR_VERBOSE
|
|
|
+ if (yymsg != yymsgbuf)
|
|
|
+ YYSTACK_FREE (yymsg);
|
|
|
+#endif
|
|
|
+ return yyresult;
|
|
|
+}
|
|
|
+#line 741 "src/glsl/glcpp/glcpp-parse.y" /* yacc.c:1906 */
|
|
|
+
|
|
|
+
|
|
|
+string_list_t *
|
|
|
+_string_list_create (void *ctx)
|
|
|
+{
|
|
|
+ string_list_t *list;
|
|
|
+
|
|
|
+ list = ralloc (ctx, string_list_t);
|
|
|
+ list->head = NULL;
|
|
|
+ list->tail = NULL;
|
|
|
+
|
|
|
+ return list;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_string_list_append_item (string_list_t *list, const char *str)
|
|
|
+{
|
|
|
+ string_node_t *node;
|
|
|
+
|
|
|
+ node = ralloc (list, string_node_t);
|
|
|
+ node->str = ralloc_strdup (node, str);
|
|
|
+
|
|
|
+ node->next = NULL;
|
|
|
+
|
|
|
+ if (list->head == NULL) {
|
|
|
+ list->head = node;
|
|
|
+ } else {
|
|
|
+ list->tail->next = node;
|
|
|
+ }
|
|
|
+
|
|
|
+ list->tail = node;
|
|
|
+}
|
|
|
+
|
|
|
+int
|
|
|
+_string_list_contains (string_list_t *list, const char *member, int *index)
|
|
|
+{
|
|
|
+ string_node_t *node;
|
|
|
+ int i;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ for (i = 0, node = list->head; node; i++, node = node->next) {
|
|
|
+ if (strcmp (node->str, member) == 0) {
|
|
|
+ if (index)
|
|
|
+ *index = i;
|
|
|
+ return 1;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ return 0;
|
|
|
+}
|
|
|
+
|
|
|
+/* Return duplicate string in list (if any), NULL otherwise. */
|
|
|
+const char *
|
|
|
+_string_list_has_duplicate (string_list_t *list)
|
|
|
+{
|
|
|
+ string_node_t *node, *dup;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return NULL;
|
|
|
+
|
|
|
+ for (node = list->head; node; node = node->next) {
|
|
|
+ for (dup = node->next; dup; dup = dup->next) {
|
|
|
+ if (strcmp (node->str, dup->str) == 0)
|
|
|
+ return node->str;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ return NULL;
|
|
|
+}
|
|
|
+
|
|
|
+int
|
|
|
+_string_list_length (string_list_t *list)
|
|
|
+{
|
|
|
+ int length = 0;
|
|
|
+ string_node_t *node;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ for (node = list->head; node; node = node->next)
|
|
|
+ length++;
|
|
|
+
|
|
|
+ return length;
|
|
|
+}
|
|
|
+
|
|
|
+int
|
|
|
+_string_list_equal (string_list_t *a, string_list_t *b)
|
|
|
+{
|
|
|
+ string_node_t *node_a, *node_b;
|
|
|
+
|
|
|
+ if (a == NULL && b == NULL)
|
|
|
+ return 1;
|
|
|
+
|
|
|
+ if (a == NULL || b == NULL)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ for (node_a = a->head, node_b = b->head;
|
|
|
+ node_a && node_b;
|
|
|
+ node_a = node_a->next, node_b = node_b->next)
|
|
|
+ {
|
|
|
+ if (strcmp (node_a->str, node_b->str))
|
|
|
+ return 0;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Catch the case of lists being different lengths, (which
|
|
|
+ * would cause the loop above to terminate after the shorter
|
|
|
+ * list). */
|
|
|
+ return node_a == node_b;
|
|
|
+}
|
|
|
+
|
|
|
+argument_list_t *
|
|
|
+_argument_list_create (void *ctx)
|
|
|
+{
|
|
|
+ argument_list_t *list;
|
|
|
+
|
|
|
+ list = ralloc (ctx, argument_list_t);
|
|
|
+ list->head = NULL;
|
|
|
+ list->tail = NULL;
|
|
|
+
|
|
|
+ return list;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_argument_list_append (argument_list_t *list, token_list_t *argument)
|
|
|
+{
|
|
|
+ argument_node_t *node;
|
|
|
+
|
|
|
+ node = ralloc (list, argument_node_t);
|
|
|
+ node->argument = argument;
|
|
|
+
|
|
|
+ node->next = NULL;
|
|
|
+
|
|
|
+ if (list->head == NULL) {
|
|
|
+ list->head = node;
|
|
|
+ } else {
|
|
|
+ list->tail->next = node;
|
|
|
+ }
|
|
|
+
|
|
|
+ list->tail = node;
|
|
|
+}
|
|
|
+
|
|
|
+int
|
|
|
+_argument_list_length (argument_list_t *list)
|
|
|
+{
|
|
|
+ int length = 0;
|
|
|
+ argument_node_t *node;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ for (node = list->head; node; node = node->next)
|
|
|
+ length++;
|
|
|
+
|
|
|
+ return length;
|
|
|
+}
|
|
|
+
|
|
|
+token_list_t *
|
|
|
+_argument_list_member_at (argument_list_t *list, int index)
|
|
|
+{
|
|
|
+ argument_node_t *node;
|
|
|
+ int i;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return NULL;
|
|
|
+
|
|
|
+ node = list->head;
|
|
|
+ for (i = 0; i < index; i++) {
|
|
|
+ node = node->next;
|
|
|
+ if (node == NULL)
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (node)
|
|
|
+ return node->argument;
|
|
|
+
|
|
|
+ return NULL;
|
|
|
+}
|
|
|
+
|
|
|
+/* Note: This function ralloc_steal()s the str pointer. */
|
|
|
+token_t *
|
|
|
+_token_create_str (void *ctx, int type, char *str)
|
|
|
+{
|
|
|
+ token_t *token;
|
|
|
+
|
|
|
+ token = ralloc (ctx, token_t);
|
|
|
+ token->type = type;
|
|
|
+ token->value.str = str;
|
|
|
+
|
|
|
+ ralloc_steal (token, str);
|
|
|
+
|
|
|
+ return token;
|
|
|
+}
|
|
|
+
|
|
|
+token_t *
|
|
|
+_token_create_ival (void *ctx, int type, int ival)
|
|
|
+{
|
|
|
+ token_t *token;
|
|
|
+
|
|
|
+ token = ralloc (ctx, token_t);
|
|
|
+ token->type = type;
|
|
|
+ token->value.ival = ival;
|
|
|
+
|
|
|
+ return token;
|
|
|
+}
|
|
|
+
|
|
|
+token_list_t *
|
|
|
+_token_list_create (void *ctx)
|
|
|
+{
|
|
|
+ token_list_t *list;
|
|
|
+
|
|
|
+ list = ralloc (ctx, token_list_t);
|
|
|
+ list->head = NULL;
|
|
|
+ list->tail = NULL;
|
|
|
+ list->non_space_tail = NULL;
|
|
|
+
|
|
|
+ return list;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_token_list_append (token_list_t *list, token_t *token)
|
|
|
+{
|
|
|
+ token_node_t *node;
|
|
|
+
|
|
|
+ node = ralloc (list, token_node_t);
|
|
|
+ node->token = token;
|
|
|
+ node->next = NULL;
|
|
|
+
|
|
|
+ if (list->head == NULL) {
|
|
|
+ list->head = node;
|
|
|
+ } else {
|
|
|
+ list->tail->next = node;
|
|
|
+ }
|
|
|
+
|
|
|
+ list->tail = node;
|
|
|
+ if (token->type != SPACE)
|
|
|
+ list->non_space_tail = node;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_token_list_append_list (token_list_t *list, token_list_t *tail)
|
|
|
+{
|
|
|
+ if (tail == NULL || tail->head == NULL)
|
|
|
+ return;
|
|
|
+
|
|
|
+ if (list->head == NULL) {
|
|
|
+ list->head = tail->head;
|
|
|
+ } else {
|
|
|
+ list->tail->next = tail->head;
|
|
|
+ }
|
|
|
+
|
|
|
+ list->tail = tail->tail;
|
|
|
+ list->non_space_tail = tail->non_space_tail;
|
|
|
+}
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_token_list_copy (void *ctx, token_list_t *other)
|
|
|
+{
|
|
|
+ token_list_t *copy;
|
|
|
+ token_node_t *node;
|
|
|
+
|
|
|
+ if (other == NULL)
|
|
|
+ return NULL;
|
|
|
+
|
|
|
+ copy = _token_list_create (ctx);
|
|
|
+ for (node = other->head; node; node = node->next) {
|
|
|
+ token_t *new_token = ralloc (copy, token_t);
|
|
|
+ *new_token = *node->token;
|
|
|
+ _token_list_append (copy, new_token);
|
|
|
+ }
|
|
|
+
|
|
|
+ return copy;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_token_list_trim_trailing_space (token_list_t *list)
|
|
|
+{
|
|
|
+ token_node_t *tail, *next;
|
|
|
+
|
|
|
+ if (list->non_space_tail) {
|
|
|
+ tail = list->non_space_tail->next;
|
|
|
+ list->non_space_tail->next = NULL;
|
|
|
+ list->tail = list->non_space_tail;
|
|
|
+
|
|
|
+ while (tail) {
|
|
|
+ next = tail->next;
|
|
|
+ ralloc_free (tail);
|
|
|
+ tail = next;
|
|
|
+ }
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_token_list_is_empty_ignoring_space (token_list_t *l)
|
|
|
+{
|
|
|
+ token_node_t *n;
|
|
|
+
|
|
|
+ if (l == NULL)
|
|
|
+ return 1;
|
|
|
+
|
|
|
+ n = l->head;
|
|
|
+ while (n != NULL && n->token->type == SPACE)
|
|
|
+ n = n->next;
|
|
|
+
|
|
|
+ return n == NULL;
|
|
|
+}
|
|
|
+
|
|
|
+int
|
|
|
+_token_list_equal_ignoring_space (token_list_t *a, token_list_t *b)
|
|
|
+{
|
|
|
+ token_node_t *node_a, *node_b;
|
|
|
+
|
|
|
+ if (a == NULL || b == NULL) {
|
|
|
+ int a_empty = _token_list_is_empty_ignoring_space(a);
|
|
|
+ int b_empty = _token_list_is_empty_ignoring_space(b);
|
|
|
+ return a_empty == b_empty;
|
|
|
+ }
|
|
|
+
|
|
|
+ node_a = a->head;
|
|
|
+ node_b = b->head;
|
|
|
+
|
|
|
+ while (1)
|
|
|
+ {
|
|
|
+ if (node_a == NULL && node_b == NULL)
|
|
|
+ break;
|
|
|
+
|
|
|
+ if (node_a == NULL || node_b == NULL)
|
|
|
+ return 0;
|
|
|
+ /* Make sure whitespace appears in the same places in both.
|
|
|
+ * It need not be exactly the same amount of whitespace,
|
|
|
+ * though.
|
|
|
+ */
|
|
|
+ if (node_a->token->type == SPACE
|
|
|
+ && node_b->token->type == SPACE) {
|
|
|
+ while (node_a->token->type == SPACE)
|
|
|
+ node_a = node_a->next;
|
|
|
+ while (node_b->token->type == SPACE)
|
|
|
+ node_b = node_b->next;
|
|
|
+ continue;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (node_a->token->type != node_b->token->type)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ switch (node_a->token->type) {
|
|
|
+ case INTEGER:
|
|
|
+ if (node_a->token->value.ival !=
|
|
|
+ node_b->token->value.ival)
|
|
|
+ {
|
|
|
+ return 0;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ case IDENTIFIER:
|
|
|
+ case INTEGER_STRING:
|
|
|
+ case OTHER:
|
|
|
+ if (strcmp (node_a->token->value.str,
|
|
|
+ node_b->token->value.str))
|
|
|
+ {
|
|
|
+ return 0;
|
|
|
+ }
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ node_a = node_a->next;
|
|
|
+ node_b = node_b->next;
|
|
|
+ }
|
|
|
+
|
|
|
+ return 1;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_token_print (char **out, size_t *len, token_t *token)
|
|
|
+{
|
|
|
+ if (token->type < 256) {
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "%c", token->type);
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ switch (token->type) {
|
|
|
+ case INTEGER:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "%" PRIiMAX, token->value.ival);
|
|
|
+ break;
|
|
|
+ case IDENTIFIER:
|
|
|
+ case INTEGER_STRING:
|
|
|
+ case OTHER:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "%s", token->value.str);
|
|
|
+ break;
|
|
|
+ case SPACE:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, " ");
|
|
|
+ break;
|
|
|
+ case LEFT_SHIFT:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "<<");
|
|
|
+ break;
|
|
|
+ case RIGHT_SHIFT:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, ">>");
|
|
|
+ break;
|
|
|
+ case LESS_OR_EQUAL:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "<=");
|
|
|
+ break;
|
|
|
+ case GREATER_OR_EQUAL:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, ">=");
|
|
|
+ break;
|
|
|
+ case EQUAL:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "==");
|
|
|
+ break;
|
|
|
+ case NOT_EQUAL:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "!=");
|
|
|
+ break;
|
|
|
+ case AND:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "&&");
|
|
|
+ break;
|
|
|
+ case OR:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "||");
|
|
|
+ break;
|
|
|
+ case PASTE:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "##");
|
|
|
+ break;
|
|
|
+ case PLUS_PLUS:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "++");
|
|
|
+ break;
|
|
|
+ case MINUS_MINUS:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "--");
|
|
|
+ break;
|
|
|
+ case DEFINED:
|
|
|
+ ralloc_asprintf_rewrite_tail (out, len, "defined");
|
|
|
+ break;
|
|
|
+ case PLACEHOLDER:
|
|
|
+ /* Nothing to print. */
|
|
|
+ break;
|
|
|
+ default:
|
|
|
+ assert(!"Error: Don't know how to print token.");
|
|
|
+
|
|
|
+ break;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+/* Return a new token (ralloc()ed off of 'token') formed by pasting
|
|
|
+ * 'token' and 'other'. Note that this function may return 'token' or
|
|
|
+ * 'other' directly rather than allocating anything new.
|
|
|
+ *
|
|
|
+ * Caution: Only very cursory error-checking is performed to see if
|
|
|
+ * the final result is a valid single token. */
|
|
|
+static token_t *
|
|
|
+_token_paste (glcpp_parser_t *parser, token_t *token, token_t *other)
|
|
|
+{
|
|
|
+ token_t *combined = NULL;
|
|
|
+
|
|
|
+ /* Pasting a placeholder onto anything makes no change. */
|
|
|
+ if (other->type == PLACEHOLDER)
|
|
|
+ return token;
|
|
|
+
|
|
|
+ /* When 'token' is a placeholder, just return 'other'. */
|
|
|
+ if (token->type == PLACEHOLDER)
|
|
|
+ return other;
|
|
|
+
|
|
|
+ /* A very few single-character punctuators can be combined
|
|
|
+ * with another to form a multi-character punctuator. */
|
|
|
+ switch (token->type) {
|
|
|
+ case '<':
|
|
|
+ if (other->type == '<')
|
|
|
+ combined = _token_create_ival (token, LEFT_SHIFT, LEFT_SHIFT);
|
|
|
+ else if (other->type == '=')
|
|
|
+ combined = _token_create_ival (token, LESS_OR_EQUAL, LESS_OR_EQUAL);
|
|
|
+ break;
|
|
|
+ case '>':
|
|
|
+ if (other->type == '>')
|
|
|
+ combined = _token_create_ival (token, RIGHT_SHIFT, RIGHT_SHIFT);
|
|
|
+ else if (other->type == '=')
|
|
|
+ combined = _token_create_ival (token, GREATER_OR_EQUAL, GREATER_OR_EQUAL);
|
|
|
+ break;
|
|
|
+ case '=':
|
|
|
+ if (other->type == '=')
|
|
|
+ combined = _token_create_ival (token, EQUAL, EQUAL);
|
|
|
+ break;
|
|
|
+ case '!':
|
|
|
+ if (other->type == '=')
|
|
|
+ combined = _token_create_ival (token, NOT_EQUAL, NOT_EQUAL);
|
|
|
+ break;
|
|
|
+ case '&':
|
|
|
+ if (other->type == '&')
|
|
|
+ combined = _token_create_ival (token, AND, AND);
|
|
|
+ break;
|
|
|
+ case '|':
|
|
|
+ if (other->type == '|')
|
|
|
+ combined = _token_create_ival (token, OR, OR);
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (combined != NULL) {
|
|
|
+ /* Inherit the location from the first token */
|
|
|
+ combined->location = token->location;
|
|
|
+ return combined;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Two string-valued (or integer) tokens can usually just be
|
|
|
+ * mashed together. (We also handle a string followed by an
|
|
|
+ * integer here as well.)
|
|
|
+ *
|
|
|
+ * There are some exceptions here. Notably, if the first token
|
|
|
+ * is an integer (or a string representing an integer), then
|
|
|
+ * the second token must also be an integer or must be a
|
|
|
+ * string representing an integer that begins with a digit.
|
|
|
+ */
|
|
|
+ if ((token->type == IDENTIFIER || token->type == OTHER || token->type == INTEGER_STRING || token->type == INTEGER) &&
|
|
|
+ (other->type == IDENTIFIER || other->type == OTHER || other->type == INTEGER_STRING || other->type == INTEGER))
|
|
|
+ {
|
|
|
+ char *str;
|
|
|
+ int combined_type;
|
|
|
+
|
|
|
+ /* Check that pasting onto an integer doesn't create a
|
|
|
+ * non-integer, (that is, only digits can be
|
|
|
+ * pasted. */
|
|
|
+ if (token->type == INTEGER_STRING || token->type == INTEGER)
|
|
|
+ {
|
|
|
+ switch (other->type) {
|
|
|
+ case INTEGER_STRING:
|
|
|
+ if (other->value.str[0] < '0' ||
|
|
|
+ other->value.str[0] > '9')
|
|
|
+ goto FAIL;
|
|
|
+ break;
|
|
|
+ case INTEGER:
|
|
|
+ if (other->value.ival < 0)
|
|
|
+ goto FAIL;
|
|
|
+ break;
|
|
|
+ default:
|
|
|
+ goto FAIL;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ if (token->type == INTEGER)
|
|
|
+ str = ralloc_asprintf (token, "%" PRIiMAX,
|
|
|
+ token->value.ival);
|
|
|
+ else
|
|
|
+ str = ralloc_strdup (token, token->value.str);
|
|
|
+
|
|
|
+
|
|
|
+ if (other->type == INTEGER)
|
|
|
+ ralloc_asprintf_append (&str, "%" PRIiMAX,
|
|
|
+ other->value.ival);
|
|
|
+ else
|
|
|
+ ralloc_strcat (&str, other->value.str);
|
|
|
+
|
|
|
+ /* New token is same type as original token, unless we
|
|
|
+ * started with an integer, in which case we will be
|
|
|
+ * creating an integer-string. */
|
|
|
+ combined_type = token->type;
|
|
|
+ if (combined_type == INTEGER)
|
|
|
+ combined_type = INTEGER_STRING;
|
|
|
+
|
|
|
+ combined = _token_create_str (token, combined_type, str);
|
|
|
+ combined->location = token->location;
|
|
|
+ return combined;
|
|
|
+ }
|
|
|
+
|
|
|
+ FAIL:
|
|
|
+ glcpp_error (&token->location, parser, "");
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->info_log, &parser->info_log_length, "Pasting \"");
|
|
|
+ _token_print (&parser->info_log, &parser->info_log_length, token);
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->info_log, &parser->info_log_length, "\" and \"");
|
|
|
+ _token_print (&parser->info_log, &parser->info_log_length, other);
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->info_log, &parser->info_log_length, "\" does not give a valid preprocessing token.\n");
|
|
|
+
|
|
|
+ return token;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_token_list_print (glcpp_parser_t *parser, token_list_t *list)
|
|
|
+{
|
|
|
+ token_node_t *node;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return;
|
|
|
+
|
|
|
+ for (node = list->head; node; node = node->next)
|
|
|
+ _token_print (&parser->output, &parser->output_length, node->token);
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+yyerror (YYLTYPE *locp, glcpp_parser_t *parser, const char *error)
|
|
|
+{
|
|
|
+ glcpp_error(locp, parser, "%s", error);
|
|
|
+}
|
|
|
+
|
|
|
+static void add_builtin_define(glcpp_parser_t *parser,
|
|
|
+ const char *name, int value)
|
|
|
+{
|
|
|
+ token_t *tok;
|
|
|
+ token_list_t *list;
|
|
|
+
|
|
|
+ tok = _token_create_ival (parser, INTEGER, value);
|
|
|
+
|
|
|
+ list = _token_list_create(parser);
|
|
|
+ _token_list_append(list, tok);
|
|
|
+ _define_object_macro(parser, NULL, name, list);
|
|
|
+}
|
|
|
+
|
|
|
+glcpp_parser_t *
|
|
|
+glcpp_parser_create (const struct gl_extensions *extensions, gl_api api)
|
|
|
+{
|
|
|
+ glcpp_parser_t *parser;
|
|
|
+
|
|
|
+ parser = ralloc (NULL, glcpp_parser_t);
|
|
|
+
|
|
|
+ glcpp_lex_init_extra (parser, &parser->scanner);
|
|
|
+ parser->defines = hash_table_ctor (32, hash_table_string_hash,
|
|
|
+ hash_table_string_compare);
|
|
|
+ parser->active = NULL;
|
|
|
+ parser->lexing_directive = 0;
|
|
|
+ parser->space_tokens = 1;
|
|
|
+ parser->last_token_was_newline = 0;
|
|
|
+ parser->last_token_was_space = 0;
|
|
|
+ parser->first_non_space_token_this_line = 1;
|
|
|
+ parser->newline_as_space = 0;
|
|
|
+ parser->in_control_line = 0;
|
|
|
+ parser->paren_count = 0;
|
|
|
+ parser->commented_newlines = 0;
|
|
|
+
|
|
|
+ parser->skip_stack = NULL;
|
|
|
+ parser->skipping = 0;
|
|
|
+
|
|
|
+ parser->lex_from_list = NULL;
|
|
|
+ parser->lex_from_node = NULL;
|
|
|
+
|
|
|
+ parser->output = ralloc_strdup(parser, "");
|
|
|
+ parser->output_length = 0;
|
|
|
+ parser->info_log = ralloc_strdup(parser, "");
|
|
|
+ parser->info_log_length = 0;
|
|
|
+ parser->error = 0;
|
|
|
+
|
|
|
+ parser->extensions = extensions;
|
|
|
+ parser->api = api;
|
|
|
+ parser->version_resolved = false;
|
|
|
+
|
|
|
+ parser->has_new_line_number = 0;
|
|
|
+ parser->new_line_number = 1;
|
|
|
+ parser->has_new_source_number = 0;
|
|
|
+ parser->new_source_number = 0;
|
|
|
+
|
|
|
+ return parser;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+glcpp_parser_destroy (glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ glcpp_lex_destroy (parser->scanner);
|
|
|
+ hash_table_dtor (parser->defines);
|
|
|
+ ralloc_free (parser);
|
|
|
+}
|
|
|
+
|
|
|
+typedef enum function_status
|
|
|
+{
|
|
|
+ FUNCTION_STATUS_SUCCESS,
|
|
|
+ FUNCTION_NOT_A_FUNCTION,
|
|
|
+ FUNCTION_UNBALANCED_PARENTHESES
|
|
|
+} function_status_t;
|
|
|
+
|
|
|
+/* Find a set of function-like macro arguments by looking for a
|
|
|
+ * balanced set of parentheses.
|
|
|
+ *
|
|
|
+ * When called, 'node' should be the opening-parenthesis token, (or
|
|
|
+ * perhaps preceeding SPACE tokens). Upon successful return *last will
|
|
|
+ * be the last consumed node, (corresponding to the closing right
|
|
|
+ * parenthesis).
|
|
|
+ *
|
|
|
+ * Return values:
|
|
|
+ *
|
|
|
+ * FUNCTION_STATUS_SUCCESS:
|
|
|
+ *
|
|
|
+ * Successfully parsed a set of function arguments.
|
|
|
+ *
|
|
|
+ * FUNCTION_NOT_A_FUNCTION:
|
|
|
+ *
|
|
|
+ * Macro name not followed by a '('. This is not an error, but
|
|
|
+ * simply that the macro name should be treated as a non-macro.
|
|
|
+ *
|
|
|
+ * FUNCTION_UNBALANCED_PARENTHESES
|
|
|
+ *
|
|
|
+ * Macro name is not followed by a balanced set of parentheses.
|
|
|
+ */
|
|
|
+static function_status_t
|
|
|
+_arguments_parse (argument_list_t *arguments,
|
|
|
+ token_node_t *node,
|
|
|
+ token_node_t **last)
|
|
|
+{
|
|
|
+ token_list_t *argument;
|
|
|
+ int paren_count;
|
|
|
+
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ /* Ignore whitespace before first parenthesis. */
|
|
|
+ while (node && node->token->type == SPACE)
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ if (node == NULL || node->token->type != '(')
|
|
|
+ return FUNCTION_NOT_A_FUNCTION;
|
|
|
+
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ argument = _token_list_create (arguments);
|
|
|
+ _argument_list_append (arguments, argument);
|
|
|
+
|
|
|
+ for (paren_count = 1; node; node = node->next) {
|
|
|
+ if (node->token->type == '(')
|
|
|
+ {
|
|
|
+ paren_count++;
|
|
|
+ }
|
|
|
+ else if (node->token->type == ')')
|
|
|
+ {
|
|
|
+ paren_count--;
|
|
|
+ if (paren_count == 0)
|
|
|
+ break;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (node->token->type == ',' &&
|
|
|
+ paren_count == 1)
|
|
|
+ {
|
|
|
+ _token_list_trim_trailing_space (argument);
|
|
|
+ argument = _token_list_create (arguments);
|
|
|
+ _argument_list_append (arguments, argument);
|
|
|
+ }
|
|
|
+ else {
|
|
|
+ if (argument->head == NULL) {
|
|
|
+ /* Don't treat initial whitespace as
|
|
|
+ * part of the argument. */
|
|
|
+ if (node->token->type == SPACE)
|
|
|
+ continue;
|
|
|
+ }
|
|
|
+ _token_list_append (argument, node->token);
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ if (paren_count)
|
|
|
+ return FUNCTION_UNBALANCED_PARENTHESES;
|
|
|
+
|
|
|
+ *last = node;
|
|
|
+
|
|
|
+ return FUNCTION_STATUS_SUCCESS;
|
|
|
+}
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_token_list_create_with_one_ival (void *ctx, int type, int ival)
|
|
|
+{
|
|
|
+ token_list_t *list;
|
|
|
+ token_t *node;
|
|
|
+
|
|
|
+ list = _token_list_create (ctx);
|
|
|
+ node = _token_create_ival (list, type, ival);
|
|
|
+ _token_list_append (list, node);
|
|
|
+
|
|
|
+ return list;
|
|
|
+}
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_token_list_create_with_one_space (void *ctx)
|
|
|
+{
|
|
|
+ return _token_list_create_with_one_ival (ctx, SPACE, SPACE);
|
|
|
+}
|
|
|
+
|
|
|
+static token_list_t *
|
|
|
+_token_list_create_with_one_integer (void *ctx, int ival)
|
|
|
+{
|
|
|
+ return _token_list_create_with_one_ival (ctx, INTEGER, ival);
|
|
|
+}
|
|
|
+
|
|
|
+/* Evaluate a DEFINED token node (based on subsequent tokens in the list).
|
|
|
+ *
|
|
|
+ * Note: This function must only be called when "node" is a DEFINED token,
|
|
|
+ * (and will abort with an assertion failure otherwise).
|
|
|
+ *
|
|
|
+ * If "node" is followed, (ignoring any SPACE tokens), by an IDENTIFIER token
|
|
|
+ * (optionally preceded and followed by '(' and ')' tokens) then the following
|
|
|
+ * occurs:
|
|
|
+ *
|
|
|
+ * If the identifier is a defined macro, this function returns 1.
|
|
|
+ *
|
|
|
+ * If the identifier is not a defined macro, this function returns 0.
|
|
|
+ *
|
|
|
+ * In either case, *last will be updated to the last node in the list
|
|
|
+ * consumed by the evaluation, (either the token of the identifier or the
|
|
|
+ * token of the closing parenthesis).
|
|
|
+ *
|
|
|
+ * In all other cases, (such as "node is the final node of the list", or
|
|
|
+ * "missing closing parenthesis", etc.), this function generates a
|
|
|
+ * preprocessor error, returns -1 and *last will not be set.
|
|
|
+ */
|
|
|
+static int
|
|
|
+_glcpp_parser_evaluate_defined (glcpp_parser_t *parser,
|
|
|
+ token_node_t *node,
|
|
|
+ token_node_t **last)
|
|
|
+{
|
|
|
+ token_node_t *argument, *defined = node;
|
|
|
+
|
|
|
+ assert (node->token->type == DEFINED);
|
|
|
+
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ /* Ignore whitespace after DEFINED token. */
|
|
|
+ while (node && node->token->type == SPACE)
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ if (node == NULL)
|
|
|
+ goto FAIL;
|
|
|
+
|
|
|
+ if (node->token->type == IDENTIFIER || node->token->type == OTHER) {
|
|
|
+ argument = node;
|
|
|
+ } else if (node->token->type == '(') {
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ /* Ignore whitespace after '(' token. */
|
|
|
+ while (node && node->token->type == SPACE)
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ if (node == NULL || (node->token->type != IDENTIFIER &&
|
|
|
+ node->token->type != OTHER))
|
|
|
+ {
|
|
|
+ goto FAIL;
|
|
|
+ }
|
|
|
+
|
|
|
+ argument = node;
|
|
|
+
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ /* Ignore whitespace after identifier, before ')' token. */
|
|
|
+ while (node && node->token->type == SPACE)
|
|
|
+ node = node->next;
|
|
|
+
|
|
|
+ if (node == NULL || node->token->type != ')')
|
|
|
+ goto FAIL;
|
|
|
+ } else {
|
|
|
+ goto FAIL;
|
|
|
+ }
|
|
|
+
|
|
|
+ *last = node;
|
|
|
+
|
|
|
+ return hash_table_find (parser->defines,
|
|
|
+ argument->token->value.str) ? 1 : 0;
|
|
|
+
|
|
|
+FAIL:
|
|
|
+ glcpp_error (&defined->token->location, parser,
|
|
|
+ "\"defined\" not followed by an identifier");
|
|
|
+ return -1;
|
|
|
+}
|
|
|
+
|
|
|
+/* Evaluate all DEFINED nodes in a given list, modifying the list in place.
|
|
|
+ */
|
|
|
+static void
|
|
|
+_glcpp_parser_evaluate_defined_in_list (glcpp_parser_t *parser,
|
|
|
+ token_list_t *list)
|
|
|
+{
|
|
|
+ token_node_t *node, *node_prev, *replacement, *last = NULL;
|
|
|
+ int value;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return;
|
|
|
+
|
|
|
+ node_prev = NULL;
|
|
|
+ node = list->head;
|
|
|
+
|
|
|
+ while (node) {
|
|
|
+
|
|
|
+ if (node->token->type != DEFINED)
|
|
|
+ goto NEXT;
|
|
|
+
|
|
|
+ value = _glcpp_parser_evaluate_defined (parser, node, &last);
|
|
|
+ if (value == -1)
|
|
|
+ goto NEXT;
|
|
|
+
|
|
|
+ replacement = ralloc (list, token_node_t);
|
|
|
+ replacement->token = _token_create_ival (list, INTEGER, value);
|
|
|
+
|
|
|
+ /* Splice replacement node into list, replacing from "node"
|
|
|
+ * through "last". */
|
|
|
+ if (node_prev)
|
|
|
+ node_prev->next = replacement;
|
|
|
+ else
|
|
|
+ list->head = replacement;
|
|
|
+ replacement->next = last->next;
|
|
|
+ if (last == list->tail)
|
|
|
+ list->tail = replacement;
|
|
|
+
|
|
|
+ node = replacement;
|
|
|
+
|
|
|
+ NEXT:
|
|
|
+ node_prev = node;
|
|
|
+ node = node->next;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+/* Perform macro expansion on 'list', placing the resulting tokens
|
|
|
+ * into a new list which is initialized with a first token of type
|
|
|
+ * 'head_token_type'. Then begin lexing from the resulting list,
|
|
|
+ * (return to the current lexing source when this list is exhausted).
|
|
|
+ *
|
|
|
+ * See the documentation of _glcpp_parser_expand_token_list for a description
|
|
|
+ * of the "mode" parameter.
|
|
|
+ */
|
|
|
+static void
|
|
|
+_glcpp_parser_expand_and_lex_from (glcpp_parser_t *parser,
|
|
|
+ int head_token_type,
|
|
|
+ token_list_t *list,
|
|
|
+ expansion_mode_t mode)
|
|
|
+{
|
|
|
+ token_list_t *expanded;
|
|
|
+ token_t *token;
|
|
|
+
|
|
|
+ expanded = _token_list_create (parser);
|
|
|
+ token = _token_create_ival (parser, head_token_type, head_token_type);
|
|
|
+ _token_list_append (expanded, token);
|
|
|
+ _glcpp_parser_expand_token_list (parser, list, mode);
|
|
|
+ _token_list_append_list (expanded, list);
|
|
|
+ glcpp_parser_lex_from (parser, expanded);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_apply_pastes (glcpp_parser_t *parser, token_list_t *list)
|
|
|
+{
|
|
|
+ token_node_t *node;
|
|
|
+
|
|
|
+ node = list->head;
|
|
|
+ while (node)
|
|
|
+ {
|
|
|
+ token_node_t *next_non_space;
|
|
|
+
|
|
|
+ /* Look ahead for a PASTE token, skipping space. */
|
|
|
+ next_non_space = node->next;
|
|
|
+ while (next_non_space && next_non_space->token->type == SPACE)
|
|
|
+ next_non_space = next_non_space->next;
|
|
|
+
|
|
|
+ if (next_non_space == NULL)
|
|
|
+ break;
|
|
|
+
|
|
|
+ if (next_non_space->token->type != PASTE) {
|
|
|
+ node = next_non_space;
|
|
|
+ continue;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Now find the next non-space token after the PASTE. */
|
|
|
+ next_non_space = next_non_space->next;
|
|
|
+ while (next_non_space && next_non_space->token->type == SPACE)
|
|
|
+ next_non_space = next_non_space->next;
|
|
|
+
|
|
|
+ if (next_non_space == NULL) {
|
|
|
+ yyerror (&node->token->location, parser, "'##' cannot appear at either end of a macro expansion\n");
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ node->token = _token_paste (parser, node->token, next_non_space->token);
|
|
|
+ node->next = next_non_space->next;
|
|
|
+ if (next_non_space == list->tail)
|
|
|
+ list->tail = node;
|
|
|
+ }
|
|
|
+
|
|
|
+ list->non_space_tail = list->tail;
|
|
|
+}
|
|
|
+
|
|
|
+/* This is a helper function that's essentially part of the
|
|
|
+ * implementation of _glcpp_parser_expand_node. It shouldn't be called
|
|
|
+ * except for by that function.
|
|
|
+ *
|
|
|
+ * Returns NULL if node is a simple token with no expansion, (that is,
|
|
|
+ * although 'node' corresponds to an identifier defined as a
|
|
|
+ * function-like macro, it is not followed with a parenthesized
|
|
|
+ * argument list).
|
|
|
+ *
|
|
|
+ * Compute the complete expansion of node (which is a function-like
|
|
|
+ * macro) and subsequent nodes which are arguments.
|
|
|
+ *
|
|
|
+ * Returns the token list that results from the expansion and sets
|
|
|
+ * *last to the last node in the list that was consumed by the
|
|
|
+ * expansion. Specifically, *last will be set as follows: as the
|
|
|
+ * token of the closing right parenthesis.
|
|
|
+ *
|
|
|
+ * See the documentation of _glcpp_parser_expand_token_list for a description
|
|
|
+ * of the "mode" parameter.
|
|
|
+ */
|
|
|
+static token_list_t *
|
|
|
+_glcpp_parser_expand_function (glcpp_parser_t *parser,
|
|
|
+ token_node_t *node,
|
|
|
+ token_node_t **last,
|
|
|
+ expansion_mode_t mode)
|
|
|
+{
|
|
|
+ macro_t *macro;
|
|
|
+ const char *identifier;
|
|
|
+ argument_list_t *arguments;
|
|
|
+ function_status_t status;
|
|
|
+ token_list_t *substituted;
|
|
|
+ int parameter_index;
|
|
|
+
|
|
|
+ identifier = node->token->value.str;
|
|
|
+
|
|
|
+ macro = hash_table_find (parser->defines, identifier);
|
|
|
+
|
|
|
+ assert (macro->is_function);
|
|
|
+
|
|
|
+ arguments = _argument_list_create (parser);
|
|
|
+ status = _arguments_parse (arguments, node, last);
|
|
|
+
|
|
|
+ switch (status) {
|
|
|
+ case FUNCTION_STATUS_SUCCESS:
|
|
|
+ break;
|
|
|
+ case FUNCTION_NOT_A_FUNCTION:
|
|
|
+ return NULL;
|
|
|
+ case FUNCTION_UNBALANCED_PARENTHESES:
|
|
|
+ glcpp_error (&node->token->location, parser, "Macro %s call has unbalanced parentheses\n", identifier);
|
|
|
+ return NULL;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Replace a macro defined as empty with a SPACE token. */
|
|
|
+ if (macro->replacements == NULL) {
|
|
|
+ ralloc_free (arguments);
|
|
|
+ return _token_list_create_with_one_space (parser);
|
|
|
+ }
|
|
|
+
|
|
|
+ if (! ((_argument_list_length (arguments) ==
|
|
|
+ _string_list_length (macro->parameters)) ||
|
|
|
+ (_string_list_length (macro->parameters) == 0 &&
|
|
|
+ _argument_list_length (arguments) == 1 &&
|
|
|
+ arguments->head->argument->head == NULL)))
|
|
|
+ {
|
|
|
+ glcpp_error (&node->token->location, parser,
|
|
|
+ "Error: macro %s invoked with %d arguments (expected %d)\n",
|
|
|
+ identifier,
|
|
|
+ _argument_list_length (arguments),
|
|
|
+ _string_list_length (macro->parameters));
|
|
|
+ return NULL;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Perform argument substitution on the replacement list. */
|
|
|
+ substituted = _token_list_create (arguments);
|
|
|
+
|
|
|
+ for (node = macro->replacements->head; node; node = node->next)
|
|
|
+ {
|
|
|
+ if (node->token->type == IDENTIFIER &&
|
|
|
+ _string_list_contains (macro->parameters,
|
|
|
+ node->token->value.str,
|
|
|
+ ¶meter_index))
|
|
|
+ {
|
|
|
+ token_list_t *argument;
|
|
|
+ argument = _argument_list_member_at (arguments,
|
|
|
+ parameter_index);
|
|
|
+ /* Before substituting, we expand the argument
|
|
|
+ * tokens, or append a placeholder token for
|
|
|
+ * an empty argument. */
|
|
|
+ if (argument->head) {
|
|
|
+ token_list_t *expanded_argument;
|
|
|
+ expanded_argument = _token_list_copy (parser,
|
|
|
+ argument);
|
|
|
+ _glcpp_parser_expand_token_list (parser,
|
|
|
+ expanded_argument,
|
|
|
+ mode);
|
|
|
+ _token_list_append_list (substituted,
|
|
|
+ expanded_argument);
|
|
|
+ } else {
|
|
|
+ token_t *new_token;
|
|
|
+
|
|
|
+ new_token = _token_create_ival (substituted,
|
|
|
+ PLACEHOLDER,
|
|
|
+ PLACEHOLDER);
|
|
|
+ _token_list_append (substituted, new_token);
|
|
|
+ }
|
|
|
+ } else {
|
|
|
+ _token_list_append (substituted, node->token);
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ /* After argument substitution, and before further expansion
|
|
|
+ * below, implement token pasting. */
|
|
|
+
|
|
|
+ _token_list_trim_trailing_space (substituted);
|
|
|
+
|
|
|
+ _glcpp_parser_apply_pastes (parser, substituted);
|
|
|
+
|
|
|
+ return substituted;
|
|
|
+}
|
|
|
+
|
|
|
+/* Compute the complete expansion of node, (and subsequent nodes after
|
|
|
+ * 'node' in the case that 'node' is a function-like macro and
|
|
|
+ * subsequent nodes are arguments).
|
|
|
+ *
|
|
|
+ * Returns NULL if node is a simple token with no expansion.
|
|
|
+ *
|
|
|
+ * Otherwise, returns the token list that results from the expansion
|
|
|
+ * and sets *last to the last node in the list that was consumed by
|
|
|
+ * the expansion. Specifically, *last will be set as follows:
|
|
|
+ *
|
|
|
+ * As 'node' in the case of object-like macro expansion.
|
|
|
+ *
|
|
|
+ * As the token of the closing right parenthesis in the case of
|
|
|
+ * function-like macro expansion.
|
|
|
+ *
|
|
|
+ * See the documentation of _glcpp_parser_expand_token_list for a description
|
|
|
+ * of the "mode" parameter.
|
|
|
+ */
|
|
|
+static token_list_t *
|
|
|
+_glcpp_parser_expand_node (glcpp_parser_t *parser,
|
|
|
+ token_node_t *node,
|
|
|
+ token_node_t **last,
|
|
|
+ expansion_mode_t mode)
|
|
|
+{
|
|
|
+ token_t *token = node->token;
|
|
|
+ const char *identifier;
|
|
|
+ macro_t *macro;
|
|
|
+
|
|
|
+ /* We only expand identifiers */
|
|
|
+ if (token->type != IDENTIFIER) {
|
|
|
+ return NULL;
|
|
|
+ }
|
|
|
+
|
|
|
+ *last = node;
|
|
|
+ identifier = token->value.str;
|
|
|
+
|
|
|
+ /* Special handling for __LINE__ and __FILE__, (not through
|
|
|
+ * the hash table). */
|
|
|
+ if (strcmp(identifier, "__LINE__") == 0)
|
|
|
+ return _token_list_create_with_one_integer (parser, node->token->location.first_line);
|
|
|
+
|
|
|
+ if (strcmp(identifier, "__FILE__") == 0)
|
|
|
+ return _token_list_create_with_one_integer (parser, node->token->location.source);
|
|
|
+
|
|
|
+ /* Look up this identifier in the hash table. */
|
|
|
+ macro = hash_table_find (parser->defines, identifier);
|
|
|
+
|
|
|
+ /* Not a macro, so no expansion needed. */
|
|
|
+ if (macro == NULL)
|
|
|
+ return NULL;
|
|
|
+
|
|
|
+ /* Finally, don't expand this macro if we're already actively
|
|
|
+ * expanding it, (to avoid infinite recursion). */
|
|
|
+ if (_parser_active_list_contains (parser, identifier)) {
|
|
|
+ /* We change the token type here from IDENTIFIER to
|
|
|
+ * OTHER to prevent any future expansion of this
|
|
|
+ * unexpanded token. */
|
|
|
+ char *str;
|
|
|
+ token_list_t *expansion;
|
|
|
+ token_t *final;
|
|
|
+
|
|
|
+ str = ralloc_strdup (parser, token->value.str);
|
|
|
+ final = _token_create_str (parser, OTHER, str);
|
|
|
+ expansion = _token_list_create (parser);
|
|
|
+ _token_list_append (expansion, final);
|
|
|
+ return expansion;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (! macro->is_function)
|
|
|
+ {
|
|
|
+ token_list_t *replacement;
|
|
|
+
|
|
|
+ /* Replace a macro defined as empty with a SPACE token. */
|
|
|
+ if (macro->replacements == NULL)
|
|
|
+ return _token_list_create_with_one_space (parser);
|
|
|
+
|
|
|
+ replacement = _token_list_copy (parser, macro->replacements);
|
|
|
+ _glcpp_parser_apply_pastes (parser, replacement);
|
|
|
+ return replacement;
|
|
|
+ }
|
|
|
+
|
|
|
+ return _glcpp_parser_expand_function (parser, node, last, mode);
|
|
|
+}
|
|
|
+
|
|
|
+/* Push a new identifier onto the parser's active list.
|
|
|
+ *
|
|
|
+ * Here, 'marker' is the token node that appears in the list after the
|
|
|
+ * expansion of 'identifier'. That is, when the list iterator begins
|
|
|
+ * examining 'marker', then it is time to pop this node from the
|
|
|
+ * active stack.
|
|
|
+ */
|
|
|
+static void
|
|
|
+_parser_active_list_push (glcpp_parser_t *parser,
|
|
|
+ const char *identifier,
|
|
|
+ token_node_t *marker)
|
|
|
+{
|
|
|
+ active_list_t *node;
|
|
|
+
|
|
|
+ node = ralloc (parser->active, active_list_t);
|
|
|
+ node->identifier = ralloc_strdup (node, identifier);
|
|
|
+ node->marker = marker;
|
|
|
+ node->next = parser->active;
|
|
|
+
|
|
|
+ parser->active = node;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_parser_active_list_pop (glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ active_list_t *node = parser->active;
|
|
|
+
|
|
|
+ if (node == NULL) {
|
|
|
+ parser->active = NULL;
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ node = parser->active->next;
|
|
|
+ ralloc_free (parser->active);
|
|
|
+
|
|
|
+ parser->active = node;
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_parser_active_list_contains (glcpp_parser_t *parser, const char *identifier)
|
|
|
+{
|
|
|
+ active_list_t *node;
|
|
|
+
|
|
|
+ if (parser->active == NULL)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ for (node = parser->active; node; node = node->next)
|
|
|
+ if (strcmp (node->identifier, identifier) == 0)
|
|
|
+ return 1;
|
|
|
+
|
|
|
+ return 0;
|
|
|
+}
|
|
|
+
|
|
|
+/* Walk over the token list replacing nodes with their expansion.
|
|
|
+ * Whenever nodes are expanded the walking will walk over the new
|
|
|
+ * nodes, continuing to expand as necessary. The results are placed in
|
|
|
+ * 'list' itself.
|
|
|
+ *
|
|
|
+ * The "mode" argument controls the handling of any DEFINED tokens that
|
|
|
+ * result from expansion as follows:
|
|
|
+ *
|
|
|
+ * EXPANSION_MODE_IGNORE_DEFINED: Any resulting DEFINED tokens will be
|
|
|
+ * left in the final list, unevaluated. This is the correct mode
|
|
|
+ * for expanding any list in any context other than a
|
|
|
+ * preprocessor conditional, (#if or #elif).
|
|
|
+ *
|
|
|
+ * EXPANSION_MODE_EVALUATE_DEFINED: Any resulting DEFINED tokens will be
|
|
|
+ * evaluated to 0 or 1 tokens depending on whether the following
|
|
|
+ * token is the name of a defined macro. If the DEFINED token is
|
|
|
+ * not followed by an (optionally parenthesized) identifier, then
|
|
|
+ * an error will be generated. This the correct mode for
|
|
|
+ * expanding any list in the context of a preprocessor
|
|
|
+ * conditional, (#if or #elif).
|
|
|
+ */
|
|
|
+static void
|
|
|
+_glcpp_parser_expand_token_list (glcpp_parser_t *parser,
|
|
|
+ token_list_t *list,
|
|
|
+ expansion_mode_t mode)
|
|
|
+{
|
|
|
+ token_node_t *node_prev;
|
|
|
+ token_node_t *node, *last = NULL;
|
|
|
+ token_list_t *expansion;
|
|
|
+ active_list_t *active_initial = parser->active;
|
|
|
+
|
|
|
+ if (list == NULL)
|
|
|
+ return;
|
|
|
+
|
|
|
+ _token_list_trim_trailing_space (list);
|
|
|
+
|
|
|
+ node_prev = NULL;
|
|
|
+ node = list->head;
|
|
|
+
|
|
|
+ if (mode == EXPANSION_MODE_EVALUATE_DEFINED)
|
|
|
+ _glcpp_parser_evaluate_defined_in_list (parser, list);
|
|
|
+
|
|
|
+ while (node) {
|
|
|
+
|
|
|
+ while (parser->active && parser->active->marker == node)
|
|
|
+ _parser_active_list_pop (parser);
|
|
|
+
|
|
|
+ expansion = _glcpp_parser_expand_node (parser, node, &last, mode);
|
|
|
+ if (expansion) {
|
|
|
+ token_node_t *n;
|
|
|
+
|
|
|
+ if (mode == EXPANSION_MODE_EVALUATE_DEFINED) {
|
|
|
+ _glcpp_parser_evaluate_defined_in_list (parser,
|
|
|
+ expansion);
|
|
|
+ }
|
|
|
+
|
|
|
+ for (n = node; n != last->next; n = n->next)
|
|
|
+ while (parser->active &&
|
|
|
+ parser->active->marker == n)
|
|
|
+ {
|
|
|
+ _parser_active_list_pop (parser);
|
|
|
+ }
|
|
|
+
|
|
|
+ _parser_active_list_push (parser,
|
|
|
+ node->token->value.str,
|
|
|
+ last->next);
|
|
|
+
|
|
|
+ /* Splice expansion into list, supporting a
|
|
|
+ * simple deletion if the expansion is
|
|
|
+ * empty. */
|
|
|
+ if (expansion->head) {
|
|
|
+ if (node_prev)
|
|
|
+ node_prev->next = expansion->head;
|
|
|
+ else
|
|
|
+ list->head = expansion->head;
|
|
|
+ expansion->tail->next = last->next;
|
|
|
+ if (last == list->tail)
|
|
|
+ list->tail = expansion->tail;
|
|
|
+ } else {
|
|
|
+ if (node_prev)
|
|
|
+ node_prev->next = last->next;
|
|
|
+ else
|
|
|
+ list->head = last->next;
|
|
|
+ if (last == list->tail)
|
|
|
+ list->tail = NULL;
|
|
|
+ }
|
|
|
+ } else {
|
|
|
+ node_prev = node;
|
|
|
+ }
|
|
|
+ node = node_prev ? node_prev->next : list->head;
|
|
|
+ }
|
|
|
+
|
|
|
+ /* Remove any lingering effects of this invocation on the
|
|
|
+ * active list. That is, pop until the list looks like it did
|
|
|
+ * at the beginning of this function. */
|
|
|
+ while (parser->active && parser->active != active_initial)
|
|
|
+ _parser_active_list_pop (parser);
|
|
|
+
|
|
|
+ list->non_space_tail = list->tail;
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_glcpp_parser_print_expanded_token_list (glcpp_parser_t *parser,
|
|
|
+ token_list_t *list)
|
|
|
+{
|
|
|
+ if (list == NULL)
|
|
|
+ return;
|
|
|
+
|
|
|
+ _glcpp_parser_expand_token_list (parser, list, EXPANSION_MODE_IGNORE_DEFINED);
|
|
|
+
|
|
|
+ _token_list_trim_trailing_space (list);
|
|
|
+
|
|
|
+ _token_list_print (parser, list);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_check_for_reserved_macro_name (glcpp_parser_t *parser, YYLTYPE *loc,
|
|
|
+ const char *identifier)
|
|
|
+{
|
|
|
+ /* Section 3.3 (Preprocessor) of the GLSL 1.30 spec (and later) and
|
|
|
+ * the GLSL ES spec (all versions) say:
|
|
|
+ *
|
|
|
+ * "All macro names containing two consecutive underscores ( __ )
|
|
|
+ * are reserved for future use as predefined macro names. All
|
|
|
+ * macro names prefixed with "GL_" ("GL" followed by a single
|
|
|
+ * underscore) are also reserved."
|
|
|
+ *
|
|
|
+ * The intention is that names containing __ are reserved for internal
|
|
|
+ * use by the implementation, and names prefixed with GL_ are reserved
|
|
|
+ * for use by Khronos. Since every extension adds a name prefixed
|
|
|
+ * with GL_ (i.e., the name of the extension), that should be an
|
|
|
+ * error. Names simply containing __ are dangerous to use, but should
|
|
|
+ * be allowed.
|
|
|
+ *
|
|
|
+ * A future version of the GLSL specification will clarify this.
|
|
|
+ */
|
|
|
+ if (strstr(identifier, "__")) {
|
|
|
+ glcpp_warning(loc, parser,
|
|
|
+ "Macro names containing \"__\" are reserved "
|
|
|
+ "for use by the implementation.\n");
|
|
|
+ }
|
|
|
+ if (strncmp(identifier, "GL_", 3) == 0) {
|
|
|
+ glcpp_error (loc, parser, "Macro names starting with \"GL_\" are reserved.\n");
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+_macro_equal (macro_t *a, macro_t *b)
|
|
|
+{
|
|
|
+ if (a->is_function != b->is_function)
|
|
|
+ return 0;
|
|
|
+
|
|
|
+ if (a->is_function) {
|
|
|
+ if (! _string_list_equal (a->parameters, b->parameters))
|
|
|
+ return 0;
|
|
|
+ }
|
|
|
+
|
|
|
+ return _token_list_equal_ignoring_space (a->replacements,
|
|
|
+ b->replacements);
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_define_object_macro (glcpp_parser_t *parser,
|
|
|
+ YYLTYPE *loc,
|
|
|
+ const char *identifier,
|
|
|
+ token_list_t *replacements)
|
|
|
+{
|
|
|
+ macro_t *macro, *previous;
|
|
|
+
|
|
|
+ /* We define pre-defined macros before we've started parsing the
|
|
|
+ * actual file. So if there's no location defined yet, that's what
|
|
|
+ * were doing and we don't want to generate an error for using the
|
|
|
+ * reserved names. */
|
|
|
+ if (loc != NULL)
|
|
|
+ _check_for_reserved_macro_name(parser, loc, identifier);
|
|
|
+
|
|
|
+ macro = ralloc (parser, macro_t);
|
|
|
+
|
|
|
+ macro->is_function = 0;
|
|
|
+ macro->parameters = NULL;
|
|
|
+ macro->identifier = ralloc_strdup (macro, identifier);
|
|
|
+ macro->replacements = replacements;
|
|
|
+ ralloc_steal (macro, replacements);
|
|
|
+
|
|
|
+ previous = hash_table_find (parser->defines, identifier);
|
|
|
+ if (previous) {
|
|
|
+ if (_macro_equal (macro, previous)) {
|
|
|
+ ralloc_free (macro);
|
|
|
+ return;
|
|
|
+ }
|
|
|
+ glcpp_error (loc, parser, "Redefinition of macro %s\n",
|
|
|
+ identifier);
|
|
|
+ }
|
|
|
+
|
|
|
+ hash_table_insert (parser->defines, macro, identifier);
|
|
|
+}
|
|
|
+
|
|
|
+void
|
|
|
+_define_function_macro (glcpp_parser_t *parser,
|
|
|
+ YYLTYPE *loc,
|
|
|
+ const char *identifier,
|
|
|
+ string_list_t *parameters,
|
|
|
+ token_list_t *replacements)
|
|
|
+{
|
|
|
+ macro_t *macro, *previous;
|
|
|
+ const char *dup;
|
|
|
+
|
|
|
+ _check_for_reserved_macro_name(parser, loc, identifier);
|
|
|
+
|
|
|
+ /* Check for any duplicate parameter names. */
|
|
|
+ if ((dup = _string_list_has_duplicate (parameters)) != NULL) {
|
|
|
+ glcpp_error (loc, parser, "Duplicate macro parameter \"%s\"",
|
|
|
+ dup);
|
|
|
+ }
|
|
|
+
|
|
|
+ macro = ralloc (parser, macro_t);
|
|
|
+ ralloc_steal (macro, parameters);
|
|
|
+ ralloc_steal (macro, replacements);
|
|
|
+
|
|
|
+ macro->is_function = 1;
|
|
|
+ macro->parameters = parameters;
|
|
|
+ macro->identifier = ralloc_strdup (macro, identifier);
|
|
|
+ macro->replacements = replacements;
|
|
|
+ previous = hash_table_find (parser->defines, identifier);
|
|
|
+ if (previous) {
|
|
|
+ if (_macro_equal (macro, previous)) {
|
|
|
+ ralloc_free (macro);
|
|
|
+ return;
|
|
|
+ }
|
|
|
+ glcpp_error (loc, parser, "Redefinition of macro %s\n",
|
|
|
+ identifier);
|
|
|
+ }
|
|
|
+
|
|
|
+ hash_table_insert (parser->defines, macro, identifier);
|
|
|
+}
|
|
|
+
|
|
|
+static int
|
|
|
+glcpp_parser_lex (YYSTYPE *yylval, YYLTYPE *yylloc, glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ token_node_t *node;
|
|
|
+ int ret;
|
|
|
+
|
|
|
+ if (parser->lex_from_list == NULL) {
|
|
|
+ ret = glcpp_lex (yylval, yylloc, parser->scanner);
|
|
|
+
|
|
|
+ /* XXX: This ugly block of code exists for the sole
|
|
|
+ * purpose of converting a NEWLINE token into a SPACE
|
|
|
+ * token, but only in the case where we have seen a
|
|
|
+ * function-like macro name, but have not yet seen its
|
|
|
+ * closing parenthesis.
|
|
|
+ *
|
|
|
+ * There's perhaps a more compact way to do this with
|
|
|
+ * mid-rule actions in the grammar.
|
|
|
+ *
|
|
|
+ * I'm definitely not pleased with the complexity of
|
|
|
+ * this code here.
|
|
|
+ */
|
|
|
+ if (parser->newline_as_space)
|
|
|
+ {
|
|
|
+ if (ret == '(') {
|
|
|
+ parser->paren_count++;
|
|
|
+ } else if (ret == ')') {
|
|
|
+ parser->paren_count--;
|
|
|
+ if (parser->paren_count == 0)
|
|
|
+ parser->newline_as_space = 0;
|
|
|
+ } else if (ret == NEWLINE) {
|
|
|
+ ret = SPACE;
|
|
|
+ } else if (ret != SPACE) {
|
|
|
+ if (parser->paren_count == 0)
|
|
|
+ parser->newline_as_space = 0;
|
|
|
+ }
|
|
|
+ }
|
|
|
+ else if (parser->in_control_line)
|
|
|
+ {
|
|
|
+ if (ret == NEWLINE)
|
|
|
+ parser->in_control_line = 0;
|
|
|
+ }
|
|
|
+ else if (ret == DEFINE_TOKEN ||
|
|
|
+ ret == UNDEF || ret == IF ||
|
|
|
+ ret == IFDEF || ret == IFNDEF ||
|
|
|
+ ret == ELIF || ret == ELSE ||
|
|
|
+ ret == ENDIF || ret == HASH_TOKEN)
|
|
|
+ {
|
|
|
+ parser->in_control_line = 1;
|
|
|
+ }
|
|
|
+ else if (ret == IDENTIFIER)
|
|
|
+ {
|
|
|
+ macro_t *macro;
|
|
|
+ macro = hash_table_find (parser->defines,
|
|
|
+ yylval->str);
|
|
|
+ if (macro && macro->is_function) {
|
|
|
+ parser->newline_as_space = 1;
|
|
|
+ parser->paren_count = 0;
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ return ret;
|
|
|
+ }
|
|
|
+
|
|
|
+ node = parser->lex_from_node;
|
|
|
+
|
|
|
+ if (node == NULL) {
|
|
|
+ ralloc_free (parser->lex_from_list);
|
|
|
+ parser->lex_from_list = NULL;
|
|
|
+ return NEWLINE;
|
|
|
+ }
|
|
|
+
|
|
|
+ *yylval = node->token->value;
|
|
|
+ ret = node->token->type;
|
|
|
+
|
|
|
+ parser->lex_from_node = node->next;
|
|
|
+
|
|
|
+ return ret;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+glcpp_parser_lex_from (glcpp_parser_t *parser, token_list_t *list)
|
|
|
+{
|
|
|
+ token_node_t *node;
|
|
|
+
|
|
|
+ assert (parser->lex_from_list == NULL);
|
|
|
+
|
|
|
+ /* Copy list, eliminating any space tokens. */
|
|
|
+ parser->lex_from_list = _token_list_create (parser);
|
|
|
+
|
|
|
+ for (node = list->head; node; node = node->next) {
|
|
|
+ if (node->token->type == SPACE)
|
|
|
+ continue;
|
|
|
+ _token_list_append (parser->lex_from_list, node->token);
|
|
|
+ }
|
|
|
+
|
|
|
+ ralloc_free (list);
|
|
|
+
|
|
|
+ parser->lex_from_node = parser->lex_from_list->head;
|
|
|
+
|
|
|
+ /* It's possible the list consisted of nothing but whitespace. */
|
|
|
+ if (parser->lex_from_node == NULL) {
|
|
|
+ ralloc_free (parser->lex_from_list);
|
|
|
+ parser->lex_from_list = NULL;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_push_if (glcpp_parser_t *parser, YYLTYPE *loc,
|
|
|
+ int condition)
|
|
|
+{
|
|
|
+ skip_type_t current = SKIP_NO_SKIP;
|
|
|
+ skip_node_t *node;
|
|
|
+
|
|
|
+ if (parser->skip_stack)
|
|
|
+ current = parser->skip_stack->type;
|
|
|
+
|
|
|
+ node = ralloc (parser, skip_node_t);
|
|
|
+ node->loc = *loc;
|
|
|
+
|
|
|
+ if (current == SKIP_NO_SKIP) {
|
|
|
+ if (condition)
|
|
|
+ node->type = SKIP_NO_SKIP;
|
|
|
+ else
|
|
|
+ node->type = SKIP_TO_ELSE;
|
|
|
+ } else {
|
|
|
+ node->type = SKIP_TO_ENDIF;
|
|
|
+ }
|
|
|
+
|
|
|
+ node->has_else = false;
|
|
|
+ node->next = parser->skip_stack;
|
|
|
+ parser->skip_stack = node;
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_change_if (glcpp_parser_t *parser, YYLTYPE *loc,
|
|
|
+ const char *type, int condition)
|
|
|
+{
|
|
|
+ if (parser->skip_stack == NULL) {
|
|
|
+ glcpp_error (loc, parser, "#%s without #if\n", type);
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (parser->skip_stack->type == SKIP_TO_ELSE) {
|
|
|
+ if (condition)
|
|
|
+ parser->skip_stack->type = SKIP_NO_SKIP;
|
|
|
+ } else {
|
|
|
+ parser->skip_stack->type = SKIP_TO_ENDIF;
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_skip_stack_pop (glcpp_parser_t *parser, YYLTYPE *loc)
|
|
|
+{
|
|
|
+ skip_node_t *node;
|
|
|
+
|
|
|
+ if (parser->skip_stack == NULL) {
|
|
|
+ glcpp_error (loc, parser, "#endif without #if\n");
|
|
|
+ return;
|
|
|
+ }
|
|
|
+
|
|
|
+ node = parser->skip_stack;
|
|
|
+ parser->skip_stack = node->next;
|
|
|
+ ralloc_free (node);
|
|
|
+}
|
|
|
+
|
|
|
+static void
|
|
|
+_glcpp_parser_handle_version_declaration(glcpp_parser_t *parser, intmax_t version,
|
|
|
+ const char *es_identifier,
|
|
|
+ bool explicitly_set)
|
|
|
+{
|
|
|
+ const struct gl_extensions *extensions = parser->extensions;
|
|
|
+
|
|
|
+ if (parser->version_resolved)
|
|
|
+ return;
|
|
|
+
|
|
|
+ parser->version_resolved = true;
|
|
|
+
|
|
|
+ add_builtin_define (parser, "__VERSION__", version);
|
|
|
+
|
|
|
+ parser->is_gles = (version == 100) ||
|
|
|
+ (es_identifier &&
|
|
|
+ (strcmp(es_identifier, "es") == 0));
|
|
|
+
|
|
|
+ /* Add pre-defined macros. */
|
|
|
+ if (parser->is_gles) {
|
|
|
+ add_builtin_define(parser, "GL_ES", 1);
|
|
|
+ add_builtin_define(parser, "GL_EXT_separate_shader_objects", 1);
|
|
|
+
|
|
|
+ if (extensions != NULL) {
|
|
|
+ if (extensions->OES_EGL_image_external)
|
|
|
+ add_builtin_define(parser, "GL_OES_EGL_image_external", 1);
|
|
|
+ if (extensions->OES_standard_derivatives)
|
|
|
+ add_builtin_define(parser, "GL_OES_standard_derivatives", 1);
|
|
|
+ }
|
|
|
+ } else {
|
|
|
+ add_builtin_define(parser, "GL_ARB_draw_buffers", 1);
|
|
|
+ add_builtin_define(parser, "GL_ARB_separate_shader_objects", 1);
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_rectangle", 1);
|
|
|
+ add_builtin_define(parser, "GL_AMD_shader_trinary_minmax", 1);
|
|
|
+
|
|
|
+
|
|
|
+ if (extensions != NULL) {
|
|
|
+ if (extensions->EXT_texture_array)
|
|
|
+ add_builtin_define(parser, "GL_EXT_texture_array", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_arrays_of_arrays)
|
|
|
+ add_builtin_define(parser, "GL_ARB_arrays_of_arrays", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_fragment_coord_conventions)
|
|
|
+ add_builtin_define(parser, "GL_ARB_fragment_coord_conventions",
|
|
|
+ 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_fragment_layer_viewport)
|
|
|
+ add_builtin_define(parser, "GL_ARB_fragment_layer_viewport", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_explicit_attrib_location)
|
|
|
+ add_builtin_define(parser, "GL_ARB_explicit_attrib_location", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_explicit_uniform_location)
|
|
|
+ add_builtin_define(parser, "GL_ARB_explicit_uniform_location", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_shader_texture_lod)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shader_texture_lod", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_draw_instanced)
|
|
|
+ add_builtin_define(parser, "GL_ARB_draw_instanced", 1);
|
|
|
+
|
|
|
+ if (extensions->EXT_draw_instanced)
|
|
|
+ add_builtin_define(parser, "GL_EXT_draw_instanced", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_conservative_depth) {
|
|
|
+ add_builtin_define(parser, "GL_AMD_conservative_depth", 1);
|
|
|
+ add_builtin_define(parser, "GL_ARB_conservative_depth", 1);
|
|
|
+ }
|
|
|
+
|
|
|
+ if (extensions->ARB_shader_bit_encoding)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shader_bit_encoding", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_uniform_buffer_object)
|
|
|
+ add_builtin_define(parser, "GL_ARB_uniform_buffer_object", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_texture_cube_map_array)
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_cube_map_array", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_shading_language_packing)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shading_language_packing", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_texture_multisample)
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_multisample", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_texture_query_levels)
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_query_levels", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_texture_query_lod)
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_query_lod", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_gpu_shader5)
|
|
|
+ add_builtin_define(parser, "GL_ARB_gpu_shader5", 1);
|
|
|
+
|
|
|
+ if (extensions->AMD_vertex_shader_layer)
|
|
|
+ add_builtin_define(parser, "GL_AMD_vertex_shader_layer", 1);
|
|
|
+
|
|
|
+ if (extensions->AMD_vertex_shader_viewport_index)
|
|
|
+ add_builtin_define(parser, "GL_AMD_vertex_shader_viewport_index", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_shading_language_420pack)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shading_language_420pack", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_sample_shading)
|
|
|
+ add_builtin_define(parser, "GL_ARB_sample_shading", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_texture_gather)
|
|
|
+ add_builtin_define(parser, "GL_ARB_texture_gather", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_shader_atomic_counters)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shader_atomic_counters", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_viewport_array)
|
|
|
+ add_builtin_define(parser, "GL_ARB_viewport_array", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_compute_shader)
|
|
|
+ add_builtin_define(parser, "GL_ARB_compute_shader", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_shader_image_load_store)
|
|
|
+ add_builtin_define(parser, "GL_ARB_shader_image_load_store", 1);
|
|
|
+
|
|
|
+ if (extensions->ARB_derivative_control)
|
|
|
+ add_builtin_define(parser, "GL_ARB_derivative_control", 1);
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ if (extensions != NULL) {
|
|
|
+ if (extensions->EXT_shader_integer_mix)
|
|
|
+ add_builtin_define(parser, "GL_EXT_shader_integer_mix", 1);
|
|
|
+ }
|
|
|
+
|
|
|
+ if (version >= 150)
|
|
|
+ add_builtin_define(parser, "GL_core_profile", 1);
|
|
|
+
|
|
|
+ /* Currently, all ES2/ES3 implementations support highp in the
|
|
|
+ * fragment shader, so we always define this macro in ES2/ES3.
|
|
|
+ * If we ever get a driver that doesn't support highp, we'll
|
|
|
+ * need to add a flag to the gl_context and check that here.
|
|
|
+ */
|
|
|
+ if (version >= 130 || parser->is_gles)
|
|
|
+ add_builtin_define (parser, "GL_FRAGMENT_PRECISION_HIGH", 1);
|
|
|
+
|
|
|
+ if (explicitly_set) {
|
|
|
+ ralloc_asprintf_rewrite_tail (&parser->output, &parser->output_length,
|
|
|
+ "#version %" PRIiMAX "%s%s", version,
|
|
|
+ es_identifier ? " " : "",
|
|
|
+ es_identifier ? es_identifier : "");
|
|
|
+ }
|
|
|
+}
|
|
|
+
|
|
|
+/* GLSL version if no version is explicitly specified. */
|
|
|
+#define IMPLICIT_GLSL_VERSION 110
|
|
|
+#define IMPLICIT_GLSL_ES_VERSION 100
|
|
|
+
|
|
|
+/* GLSL ES version if no version is explicitly specified. */
|
|
|
+#define IMPLICIT_GLSL_ES_VERSION 100
|
|
|
+
|
|
|
+void
|
|
|
+glcpp_parser_resolve_implicit_version(glcpp_parser_t *parser)
|
|
|
+{
|
|
|
+ int language_version = parser->api == API_OPENGLES2 ?
|
|
|
+ IMPLICIT_GLSL_ES_VERSION :
|
|
|
+ IMPLICIT_GLSL_VERSION;
|
|
|
+
|
|
|
+ _glcpp_parser_handle_version_declaration(parser, language_version,
|
|
|
+ NULL, false);
|
|
|
+}
|
Daniele Bartolini