972 |
const char *muscle_key = 0; |
const char *muscle_key = 0; |
973 |
const char *muscle_value = 0; |
const char *muscle_value = 0; |
974 |
|
|
975 |
while (isalnum (c = getc (fskel)) || c == '_') |
while (isalnum (c = getc (fskel)) || c == '-') |
976 |
obstack_1grow (&muscle_obstack, c); |
obstack_1grow (&muscle_obstack, c); |
977 |
obstack_1grow (&muscle_obstack, 0); |
obstack_1grow (&muscle_obstack, 0); |
978 |
|
|
983 |
obstack_sgrow (oout, muscle_value); |
obstack_sgrow (oout, muscle_value); |
984 |
else if (!strcmp (muscle_key, "line")) |
else if (!strcmp (muscle_key, "line")) |
985 |
obstack_fgrow1 (oout, "%d", line + 1); |
obstack_fgrow1 (oout, "%d", line + 1); |
986 |
else if (!strcmp (muscle_key, "input_line")) |
else if (!strcmp (muscle_key, "input-line")) |
987 |
obstack_fgrow1 (oout, "%d", lineno); |
obstack_fgrow1 (oout, "%d", lineno); |
988 |
else |
else |
989 |
{ |
{ |
1052 |
MUSCLE_INSERT_INT ("final", final_state); |
MUSCLE_INSERT_INT ("final", final_state); |
1053 |
MUSCLE_INSERT_INT ("maxtok", max_user_token_number); |
MUSCLE_INSERT_INT ("maxtok", max_user_token_number); |
1054 |
MUSCLE_INSERT_INT ("ntbase", ntokens); |
MUSCLE_INSERT_INT ("ntbase", ntokens); |
1055 |
MUSCLE_INSERT_INT ("error_verbose", error_verbose_flag); |
MUSCLE_INSERT_INT ("error-verbose", error_verbose_flag); |
1056 |
|
|
1057 |
MUSCLE_INSERT_INT ("nnts", nvars); |
MUSCLE_INSERT_INT ("nnts", nvars); |
1058 |
MUSCLE_INSERT_INT ("nrules", nrules); |
MUSCLE_INSERT_INT ("nrules", nrules); |
1059 |
MUSCLE_INSERT_INT ("nstates", nstates); |
MUSCLE_INSERT_INT ("nstates", nstates); |
1060 |
MUSCLE_INSERT_INT ("ntokens", ntokens); |
MUSCLE_INSERT_INT ("ntokens", ntokens); |
1061 |
|
|
1062 |
MUSCLE_INSERT_INT ("locations_flag", locations_flag); |
MUSCLE_INSERT_INT ("locations-flag", locations_flag); |
1063 |
|
|
1064 |
/* We need to save the actions in the muscle %%action. */ |
/* We need to save the actions in the muscle %%action. */ |
1065 |
muscle_insert ("action", obstack_finish (&action_obstack)); |
muscle_insert ("action", obstack_finish (&action_obstack)); |