1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*b30d1939SAndy Fiddaman * Copyright (c) 1986-2011 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html *
11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * *
19da2e3ebdSchin ***********************************************************************/
20da2e3ebdSchin #pragma prototyped
21da2e3ebdSchin /*
22da2e3ebdSchin * Glenn Fowler
23da2e3ebdSchin * AT&T Research
24da2e3ebdSchin *
25da2e3ebdSchin * preprocessor context switch
26da2e3ebdSchin *
27da2e3ebdSchin * args op return
28da2e3ebdSchin * (0,0) free current context 0
29da2e3ebdSchin * (0,1) save current context current
30da2e3ebdSchin * (p,0) free context p 0
31da2e3ebdSchin * (p,1) make p current context previous
32da2e3ebdSchin */
33da2e3ebdSchin
34da2e3ebdSchin #include "pplib.h"
35da2e3ebdSchin
36da2e3ebdSchin void*
ppcontext(void * context,int flags)37da2e3ebdSchin ppcontext(void* context, int flags)
38da2e3ebdSchin {
39da2e3ebdSchin struct ppcontext* np = (struct ppcontext*)context;
40da2e3ebdSchin struct ppcontext* op;
41da2e3ebdSchin
42da2e3ebdSchin if (flags & 01)
43da2e3ebdSchin {
44da2e3ebdSchin if (!(op = pp.context)) op = pp.context = newof(0, struct ppcontext, 1, 0);
45da2e3ebdSchin memcpy(op, _PP_CONTEXT_BASE_, sizeof(struct ppcontext));
46da2e3ebdSchin }
47da2e3ebdSchin else
48da2e3ebdSchin {
49da2e3ebdSchin if (!(op = np)) op = (struct ppcontext*)_PP_CONTEXT_BASE_;
50da2e3ebdSchin if (op->filtab) hashfree(op->filtab);
51da2e3ebdSchin if (op->prdtab) hashfree(op->prdtab);
52da2e3ebdSchin if (op->symtab) hashfree(op->symtab);
53da2e3ebdSchin if (op->date) free(op->date);
54da2e3ebdSchin if (op->time) free(op->time);
55da2e3ebdSchin if (np)
56da2e3ebdSchin {
57da2e3ebdSchin free(np);
58da2e3ebdSchin np = 0;
59da2e3ebdSchin }
60da2e3ebdSchin memzero(op, sizeof(struct ppcontext));
61da2e3ebdSchin op = 0;
62da2e3ebdSchin }
63da2e3ebdSchin if (np) memcpy(_PP_CONTEXT_BASE_, np, sizeof(struct ppcontext));
64da2e3ebdSchin return((void*)op);
65da2e3ebdSchin }
66