173 |
void muscle_pair_list_grow (const char *muscle, |
void muscle_pair_list_grow (const char *muscle, |
174 |
const char *a1, const char *a2) |
const char *a1, const char *a2) |
175 |
{ |
{ |
176 |
char *value; |
char *val; |
177 |
obstack_fgrow2 (&muscle_obstack, "[[[%s]], [[%s]]]", a1, a2); |
obstack_fgrow2 (&muscle_obstack, "[[[%s]], [[%s]]]", a1, a2); |
178 |
obstack_1grow (&muscle_obstack, 0); |
obstack_1grow (&muscle_obstack, 0); |
179 |
value = obstack_finish (&muscle_obstack); |
val = obstack_finish (&muscle_obstack); |
180 |
muscle_grow (muscle, value, ",\n"); |
muscle_grow (muscle, val, ",\n"); |
181 |
obstack_free (&muscle_obstack, value); |
obstack_free (&muscle_obstack, val); |
182 |
} |
} |
183 |
|
|
184 |
/*-------------------------------. |
/*-------------------------------. |