fis-gtm/sr_port/line.c

/****************************************************************
 *								*
 *	Copyright 2001, 2011 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 "cmd_qlf.h"
#include "toktyp.h"
#include "opcode.h"
#include "mdq.h"
#include "mmemory.h"
#include "advancewindow.h"

GBLREF char			window_token;
GBLREF mident			window_ident;
GBLREF short int		source_line;
GBLREF triple			*curtchain;
GBLREF int			mlmax;
GBLREF mline			*mline_tail;
GBLREF short int		block_level;
GBLREF mlabel			*mlabtab;
GBLREF command_qualifier	cmd_qlf;

error_def(ERR_MULTLAB);
error_def(ERR_LSEXPECTED);
error_def(ERR_COMMAORRPAREXP);
error_def(ERR_MULTFORMPARM);
error_def(ERR_NAMEEXPECTED);
error_def(ERR_BLKTOODEEP);
error_def(ERR_NESTFORMP);

boolean_t line(uint4 *lnc)
{
	mlabel *x;
	triple *first_triple, *parmbase, *parmtail, *r;
	int parmcount, varnum;
	mline *curlin;
	short int dot_count;
	boolean_t success;
	DCL_THREADGBL_ACCESS;

	SETUP_THREADGBL_ACCESS;
	first_triple = curtchain->exorder.bl;
	parmbase = 0;
	dot_count = 0;
	success = TRUE;
	curlin = (mline *)mcalloc(SIZEOF(*curlin));
	curlin->line_number = 0;
	curlin->table = FALSE;
	TREF(last_source_column) = 0;
	if (TK_INTLIT == window_token)
		int_label();
	if ((TK_IDENT == window_token) || (cmd_qlf.qlf & CQ_LINE_ENTRY))
		start_fetches(OC_LINEFETCH);
	else
		newtriple(OC_LINESTART);
	curlin->line_number = *lnc;
	*lnc = *lnc + 1;
	curlin->table = TRUE;
	CHKTCHAIN(curtchain);
	TREF(pos_in_chain) = *curtchain;
	if (TK_IDENT == window_token)
	{
		x = get_mladdr(&window_ident);
		if (x->ml)
		{
			stx_error(ERR_MULTLAB);
			success = FALSE;
		} else
		{
			assert(NO_FORMALLIST == x->formalcnt);
			x->ml = curlin;
			advancewindow();
			if (window_token != TK_COLON)
				mlmax++;
			else
			{
				x->gbl = FALSE;
				advancewindow();
			}
		}
		if (success && (TK_LPAREN == window_token))
		{
			r = maketriple (OC_ISFORMAL);
			dqins(curtchain->exorder.bl->exorder.bl, exorder, r);
			advancewindow();
			parmbase = parmtail = newtriple(OC_BINDPARM);
			for (parmcount = 0 ; window_token != TK_RPAREN ; parmcount++)
			{
				if (TK_IDENT != window_token)
				{
					stx_error(ERR_NAMEEXPECTED);
					success = FALSE;
					break;
				} else
				{
					varnum = get_mvaddr(&window_ident)->mvidx;
					for (r = parmbase->operand[1].oprval.tref ; r ; r = r->operand[1].oprval.tref)
					{
						assert(TRIP_REF == r->operand[0].oprclass);
						assert(ILIT_REF == r->operand[0].oprval.tref->operand[0].oprclass);
						assert((TRIP_REF == r->operand[1].oprclass) || (0 == r->operand[1].oprclass));
						if (r->operand[0].oprval.tref->operand[0].oprval.ilit == varnum)
						{
							stx_error(ERR_MULTFORMPARM);
							success = FALSE;
							break;
						}
					}
					if (!success)
						break;
					r = newtriple(OC_PARAMETER);
					parmtail->operand[1] = put_tref(r);
					r->operand[0] = put_ilit(varnum);
					parmtail = r;
					advancewindow();
				}
				if (TK_COMMA == window_token)
					advancewindow();
				else if (TK_RPAREN != window_token)
				{
					stx_error(ERR_COMMAORRPAREXP);
					success = FALSE;
					break;
				}
			}
			if (success)
			{
				advancewindow();
				parmbase->operand[0] = put_ilit(parmcount);
				x->formalcnt = parmcount;
				assert(!mlabtab->lson);
				if (mlabtab->rson == x && !TREF(code_generated))
					mlabtab->formalcnt = parmcount;
			}
		}
	}
	if (success && (TK_EOL != window_token))
	{
		if (TK_SPACE != window_token)
		{
			stx_error(ERR_LSEXPECTED);
			success = FALSE;
		} else
		{
			assert(dot_count == 0);
			for (;;)
			{
				if (TK_SPACE == window_token)
					advancewindow();
				else if (TK_PERIOD == window_token)
				{
					dot_count++;
					advancewindow();
				} else
					break;
			}
		}
		if (block_level + 1 < dot_count)
		{
			dot_count = (block_level > 0 ? block_level : 0);
			stx_error(ERR_BLKTOODEEP);
			success = FALSE;
		}
	}
	if ((0 != parmbase) && (0 != dot_count))
	{
		stx_error(ERR_NESTFORMP);	/* Should be warning */
		success = FALSE;
		dot_count = (block_level > 0 ? block_level : 0);
	}
	if (dot_count >= block_level + 1)
	{
		mline_tail->child = curlin;
		curlin->parent = mline_tail;
		block_level = dot_count;
	} else
	{
		for ( ; dot_count < block_level; block_level--)
			mline_tail = mline_tail->parent;
		mline_tail->sibling = curlin;
		curlin->parent = mline_tail->parent;
	}
	mline_tail = curlin;
	if (success)
	{
		assert(TREF(for_stack_ptr) == TADR(for_stack));
		*(TREF(for_stack_ptr)) = NULL;
		success = linetail();
		if (success)
		{
			assert(TREF(for_stack_ptr) == TADR(for_stack));
			if (*(TREF(for_stack_ptr)))
				tnxtarg(*(TREF(for_stack_ptr)));
		}
	}
	assert(TREF(for_stack_ptr) == TADR(for_stack));
	if (first_triple->exorder.fl == curtchain)
		newtriple(OC_NOOP);			/* empty line (comment, blank, etc) */
	curlin->externalentry = first_triple->exorder.fl;
	/* first_triple points to the last triple before this line was processed.  Its forward
	   link will point to a LINEFETCH or a LINESTART, or possibly a NOOP.  It the line was a comment, there is
	   only a LINESTART, and hence no "real" code yet */
	TREF(code_generated) = TREF(code_generated) | (first_triple->exorder.fl->opcode != OC_NOOP &&
		first_triple->exorder.fl->exorder.fl != curtchain);
	return success;
}