URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [scan.c] - Rev 482
Go to most recent revision | Compare with Previous | Blame | View Log
/* Utility functions for scan-decls and fix-header programs. Copyright (C) 1993, 1994, 1998, 2002, 2003, 2007 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. */ #include "bconfig.h" #include "system.h" #include "coretypes.h" #include "tm.h" #include "scan.h" int lineno = 1; int source_lineno = 1; sstring source_filename; void make_sstring_space (sstring *str, int count) { int cur_pos = str->ptr - str->base; int cur_size = str->limit - str->base; int new_size = cur_pos + count + 100; if (new_size <= cur_size) return; str->base = xrealloc (str->base, new_size); str->ptr = str->base + cur_size; str->limit = str->base + new_size; } void sstring_append (sstring *dst, sstring *src) { char *d, *s; int count = SSTRING_LENGTH (src); MAKE_SSTRING_SPACE (dst, count + 1); d = dst->ptr; s = src->base; while (--count >= 0) *d++ = *s++; dst->ptr = d; *d = 0; } int scan_ident (FILE *fp, sstring *s, int c) { s->ptr = s->base; if (ISIDST (c)) { for (;;) { SSTRING_PUT (s, c); c = getc (fp); if (c == EOF || ! ISIDNUM (c)) break; } } MAKE_SSTRING_SPACE (s, 1); *s->ptr = 0; return c; } int scan_string (FILE *fp, sstring *s, int init) { int c; for (;;) { c = getc (fp); if (c == EOF || c == '\n') break; if (c == init) { c = getc (fp); break; } if (c == '\\') { c = getc (fp); if (c == EOF) break; if (c == '\n') continue; } SSTRING_PUT (s, c); } MAKE_SSTRING_SPACE (s, 1); *s->ptr = 0; return c; } /* Skip horizontal white spaces (spaces, tabs, and C-style comments). */ int skip_spaces (FILE *fp, int c) { for (;;) { if (c == ' ' || c == '\t') c = getc (fp); else if (c == '/') { c = getc (fp); if (c != '*') { ungetc (c, fp); return '/'; } c = getc (fp); for (;;) { if (c == EOF) return EOF; else if (c != '*') { if (c == '\n') source_lineno++, lineno++; c = getc (fp); } else if ((c = getc (fp)) == '/') return getc (fp); } } else break; } return c; } int read_upto (FILE *fp, sstring *str, int delim) { int ch; for (;;) { ch = getc (fp); if (ch == EOF || ch == delim) break; SSTRING_PUT (str, ch); } MAKE_SSTRING_SPACE (str, 1); *str->ptr = 0; return ch; } int get_token (FILE *fp, sstring *s) { int c; s->ptr = s->base; retry: c = ' '; c = skip_spaces (fp, c); if (c == '\n') { source_lineno++; lineno++; goto retry; } if (c == '#') { c = get_token (fp, s); if (c == INT_TOKEN) { source_lineno = atoi (s->base) - 1; /* '\n' will add 1 */ get_token (fp, &source_filename); } for (;;) { c = getc (fp); if (c == EOF) return EOF; if (c == '\n') { source_lineno++; lineno++; goto retry; } } } if (c == EOF) return EOF; if (ISDIGIT (c)) { do { SSTRING_PUT (s, c); c = getc (fp); } while (c != EOF && ISDIGIT (c)); ungetc (c, fp); c = INT_TOKEN; goto done; } if (ISIDST (c)) { c = scan_ident (fp, s, c); ungetc (c, fp); return IDENTIFIER_TOKEN; } if (c == '\'' || c == '"') { c = scan_string (fp, s, c); ungetc (c, fp); return c == '\'' ? CHAR_TOKEN : STRING_TOKEN; } SSTRING_PUT (s, c); done: MAKE_SSTRING_SPACE (s, 1); *s->ptr = 0; return c; } unsigned int hashstr (const char *str, unsigned int len) { unsigned int n = len; unsigned int r = 0; const unsigned char *s = (const unsigned char *) str; do r = r * 67 + (*s++ - 113); while (--n); return r + len; }
Go to most recent revision | Compare with Previous | Blame | View Log