Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-11 21:33:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

* reader.c (copy_at): New function.

Browse Source 
(copy_guard): Use it.
(copy_action): Use it.
This commit is contained in:
Akim Demaille
2000-03-17 13:04:32 +00:00
parent e87b57008e
commit 7b306f528a
2 changed files with 40 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
src/reader.c
View File

@@ -976,6 +976,36 @@ parse_expect_decl (void)
/* that's all of parsing the declaration section */
/* FINPUT is pointing to a location (i.e., a `@'). Output to FOUTPUT
a reference to this location. STACK_OFFSET is the number of values
in the current rule so far, which says where to find `$0' with
respect to the top of the stack. */
static inline void
copy_at (FILE *finput, FILE *foutput, int stack_offset)
{
int c;
c = getc (finput);
if (c == '$')
{
fprintf (foutput, "yyloc");
yylsp_needed = 1;
}
else if (isdigit(c) || c == '-')
{
int n;
ungetc (c, finput);
n = read_signed_integer (finput);
fprintf (foutput, "yylsp[%d]", n - stack_offset);
yylsp_needed = 1;
}
else
warns (_("@%s is invalid"), printable_version (c));
}
/* Get the data type (alternative in the union) of the value for symbol n in rule rule. */
char *
@@ -1130,26 +1160,7 @@ copy_guard (symbol_list *rule, int stack_offset)
break;
case '@':
c = getc (finput);
if (c == '$')
{
fprintf (fguard, "yyloc");
yylsp_needed = 1;
}
else if (isdigit(c) || c == '-')
{
ungetc (c, finput);
n = read_signed_integer (finput);
c = getc (finput);
fprintf (fguard, "yylsp[%d]", n - stack_offset);
yylsp_needed = 1;
continue;
}
else
{
warns (_("@%s is invalid"), printable_version (c));
n = 1;
}
copy_at (finput, fguard, stack_offset);
break;
case EOF:
@@ -1167,12 +1178,12 @@ copy_guard (symbol_list *rule, int stack_offset)
fprintf(fguard, ";\n break;}");
if (c == '{')
copy_action(rule, stack_offset);
copy_action (rule, stack_offset);
else if (c == '=')
{
c = getc(finput); /* why not skip_white_space -wjh */
if (c == '{')
copy_action(rule, stack_offset);
copy_action (rule, stack_offset);
}
else
ungetc(c, finput);
@@ -1289,26 +1300,7 @@ copy_action (symbol_list *rule, int stack_offset)
break;
case '@':
c = getc (finput);
if (c == '$')
{
fprintf (faction, "yyloc");
yylsp_needed = 1;
}
else if (isdigit(c) || c == '-')
{
ungetc (c, finput);
n = read_signed_integer (finput);
c = getc (finput);
fprintf (faction, "yylsp[%d]", n - stack_offset);
yylsp_needed = 1;
continue;
}
else
{
warns (_("@%s is invalid"), printable_version (c));
n = 1;
}
copy_at (finput, faction, stack_offset);
break;
case EOF: