107 lines
2.6 KiB
C
107 lines
2.6 KiB
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 "opcode.h"
|
|
#include "toktyp.h"
|
|
#include "advancewindow.h"
|
|
|
|
error_def (ERR_MAXACTARG);
|
|
error_def (ERR_NAMEEXPECTED);
|
|
error_def (ERR_COMMAORRPAREXP);
|
|
|
|
int actuallist (oprtype *opr)
|
|
{
|
|
int mask, parmcount;
|
|
oprtype ot;
|
|
triple *counttrip, *masktrip, *ref0, *ref1, *ref2;
|
|
DCL_THREADGBL_ACCESS;
|
|
|
|
SETUP_THREADGBL_ACCESS;
|
|
assert(TK_LPAREN == TREF(window_token));
|
|
advancewindow();
|
|
masktrip = newtriple(OC_PARAMETER);
|
|
mask = 0;
|
|
counttrip = newtriple(OC_PARAMETER);
|
|
masktrip->operand[1] = put_tref(counttrip);
|
|
ref0 = counttrip;
|
|
if (TK_RPAREN == TREF(window_token))
|
|
parmcount = 0;
|
|
else
|
|
{
|
|
for (parmcount = 1; ; parmcount++)
|
|
{
|
|
if (MAX_ACTUALS < parmcount)
|
|
{
|
|
stx_error (ERR_MAXACTARG);
|
|
return FALSE;
|
|
}
|
|
if (TK_PERIOD == TREF(window_token))
|
|
{
|
|
advancewindow ();
|
|
if (TK_IDENT == TREF(window_token))
|
|
{
|
|
ot = put_mvar(&(TREF(window_ident)));
|
|
mask |= (1 << parmcount - 1);
|
|
advancewindow();
|
|
} else if (TK_ATSIGN == TREF(window_token))
|
|
{
|
|
if (!indirection(&ot))
|
|
return FALSE;
|
|
ref2 = newtriple(OC_INDLVNAMADR);
|
|
ref2->operand[0] = ot;
|
|
ot = put_tref(ref2);
|
|
mask |= (1 << parmcount - 1);
|
|
} else
|
|
{
|
|
stx_error(ERR_NAMEEXPECTED);
|
|
return FALSE;
|
|
}
|
|
} else if (TK_COMMA == TREF(window_token))
|
|
{
|
|
ref2 = newtriple(OC_NULLEXP);
|
|
ot = put_tref(ref2);
|
|
} else if (EXPR_FAIL == expr(&ot, MUMPS_EXPR))
|
|
return FALSE;
|
|
ref1 = newtriple(OC_PARAMETER);
|
|
ref0->operand[1] = put_tref(ref1);
|
|
ref1->operand[0] = ot;
|
|
if (TK_COMMA == TREF(window_token))
|
|
{ advancewindow ();
|
|
if (TK_RPAREN == TREF(window_token))
|
|
{ ref0 = ref1;
|
|
ref2 = newtriple(OC_NULLEXP);
|
|
ot = put_tref(ref2);
|
|
ref1 = newtriple(OC_PARAMETER);
|
|
ref0->operand[1] = put_tref(ref1);
|
|
ref1->operand[0] = ot;
|
|
parmcount++;
|
|
break;
|
|
}
|
|
} else if (TREF(window_token) == TK_RPAREN)
|
|
break;
|
|
else
|
|
{
|
|
stx_error (ERR_COMMAORRPAREXP);
|
|
return FALSE;
|
|
}
|
|
ref0 = ref1;
|
|
}
|
|
}
|
|
advancewindow();
|
|
masktrip->operand[0] = put_ilit(mask);
|
|
counttrip->operand[0] = put_ilit(parmcount);
|
|
parmcount += 2;
|
|
*opr = put_tref(masktrip);
|
|
return parmcount;
|
|
}
|