/* Muscle table manager for Bison,
- Copyright (C) 2001, 2002 Free Software Foundation, Inc.
+ Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
This file is part of Bison, the GNU Compiler Compiler.
#ifndef MUSCLE_TAB_H_
# define MUSCLE_TAB_H_
-typedef struct muscle_entry_s
-{
- const char *key;
- char *value;
-} muscle_entry_t;
+# include "location.h"
void muscle_init (void);
void muscle_insert (const char *key, char *value);
/* An obstack dedicated to receive muscle keys and values. */
extern struct obstack muscle_obstack;
+#define MUSCLE_INSERT_BOOL(Key, Value) \
+{ \
+ int v = Value; \
+ MUSCLE_INSERT_INT (Key, v); \
+}
+
#define MUSCLE_INSERT_INT(Key, Value) \
{ \
obstack_fgrow1 (&muscle_obstack, "%d", Value); \
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
}
-#define MUSCLE_GROW_STRING_PAIR(Key, Value1, Value2) \
+#define MUSCLE_OBSTACK_SGROW(Obstack, Value) \
+{ \
+ 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; \
+ } \
+}
+
+#define MUSCLE_INSERT_C_STRING(Key, Value) \
{ \
- obstack_sgrow (&muscle_obstack, Value1); \
+ MUSCLE_OBSTACK_SGROW (&muscle_obstack, \
+ quotearg_style (c_quoting_style, \
+ Value)); \
obstack_1grow (&muscle_obstack, 0); \
muscle_insert (Key, obstack_finish (&muscle_obstack)); \
}
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). Note that because the muscle values are output *double*
quoted, one needs to strip the first level of quotes to reach the