fis-gtm/sr_port/m_kill.c

/****************************************************************
 *								*
 *	Copyright 2001, 2009 Fidelity Information Services, Inc	*
 *								*
 *	This source code contains the intellectual property	*
 *	of its copyright holder(s), and is made available	*
 *	under a license.  If you do not know the terms of	*
 *	the license, please stop and do not read further.	*
 *								*
 ****************************************************************/

#include "mdef.h"
#include "compiler.h"
#include "mdq.h"
#include "opcode.h"
#include "indir_enum.h"
#include "toktyp.h"
#include "advancewindow.h"
#include "cmd.h"

GBLREF char 	window_token;
GBLREF mident 	window_ident;
GBLREF char	director_token;

int m_kill(void)
{
	oprtype		tmparg;
	triple		*ref, *next, *org, *s;
	int		count;
	boolean_t	alias_processing;
	mvar		*mvarptr;

	error_def(ERR_RPARENMISSING);
	error_def(ERR_VAREXPECTED);
	error_def(ERR_ALIASEXPECTED);
	error_def(ERR_NOALIASLIST);

	if (alias_processing = (TK_ASTERISK == window_token))	/* Note assignment */
		advancewindow();

	switch (window_token)
	{
		case TK_IDENT:
			/* If doing alias processing, we need to pass the index of the var rather than its lv_val
			   but do the common case first. Note that a kill of an alias container is handled the same
			   as the kill of any other regular local variable.
			*/
			if (!alias_processing || TK_LPAREN == director_token)
			{
				if (!lvn(&tmparg,OC_SRCHINDX,0))
					return FALSE;
				ref = newtriple(OC_KILL);
				ref->operand[0] = tmparg;
			} else
			{	/* alias (unsubscripted var) kill */
				ref = newtriple(OC_KILLALIAS);
				mvarptr = get_mvaddr(&window_ident);
				ref->operand[0] = put_ilit(mvarptr->mvidx);
				advancewindow();
			}
			break;
		case TK_CIRCUMFLEX:
			if (alias_processing)
			{
				stx_error(ERR_ALIASEXPECTED);
				return FALSE;
			}
			if (!gvn())
				return FALSE;
			ref = newtriple(OC_GVKILL);
			break;
		case TK_ATSIGN:
			if (alias_processing)
			{
				stx_error(ERR_ALIASEXPECTED);
				return FALSE;
			}
			if (!indirection(&tmparg))
				return FALSE;
			ref = maketriple(OC_COMMARG);
			ref->operand[0] = tmparg;
			ref->operand[1] = put_ilit((mint)indir_kill);
			ins_triple(ref);
			return TRUE;
		case TK_EOL:
		case TK_SPACE:
			newtriple(alias_processing ? OC_KILLALIASALL : OC_KILLALL);
			break;
		case TK_LPAREN:
			if (alias_processing)
			{
				stx_error(ERR_NOALIASLIST);
				return FALSE;
			}
			ref = org = maketriple(OC_XKILL);
			count = 0;
			do
			{
				advancewindow();
				next = maketriple(OC_PARAMETER);
				ref->operand[1] = put_tref(next);
				switch (window_token)
				{
					case TK_IDENT:
						next->operand[0] = put_str(window_ident.addr, window_ident.len);
						advancewindow();
						break;
					case TK_ATSIGN:
						if (!indirection(&tmparg))
							return FALSE;
						s = newtriple(OC_INDLVARG);
						s->operand[0] = tmparg;
						next->operand[0] = put_tref(s);
						break;
					case TK_ASTERISK:
						stx_error(ERR_NOALIASLIST);
						return FALSE;
					default:
						stx_error(ERR_VAREXPECTED);
						return FALSE;
				}
				ins_triple(next);
				ref = next;
				count++;
			} while (TK_COMMA == window_token);
			if (TK_RPAREN != window_token)
			{
				stx_error(ERR_RPARENMISSING);
				return FALSE;
			}
			advancewindow();
			org->operand[0] = put_ilit((mint)count);
			ins_triple(org);
			return TRUE;
		default:
			stx_error(alias_processing ? ERR_ALIASEXPECTED : ERR_VAREXPECTED);
			return FALSE;
	}
	return TRUE;
}