gcc/scan.c

   1 /* Utility functions for scan-decls and fix-header programs.
   2    Copyright (C) 1993, 1994, 1998 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, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 #include "hconfig.h"
  19 #include "system.h"
  20 #include "scan.h"
  21
  22 int lineno = 1;
  23 int source_lineno = 1;
  24 sstring source_filename;
  25
  26 void
  27 make_sstring_space (str, count)
  28      sstring *str;
  29      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
  44 sstring_append (dst, src)
  45      sstring *dst;
  46      sstring *src;
  47 {
  48   char *d, *s;
  49   int count = SSTRING_LENGTH(src);
  50
  51   MAKE_SSTRING_SPACE(dst, count + 1);
  52   d = dst->ptr;
  53   s = src->base;
  54   while (--count >= 0) *d++ = *s++;
  55   dst->ptr = d;
  56   *d = 0;
  57 }
  58
  59 int
  60 scan_ident (fp, s, c)
  61      FILE *fp;
  62      sstring *s;
  63      int c;
  64 {
  65   s->ptr = s->base;
  66   if (ISALPHA(c) || c == '_')
  67     {
  68       for (;;)
  69         {
  70           SSTRING_PUT(s, c);
  71           c = getc (fp);
  72           if (c == EOF || !(ISALNUM(c) || c == '_'))
  73             break;
  74         }
  75     }
  76   MAKE_SSTRING_SPACE(s, 1);
  77   *s->ptr = 0;
  78   return c;
  79 }
  80
  81 int
  82 scan_string (fp, s, init)
  83      FILE *fp;
  84      sstring *s;
  85      int init;
  86 {
  87   int c;
  88
  89   for (;;)
  90     {
  91       c = getc (fp);
  92       if (c == EOF || c == '\n')
  93         break;
  94       if (c == init)
  95         {
  96           c = getc (fp);
  97           break;
  98         }
  99       if (c == '\\')
 100         {
 101           c = getc (fp);
 102           if (c == EOF)
 103             break;
 104           if (c == '\n')
 105             continue;
 106         }
 107       SSTRING_PUT(s, c);
 108     }
 109   MAKE_SSTRING_SPACE(s, 1);
 110   *s->ptr = 0;
 111   return c;
 112 }
 113
 114 /* Skip horizontal white spaces (spaces, tabs, and C-style comments).  */
 115
 116 int
 117 skip_spaces (fp, c)
 118      FILE *fp;
 119      int c;
 120 {
 121   for (;;)
 122     {
 123       if (c == ' ' || c == '\t')
 124         c = getc (fp);
 125       else if (c == '/')
 126         {
 127           c = getc (fp);
 128           if (c != '*')
 129             {
 130               ungetc (c, fp);
 131               return '/';
 132             }
 133           c = getc (fp);
 134           for (;;)
 135             {
 136               if (c == EOF)
 137                 return EOF;
 138               else if (c != '*')
 139                 {
 140                   if (c == '\n')
 141                     source_lineno++, lineno++;
 142                   c = getc (fp);
 143                 }
 144               else if ((c = getc (fp)) == '/')
 145                 return getc (fp);
 146             }
 147         }
 148       else
 149         break;
 150     }
 151   return c;
 152 }
 153
 154 int
 155 read_upto (fp, str, delim)
 156      FILE *fp;
 157      sstring *str;
 158      int delim;
 159 {
 160   int ch;
 161
 162   for (;;)
 163     {
 164       ch = getc (fp);
 165       if (ch == EOF || ch == delim)
 166         break;
 167       SSTRING_PUT(str, ch);
 168     }
 169   MAKE_SSTRING_SPACE(str, 1);
 170   *str->ptr = 0;
 171   return ch;
 172 }
 173
 174 int
 175 get_token (fp, s)
 176      FILE *fp;
 177      sstring *s;
 178 {
 179   int c;
 180
 181   s->ptr = s->base;
 182  retry:
 183   c = ' ';
 184   c = skip_spaces (fp, c);
 185   if (c == '\n')
 186     {
 187       source_lineno++;
 188       lineno++;
 189       goto retry;
 190     }
 191   if (c == '#')
 192     {
 193       c = get_token (fp, s);
 194       if (c == INT_TOKEN)
 195         {
 196           source_lineno = atoi (s->base) - 1; /* '\n' will add 1 */
 197           get_token (fp, &source_filename);
 198         }
 199       for (;;)
 200         {
 201           c = getc (fp);
 202           if (c == EOF)
 203             return EOF;
 204           if (c == '\n')
 205             {
 206             source_lineno++;
 207             lineno++;
 208             goto retry;
 209             }
 210         }
 211     }
 212   if (c == EOF)
 213     return EOF;
 214   if (ISDIGIT (c))
 215     {
 216       do
 217         {
 218           SSTRING_PUT(s, c);
 219           c = getc (fp);
 220         } while (c != EOF && ISDIGIT(c));
 221       ungetc (c, fp);
 222       c = INT_TOKEN;
 223       goto done;
 224     }
 225   if (ISALPHA (c) || c == '_')
 226     {
 227       c = scan_ident (fp, s, c);
 228       ungetc (c, fp);
 229       return IDENTIFIER_TOKEN;
 230     }
 231   if (c == '\'' || c == '"')
 232     {
 233       c = scan_string (fp, s, c);
 234       ungetc (c, fp);
 235       return c == '\'' ? CHAR_TOKEN : STRING_TOKEN;
 236     }
 237   SSTRING_PUT(s, c);
 238  done:
 239   MAKE_SSTRING_SPACE(s, 1);
 240   *s->ptr = 0;
 241   return c;
 242 }
 243
 244 unsigned int
 245 hashstr (str, len)
 246      const char *str;
 247      unsigned int len;
 248 {
 249   unsigned int n = len;
 250   unsigned int r = 0;
 251   const unsigned char *s = (const unsigned char *)str;
 252
 253   do
 254     r = r * 67 + (*s++ - 113);
 255   while (--n);
 256   return r + len;
 257 }