soltools/mkdepend/cppsetup.c

   1 /* $XConsortium: cppsetup.c,v 1.13 94/04/17 20:10:32 gildea Exp $ */
   2 /*
   3
   4 Copyright (c) 1993, 1994  X Consortium
   5
   6 Permission is hereby granted, free of charge, to any person obtaining a copy
   7 of this software and associated documentation files (the "Software"), to deal
   8 in the Software without restriction, including without limitation the rights
   9 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  10 copies of the Software, and to permit persons to whom the Software is
  11 furnished to do so, subject to the following conditions:
  12
  13 The above copyright notice and this permission notice shall be included in
  14 all copies or substantial portions of the Software.
  15
  16 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
  19 X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  20 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  21 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  22
  23 Except as contained in this notice, the name of the X Consortium shall not be
  24 used in advertising or otherwise to promote the sale, use or other dealings
  25 in this Software without prior written authorization from the X Consortium.
  26
  27 */
  28
  29 #include "def.h"
  30
  31 #ifdef  CPP
  32 /*
  33  * This file is strictly for the sake of cpy.y and yylex.c (if
  34  * you indeed have the source for cpp).
  35  */
  36 #define IB 1
  37 #define SB 2
  38 #define NB 4
  39 #define CB 8
  40 #define QB 16
  41 #define WB 32
  42 #define SALT '#'
  43 #if pdp11 | vax | ns16000 | mc68000 | ibm032
  44 #define COFF 128
  45 #else
  46 #define COFF 0
  47 #endif
  48 /*
  49  * These variables used by cpy.y and yylex.c
  50  */
  51 extern char     *outp, *inp, *newp, *pend;
  52 extern char     *ptrtab;
  53 extern char     fastab[];
  54 extern char     slotab[];
  55
  56 /*
  57  * cppsetup
  58  */
  59 struct filepointer      *currentfile;
  60 struct inclist          *currentinc;
  61
  62 cppsetup(line, filep, inc)
  63     register char       *line;
  64     register struct filepointer *filep;
  65     register struct inclist             *inc;
  66 {
  67     register char *p, savec;
  68     static boolean setupdone = FALSE;
  69     boolean     value;
  70
  71     if (!setupdone) {
  72         cpp_varsetup();
  73         setupdone = TRUE;
  74     }
  75
  76     currentfile = filep;
  77     currentinc = inc;
  78     inp = newp = line;
  79     for (p=newp; *p; p++)
  80         ;
  81
  82     /*
  83      * put a newline back on the end, and set up pend, etc.
  84      */
  85     *p++ = '\n';
  86     savec = *p;
  87     *p = '\0';
  88     pend = p;
  89
  90     ptrtab = slotab+COFF;
  91     *--inp = SALT;
  92     outp=inp;
  93     value = yyparse();
  94     *p = savec;
  95     return(value);
  96 }
  97
  98 pperror(tag, x0,x1,x2,x3,x4)
  99     int tag,x0,x1,x2,x3,x4;
 100 {
 101     warning("\"%s\", line %d: ", currentinc->i_file, currentfile->f_line);
 102     warning(x0,x1,x2,x3,x4);
 103 }
 104
 105
 106 yyerror(s)
 107     register char       *s;
 108 {
 109     fatalerr("Fatal error: %s\n", s);
 110 }
 111 #else /* not CPP */
 112
 113 #include "ifparser.h"
 114 struct _parse_data {
 115     struct filepointer *filep;
 116     struct inclist *inc;
 117     const char *line;
 118 };
 119
 120 static const char *
 121 _my_if_errors (ip, cp, expecting)
 122     IfParser *ip;
 123     const char *cp;
 124     const char *expecting;
 125 {
 126 #ifdef DEBUG_MKDEPEND
 127     struct _parse_data *pd = (struct _parse_data *) ip->data;
 128     int lineno = pd->filep->f_line;
 129     char *filename = pd->inc->i_file;
 130     char prefix[300];
 131     int prefixlen;
 132     int i;
 133
 134     sprintf (prefix, "\"%s\":%d", filename, lineno);
 135     prefixlen = strlen(prefix);
 136     fprintf (stderr, "%s:  %s", prefix, pd->line);
 137     i = cp - pd->line;
 138     if (i > 0 && pd->line[i-1] != '\n') {
 139     putc ('\n', stderr);
 140     }
 141     for (i += prefixlen + 3; i > 0; i--) {
 142     putc (' ', stderr);
 143     }
 144     fprintf (stderr, "^--- expecting %s\n", expecting);
 145 #endif /* DEBUG_MKDEPEND */
 146     return NULL;
 147 }
 148
 149
 150 #define MAXNAMELEN 256
 151
 152 char *
 153 _lookup_variable (ip, var, len)
 154     IfParser *ip;
 155     const char *var;
 156     int len;
 157 {
 158     char tmpbuf[MAXNAMELEN + 1];
 159     struct _parse_data *pd = (struct _parse_data *) ip->data;
 160
 161     if (len > MAXNAMELEN)
 162     return 0;
 163
 164     strncpy (tmpbuf, var, len);
 165     tmpbuf[len] = '\0';
 166     return isdefined(tmpbuf);
 167 }
 168
 169
 170 static int
 171 _my_eval_defined (ip, var, len)
 172     IfParser *ip;
 173     const char *var;
 174     int len;
 175 {
 176     if (_lookup_variable (ip, var, len))
 177     return 1;
 178     else
 179     return 0;
 180 }
 181
 182 #define isvarfirstletter(ccc) (isalpha(ccc) || (ccc) == '_')
 183
 184 static int
 185 _my_eval_variable (ip, var, len)
 186     IfParser *ip;
 187     const char *var;
 188     int len;
 189 {
 190     char *s;
 191
 192     s = _lookup_variable (ip, var, len);
 193     if (!s)
 194     return 0;
 195     do {
 196     var = s;
 197     if (!isvarfirstletter(*var))
 198         break;
 199     s = _lookup_variable (ip, var, strlen(var));
 200     } while (s);
 201
 202     return atoi(var);
 203 }
 204
 205
 206 int cppsetup(line, filep, inc)
 207     register char       *line;
 208     register struct filepointer *filep;
 209     register struct inclist             *inc;
 210 {
 211     IfParser ip;
 212     struct _parse_data pd;
 213     int val = 0;
 214
 215     pd.filep = filep;
 216     pd.inc = inc;
 217     pd.line = line;
 218     ip.funcs.handle_error = _my_if_errors;
 219     ip.funcs.eval_defined = _my_eval_defined;
 220     ip.funcs.eval_variable = _my_eval_variable;
 221     ip.data = (char *) &pd;
 222
 223     (void) ParseIfExpression (&ip, line, &val);
 224     if (val)
 225     return IF;
 226     else
 227     return IFFALSE;
 228 }
 229 #endif /* CPP */
 230