mirror of
https://git.savannah.gnu.org/git/bison.git
synced 2026-03-12 13:53:03 +00:00
279cabb657
data/glr.c, data/glr.cc, data/lalr1.cc, data/location.cc, djgpp/config.site, src/files.c, src/files.h, src/main.c, src/muscle_tab.c, src/muscle_tab.h, src/parse-gram.y, src/reader.h, src/scan-skel.h, src/scan-skel.l, tests/actions.at, tests/calc.at, tests/glr-regression.at, tests/input.at, tests/local.at, tests/output.at, tests/torture.at: Update copyright to 2007.
126 lines
4.4 KiB
C
126 lines
4.4 KiB
C
/* Muscle table manager for Bison,
|
|
Copyright (C) 2001, 2002, 2003, 2006, 2007 Free Software Foundation, Inc.
|
|
|
|
This file is part of Bison, the GNU Compiler Compiler.
|
|
|
|
Bison 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 2, or (at your option)
|
|
any later version.
|
|
|
|
Bison 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 Bison; see the file COPYING. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA. */
|
|
|
|
#ifndef MUSCLE_TAB_H_
|
|
# define MUSCLE_TAB_H_
|
|
|
|
# include "location.h"
|
|
|
|
void muscle_init (void);
|
|
void muscle_insert (char const *key, char const *value);
|
|
char *muscle_find (char const *key);
|
|
char const *muscle_find_const (char const *key);
|
|
void muscle_free (void);
|
|
|
|
|
|
/* An obstack dedicated to receive muscle keys and values. */
|
|
extern struct obstack muscle_obstack;
|
|
|
|
#define MUSCLE_INSERT_BOOL(Key, Value) \
|
|
do { \
|
|
int v = Value; \
|
|
MUSCLE_INSERT_INT (Key, v); \
|
|
} while(0)
|
|
|
|
#define MUSCLE_INSERT_INT(Key, Value) \
|
|
do { \
|
|
obstack_fgrow1 (&muscle_obstack, "%d", Value); \
|
|
obstack_1grow (&muscle_obstack, 0); \
|
|
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
|
|
} while(0)
|
|
|
|
#define MUSCLE_INSERT_LONG_INT(Key, Value) \
|
|
do { \
|
|
obstack_fgrow1 (&muscle_obstack, "%ld", Value); \
|
|
obstack_1grow (&muscle_obstack, 0); \
|
|
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
|
|
} while(0)
|
|
|
|
#define MUSCLE_INSERT_STRING_RAW(Key, Value) \
|
|
do { \
|
|
obstack_sgrow (&muscle_obstack, Value); \
|
|
obstack_1grow (&muscle_obstack, 0); \
|
|
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
|
|
} while(0)
|
|
|
|
#define MUSCLE_INSERT_STRING(Key, Value) \
|
|
do { \
|
|
MUSCLE_OBSTACK_SGROW (&muscle_obstack, Value); \
|
|
obstack_1grow (&muscle_obstack, 0); \
|
|
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
|
|
} while(0)
|
|
|
|
#define MUSCLE_OBSTACK_SGROW(Obstack, Value) \
|
|
do { \
|
|
char const *p; \
|
|
for (p = Value; *p; p++) \
|
|
switch (*p) \
|
|
{ \
|
|
case '$': obstack_sgrow (Obstack, "$]["); break; \
|
|
case '@': obstack_sgrow (Obstack, "@@" ); break; \
|
|
case '[': obstack_sgrow (Obstack, "@{" ); break; \
|
|
case ']': obstack_sgrow (Obstack, "@}" ); break; \
|
|
default: obstack_1grow (Obstack, *p); break; \
|
|
} \
|
|
} while(0)
|
|
|
|
#define MUSCLE_INSERT_C_STRING(Key, Value) \
|
|
do { \
|
|
MUSCLE_OBSTACK_SGROW (&muscle_obstack, \
|
|
quotearg_style (c_quoting_style, \
|
|
Value)); \
|
|
obstack_1grow (&muscle_obstack, 0); \
|
|
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
|
|
} while(0)
|
|
|
|
/* Append VALUE to the current value of KEY. If KEY did not already
|
|
exist, create it. Use MUSCLE_OBSTACK. De-allocate the previously
|
|
associated value. Copy VALUE and SEPARATOR. */
|
|
|
|
void muscle_grow (const char *key, const char *value, const char *separator);
|
|
|
|
|
|
/* Append VALUE to the current value of KEY, using muscle_grow. But
|
|
in addition, issue a synchronization line for the location LOC. */
|
|
|
|
void muscle_code_grow (const char *key, const char *value, location loc);
|
|
|
|
|
|
/* MUSCLE is an M4 list of pairs. Create or extend it with the pair
|
|
(A1, A2) after escaping both values with digraphs. Note that because the
|
|
muscle values are output *double* quoted, one needs to strip the first level
|
|
of quotes to reach the list itself. */
|
|
void muscle_pair_list_grow (const char *muscle,
|
|
const char *a1, const char *a2);
|
|
|
|
void muscles_m4_output (FILE *out);
|
|
|
|
/* In the format `file_name:line.column', append BOUND to MUSCLE. Use digraphs
|
|
for special characters in the file name. */
|
|
void muscle_boundary_grow (char const *key, boundary bound);
|
|
|
|
/* Grow KEY for the occurrence of the name USER_NAME at LOC appropriately for
|
|
use with b4_check_user_names in ../data/bison.m4. USER_NAME is not escaped
|
|
with digraphs, so it must not contain `[' or `]'. */
|
|
void muscle_grow_user_name_list (char const *key, char const *user_name,
|
|
location loc);
|
|
|
|
#endif /* not MUSCLE_TAB_H_ */
|