tools/cyrus-imapd-makedepend/cppsetup.c

/* $XConsortium: cppsetup.c,v 1.13 94/04/17 20:10:32 gildea Exp $ */

/*
 * Copyright (c) 1998-2003 Carnegie Mellon University.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. The name "Carnegie Mellon University" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For permission or any other legal
 *    details, please contact  
 *      Office of Technology Transfer
 *      Carnegie Mellon University
 *      5000 Forbes Avenue
 *      Pittsburgh, PA  15213-3890
 *      (412) 268-4387, fax: (412) 268-7395
 *      tech-transfer@andrew.cmu.edu
 *
 * 4. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by Computing Services
 *     at Carnegie Mellon University (http://www.cmu.edu/computing/)."
 *
 * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
 * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
 * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
 * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 */
/*

Copyright (c) 1993, 1994  X Consortium

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

Except as contained in this notice, the name of the X Consortium shall not be
used in advertising or otherwise to promote the sale, use or other dealings
in this Software without prior written authorization from the X Consortium.

*/

#include "def.h"

#ifdef  CPP
/*
 * This file is strictly for the sake of cpy.y and yylex.c (if
 * you indeed have the source for cpp).
 */
#define IB 1
#define SB 2
#define NB 4
#define CB 8
#define QB 16
#define WB 32
#define SALT '#'
#if pdp11 | vax | ns16000 | mc68000 | ibm032
#define COFF 128
#else
#define COFF 0
#endif
/*
 * These variables used by cpy.y and yylex.c
 */
extern char     *outp, *inp, *newp, *pend;
extern char     *ptrtab;
extern char     fastab[];
extern char     slotab[];

/*
 * cppsetup
 */
struct filepointer      *currentfile;
struct inclist          *currentinc;

cppsetup(line, filep, inc)
        register char   *line;
        register struct filepointer     *filep;
        register struct inclist         *inc;
{
        register char *p, savec;
        static boolean setupdone = FALSE;
        boolean value;

        if (!setupdone) {
                cpp_varsetup();
                setupdone = TRUE;
        }

        currentfile = filep;
        currentinc = inc;
        inp = newp = line;
        for (p=newp; *p; p++)
                ;

        /*
         * put a newline back on the end, and set up pend, etc.
         */
        *p++ = '\n';
        savec = *p;
        *p = '\0';
        pend = p;

        ptrtab = slotab+COFF;
        *--inp = SALT; 
        outp=inp; 
        value = yyparse();
        *p = savec;
        return(value);
}

struct symtab *lookup(symbol)
        char    *symbol;
{
        static struct symtab    undefined;
        struct symtab   *sp;

        sp = isdefined(symbol, currentinc, NULL);
        if (sp == NULL) {
                sp = &undefined;
                sp->s_value = NULL;
        }
        return (sp);
}

pperror(tag, x0,x1,x2,x3,x4)
        int     tag,x0,x1,x2,x3,x4;
{
        warning("\"%s\", line %d: ", currentinc->i_file, currentfile->f_line);
        warning(x0,x1,x2,x3,x4);
}


yyerror(s)
        register char   *s;
{
        fatalerr("Fatal error: %s\n", s);
}
#else /* not CPP */

#include "ifparser.h"
struct _parse_data {
    struct filepointer *filep;
    struct inclist *inc;
    const char *line;
};

static const char *
_my_if_errors (ip, cp, expecting)
    IfParser *ip;
    const char *cp;
    const char *expecting;
{
    struct _parse_data *pd = (struct _parse_data *) ip->data;
    int lineno = pd->filep->f_line;
    char *filename = pd->inc->i_file;
    char prefix[300];
    int prefixlen;
    int i;

    sprintf (prefix, "\"%s\":%d", filename, lineno);
    prefixlen = strlen(prefix);
    fprintf (stderr, "%s:  %s", prefix, pd->line);
    i = cp - pd->line;
    if (i > 0 && pd->line[i-1] != '\n') {
        putc ('\n', stderr);
    }
    for (i += prefixlen + 3; i > 0; i--) {
        putc (' ', stderr);
    }
    fprintf (stderr, "^--- expecting %s\n", expecting);
    return NULL;
}


#define MAXNAMELEN 256

static struct symtab *
_lookup_variable (ip, var, len)
    IfParser *ip;
    const char *var;
    int len;
{
    char tmpbuf[MAXNAMELEN + 1];
    struct _parse_data *pd = (struct _parse_data *) ip->data;

    if (len > MAXNAMELEN)
        return 0;

    strncpy (tmpbuf, var, len);
    tmpbuf[len] = '\0';
    return isdefined (tmpbuf, pd->inc, NULL);
}


static int
_my_eval_defined (ip, var, len)
    IfParser *ip;
    const char *var;
    int len;
{
    if (_lookup_variable (ip, var, len))
        return 1;
    else
        return 0;
}

#define isvarfirstletter(ccc) (isalpha(ccc) || (ccc) == '_')

static int
_my_eval_variable (ip, var, len)
    IfParser *ip;
    const char *var;
    int len;
{
    struct symtab *s;

    s = _lookup_variable (ip, var, len);
    if (!s)
        return 0;
    do {
        var = s->s_value;
        if (!isvarfirstletter(*var))
            break;
        s = _lookup_variable (ip, var, strlen(var));
    } while (s);

    return atoi(var);
}


cppsetup(line, filep, inc)
        register char   *line;
        register struct filepointer     *filep;
        register struct inclist         *inc;
{
    IfParser ip;
    struct _parse_data pd;
    int val = 0;

    pd.filep = filep;
    pd.inc = inc;
    pd.line = line;
    ip.funcs.handle_error = _my_if_errors;
    ip.funcs.eval_defined = _my_eval_defined;
    ip.funcs.eval_variable = _my_eval_variable;
    ip.data = (char *) &pd;

    (void) ParseIfExpression (&ip, line, &val);
    if (val)
        return IF;
    else
        return IFFALSE;
}
#endif /* CPP */

1	/* $XConsortium: cppsetup.c,v 1.13 94/04/17 20:10:32 gildea Exp $ */
2
3	/*
4	* Copyright (c) 1998-2003 Carnegie Mellon University. All rights reserved.
5	*
6	* Redistribution and use in source and binary forms, with or without
7	* modification, are permitted provided that the following conditions
8	* are met:
9	*
10	* 1. Redistributions of source code must retain the above copyright
11	* notice, this list of conditions and the following disclaimer.
12	*
13	* 2. Redistributions in binary form must reproduce the above copyright
14	* notice, this list of conditions and the following disclaimer in
15	* the documentation and/or other materials provided with the
16	* distribution.
17	*
18	* 3. The name "Carnegie Mellon University" must not be used to
19	* endorse or promote products derived from this software without
20	* prior written permission. For permission or any other legal
21	* details, please contact
22	* Office of Technology Transfer
23	* Carnegie Mellon University
24	* 5000 Forbes Avenue
25	* Pittsburgh, PA 15213-3890
26	* (412) 268-4387, fax: (412) 268-7395
27	* tech-transfer@andrew.cmu.edu
28	*
29	* 4. Redistributions of any form whatsoever must retain the following
30	* acknowledgment:
31	* "This product includes software developed by Computing Services
32	* at Carnegie Mellon University (http://www.cmu.edu/computing/)."
33	*
34	* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
35	* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
36	* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
37	* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
38	* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
39	* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
40	* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
41	*
42	*/
43	/*
44
45	Copyright (c) 1993, 1994 X Consortium
46
47	Permission is hereby granted, free of charge, to any person obtaining a copy
48	of this software and associated documentation files (the "Software"), to deal
49	in the Software without restriction, including without limitation the rights
50	to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
51	copies of the Software, and to permit persons to whom the Software is
52	furnished to do so, subject to the following conditions:
53
54	The above copyright notice and this permission notice shall be included in
55	all copies or substantial portions of the Software.
56
57	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
58	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
59	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
60	X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
61	AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
62	CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
63
64	Except as contained in this notice, the name of the X Consortium shall not be
65	used in advertising or otherwise to promote the sale, use or other dealings
66	in this Software without prior written authorization from the X Consortium.
67
68	*/
69
70	#include "def.h"
71
72	#ifdef CPP
73	/*
74	* This file is strictly for the sake of cpy.y and yylex.c (if
75	* you indeed have the source for cpp).
76	*/
77	#define IB 1
78	#define SB 2
79	#define NB 4
80	#define CB 8
81	#define QB 16
82	#define WB 32
83	#define SALT '#'
84	#if pdp11 \| vax \| ns16000 \| mc68000 \| ibm032
85	#define COFF 128
86	#else
87	#define COFF 0
88	#endif
89	/*
90	* These variables used by cpy.y and yylex.c
91	*/
92	extern char outp, inp, newp, pend;
93	extern char *ptrtab;
94	extern char fastab[];
95	extern char slotab[];
96
97	/*
98	* cppsetup
99	*/
100	struct filepointer *currentfile;
101	struct inclist *currentinc;
102
103	cppsetup(line, filep, inc)
104	register char *line;
105	register struct filepointer *filep;
106	register struct inclist *inc;
107	{
108	register char *p, savec;
109	static boolean setupdone = FALSE;
110	boolean value;
111
112	if (!setupdone) {
113	cpp_varsetup();
114	setupdone = TRUE;
115	}
116
117	currentfile = filep;
118	currentinc = inc;
119	inp = newp = line;
120	for (p=newp; *p; p++)
121	;
122
123	/*
124	* put a newline back on the end, and set up pend, etc.
125	*/
126	*p++ = '\n';
127	savec = *p;
128	*p = '\0';
129	pend = p;
130
131	ptrtab = slotab+COFF;
132	*--inp = SALT;
133	outp=inp;
134	value = yyparse();
135	*p = savec;
136	return(value);
137	}
138
139	struct symtab *lookup(symbol)
140	char *symbol;
141	{
142	static struct symtab undefined;
143	struct symtab *sp;
144
145	sp = isdefined(symbol, currentinc, NULL);
146	if (sp == NULL) {
147	sp = &undefined;
148	sp->s_value = NULL;
149	}
150	return (sp);
151	}
152
153	pperror(tag, x0,x1,x2,x3,x4)
154	int tag,x0,x1,x2,x3,x4;
155	{
156	warning("\"%s\", line %d: ", currentinc->i_file, currentfile->f_line);
157	warning(x0,x1,x2,x3,x4);
158	}
159
160
161	yyerror(s)
162	register char *s;
163	{
164	fatalerr("Fatal error: %s\n", s);
165	}
166	#else /* not CPP */
167
168	#include "ifparser.h"
169	struct _parse_data {
170	struct filepointer *filep;
171	struct inclist *inc;
172	const char *line;
173	};
174
175	static const char *
176	_my_if_errors (ip, cp, expecting)
177	IfParser *ip;
178	const char *cp;
179	const char *expecting;
180	{
181	struct _parse_data pd = (struct _parse_data ) ip->data;
182	int lineno = pd->filep->f_line;
183	char *filename = pd->inc->i_file;
184	char prefix[300];
185	int prefixlen;
186	int i;
187
188	sprintf (prefix, "\"%s\":%d", filename, lineno);
189	prefixlen = strlen(prefix);
190	fprintf (stderr, "%s: %s", prefix, pd->line);
191	i = cp - pd->line;
192	if (i > 0 && pd->line[i-1] != '\n') {
193	putc ('\n', stderr);
194	}
195	for (i += prefixlen + 3; i > 0; i--) {
196	putc (' ', stderr);
197	}
198	fprintf (stderr, "^--- expecting %s\n", expecting);
199	return NULL;
200	}
201
202
203	#define MAXNAMELEN 256
204
205	static struct symtab *
206	_lookup_variable (ip, var, len)
207	IfParser *ip;
208	const char *var;
209	int len;
210	{
211	char tmpbuf[MAXNAMELEN + 1];
212	struct _parse_data pd = (struct _parse_data ) ip->data;
213
214	if (len > MAXNAMELEN)
215	return 0;
216
217	strncpy (tmpbuf, var, len);
218	tmpbuf[len] = '\0';
219	return isdefined (tmpbuf, pd->inc, NULL);
220	}
221
222
223	static int
224	_my_eval_defined (ip, var, len)
225	IfParser *ip;
226	const char *var;
227	int len;
228	{
229	if (_lookup_variable (ip, var, len))
230	return 1;
231	else
232	return 0;
233	}
234
235	#define isvarfirstletter(ccc) (isalpha(ccc) \|\| (ccc) == '_')
236
237	static int
238	_my_eval_variable (ip, var, len)
239	IfParser *ip;
240	const char *var;
241	int len;
242	{
243	struct symtab *s;
244
245	s = _lookup_variable (ip, var, len);
246	if (!s)
247	return 0;
248	do {
249	var = s->s_value;
250	if (!isvarfirstletter(*var))
251	break;
252	s = _lookup_variable (ip, var, strlen(var));
253	} while (s);
254
255	return atoi(var);
256	}
257
258
259	cppsetup(line, filep, inc)
260	register char *line;
261	register struct filepointer *filep;
262	register struct inclist *inc;
263	{
264	IfParser ip;
265	struct _parse_data pd;
266	int val = 0;
267
268	pd.filep = filep;
269	pd.inc = inc;
270	pd.line = line;
271	ip.funcs.handle_error = _my_if_errors;
272	ip.funcs.eval_defined = _my_eval_defined;
273	ip.funcs.eval_variable = _my_eval_variable;
274	ip.data = (char *) &pd;
275
276	(void) ParseIfExpression (&ip, line, &val);
277	if (val)
278	return IF;
279	else
280	return IFFALSE;
281	}
282	#endif /* CPP */
283