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