gcc/cppinit.c

   1 /* CPP Library.
   2    Copyright (C) 1986, 87, 89, 92-98, 1999 Free Software Foundation, Inc.
   3    Contributed by Per Bothner, 1994-95.
   4    Based on CCCP program by Paul Rubin, June 1986
   5    Adapted to ANSI C, Richard Stallman, Jan 1987
   6
   7 This program is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 This program is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program; if not, write to the Free Software
  19 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 /* This file will have more stuff in it eventually, but right now
  22    we just have one hack: we move all the is_* table initialization
  23    in here, and we can declare them const in cpplib.h, which improves
  24    code a bit. */
  25
  26 #include "config.h"
  27 #include "system.h"
  28
  29 typedef unsigned char U_CHAR;
  30
  31 /* table to tell if char can be part of a C identifier.  */
  32 U_CHAR is_idchar[256] = { 0 };
  33 /* table to tell if char can be first char of a c identifier.  */
  34 U_CHAR is_idstart[256] = { 0 };
  35 /* table to tell if c is horizontal space.  */
  36 U_CHAR is_hor_space[256] = { 0 };
  37 /* table to tell if c is horizontal or vertical space.  */
  38 U_CHAR is_space[256] = { 0 };
  39 /* Table to handle trigraph conversion, which occurs before all other
  40    processing, everywhere in the file.  (This is necessary since one
  41    of the trigraphs encodes backslash.)  Note it's off by default.
  42
  43         from    to      from    to      from    to
  44         ?? =    #       ?? )    ]       ?? !    |
  45         ?? (    [       ?? '    ^       ?? >    }
  46         ?? /    \       ?? <    {       ?? -    ~
  47
  48    There is not a space between the ?? and the third char.  I put spaces
  49    there to avoid warnings when compiling this file. */
  50 U_CHAR trigraph_table[256] = { 0 };
  51
  52 /* Initialize syntactic classifications of characters. */
  53 void
  54 initialize_char_syntax (int dollar_in_ident)
  55 {
  56   is_idstart['a'] = 1; is_idstart['b'] = 1; is_idstart['c'] = 1;
  57   is_idstart['d'] = 1; is_idstart['e'] = 1; is_idstart['f'] = 1;
  58   is_idstart['g'] = 1; is_idstart['h'] = 1; is_idstart['i'] = 1;
  59   is_idstart['j'] = 1; is_idstart['k'] = 1; is_idstart['l'] = 1;
  60   is_idstart['m'] = 1; is_idstart['n'] = 1; is_idstart['o'] = 1;
  61   is_idstart['p'] = 1; is_idstart['q'] = 1; is_idstart['r'] = 1;
  62   is_idstart['s'] = 1; is_idstart['t'] = 1; is_idstart['u'] = 1;
  63   is_idstart['v'] = 1; is_idstart['w'] = 1; is_idstart['x'] = 1;
  64   is_idstart['y'] = 1; is_idstart['z'] = 1;
  65
  66   is_idstart['A'] = 1; is_idstart['B'] = 1; is_idstart['C'] = 1;
  67   is_idstart['D'] = 1; is_idstart['E'] = 1; is_idstart['F'] = 1;
  68   is_idstart['G'] = 1; is_idstart['H'] = 1; is_idstart['I'] = 1;
  69   is_idstart['J'] = 1; is_idstart['K'] = 1; is_idstart['L'] = 1;
  70   is_idstart['M'] = 1; is_idstart['N'] = 1; is_idstart['O'] = 1;
  71   is_idstart['P'] = 1; is_idstart['Q'] = 1; is_idstart['R'] = 1;
  72   is_idstart['S'] = 1; is_idstart['T'] = 1; is_idstart['U'] = 1;
  73   is_idstart['V'] = 1; is_idstart['W'] = 1; is_idstart['X'] = 1;
  74   is_idstart['Y'] = 1; is_idstart['Z'] = 1;
  75
  76   is_idstart['_'] = 1;
  77
  78   is_idchar['a'] = 1; is_idchar['b'] = 1; is_idchar['c'] = 1;
  79   is_idchar['d'] = 1; is_idchar['e'] = 1; is_idchar['f'] = 1;
  80   is_idchar['g'] = 1; is_idchar['h'] = 1; is_idchar['i'] = 1;
  81   is_idchar['j'] = 1; is_idchar['k'] = 1; is_idchar['l'] = 1;
  82   is_idchar['m'] = 1; is_idchar['n'] = 1; is_idchar['o'] = 1;
  83   is_idchar['p'] = 1;  is_idchar['q'] = 1; is_idchar['r'] = 1;
  84   is_idchar['s'] = 1; is_idchar['t'] = 1;  is_idchar['u'] = 1;
  85   is_idchar['v'] = 1; is_idchar['w'] = 1; is_idchar['x'] = 1;
  86   is_idchar['y'] = 1; is_idchar['z'] = 1;
  87
  88   is_idchar['A'] = 1; is_idchar['B'] = 1; is_idchar['C'] = 1;
  89   is_idchar['D'] = 1; is_idchar['E'] = 1; is_idchar['F'] = 1;
  90   is_idchar['G'] = 1; is_idchar['H'] = 1; is_idchar['I'] = 1;
  91   is_idchar['J'] = 1; is_idchar['K'] = 1; is_idchar['L'] = 1;
  92   is_idchar['M'] = 1; is_idchar['N'] = 1; is_idchar['O'] = 1;
  93   is_idchar['P'] = 1; is_idchar['Q'] = 1; is_idchar['R'] = 1;
  94   is_idchar['S'] = 1; is_idchar['T'] = 1;  is_idchar['U'] = 1;
  95   is_idchar['V'] = 1; is_idchar['W'] = 1; is_idchar['X'] = 1;
  96   is_idchar['Y'] = 1; is_idchar['Z'] = 1;
  97
  98   is_idchar['1'] = 1; is_idchar['2'] = 1; is_idchar['3'] = 1;
  99   is_idchar['4'] = 1; is_idchar['5'] = 1; is_idchar['6'] = 1;
 100   is_idchar['7'] = 1; is_idchar['8'] = 1; is_idchar['9'] = 1;
 101   is_idchar['0'] = 1;
 102
 103   is_idchar['_']  = 1;
 104
 105   /* These will be reset later if -$ is in effect. */
 106   is_idchar['$']  = dollar_in_ident;
 107   is_idstart['$'] = dollar_in_ident;
 108
 109   /* horizontal space table */
 110   is_hor_space[' '] = 1;
 111   is_hor_space['\t'] = 1;
 112   is_hor_space['\v'] = 1;
 113   is_hor_space['\f'] = 1;
 114   is_hor_space['\r'] = 1;
 115
 116   is_space[' '] = 1;
 117   is_space['\t'] = 1;
 118   is_space['\v'] = 1;
 119   is_space['\f'] = 1;
 120   is_space['\n'] = 1;
 121   is_space['\r'] = 1;
 122
 123   /* trigraph conversion */
 124   trigraph_table['='] = '#';  trigraph_table[')'] = ']';
 125   trigraph_table['!'] = '|';  trigraph_table['('] = '[';
 126   trigraph_table['\''] = '^'; trigraph_table['>'] = '}';
 127   trigraph_table['/'] = '\\'; trigraph_table['<'] = '{';
 128   trigraph_table['-'] = '~';
 129 }