/* Utility functions for scan-decls and fix-header programs.
- Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+ Copyright (C) 1993, 1994, 1998, 2002 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
along with this program; if not, write to the Free Software
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-#include "hconfig.h"
+#include "bconfig.h"
#include "system.h"
+#include "coretypes.h"
+#include "tm.h"
#include "scan.h"
int lineno = 1;
if (new_size <= cur_size)
return;
-
- if (str->base == NULL)
- str->base = xmalloc (new_size);
- else
- str->base = xrealloc (str->base, new_size);
+
+ str->base = xrealloc (str->base, new_size);
str->ptr = str->base + cur_size;
str->limit = str->base + new_size;
}
sstring *dst;
sstring *src;
{
- register char *d, *s;
- register int count = SSTRING_LENGTH(src);
- MAKE_SSTRING_SPACE(dst, count + 1);
+ 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;
+ *d = 0;
}
int
scan_ident (fp, s, c)
- register FILE *fp;
- register sstring *s;
+ FILE *fp;
+ sstring *s;
int c;
{
s->ptr = s->base;
- if (ISALPHA(c) || c == '_')
+ if (ISIDST (c))
{
for (;;)
{
- SSTRING_PUT(s, c);
+ SSTRING_PUT (s, c);
c = getc (fp);
- if (c == EOF || !(ISALNUM(c) || c == '_'))
+ if (c == EOF || ! ISIDNUM (c))
break;
}
}
- MAKE_SSTRING_SPACE(s, 1);
+ MAKE_SSTRING_SPACE (s, 1);
*s->ptr = 0;
return c;
}
int
scan_string (fp, s, init)
- register FILE *fp;
- register sstring *s;
+ FILE *fp;
+ sstring *s;
int init;
{
int c;
+
for (;;)
{
c = getc (fp);
if (c == '\n')
continue;
}
- SSTRING_PUT(s, c);
+ SSTRING_PUT (s, c);
}
- MAKE_SSTRING_SPACE(s, 1);
+ MAKE_SSTRING_SPACE (s, 1);
*s->ptr = 0;
return c;
}
int
skip_spaces (fp, c)
- register FILE *fp;
+ FILE *fp;
int c;
{
for (;;)
int delim;
{
int ch;
+
for (;;)
{
ch = getc (fp);
if (ch == EOF || ch == delim)
break;
- SSTRING_PUT(str, ch);
+ SSTRING_PUT (str, ch);
}
- MAKE_SSTRING_SPACE(str, 1);
+ MAKE_SSTRING_SPACE (str, 1);
*str->ptr = 0;
return ch;
}
int
get_token (fp, s)
- register FILE *fp;
- register sstring *s;
+ FILE *fp;
+ sstring *s;
{
int c;
+
s->ptr = s->base;
retry:
c = ' ';
{
do
{
- SSTRING_PUT(s, c);
+ SSTRING_PUT (s, c);
c = getc (fp);
- } while (c != EOF && ISDIGIT(c));
+ } while (c != EOF && ISDIGIT (c));
ungetc (c, fp);
c = INT_TOKEN;
goto done;
}
- if (ISALPHA (c) || c == '_')
+ if (ISIDST (c))
{
c = scan_ident (fp, s, c);
ungetc (c, fp);
ungetc (c, fp);
return c == '\'' ? CHAR_TOKEN : STRING_TOKEN;
}
- SSTRING_PUT(s, c);
+ SSTRING_PUT (s, c);
done:
- MAKE_SSTRING_SPACE(s, 1);
+ MAKE_SSTRING_SPACE (s, 1);
*s->ptr = 0;
return c;
}
+
+unsigned int
+hashstr (str, len)
+ 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;
+}