//	Copyright (C) 1999-2003 Core Technologies.
//
//	This file is part of tpasm.
//
//	tpasm is free software; you can redistribute it and/or modify
//	it under the terms of the tpasm LICENSE AGREEMENT.
//
//	tpasm is distributed in the hope that it will be useful,
//	but WITHOUT ANY WARRANTY; without even the implied warranty of
//	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//	tpasm LICENSE AGREEMENT for more details.
//
//	You should have received a copy of the tpasm LICENSE AGREEMENT
//	along with tpasm; see the file "LICENSE.TXT".


// Handle assembly context management subroutines

#include	"include.h"

bool PushContextRecord(int contextBytes)
// Create a new context record, push it onto the stack
// If there was a problem, return false
{
	CONTEXT_RECORD
		*theRecord;

	if((theRecord=(CONTEXT_RECORD *)NewPtr(sizeof(CONTEXT_RECORD)+contextBytes)))
	{
		theRecord->contextType=0;
		theRecord->active=false;
		theRecord->whereFrom.theFile=currentVirtualFile;
		theRecord->whereFrom.fileLineNumber=currentVirtualFileLine;
		theRecord->next=contextStack;
		theRecord->theFlush=NULL;
		contextStack=theRecord;
		return(true);
	}
	return(false);
}

void PopContextRecord(void)
// Pull a context record off the stack and destroy it
// NOTE: if the stack is empty, do nothing
{
	CONTEXT_RECORD
		*tempRecord;

	if(contextStack)
	{
		tempRecord=contextStack->next;
		DisposePtr(contextStack);
		contextStack=tempRecord;
	}
}

void FlushContextRecords()
// Get rid of any lingering if context records, report errors
{
	while(contextStack)
	{
		if(contextStack->next&&contextStack->next->active)		// only report if this context is in an active context
		{
			switch(contextStack->contextType)
			{
				case CT_ROOT:
					break;
				case CT_IF:
					AssemblyComplaint(&contextStack->whereFrom,true,"Unterminated conditional\n");
					break;
				case CT_SWITCH:
					AssemblyComplaint(&contextStack->whereFrom,true,"Unterminated switch\n");
					break;
				case CT_MACRO:
					AssemblyComplaint(&contextStack->whereFrom,true,"Unterminated macro\n");
					break;
				case CT_REPEAT:
					AssemblyComplaint(&contextStack->whereFrom,true,"Unterminated repeat\n");
					break;
				default:
					AssemblyComplaint(&contextStack->whereFrom,true,"Unterminated context\n");
					break;
			}
		}
		if(contextStack->theFlush)
		{
			contextStack->theFlush(contextStack);				// flush this
		}
		PopContextRecord();
	}
}