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
	1	/* Muscle table manager for Bison,
	2	Copyright (C) 2001, 2002 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., 59 Temple Place - Suite 330,
	19	Boston, MA 02111-1307, USA. */
	20
	21	#ifndef MUSCLE_TAB_H_
	22	# define MUSCLE_TAB_H_
	23
	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);
	28
	29
	30	/* An obstack dedicated to receive muscle keys and values. */
	31	extern struct obstack muscle_obstack;
	32
	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
	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
	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
	54	#define MUSCLE_OBSTACK_SGROW(Obstack, Value) \
	55	{ \
	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)); \
	73	obstack_1grow (&muscle_obstack, 0); \
	74	muscle_insert (Key, obstack_finish (&muscle_obstack)); \
	75	}
	76
	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
	81	void muscle_grow (const char key, const char value, const char *separator);
	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
	88	void muscle_pair_list_grow (const char *muscle,
	89	const char a1, const char a2);
	90
	91	void muscles_m4_output (FILE *out);
	92
	93	#endif /* not MUSCLE_TAB_H_ */