src/muscle_tab.h

/* Muscle table manager for Bison,
   Copyright (C) 2001, 2002, 2003, 2006 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);
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).  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);

#endif /* not MUSCLE_TAB_H_ */
Commit	Line	Data
	1	/* Muscle table manager for Bison,
	2	Copyright (C) 2001, 2002, 2003, 2006 Free Software Foundation, Inc.
	3
	4	This file is part of Bison, the GNU Compiler Compiler.
	5
	6	Bison is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 2, or (at your option)
	9	any later version.
	10
	11	Bison is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with Bison; see the file COPYING. If not, write to
	18	the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
	19	Boston, MA 02110-1301, USA. */
	20
	21	#ifndef MUSCLE_TAB_H_
	22	# define MUSCLE_TAB_H_
	23
	24	# include "location.h"
	25
	26	void muscle_init (void);
	27	void muscle_insert (char const key, char const value);
	28	char muscle_find (char const key);
	29	void muscle_free (void);
	30
	31
	32	/* An obstack dedicated to receive muscle keys and values. */
	33	extern struct obstack muscle_obstack;
	34
	35	#define MUSCLE_INSERT_BOOL(Key, Value) \
	36	do { \
	37	int v = Value; \
	38	MUSCLE_INSERT_INT (Key, v); \
	39	} while(0)
	40
	41	#define MUSCLE_INSERT_INT(Key, Value) \
	42	do { \
	43	obstack_fgrow1 (&muscle_obstack, "%d", Value); \
	44	obstack_1grow (&muscle_obstack, 0); \
	45	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	46	} while(0)
	47
	48	#define MUSCLE_INSERT_LONG_INT(Key, Value) \
	49	do { \
	50	obstack_fgrow1 (&muscle_obstack, "%ld", Value); \
	51	obstack_1grow (&muscle_obstack, 0); \
	52	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	53	} while(0)
	54
	55	#define MUSCLE_INSERT_STRING_RAW(Key, Value) \
	56	do { \
	57	obstack_sgrow (&muscle_obstack, Value); \
	58	obstack_1grow (&muscle_obstack, 0); \
	59	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	60	} while(0)
	61
	62	#define MUSCLE_INSERT_STRING(Key, Value) \
	63	do { \
	64	MUSCLE_OBSTACK_SGROW (&muscle_obstack, Value); \
	65	obstack_1grow (&muscle_obstack, 0); \
	66	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	67	} while(0)
	68
	69	#define MUSCLE_OBSTACK_SGROW(Obstack, Value) \
	70	do { \
	71	char const *p; \
	72	for (p = Value; *p; p++) \
	73	switch (*p) \
	74	{ \
	75	case '$': obstack_sgrow (Obstack, "$]["); break; \
	76	case '@': obstack_sgrow (Obstack, "@@" ); break; \
	77	case '[': obstack_sgrow (Obstack, "@{" ); break; \
	78	case ']': obstack_sgrow (Obstack, "@}" ); break; \
	79	default: obstack_1grow (Obstack, *p); break; \
	80	} \
	81	} while(0)
	82
	83	#define MUSCLE_INSERT_C_STRING(Key, Value) \
	84	do { \
	85	MUSCLE_OBSTACK_SGROW (&muscle_obstack, \
	86	quotearg_style (c_quoting_style, \
	87	Value)); \
	88	obstack_1grow (&muscle_obstack, 0); \
	89	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	90	} while(0)
	91
	92	/* Append VALUE to the current value of KEY. If KEY did not already
	93	exist, create it. Use MUSCLE_OBSTACK. De-allocate the previously
	94	associated value. Copy VALUE and SEPARATOR. */
	95
	96	void muscle_grow (const char key, const char value, const char *separator);
	97
	98
	99	/* Append VALUE to the current value of KEY, using muscle_grow. But
	100	in addition, issue a synchronization line for the location LOC. */
	101
	102	void muscle_code_grow (const char key, const char value, location loc);
	103
	104
	105	/* MUSCLE is an M4 list of pairs. Create or extend it with the pair
	106	(A1, A2). Note that because the muscle values are output double
	107	quoted, one needs to strip the first level of quotes to reach the
	108	list itself. */
	109
	110	void muscle_pair_list_grow (const char *muscle,
	111	const char a1, const char a2);
	112
	113	void muscles_m4_output (FILE *out);
	114
	115	#endif /* not MUSCLE_TAB_H_ */