/* System-dependent definitions for Bison. Copyright (C) 2000-2007, 2009-2015, 2018-2022 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 . */ #ifndef BISON_SYSTEM_H # define BISON_SYSTEM_H /* flex 2.5.31 gratuitously defines macros like INT8_MIN. But this runs afoul of pre-C99 compilers that have or , which are included below if available. It also runs afoul of pre-C99 compilers that define these macros in . */ # if ! defined __STDC_VERSION__ || __STDC_VERSION__ < 199901 # undef INT8_MIN # undef INT16_MIN # undef INT32_MIN # undef INT8_MAX # undef INT16_MAX # undef UINT8_MAX # undef INT32_MAX # undef UINT16_MAX # undef UINT32_MAX # endif # include # include # include # include # define ARRAY_CARDINALITY(Array) (sizeof (Array) / sizeof *(Array)) # define STREQ(L, R) (strcmp(L, R) == 0) # define STRNEQ(L, R) (!STREQ(L, R)) /* Just like strncmp, but the second argument must be a literal string and you don't specify the length. */ # define STRNCMP_LIT(S, Literal) \ strncmp (S, "" Literal "", sizeof (Literal) - 1) /* Whether Literal is a prefix of S. */ # define STRPREFIX_LIT(Literal, S) \ (STRNCMP_LIT (S, Literal) == 0) # include # include # ifndef UINTPTR_MAX /* This isn't perfect, but it's good enough for Bison, which needs only to hash pointers. */ typedef size_t uintptr_t; # endif /* Version mismatch. */ # define EX_MISMATCH 63 /*---------. | Gnulib. | `---------*/ # include # include # include // Clang and ICC like to pretend they are GCC. # if defined __GNUC__ && !defined __clang__ && !defined __ICC # define GCC_VERSION (__GNUC__ * 100 + __GNUC_MINOR__) # endif // See https://lists.gnu.org/r/bug-bison/2019-10/msg00061.html // and https://trac.macports.org/ticket/59927. # if defined GCC_VERSION && 405 <= GCC_VERSION # define IGNORE_TYPE_LIMITS_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wtype-limits\"") # define IGNORE_TYPE_LIMITS_END \ _Pragma ("GCC diagnostic pop") # else # define IGNORE_TYPE_LIMITS_BEGIN # define IGNORE_TYPE_LIMITS_END # endif /*-----------------. | GCC extensions. | `-----------------*/ /* Use PACIFY_CC to indicate that Code is unimportant to the logic of Bison but that it is necessary for suppressing compiler warnings. For example, Code might be a variable initializer that's always overwritten before the variable is used. PACIFY_CC is intended to be useful only as a comment as it does not alter Code. It is tempting to redefine PACIFY_CC so that it will suppress Code when configuring without --enable-gcc-warnings. However, that would mean that, for maintainers, Bison would compile with potentially less warnings and safer logic than it would for users. Due to the overhead of M4, suppressing Code is unlikely to offer any significant improvement in Bison's performance anyway. */ # define PACIFY_CC(Code) Code # include /*------. | NLS. | `------*/ # include # include # define _(Msgid) gettext (Msgid) # define N_(Msgid) (Msgid) /*-----------. | Booleans. | `-----------*/ # include /*-----------. | Integers. | `-----------*/ static inline int min_int (int a, int b) { return a < b ? a : b; } static inline int max_int (int a, int b) { return a >= b ? a : b; } /*-------------. | Assertions. | `-------------*/ /* In the past, Bison defined aver to simply invoke abort in the case of a failed assertion. The rationale was that 's assertions were too heavyweight and could be disabled too easily. See discussions at . However, normal assert output can be helpful during development and in bug reports from users. Moreover, it's not clear now that 's assertions are significantly heavyweight. Finally, if users want to experiment with disabling assertions, it's debatable whether it's our responsibility to stop them. See discussion starting at . For now, we use assert but we call it aver throughout Bison in case we later wish to try another scheme. */ # include # define aver assert /*-----------. | Obstacks. | `-----------*/ # define obstack_chunk_alloc xmalloc # define obstack_chunk_free free # include /* String-grow: append Str to Obs. */ # define obstack_sgrow(Obs, Str) \ obstack_grow (Obs, Str, strlen (Str)) /* Output Str escaped to be a string. For instance "\"foo\"" -> "\\\"foo\\\"". */ # define obstack_backslash(Obs, Str) \ do { \ char const *p__; \ for (p__ = Str; *p__; p__++) \ switch (*p__) \ { \ case '"': obstack_sgrow (Obs, "\\\""); break; \ case '\\': obstack_sgrow (Obs, "\\\\"); break; \ default: obstack_1grow (Obs, *p__); break; \ } \ } while (0) /* Output CP escaped for our postprocessing (i.e., escape M4 special characters). For instance "[foo]" -> "@{foo@}", "$$" -> "$][$][". All the user's input passed to m4 is processed by this function or by output_escaped, except user actions. Because of the specific handling of @$, @1, etc., user actions are processed (and escaped) by scan-code.l. Keep output_escaped and obstack_escape sync'ed. */ static inline void obstack_escape (struct obstack* obs, const char *cp) { for (; *cp; ++cp) switch (*cp) { case '$': obstack_sgrow (obs, "$]["); break; case '@': obstack_sgrow (obs, "@@" ); break; case '[': obstack_sgrow (obs, "@{" ); break; case ']': obstack_sgrow (obs, "@}" ); break; case 'b': if (STRPREFIX_LIT ("b4_", cp)) { obstack_sgrow (obs, "b4@'_"); cp += strlen ("b4_") - 1; break; } else goto append; case 'm': if (STRPREFIX_LIT ("m4_", cp)) { obstack_sgrow (obs, "m4@'_"); cp += strlen ("m4_") - 1; break; } else goto append; append: default: obstack_1grow (obs, *cp); break; } } /* Output Str both quoted for M4 (i.e., embed in [[...]]), and escaped for our postprocessing (i.e., escape M4 special characters). If Str is empty (or NULL), output "[]" instead of "[[]]" as it makes M4 programming easier (m4_ifval can be used). For instance "[foo]" -> "[[@{foo@}]]", "$$" -> "[[$][$][]]". */ # define obstack_quote(Obs, Str) \ do { \ char const* obstack_quote_p = Str; \ if (obstack_quote_p && obstack_quote_p[0]) \ { \ obstack_sgrow (Obs, "[["); \ obstack_escape (Obs, obstack_quote_p); \ obstack_sgrow (Obs, "]]"); \ } \ else \ obstack_sgrow (Obs, "[]"); \ } while (0) /* Append the ending 0, finish Obs, and return the string. */ # define obstack_finish0(Obs) \ (obstack_1grow (Obs, '\0'), (char *) obstack_finish (Obs)) /*-----------------------------------------. | Extensions to use for the output files. | `-----------------------------------------*/ # ifndef OUTPUT_EXT # define OUTPUT_EXT ".output" # endif # ifndef TAB_EXT # define TAB_EXT ".tab" # endif /*---------------------. | Free a linked list. | `---------------------*/ # define LIST_FREE(Type, List) \ do { \ Type *_node, *_next; \ for (_node = List; _node; _node = _next) \ { \ _next = _node->next; \ free (_node); \ } \ } while (0) #endif /* ! BISON_SYSTEM_H */