[bison.git] / src / muscle_tab.h

/* Muscle table manager for Bison,
   Copyright (C) 2001, 2002 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., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */

#ifndef MUSCLE_TAB_H_
# define MUSCLE_TAB_H_

void muscle_init (void);
void muscle_insert (const char *key, char *value);
char *muscle_find (const char *key);
void muscle_free (void);


/* An obstack dedicated to receive muscle keys and values.  */
extern struct obstack muscle_obstack;

#define MUSCLE_INSERT_INT(Key, Value)				\
{								\
  obstack_fgrow1 (&muscle_obstack, "%d", Value);	       	\
  obstack_1grow (&muscle_obstack, 0);				\
  muscle_insert (Key, obstack_finish (&muscle_obstack));	\
}

#define MUSCLE_INSERT_LONG_INT(Key, Value)			\
{								\
  obstack_fgrow1 (&muscle_obstack, "%ld", Value);	       	\
  obstack_1grow (&muscle_obstack, 0);				\
  muscle_insert (Key, obstack_finish (&muscle_obstack));	\
}

#define MUSCLE_INSERT_STRING(Key, Value)			\
{								\
  obstack_sgrow (&muscle_obstack, Value);			\
  obstack_1grow (&muscle_obstack, 0);				\
  muscle_insert (Key, obstack_finish (&muscle_obstack));	\
}

#define MUSCLE_OBSTACK_SGROW(Obstack, Value)			\
{								\
  char const *s;						\
  for (s = Value; *s; s++)					\
    switch (*s)							\
      {								\
      case '$':	obstack_sgrow (Obstack, "$]["); break;		\
      case '@':	obstack_sgrow (Obstack, "@@" ); break;		\
      case '[':	obstack_sgrow (Obstack, "@{" ); break;		\
      case ']':	obstack_sgrow (Obstack, "@}" ); break;		\
      default: obstack_1grow (Obstack, *s); break;		\
      }								\
}

#define MUSCLE_INSERT_C_STRING(Key, Value)			\
{								\
  MUSCLE_OBSTACK_SGROW (&muscle_obstack,			\
			quotearg_style (c_quoting_style,	\
					Value));		\
  obstack_1grow (&muscle_obstack, 0);				\
  muscle_insert (Key, obstack_finish (&muscle_obstack));	\
}

/* Insert (KEY, VALUE).  If KEY already existed, overwrite the
   previous value.  Uses MUSCLE_OBSTACK.  De-allocates the previously
   associated value.  VALUE and SEPARATOR are copied.  */

void muscle_grow (const char *key, const char *value, const char *separator);

/* 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
ae7453f2	1	/* Muscle table manager for Bison,
be2a1a68	2	Copyright (C) 2001, 2002 Free Software Foundation, Inc.
f753cd62 MA	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., 59 Temple Place - Suite 330,
	19	Boston, MA 02111-1307, USA. */
	20
	21	#ifndef MUSCLE_TAB_H_
f7737e2e	22	# define MUSCLE_TAB_H_
f753cd62	23
d33cb3ae PE	24	void muscle_init (void);
	25	void muscle_insert (const char key, char value);
	26	char muscle_find (const char key);
	27	void muscle_free (void);
592e8d4d AD	28
	29
	30	/* An obstack dedicated to receive muscle keys and values. */
	31	extern struct obstack muscle_obstack;
f753cd62	32
9b3add5b RA	33	#define MUSCLE_INSERT_INT(Key, Value) \
	34	{ \
	35	obstack_fgrow1 (&muscle_obstack, "%d", Value); \
	36	obstack_1grow (&muscle_obstack, 0); \
	37	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	38	}
	39
680e8701 AD	40	#define MUSCLE_INSERT_LONG_INT(Key, Value) \
	41	{ \
	42	obstack_fgrow1 (&muscle_obstack, "%ld", Value); \
	43	obstack_1grow (&muscle_obstack, 0); \
	44	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	45	}
	46
9b3add5b RA	47	#define MUSCLE_INSERT_STRING(Key, Value) \
	48	{ \
	49	obstack_sgrow (&muscle_obstack, Value); \
	50	obstack_1grow (&muscle_obstack, 0); \
	51	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	52	}
	53
a027c30d	54	#define MUSCLE_OBSTACK_SGROW(Obstack, Value) \
ae7453f2	55	{ \
a027c30d PE	56	char const *s; \
	57	for (s = Value; *s; s++) \
	58	switch (*s) \
	59	{ \
	60	case '$': obstack_sgrow (Obstack, "$]["); break; \
	61	case '@': obstack_sgrow (Obstack, "@@" ); break; \
	62	case '[': obstack_sgrow (Obstack, "@{" ); break; \
	63	case ']': obstack_sgrow (Obstack, "@}" ); break; \
	64	default: obstack_1grow (Obstack, *s); break; \
	65	} \
	66	}
	67
	68	#define MUSCLE_INSERT_C_STRING(Key, Value) \
	69	{ \
	70	MUSCLE_OBSTACK_SGROW (&muscle_obstack, \
	71	quotearg_style (c_quoting_style, \
	72	Value)); \
ae7453f2 AD	73	obstack_1grow (&muscle_obstack, 0); \
ae7453f2 AD	74	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
9b3add5b RA	75	}
9b3add5b RA	76
ae7453f2 AD	77	/* Insert (KEY, VALUE). If KEY already existed, overwrite the
	78	previous value. Uses MUSCLE_OBSTACK. De-allocates the previously
	79	associated value. VALUE and SEPARATOR are copied. */
	80
d33cb3ae	81	void muscle_grow (const char key, const char value, const char *separator);
ae7453f2 AD	82
	83	/* MUSCLE is an M4 list of pairs. Create or extend it with the pair
	84	(A1, A2). Note that because the muscle values are output double
	85	quoted, one needs to strip the first level of quotes to reach the
	86	list itself. */
	87
d33cb3ae PE	88	void muscle_pair_list_grow (const char *muscle,
d33cb3ae PE	89	const char a1, const char a2);
be2a1a68	90
d33cb3ae	91	void muscles_m4_output (FILE *out);
be2a1a68	92
f753cd62	93	#endif /* not MUSCLE_TAB_H_ */