1da2e3ebdSchin /*********************************************************************** 2da2e3ebdSchin * * 3da2e3ebdSchin * This software is part of the ast package * 4*7c2fbfb3SApril Chin * Copyright (c) 1986-2008 AT&T Intellectual Property * 5da2e3ebdSchin * and is licensed under the * 6da2e3ebdSchin * Common Public License, Version 1.0 * 7*7c2fbfb3SApril Chin * by AT&T Intellectual Property * 8da2e3ebdSchin * * 9da2e3ebdSchin * A copy of the License is available at * 10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt * 11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 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* 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