void FunctionParamList(YSParseNode FunctionParamListNode, ref FunctionFrame Frame)
{
Debug("Reading param list..");
Current = FunctionParamListNode;
if (FunctionParamListNode.Children.Count > 0)
{
int FPC = 0;
while (FPC < FunctionParamListNode.Children.Count)
{
FunctionParamater fp = new FunctionParamater();
//fp.Type = STATE.TranslateTokenTypeToIdentityType (FunctionParamListNode.Children [FPC++].Token.Type);
List <int> Dimens;
DataType(FunctionParamListNode.Children [FPC++], out fp.Type, out Dimens);
fp.TypeDimensions = (Dimens != null) ? Dimens.ToArray() : null;
//Debug ("Type " + fp.Type + " Token " + FunctionParamListNode.Children [FPC].Token.Type);
fp.Name = FunctionParamListNode.Children [FPC++].Token.Content;
Frame.Parameters.Add(fp);
}
}
Debug("Read param list...");
}
void FunctionParamList(YSParseNode FunctionParamListNode, ref FunctionFrame Frame)
{
Debug ("Reading param list..");
Current = FunctionParamListNode;
if (FunctionParamListNode.Children.Count > 0) {
int FPC = 0;
while (FPC < FunctionParamListNode.Children.Count) {
FunctionParamater fp = new FunctionParamater ();
//fp.Type = STATE.TranslateTokenTypeToIdentityType (FunctionParamListNode.Children [FPC++].Token.Type);
List<int> Dimens;
DataType (FunctionParamListNode.Children [FPC++], out fp.Type, out Dimens);
fp.TypeDimensions = (Dimens != null) ? Dimens.ToArray () : null;
//Debug ("Type " + fp.Type + " Token " + FunctionParamListNode.Children [FPC].Token.Type);
fp.Name = FunctionParamListNode.Children [FPC++].Token.Content;
Frame.Parameters.Add (fp);
}
}
Debug ("Read param list...");
}
