#include "defs.h"

Include dependency graph for reader.c:

Macros
#define	LINESIZE 100

Functions
	cachec (int c)

	get_line ()

char *	dup_line ()

	skip_comment ()

int	nextc ()

int	keyword ()

	copy_ident ()

	copy_text ()

	copy_union ()

int	hexval (int c)

bucket *	get_literal ()

int	is_reserved (char *name)

bucket *	get_name ()

int	get_number ()

char *	get_tag ()

	declare_tokens (int assoc)

	declare_types ()

	declare_start ()

	read_declarations ()

	initialize_grammar ()

	expand_items ()

	expand_rules ()

	advance_to_start ()

	start_rule (bucket *bp, int s_lineno)

	end_rule ()

	insert_empty_rule ()

	add_symbol ()

	copy_action ()

int	mark_symbol ()

	read_grammar ()

	free_tags ()

	pack_names ()

	check_symbols ()

	pack_symbols ()

	pack_grammar ()

	print_grammar ()

	reader ()

Variables
char *	cache

int	cinc

int	cache_size

int	ntags

int	tagmax

char **	tag_table

char	saw_eof

char	unionized

char *	cptr

char *	line

int	linesize

bucket *	goal

int	prec

int	gensym

char	last_was_action

int	maxitems

bucket **	pitem

int	maxrules

bucket **	plhs

int	name_pool_size

char *	name_pool

char	line_format [] = "#line %d \"%s\"\n"

Macro Definition Documentation

#define LINESIZE 100

Definition at line 8 of file reader.c.

Referenced by get_line().

Function Documentation

add_symbol ( )

Definition at line 1148 of file reader.c.

References cptr, end_rule(), expand_items(), get_literal(), get_name(), insert_empty_rule(), last_was_action, lineno, maxitems, nextc(), nitems, and start_rule().

Referenced by read_grammar().

 {
     register int c;
     register bucket *bp;
     int s_lineno = lineno;
 
     c = *cptr;
     if (c == '\'' || c == '"')
         bp = get_literal();
     else
         bp = get_name();
 
     c = nextc();
     if (c == ':')
     {
         end_rule();
         start_rule(bp, s_lineno);
         ++cptr;
         return;
     }
 
     if (last_was_action)
         insert_empty_rule();
     last_was_action = 0;
 
     if (++nitems > maxitems)
         expand_items();
     pitem[nitems-1] = bp;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

advance_to_start ( )

Definition at line 1035 of file reader.c.

References bucket::class, copy_text(), cptr, declare_start(), get_name(), keyword(), line, lineno, MARK, bucket::name, nextc(), no_grammar(), START, start_rule(), syntax_error(), TERM, terminal_start(), TEXT, and unexpected_EOF().

Referenced by read_grammar().

 {
     register int c;
     register bucket *bp;
     char *s_cptr;
     int s_lineno;
 
     for (;;)
     {
         c = nextc();
         if (c != '%') break;
         s_cptr = cptr;
         switch (keyword())
         {
         case MARK:
             no_grammar();
 
         case TEXT:
             copy_text();
             break;
 
         case START:
             declare_start();
             break;
 
         default:
             syntax_error(lineno, line, s_cptr);
         }
     }
 
     c = nextc();
     if (!isalpha(c) && c != '_' && c != '.' && c != '_')
         syntax_error(lineno, line, cptr);
     bp = get_name();
     if (goal == 0)
     {
         if (bp->class == TERM)
             terminal_start(bp->name);
         goal = bp;
     }
 
     s_lineno = lineno;
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (c != ':') syntax_error(lineno, line, cptr);
     start_rule(bp, s_lineno);
     ++cptr;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

cachec ( int c )

Definition at line 37 of file reader.c.

References cache, cache_size, cinc, no_space(), and REALLOC.

Referenced by get_literal(), get_name(), get_tag(), and keyword().

 {
     assert(cinc >= 0);
     if (cinc >= cache_size)
     {
         cache_size += 256;
         cache = REALLOC(cache, cache_size);
         if (cache == 0) no_space();
     }
     cache[cinc] = c;
     ++cinc;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

check_symbols ( )

Definition at line 1532 of file reader.c.

References bucket::class, first_symbol, bucket::name, bucket::next, TERM, undefined_goal(), undefined_symbol_warning(), and UNKNOWN.

Referenced by reader().

 {
     register bucket *bp;
 
     if (goal->class == UNKNOWN)
         undefined_goal(goal->name);
 
     for (bp = first_symbol; bp; bp = bp->next)
     {
         if (bp->class == UNKNOWN)
         {
             undefined_symbol_warning(bp->name);
             bp->class = TERM;
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

copy_action ( )

Definition at line 1179 of file reader.c.

References action_file, cptr, dollar_error(), dollar_warning(), dup_line(), FREE, get_line(), get_number(), get_tag(), input_file_name, insert_empty_rule(), last_was_action, lflag, line, line_format, lineno, nitems, nrules, ntags, bucket::tag, unknown_rhs(), unterminated_action(), unterminated_comment(), unterminated_string(), untyped_lhs(), and untyped_rhs().

Referenced by read_grammar().

 {
     register int c;
     register int i, n;
     int depth;
     int quote;
     char *tag;
     register FILE *f = action_file;
     int a_lineno = lineno;
     char *a_line = dup_line();
     char *a_cptr = a_line + (cptr - line);
 
     if (last_was_action)
         insert_empty_rule();
     last_was_action = 1;
 
     fprintf(f, "case %d:\n", nrules - 2);
     if (!lflag)
         fprintf(f, line_format, lineno, input_file_name);
     if (*cptr == '=') ++cptr;
 
     n = 0;
     for (i = nitems - 1; pitem[i]; --i) ++n;
 
     depth = 0;
 loop:
     c = *cptr;
     if (c == '$')
     {
         if (cptr[1] == '<')
         {
             int d_lineno = lineno;
             char *d_line = dup_line();
             char *d_cptr = d_line + (cptr - line);
 
             ++cptr;
             tag = get_tag();
             c = *cptr;
             if (c == '$')
             {
                 fprintf(f, "yyval.%s", tag);
                 ++cptr;
                 FREE(d_line);
                 goto loop;
             }
             else if (isdigit(c))
             {
                 i = get_number();
                 if (i > n) dollar_warning(d_lineno, i);
                 fprintf(f, "yyvsp[%d].%s", i - n, tag);
                 FREE(d_line);
                 goto loop;
             }
             else if (c == '-' && isdigit(cptr[1]))
             {
                 ++cptr;
                 i = -get_number() - n;
                 fprintf(f, "yyvsp[%d].%s", i, tag);
                 FREE(d_line);
                 goto loop;
             }
             else
                 dollar_error(d_lineno, d_line, d_cptr);
         }
         else if (cptr[1] == '$')
         {
             if (ntags)
             {
                 tag = plhs[nrules]->tag;
                 if (tag == 0) untyped_lhs();
                 fprintf(f, "yyval.%s", tag);
             }
             else
                 fprintf(f, "yyval");
             cptr += 2;
             goto loop;
         }
         else if (isdigit(cptr[1]))
         {
             ++cptr;
             i = get_number();
             if (ntags)
             {
                 if (i <= 0 || i > n)
                     unknown_rhs(i);
                 tag = pitem[nitems + i - n - 1]->tag;
                 if (tag == 0) untyped_rhs(i, pitem[nitems + i - n - 1]->name);
                 fprintf(f, "yyvsp[%d].%s", i - n, tag);
             }
             else
             {
                 if (i > n)
                     dollar_warning(lineno, i);
                 fprintf(f, "yyvsp[%d]", i - n);
             }
             goto loop;
         }
         else if (cptr[1] == '-')
         {
             cptr += 2;
             i = get_number();
             if (ntags)
                 unknown_rhs(-i);
             fprintf(f, "yyvsp[%d]", -i - n);
             goto loop;
         }
     }
     if (isalpha(c) || c == '_' || c == '$')
     {
         do
         {
             putc(c, f);
             c = *++cptr;
         } while (isalnum(c) || c == '_' || c == '$');
         goto loop;
     }
     putc(c, f);
     ++cptr;
     switch (c)
     {
     case '\n':
     next_line:
         get_line();
         if (line) goto loop;
         unterminated_action(a_lineno, a_line, a_cptr);
 
     case ';':
         if (depth > 0) goto loop;
         fprintf(f, "\nbreak;\n");
         return;
 
     case '{':
         ++depth;
         goto loop;
 
     case '}':
         if (--depth > 0) goto loop;
         fprintf(f, "\nbreak;\n");
         return;
 
     case '\'':
     case '"':
         {
             int s_lineno = lineno;
             char *s_line = dup_line();
             char *s_cptr = s_line + (cptr - line - 1);
 
             quote = c;
             for (;;)
             {
                 c = *cptr++;
                 putc(c, f);
                 if (c == quote)
                 {
                     FREE(s_line);
                     goto loop;
                 }
                 if (c == '\n')
                     unterminated_string(s_lineno, s_line, s_cptr);
                 if (c == '\\')
                 {
                     c = *cptr++;
                     putc(c, f);
                     if (c == '\n')
                     {
                         get_line();
                         if (line == 0)
                             unterminated_string(s_lineno, s_line, s_cptr);
                     }
                 }
             }
         }
 
     case '/':
         c = *cptr;
         if (c == '/')
         {
             putc('*', f);
             while ((c = *++cptr) != '\n')
             {
                 if (c == '*' && cptr[1] == '/')
                     fprintf(f, "* ");
                 else
                     putc(c, f);
             }
             fprintf(f, "*/\n");
             goto next_line;
         }
         if (c == '*')
         {
             int c_lineno = lineno;
             char *c_line = dup_line();
             char *c_cptr = c_line + (cptr - line - 1);
 
             putc('*', f);
             ++cptr;
             for (;;)
             {
                 c = *cptr++;
                 putc(c, f);
                 if (c == '*' && *cptr == '/')
                 {
                     putc('/', f);
                     ++cptr;
                     FREE(c_line);
                     goto loop;
                 }
                 if (c == '\n')
                 {
                     get_line();
                     if (line == 0)
                         unterminated_comment(c_lineno, c_line, c_cptr);
                 }
             }
         }
         goto loop;
 
     default:
         goto loop;
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

copy_ident ( )

Definition at line 271 of file reader.c.

References cptr, line, lineno, nextc(), outline, output_file, syntax_error(), and unexpected_EOF().

Referenced by read_declarations().

 {
     register int c;
     register FILE *f = output_file;
 
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (c != '"') syntax_error(lineno, line, cptr);
     ++outline;
     fprintf(f, "#ident \"");
     for (;;)
     {
         c = *++cptr;
         if (c == '\n')
         {
             fprintf(f, "\"\n");
             return;
         }
         putc(c, f);
         if (c == '"')
         {
             putc('\n', f);
             ++cptr;
             return;
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

copy_text ( )

Definition at line 300 of file reader.c.

References cptr, dup_line(), FREE, get_line(), input_file_name, lflag, line, line_format, lineno, text_file, unterminated_comment(), unterminated_string(), and unterminated_text().

Referenced by advance_to_start(), and read_declarations().

 {
     register int c;
     int quote;
     register FILE *f = text_file;
     int need_newline = 0;
     int t_lineno = lineno;
     char *t_line = dup_line();
     char *t_cptr = t_line + (cptr - line - 2);
 
     if (*cptr == '\n')
     {
         get_line();
         if (line == 0)
             unterminated_text(t_lineno, t_line, t_cptr);
     }
     if (!lflag) fprintf(f, line_format, lineno, input_file_name);
 
 loop:
     c = *cptr++;
     switch (c)
     {
     case '\n':
     next_line:
         putc('\n', f);
         need_newline = 0;
         get_line();
         if (line) goto loop;
         unterminated_text(t_lineno, t_line, t_cptr);
 
     case '\'':
     case '"':
         {
             int s_lineno = lineno;
             char *s_line = dup_line();
             char *s_cptr = s_line + (cptr - line - 1);
 
             quote = c;
             putc(c, f);
             for (;;)
             {
                 c = *cptr++;
                 putc(c, f);
                 if (c == quote)
                 {
                     need_newline = 1;
                     FREE(s_line);
                     goto loop;
                 }
                 if (c == '\n')
                     unterminated_string(s_lineno, s_line, s_cptr);
                 if (c == '\\')
                 {
                     c = *cptr++;
                     putc(c, f);
                     if (c == '\n')
                     {
                         get_line();
                         if (line == 0)
                             unterminated_string(s_lineno, s_line, s_cptr);
                     }
                 }
             }
         }
 
     case '/':
         putc(c, f);
         need_newline = 1;
         c = *cptr;
         if (c == '/')
         {
             putc('*', f);
             while ((c = *++cptr) != '\n')
             {
                 if (c == '*' && cptr[1] == '/')
                     fprintf(f, "* ");
                 else
                     putc(c, f);
             }
             fprintf(f, "*/");
             goto next_line;
         }
         if (c == '*')
         {
             int c_lineno = lineno;
             char *c_line = dup_line();
             char *c_cptr = c_line + (cptr - line - 1);
 
             putc('*', f);
             ++cptr;
             for (;;)
             {
                 c = *cptr++;
                 putc(c, f);
                 if (c == '*' && *cptr == '/')
                 {
                     putc('/', f);
                     ++cptr;
                     FREE(c_line);
                     goto loop;
                 }
                 if (c == '\n')
                 {
                     get_line();
                     if (line == 0)
                         unterminated_comment(c_lineno, c_line, c_cptr);
                 }
             }
         }
         need_newline = 1;
         goto loop;
 
     case '%':
     case '\\':
         if (*cptr == '}')
         {
             if (need_newline) putc('\n', f);
             ++cptr;
             FREE(t_line);
             return;
         }
         /* fall through */
 
     default:
         putc(c, f);
         need_newline = 1;
         goto loop;
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

copy_union ( )

Definition at line 431 of file reader.c.

References cptr, dflag, dup_line(), FREE, get_line(), input_file_name, lflag, line, line_format, lineno, over_unionized(), text_file, union_file, unionized, unterminated_comment(), unterminated_string(), and unterminated_union().

Referenced by read_declarations().

 {
     register int c;
     int quote;
     int depth;
     int u_lineno = lineno;
     char *u_line = dup_line();
     char *u_cptr = u_line + (cptr - line - 6);
 
     if (unionized) over_unionized(cptr - 6);
     unionized = 1;
 
     if (!lflag)
         fprintf(text_file, line_format, lineno, input_file_name);
 
     fprintf(text_file, "typedef union");
     if (dflag) fprintf(union_file, "typedef union");
 
     depth = 0;
 loop:
     c = *cptr++;
     putc(c, text_file);
     if (dflag) putc(c, union_file);
     switch (c)
     {
     case '\n':
     next_line:
         get_line();
         if (line == 0) unterminated_union(u_lineno, u_line, u_cptr);
         goto loop;
 
     case '{':
         ++depth;
         goto loop;
 
     case '}':
         if (--depth == 0)
         {
             fprintf(text_file, " YYSTYPE;\n");
             FREE(u_line);
             return;
         }
         goto loop;
 
     case '\'':
     case '"':
         {
             int s_lineno = lineno;
             char *s_line = dup_line();
             char *s_cptr = s_line + (cptr - line - 1);
 
             quote = c;
             for (;;)
             {
                 c = *cptr++;
                 putc(c, text_file);
                 if (dflag) putc(c, union_file);
                 if (c == quote)
                 {
                     FREE(s_line);
                     goto loop;
                 }
                 if (c == '\n')
                     unterminated_string(s_lineno, s_line, s_cptr);
                 if (c == '\\')
                 {
                     c = *cptr++;
                     putc(c, text_file);
                     if (dflag) putc(c, union_file);
                     if (c == '\n')
                     {
                         get_line();
                         if (line == 0)
                             unterminated_string(s_lineno, s_line, s_cptr);
                     }
                 }
             }
         }
 
     case '/':
         c = *cptr;
         if (c == '/')
         {
             putc('*', text_file);
             if (dflag) putc('*', union_file);
             while ((c = *++cptr) != '\n')
             {
                 if (c == '*' && cptr[1] == '/')
                 {
                     fprintf(text_file, "* ");
                     if (dflag) fprintf(union_file, "* ");
                 }
                 else
                 {
                     putc(c, text_file);
                     if (dflag) putc(c, union_file);
                 }
             }
             fprintf(text_file, "*/\n");
             if (dflag) fprintf(union_file, "*/\n");
             goto next_line;
         }
         if (c == '*')
         {
             int c_lineno = lineno;
             char *c_line = dup_line();
             char *c_cptr = c_line + (cptr - line - 1);
 
             putc('*', text_file);
             if (dflag) putc('*', union_file);
             ++cptr;
             for (;;)
             {
                 c = *cptr++;
                 putc(c, text_file);
                 if (dflag) putc(c, union_file);
                 if (c == '*' && *cptr == '/')
                 {
                     putc('/', text_file);
                     if (dflag) putc('/', union_file);
                     ++cptr;
                     FREE(c_line);
                     goto loop;
                 }
                 if (c == '\n')
                 {
                     get_line();
                     if (line == 0)
                         unterminated_comment(c_lineno, c_line, c_cptr);
                 }
             }
         }
         goto loop;
 
     default:
         goto loop;
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

declare_start ( )

Definition at line 917 of file reader.c.

References bucket::class, cptr, get_name(), line, lineno, bucket::name, nextc(), restarted_warning(), syntax_error(), TERM, terminal_start(), and unexpected_EOF().

Referenced by advance_to_start(), and read_declarations().

 {
     register int c;
     register bucket *bp;
 
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (!isalpha(c) && c != '_' && c != '.' && c != '$')
         syntax_error(lineno, line, cptr);
     bp = get_name();
     if (bp->class == TERM)
         terminal_start(bp->name);
     if (goal && goal != bp)
         restarted_warning();
     goal = bp;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

declare_tokens ( int assoc )

Definition at line 827 of file reader.c.

References bucket::assoc, bucket::class, get_literal(), get_name(), get_number(), get_tag(), bucket::name, nextc(), prec, bucket::prec, reprec_warning(), retyped_warning(), revalued_warning(), bucket::tag, TERM, TOKEN, tokenized_start(), UNDEFINED, unexpected_EOF(), shorts::value, and bucket::value.

Referenced by read_declarations().

 {
     register int c;
     register bucket *bp;
     int value;
     char *tag = 0;
 
     if (assoc != TOKEN) ++prec;
 
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (c == '<')
     {
         tag = get_tag();
         c = nextc();
         if (c == EOF) unexpected_EOF();
     }
 
     for (;;)
     {
         if (isalpha(c) || c == '_' || c == '.' || c == '$')
             bp = get_name();
         else if (c == '\'' || c == '"')
             bp = get_literal();
         else
             return;
 
         if (bp == goal) tokenized_start(bp->name);
         bp->class = TERM;
 
         if (tag)
         {
             if (bp->tag && tag != bp->tag)
                 retyped_warning(bp->name);
             bp->tag = tag;
         }
 
         if (assoc != TOKEN)
         {
             if (bp->prec && prec != bp->prec)
                 reprec_warning(bp->name);
             bp->assoc = assoc;
             bp->prec = prec;
         }
 
         c = nextc();
         if (c == EOF) unexpected_EOF();
         value = UNDEFINED;
         if (isdigit(c))
         {
             value = get_number();
             if (bp->value != UNDEFINED && value != bp->value)
                 revalued_warning(bp->name);
             bp->value = value;
             c = nextc();
             if (c == EOF) unexpected_EOF();
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

declare_types ( )

Definition at line 889 of file reader.c.

References cptr, get_literal(), get_name(), get_tag(), line, lineno, bucket::name, nextc(), retyped_warning(), syntax_error(), bucket::tag, and unexpected_EOF().

Referenced by read_declarations().

 {
     register int c;
     register bucket *bp;
     char *tag;
 
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (c != '<') syntax_error(lineno, line, cptr);
     tag = get_tag();
 
     for (;;)
     {
         c = nextc();
         if (isalpha(c) || c == '_' || c == '.' || c == '$')
             bp = get_name();
         else if (c == '\'' || c == '"')
             bp = get_literal();
         else
             return;
 
         if (bp->tag && tag != bp->tag)
             retyped_warning(bp->name);
         bp->tag = tag;
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

char* dup_line ( )

Definition at line 99 of file reader.c.

References line, MALLOC, and no_space().

Referenced by copy_action(), copy_text(), copy_union(), get_literal(), get_tag(), and skip_comment().

 {
     register char *p, *s, *t;
 
     if (line == 0) return (0);
     s = line;
     while (*s != '\n') ++s;
     p = MALLOC(s - line + 1);
     if (p == 0) no_space();
 
     s = line;
     t = p;
     while ((*t++ = *s++) != '\n') continue;
     return (p);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

end_rule ( )

Definition at line 1100 of file reader.c.

References default_action_warning(), expand_items(), last_was_action, maxitems, nitems, and nrules.

Referenced by add_symbol(), and read_grammar().

 {
     register int i;
 
     if (!last_was_action && plhs[nrules]->tag)
     {
         for (i = nitems - 1; pitem[i]; --i) continue;
         if (pitem[i+1] == 0 || pitem[i+1]->tag != plhs[nrules]->tag)
             default_action_warning();
     }
 
     last_was_action = 0;
     if (nitems >= maxitems) expand_items();
     pitem[nitems] = 0;
     ++nitems;
     ++nrules;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

expand_items ( )

Definition at line 1015 of file reader.c.

References maxitems, no_space(), and REALLOC.

Referenced by add_symbol(), end_rule(), and insert_empty_rule().

 {
     maxitems += 300;
     pitem = (bucket **) REALLOC(pitem, maxitems*sizeof(bucket *));
     if (pitem == 0) no_space();
 }

Here is the call graph for this function:

Here is the caller graph for this function:

expand_rules ( )

Definition at line 1023 of file reader.c.

References maxrules, no_space(), rassoc, REALLOC, and rprec.

Referenced by insert_empty_rule(), and start_rule().

 {
     maxrules += 100;
     plhs = (bucket **) REALLOC(plhs, maxrules*sizeof(bucket *));
     if (plhs == 0) no_space();
     rprec = (short *) REALLOC(rprec, maxrules*sizeof(short));
     if (rprec == 0) no_space();
     rassoc = (char *) REALLOC(rassoc, maxrules*sizeof(char));
     if (rassoc == 0) no_space();
 }

Here is the call graph for this function:

Here is the caller graph for this function:

free_tags ( )

Definition at line 1479 of file reader.c.

References FREE, ntags, and tag_table.

Referenced by reader().

 {
     register int i;
 
     if (tag_table == 0) return;
 
     for (i = 0; i < ntags; ++i)
     {
         assert(tag_table[i]);
         FREE(tag_table[i]);
     }
     FREE(tag_table);
 }

Here is the caller graph for this function:

get_line ( )

Definition at line 52 of file reader.c.

References cptr, FREE, input_file, line, lineno, LINESIZE, linesize, MALLOC, no_space(), REALLOC, and saw_eof.

Referenced by copy_action(), copy_text(), copy_union(), get_literal(), nextc(), and skip_comment().

 {
     register FILE *f = input_file;
     register int c;
     register int i;
 
     if (saw_eof || (c = getc(f)) == EOF)
     {
         if (line) { FREE(line); line = 0; }
         cptr = 0;
         saw_eof = 1;
         return;
     }
 
     if (line == 0 || linesize != (LINESIZE + 1))
     {
         if (line) FREE(line);
         linesize = LINESIZE + 1;
         line = MALLOC(linesize);
         if (line == 0) no_space();
     }
 
     i = 0;
     ++lineno;
     for (;;)
     {
         line[i]  =  c;
         if (c == '\n') { cptr = line; return; }
         if (++i >= linesize)
         {
             linesize += LINESIZE;
             line = REALLOC(line, linesize);
             if (line ==  0) no_space();
         }
         c = getc(f);
         if (c ==  EOF)
         {
             line[i] = '\n';
             saw_eof = 1;
             cptr = line;
             return;
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

bucket* get_literal ( )

Definition at line 586 of file reader.c.

References cache, cachec(), cinc, bucket::class, cptr, dup_line(), FREE, get_line(), hexval(), illegal_character(), IS_OCTAL, line, lineno, lookup(), MALLOC, MAXCHAR, no_space(), NUL, TERM, UNDEFINED, unterminated_string(), and bucket::value.

Referenced by add_symbol(), declare_tokens(), declare_types(), and mark_symbol().

 {
     register int c, quote;
     register int i;
     register int n;
     register char *s;
     register bucket *bp;
     int s_lineno = lineno;
     char *s_line = dup_line();
     char *s_cptr = s_line + (cptr - line);
 
     quote = *cptr++;
     cinc = 0;
     for (;;)
     {
         c = *cptr++;
         if (c == quote) break;
         if (c == '\n') unterminated_string(s_lineno, s_line, s_cptr);
         if (c == '\\')
         {
             char *c_cptr = cptr - 1;
 
             c = *cptr++;
             switch (c)
             {
             case '\n':
                 get_line();
                 if (line == 0) unterminated_string(s_lineno, s_line, s_cptr);
                 continue;
 
             case '0': case '1': case '2': case '3':
             case '4': case '5': case '6': case '7':
                 n = c - '0';
                 c = *cptr;
                 if (IS_OCTAL(c))
                 {
                     n = (n << 3) + (c - '0');
                     c = *++cptr;
                     if (IS_OCTAL(c))
                     {
                         n = (n << 3) + (c - '0');
                         ++cptr;
                     }
                 }
                 if (n > MAXCHAR) illegal_character(c_cptr);
                 c = n;
                 break;
 
             case 'x':
                 c = *cptr++;
                 n = hexval(c);
                 if (n < 0 || n >= 16)
                     illegal_character(c_cptr);
                 for (;;)
                 {
                     c = *cptr;
                     i = hexval(c);
                     if (i < 0 || i >= 16) break;
                     ++cptr;
                     n = (n << 4) + i;
                     if (n > MAXCHAR) illegal_character(c_cptr);
                 }
                 c = n;
                 break;
 
             case 'a': c = 7; break;
             case 'b': c = '\b'; break;
             case 'f': c = '\f'; break;
             case 'n': c = '\n'; break;
             case 'r': c = '\r'; break;
             case 't': c = '\t'; break;
             case 'v': c = '\v'; break;
             }
         }
         cachec(c);
     }
     FREE(s_line);
 
     n = cinc;
     s = MALLOC(n);
     if (s == 0) no_space();
     
     for (i = 0; i < n; ++i)
         s[i] = cache[i];
 
     cinc = 0;
     if (n == 1)
         cachec('\'');
     else
         cachec('"');
 
     for (i = 0; i < n; ++i)
     {
         c = ((unsigned char *)s)[i];
         if (c == '\\' || c == cache[0])
         {
             cachec('\\');
             cachec(c);
         }
         else if (isprint(c))
             cachec(c);
         else
         {
             cachec('\\');
             switch (c)
             {
             case 7: cachec('a'); break;
             case '\b': cachec('b'); break;
             case '\f': cachec('f'); break;
             case '\n': cachec('n'); break;
             case '\r': cachec('r'); break;
             case '\t': cachec('t'); break;
             case '\v': cachec('v'); break;
             default:
                 cachec(((c >> 6) & 7) + '0');
                 cachec(((c >> 3) & 7) + '0');
                 cachec((c & 7) + '0');
                 break;
             }
         }
     }
 
     if (n == 1)
         cachec('\'');
     else
         cachec('"');
 
     cachec(NUL);
     bp = lookup(cache);
     bp->class = TERM;
     if (n == 1 && bp->value == UNDEFINED)
         bp->value = *(unsigned char *)s;
     FREE(s);
 
     return (bp);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

bucket* get_name ( )

Definition at line 747 of file reader.c.

References cache, cachec(), cinc, cptr, IS_IDENT, is_reserved(), lookup(), NUL, and used_reserved().

Referenced by add_symbol(), advance_to_start(), declare_start(), declare_tokens(), declare_types(), and mark_symbol().

 {
     register int c;
 
     cinc = 0;
     for (c = *cptr; IS_IDENT(c); c = *++cptr)
         cachec(c);
     cachec(NUL);
 
     if (is_reserved(cache)) used_reserved(cache);
 
     return (lookup(cache));
 }

Here is the call graph for this function:

Here is the caller graph for this function:

int get_number ( )

Definition at line 763 of file reader.c.

References cptr.

Referenced by copy_action(), and declare_tokens().

 {
     register int c;
     register int n;
 
     n = 0;
     for (c = *cptr; isdigit(c); c = *++cptr)
         n = 10*n + (c - '0');
 
     return (n);
 }

Here is the caller graph for this function:

char* get_tag ( )

Definition at line 777 of file reader.c.

References cache, cachec(), cinc, cptr, dup_line(), FREE, illegal_tag(), IS_IDENT, line, lineno, MALLOC, nextc(), no_space(), ntags, NUL, REALLOC, strcpy(), tag_table, tagmax, and unexpected_EOF().

Referenced by copy_action(), declare_tokens(), and declare_types().

 {
     register int c;
     register int i;
     register char *s;
     int t_lineno = lineno;
     char *t_line = dup_line();
     char *t_cptr = t_line + (cptr - line);
 
     ++cptr;
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (!isalpha(c) && c != '_' && c != '$')
         illegal_tag(t_lineno, t_line, t_cptr);
 
     cinc = 0;
     do { cachec(c); c = *++cptr; } while (IS_IDENT(c));
     cachec(NUL);
 
     c = nextc();
     if (c == EOF) unexpected_EOF();
     if (c != '>')
         illegal_tag(t_lineno, t_line, t_cptr);
     ++cptr;
 
     for (i = 0; i < ntags; ++i)
     {
         if (strcmp(cache, tag_table[i]) == 0)
             return (tag_table[i]);
     }
 
     if (ntags >= tagmax)
     {
         tagmax += 16;
         tag_table = (char **)
                         (tag_table ? REALLOC(tag_table, tagmax*sizeof(char *))
                                    : MALLOC(tagmax*sizeof(char *)));
         if (tag_table == 0) no_space();
     }
 
     s = MALLOC(cinc);
     if  (s == 0) no_space();
     strcpy(s, cache);
     tag_table[ntags] = s;
     ++ntags;
     FREE(t_line);
     return (s);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

int hexval ( int c )

Definition at line 572 of file reader.c.

Referenced by get_literal().

 {
     if (c >= '0' && c <= '9')
         return (c - '0');
     if (c >= 'A' && c <= 'F')
         return (c - 'A' + 10);
     if (c >= 'a' && c <= 'f')
         return (c - 'a' + 10);
     return (-1);
 }

Here is the caller graph for this function:

initialize_grammar ( )

Definition at line 984 of file reader.c.

References MALLOC, maxitems, maxrules, nitems, no_space(), nrules, rassoc, rprec, and TOKEN.

Referenced by read_grammar().

 {
     nitems = 4;
     maxitems = 300;
     pitem = (bucket **) MALLOC(maxitems*sizeof(bucket *));
     if (pitem == 0) no_space();
     pitem[0] = 0;
     pitem[1] = 0;
     pitem[2] = 0;
     pitem[3] = 0;
 
     nrules = 3;
     maxrules = 100;
     plhs = (bucket **) MALLOC(maxrules*sizeof(bucket *));
     if (plhs == 0) no_space();
     plhs[0] = 0;
     plhs[1] = 0;
     plhs[2] = 0;
     rprec = (short *) MALLOC(maxrules*sizeof(short));
     if (rprec == 0) no_space();
     rprec[0] = 0;
     rprec[1] = 0;
     rprec[2] = 0;
     rassoc = (char *) MALLOC(maxrules*sizeof(char));
     if (rassoc == 0) no_space();
     rassoc[0] = TOKEN;
     rassoc[1] = TOKEN;
     rassoc[2] = TOKEN;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

insert_empty_rule ( )

Definition at line 1119 of file reader.c.

References cache, bucket::class, expand_items(), expand_rules(), gensym, last_symbol, make_bucket(), maxitems, maxrules, bucket::next, nitems, NONTERM, nrules, rassoc, rprec, bucket::tag, and TOKEN.

Referenced by add_symbol(), and copy_action().

 {
     register bucket *bp, **bpp;
 
     assert(cache);
     sprintf(cache, "$$%d", ++gensym);
     bp = make_bucket(cache);
     last_symbol->next = bp;
     last_symbol = bp;
     bp->tag = plhs[nrules]->tag;
     bp->class = NONTERM;
 
     if ((nitems += 2) > maxitems)
         expand_items();
     bpp = pitem + nitems - 1;
     *bpp-- = bp;
     while (bpp[0] = bpp[-1]) --bpp;
 
     if (++nrules >= maxrules)
         expand_rules();
     plhs[nrules] = plhs[nrules-1];
     plhs[nrules-1] = bp;
     rprec[nrules] = rprec[nrules-1];
     rprec[nrules-1] = 0;
     rassoc[nrules] = rassoc[nrules-1];
     rassoc[nrules-1] = TOKEN;
 }

Here is the call graph for this function:

Here is the caller graph for this function:

int is_reserved ( char * name )

Definition at line 725 of file reader.c.

References NUL.

Referenced by get_name().

 {
     char *s;
 
     if (strcmp(name, ".") == 0 ||
             strcmp(name, "$accept") == 0 ||
             strcmp(name, "$end") == 0)
         return (1);
 
     if (name[0] == '$' && name[1] == '$' && isdigit(name[2]))
     {
         s = name + 3;
         while (isdigit(*s)) ++s;
         if (*s == NUL) return (1);
     }
 
     return (0);
 }

Here is the caller graph for this function:

int keyword ( )

Definition at line 209 of file reader.c.

References cache, cachec(), cinc, cptr, IDENT, LEFT, line, lineno, MARK, NONASSOC, NUL, RIGHT, START, syntax_error(), TEXT, TOKEN, TYPE, and UNION.

Referenced by advance_to_start(), and read_declarations().

 {
     register int c;
     char *t_cptr = cptr;
 
     c = *++cptr;
     if (isalpha(c))
     {
         cinc = 0;
         for (;;)
         {
             if (isalpha(c))
             {
                 if (isupper(c)) c = tolower(c);
                 cachec(c);
             }
             else if (isdigit(c) || c == '_' || c == '.' || c == '$')
                 cachec(c);
             else
                 break;
             c = *++cptr;
         }
         cachec(NUL);
 
         if (strcmp(cache, "token") == 0 || strcmp(cache, "term") == 0)
             return (TOKEN);
         if (strcmp(cache, "type") == 0)
             return (TYPE);
         if (strcmp(cache, "left") == 0)
             return (LEFT);
         if (strcmp(cache, "right") == 0)
             return (RIGHT);
         if (strcmp(cache, "nonassoc") == 0 || strcmp(cache, "binary") == 0)
             return (NONASSOC);
         if (strcmp(cache, "start") == 0)
             return (START);
         if (strcmp(cache, "union") == 0)
             return (UNION);
         if (strcmp(cache, "ident") == 0)
             return (IDENT);
     }
     else
     {
         ++cptr;
         if (c == '{')
             return (TEXT);
         if (c == '%' || c == '\\')
             return (MARK);
         if (c == '<')
             return (LEFT);
         if (c == '>')
             return (RIGHT);
         if (c == '0')
             return (TOKEN);
         if (c == '2')
             return (NONASSOC);
     }
     syntax_error(lineno, line, t_cptr);
     /*NOTREACHED*/
 }

Here is the call graph for this function:

Here is the caller graph for this function:

int mark_symbol ( )

Definition at line 1403 of file reader.c.

References bucket::assoc, cptr, get_literal(), get_name(), IS_IDENT, line, lineno, nextc(), nrules, bucket::prec, prec_redeclared(), rassoc, rprec, syntax_error(), and UNDEFINED.

Referenced by read_grammar().

 {
     register int c;
     register bucket *bp;
 
     c = cptr[1];
     if (c == '%' || c == '\\')
     {
         cptr += 2;
         return (1);
     }
 
     if (c == '=')
         cptr += 2;
     else if ((c == 'p' || c == 'P') &&
              ((c = cptr[2]) == 'r' || c == 'R') &&
              ((c = cptr[3]) == 'e' || c == 'E') &&
              ((c = cptr[4]) == 'c' || c == 'C') &&
              ((c = cptr[5], !IS_IDENT(c))))
         cptr += 5;
     else
         syntax_error(lineno, line, cptr);
 
     c = nextc();
     if (isalpha(c) || c == '_' || c == '.' || c == '$')
         bp = get_name();
     else if (c == '\'' || c == '"')
         bp = get_literal();
     else
     {
         syntax_error(lineno, line, cptr);
         /*NOTREACHED*/
     }
 
     if (rprec[nrules] != UNDEFINED && bp->prec != rprec[nrules])
         prec_redeclared();
 
     rprec[nrules] = bp->prec;
     rassoc[nrules] = bp->assoc;
     return (0);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

int nextc ( )

Definition at line 147 of file reader.c.

References cptr, get_line(), line, and skip_comment().

Referenced by add_symbol(), advance_to_start(), copy_ident(), declare_start(), declare_tokens(), declare_types(), get_tag(), mark_symbol(), read_declarations(), and read_grammar().

 {
     register char *s;
 
     if (line == 0)
     {
         get_line();
         if (line == 0)
             return (EOF);
     }
 
     s = cptr;
     for (;;)
     {
         switch (*s)
         {
         case '\n':
             get_line();
             if (line == 0) return (EOF);
             s = cptr;
             break;
 
         case ' ':
         case '\t':
         case '\f':
         case '\r':
         case '\v':
         case ',':
         case ';':
             ++s;
             break;
 
         case '\\':
             cptr = s;
             return ('%');
 
         case '/':
             if (s[1] == '*')
             {
                 cptr = s;
                 skip_comment();
                 s = cptr;
                 break;
             }
             else if (s[1] == '/')
             {
                 get_line();
                 if (line == 0) return (EOF);
                 s = cptr;
                 break;
             }
             /* fall through */
 
         default:
             cptr = s;
             return (*s);
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

print_grammar ( )

Definition at line 1739 of file reader.c.

References nrules, ritem, rlhs, symbol_name, verbose_file, and vflag.

Referenced by reader().

 {
     register int i, j, k;
     int spacing;
     register FILE *f = verbose_file;
 
     if (!vflag) return;
 
     k = 1;
     for (i = 2; i < nrules; ++i)
     {
         if (rlhs[i] != rlhs[i-1])
         {
             if (i != 2) fprintf(f, "\n");
             fprintf(f, "%4d  %s :", i - 2, symbol_name[rlhs[i]]);
             spacing = strlen(symbol_name[rlhs[i]]) + 1;
         }
         else
         {
             fprintf(f, "%4d  ", i - 2);
             j = spacing;
             while (--j >= 0) putc(' ', f);
             putc('|', f);
         }
 
         while (ritem[k] >= 0)
         {
             fprintf(f, " %s", symbol_name[ritem[k]]);
             ++k;
         }
         ++k;
         putc('\n', f);
     }
 }

Here is the caller graph for this function:

read_declarations ( )

Definition at line 935 of file reader.c.

References cache, cache_size, copy_ident(), copy_text(), copy_union(), cptr, declare_start(), declare_tokens(), declare_types(), IDENT, keyword(), LEFT, line, lineno, MALLOC, MARK, nextc(), no_space(), NONASSOC, RIGHT, START, syntax_error(), TEXT, TOKEN, TYPE, unexpected_EOF(), and UNION.

Referenced by reader().

 {
     register int c, k;
 
     cache_size = 256;
     cache = MALLOC(cache_size);
     if (cache == 0) no_space();
 
     for (;;)
     {
         c = nextc();
         if (c == EOF) unexpected_EOF();
         if (c != '%') syntax_error(lineno, line, cptr);
         switch (k = keyword())
         {
         case MARK:
             return;
 
         case IDENT:
             copy_ident();
             break;
 
         case TEXT:
             copy_text();
             break;
 
         case UNION:
             copy_union();
             break;
 
         case TOKEN:
         case LEFT:
         case RIGHT:
         case NONASSOC:
             declare_tokens(k);
             break;
 
         case TYPE:
             declare_types();
             break;
 
         case START:
             declare_start();
             break;
         }
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

read_grammar ( )

Definition at line 1446 of file reader.c.

References add_symbol(), advance_to_start(), copy_action(), cptr, end_rule(), initialize_grammar(), line, lineno, mark_symbol(), nextc(), nrules, start_rule(), and syntax_error().

Referenced by reader().

 {
     register int c;
 
     initialize_grammar();
     advance_to_start();
 
     for (;;)
     {
         c = nextc();
         if (c == EOF) break;
         if (isalpha(c) || c == '_' || c == '.' || c == '$' || c == '\'' ||
                 c == '"')
             add_symbol();
         else if (c == '{' || c == '=')
             copy_action();
         else if (c == '|')
         {
             end_rule();
             start_rule(plhs[nrules-1], 0);
             ++cptr;
         }
         else if (c == '%')
         {
             if (mark_symbol()) break;
         }
         else
             syntax_error(lineno, line, cptr);
     }
     end_rule();
 }

Here is the call graph for this function:

Here is the caller graph for this function:

reader ( )

Definition at line 1775 of file reader.c.

References banner, check_symbols(), create_symbol_table(), free_symbol_table(), free_symbols(), free_tags(), pack_grammar(), pack_names(), pack_symbols(), print_grammar(), read_declarations(), read_grammar(), and write_section().

Referenced by main().

 {
     write_section(banner);
     create_symbol_table();
     read_declarations();
     read_grammar();
     free_symbol_table();
     free_tags();
     pack_names();
     check_symbols();
     pack_symbols();
     pack_grammar();
     free_symbols();
     print_grammar();
 }

Here is the call graph for this function:

Here is the caller graph for this function:

skip_comment ( )

Definition at line 116 of file reader.c.

References cptr, dup_line(), FREE, get_line(), line, lineno, and unterminated_comment().

Referenced by nextc().

 {
     register char *s;
 
     int st_lineno = lineno;
     char *st_line = dup_line();
     char *st_cptr = st_line + (cptr - line);
 
     s = cptr + 2;
     for (;;)
     {
         if (*s == '*' && s[1] == '/')
         {
             cptr = s + 2;
             FREE(st_line);
             return;
         }
         if (*s == '\n')
         {
             get_line();
             if (line == 0)
                 unterminated_comment(st_lineno, st_line, st_cptr);
             s = cptr;
         }
         else
             ++s;
     }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

start_rule	(	bucket *	bp,
		int	s_lineno
	)

Definition at line 1085 of file reader.c.

References expand_rules(), maxrules, NONTERM, nrules, rassoc, rprec, TERM, terminal_lhs(), TOKEN, and UNDEFINED.

Referenced by add_symbol(), advance_to_start(), and read_grammar().

 {
     if (bp->class == TERM)
         terminal_lhs(s_lineno);
     bp->class = NONTERM;
     if (nrules >= maxrules)
         expand_rules();
     plhs[nrules] = bp;
     rprec[nrules] = UNDEFINED;
     rassoc[nrules] = TOKEN;
 }