da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz* Copyright (c) 1986-2009 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Research
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * preprocessor context switch
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * args op return
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * (0,0) free current context 0
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * (0,1) save current context current
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * (p,0) free context p 0
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * (p,1) make p current context previous
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "pplib.h"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinvoid*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinppcontext(void* context, int flags)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ppcontext* np = (struct ppcontext*)context;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct ppcontext* op;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (flags & 01)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(op = pp.context)) op = pp.context = newof(0, struct ppcontext, 1, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memcpy(op, _PP_CONTEXT_BASE_, sizeof(struct ppcontext));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (!(op = np)) op = (struct ppcontext*)_PP_CONTEXT_BASE_;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op->filtab) hashfree(op->filtab);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op->prdtab) hashfree(op->prdtab);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op->symtab) hashfree(op->symtab);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op->date) free(op->date);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (op->time) free(op->time);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (np)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin free(np);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memzero(op, sizeof(struct ppcontext));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin op = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (np) memcpy(_PP_CONTEXT_BASE_, np, sizeof(struct ppcontext));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((void*)op);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}