1 /* Utility functions for scan-decls and fix-header programs.
2 Copyright (C) 1993, 1994, 1998, 2002, 2003 Free Software Foundation, Inc.
3
4 This program is free software; you can redistribute it and/or modify it
5 under the terms of the GNU General Public License as published by the
6 Free Software Foundation; either version 2, or (at your option) any
7 later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
17
18 #include "bconfig.h"
19 #include "system.h"
20 #include "coretypes.h"
21 #include "tm.h"
22 #include "scan.h"
23
24 int lineno = 1;
25 int source_lineno = 1;
26 sstring source_filename;
27
28 void
make_sstring_space(sstring * str,int count)29 make_sstring_space (sstring *str, int count)
30 {
31 int cur_pos = str->ptr - str->base;
32 int cur_size = str->limit - str->base;
33 int new_size = cur_pos + count + 100;
34
35 if (new_size <= cur_size)
36 return;
37
38 str->base = xrealloc (str->base, new_size);
39 str->ptr = str->base + cur_size;
40 str->limit = str->base + new_size;
41 }
42
43 void
sstring_append(sstring * dst,sstring * src)44 sstring_append (sstring *dst, sstring *src)
45 {
46 char *d, *s;
47 int count = SSTRING_LENGTH (src);
48
49 MAKE_SSTRING_SPACE (dst, count + 1);
50 d = dst->ptr;
51 s = src->base;
52 while (--count >= 0) *d++ = *s++;
53 dst->ptr = d;
54 *d = 0;
55 }
56
57 int
scan_ident(FILE * fp,sstring * s,int c)58 scan_ident (FILE *fp, sstring *s, int c)
59 {
60 s->ptr = s->base;
61 if (ISIDST (c))
62 {
63 for (;;)
64 {
65 SSTRING_PUT (s, c);
66 c = getc (fp);
67 if (c == EOF || ! ISIDNUM (c))
68 break;
69 }
70 }
71 MAKE_SSTRING_SPACE (s, 1);
72 *s->ptr = 0;
73 return c;
74 }
75
76 int
scan_string(FILE * fp,sstring * s,int init)77 scan_string (FILE *fp, sstring *s, int init)
78 {
79 int c;
80
81 for (;;)
82 {
83 c = getc (fp);
84 if (c == EOF || c == '\n')
85 break;
86 if (c == init)
87 {
88 c = getc (fp);
89 break;
90 }
91 if (c == '\\')
92 {
93 c = getc (fp);
94 if (c == EOF)
95 break;
96 if (c == '\n')
97 continue;
98 }
99 SSTRING_PUT (s, c);
100 }
101 MAKE_SSTRING_SPACE (s, 1);
102 *s->ptr = 0;
103 return c;
104 }
105
106 /* Skip horizontal white spaces (spaces, tabs, and C-style comments). */
107
108 int
skip_spaces(FILE * fp,int c)109 skip_spaces (FILE *fp, int c)
110 {
111 for (;;)
112 {
113 if (c == ' ' || c == '\t')
114 c = getc (fp);
115 else if (c == '/')
116 {
117 c = getc (fp);
118 if (c != '*')
119 {
120 ungetc (c, fp);
121 return '/';
122 }
123 c = getc (fp);
124 for (;;)
125 {
126 if (c == EOF)
127 return EOF;
128 else if (c != '*')
129 {
130 if (c == '\n')
131 source_lineno++, lineno++;
132 c = getc (fp);
133 }
134 else if ((c = getc (fp)) == '/')
135 return getc (fp);
136 }
137 }
138 else
139 break;
140 }
141 return c;
142 }
143
144 int
read_upto(FILE * fp,sstring * str,int delim)145 read_upto (FILE *fp, sstring *str, int delim)
146 {
147 int ch;
148
149 for (;;)
150 {
151 ch = getc (fp);
152 if (ch == EOF || ch == delim)
153 break;
154 SSTRING_PUT (str, ch);
155 }
156 MAKE_SSTRING_SPACE (str, 1);
157 *str->ptr = 0;
158 return ch;
159 }
160
161 int
get_token(FILE * fp,sstring * s)162 get_token (FILE *fp, sstring *s)
163 {
164 int c;
165
166 s->ptr = s->base;
167 retry:
168 c = ' ';
169 c = skip_spaces (fp, c);
170 if (c == '\n')
171 {
172 source_lineno++;
173 lineno++;
174 goto retry;
175 }
176 if (c == '#')
177 {
178 c = get_token (fp, s);
179 if (c == INT_TOKEN)
180 {
181 source_lineno = atoi (s->base) - 1; /* '\n' will add 1 */
182 get_token (fp, &source_filename);
183 }
184 for (;;)
185 {
186 c = getc (fp);
187 if (c == EOF)
188 return EOF;
189 if (c == '\n')
190 {
191 source_lineno++;
192 lineno++;
193 goto retry;
194 }
195 }
196 }
197 if (c == EOF)
198 return EOF;
199 if (ISDIGIT (c))
200 {
201 do
202 {
203 SSTRING_PUT (s, c);
204 c = getc (fp);
205 } while (c != EOF && ISDIGIT (c));
206 ungetc (c, fp);
207 c = INT_TOKEN;
208 goto done;
209 }
210 if (ISIDST (c))
211 {
212 c = scan_ident (fp, s, c);
213 ungetc (c, fp);
214 return IDENTIFIER_TOKEN;
215 }
216 if (c == '\'' || c == '"')
217 {
218 c = scan_string (fp, s, c);
219 ungetc (c, fp);
220 return c == '\'' ? CHAR_TOKEN : STRING_TOKEN;
221 }
222 SSTRING_PUT (s, c);
223 done:
224 MAKE_SSTRING_SPACE (s, 1);
225 *s->ptr = 0;
226 return c;
227 }
228
229 unsigned int
hashstr(const char * str,unsigned int len)230 hashstr (const char *str, unsigned int len)
231 {
232 unsigned int n = len;
233 unsigned int r = 0;
234 const unsigned char *s = (const unsigned char *) str;
235
236 do
237 r = r * 67 + (*s++ - 113);
238 while (--n);
239 return r + len;
240 }
241