]> git.saurik.com Git - bison.git/blob - src/muscle_tab.h
* doc/bison.texinfo (Decl Summary): In the %language entry, mention
[bison.git] / src / muscle_tab.h
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_ */