1 /* Utility functions for scan-decls and fix-header programs.
2 Copyright (C) 1993, 1994 Free Software Foundation, Inc.
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
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.
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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 int source_lineno
= 1;
24 sstring source_filename
;
27 make_sstring_space (str
, count
)
31 int cur_pos
= str
->ptr
- str
->base
;
32 int cur_size
= str
->limit
- str
->base
;
33 int new_size
= cur_pos
+ count
+ 100;
35 if (new_size
<= cur_size
)
38 if (str
->base
== NULL
)
39 str
->base
= xmalloc (new_size
);
41 str
->base
= xrealloc (str
->base
, new_size
);
42 str
->ptr
= str
->base
+ cur_size
;
43 str
->limit
= str
->base
+ new_size
;
47 sstring_append (dst
, src
)
52 register int count
= SSTRING_LENGTH(src
);
53 MAKE_SSTRING_SPACE(dst
, count
+ 1);
56 while (--count
>= 0) *d
++ = *s
++;
68 if (isalpha(c
) || c
== '_')
74 if (c
== EOF
|| !(isalnum(c
) || c
== '_'))
78 MAKE_SSTRING_SPACE(s
, 1);
84 scan_string (fp
, s
, init
)
93 if (c
== EOF
|| c
== '\n')
110 MAKE_SSTRING_SPACE(s
, 1);
115 /* Skip horizontal white spaces (spaces, tabs, and C-style comments). */
124 if (c
== ' ' || c
== '\t')
142 source_lineno
++, lineno
++;
145 else if ((c
= getc (fp
)) == '/')
156 read_upto (fp
, str
, delim
)
165 if (ch
== EOF
|| ch
== delim
)
167 SSTRING_PUT(str
, ch
);
169 MAKE_SSTRING_SPACE(str
, 1);
183 c
= skip_spaces (fp
, c
);
192 c
= get_token (fp
, s
);
195 source_lineno
= atoi (s
->base
) - 1; /* '\n' will add 1 */
196 get_token (fp
, &source_filename
);
219 } while (c
!= EOF
&& isdigit(c
));
224 if (isalpha (c
) || c
== '_')
226 c
= scan_ident (fp
, s
, c
);
228 return IDENTIFIER_TOKEN
;
230 if (c
== '\'' || c
== '"')
232 c
= scan_string (fp
, s
, c
);
234 return c
== '\'' ? CHAR_TOKEN
: STRING_TOKEN
;
238 MAKE_SSTRING_SPACE(s
, 1);