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