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..."); }