public AssignmentSegment(int startIndex, int stopIndex, ColumnSegment column, IExpressionSegment value)
{
_startIndex = startIndex;
_stopIndex = stopIndex;
_column = column;
_value = value;
}
public override IASTNode VisitAssignment(MySqlCommandParser.AssignmentContext ctx)
{
ColumnSegment column = (ColumnSegment)VisitColumnName(ctx.columnName());
IExpressionSegment value = (IExpressionSegment)Visit(ctx.assignmentValue());
return(new AssignmentSegment(ctx.Start.StartIndex, ctx.Stop.StopIndex, column, value));
}
private PredicateSegment CreateBetweenSegment(SqlServerCommandParser.PredicateContext context)
{
ColumnSegment column = (ColumnSegment)Visit(context.bitExpr(0));
IExpressionSegment between = (IExpressionSegment)Visit(context.bitExpr(1));
IExpressionSegment and = (IExpressionSegment)Visit(context.predicate());
return(new PredicateSegment(context.Start.StartIndex, context.Stop.StopIndex, column, new PredicateBetweenRightValue(between, and)));
}
private IComparable GetValue(IExpressionSegment expressionSegment, ParameterContext parameterContext)
{
if (expressionSegment is ParameterMarkerExpressionSegment parameterMarkerExpressionSegment)
{
return(GetValue(parameterMarkerExpressionSegment, parameterContext));
}
if (expressionSegment is LiteralExpressionSegment literalExpressionSegment)
{
return(GetValue(literalExpressionSegment));
}
return(null);
}
private RowNumberValueSegment CreateRowNumberValueSegment(IExpressionSegment expression, bool boundOpened)
{
int startIndex = expression.GetStartIndex();
int stopIndex = expression.GetStopIndex();
if (expression is LiteralExpressionSegment literalExpressionSegment)
{
return(new NumberLiteralRowNumberValueSegment(startIndex, stopIndex,
(int)((LiteralExpressionSegment)expression).GetLiterals(), boundOpened));
}
var parameterMarkerExpression = ((ParameterMarkerExpressionSegment)expression);
return(new ParameterMarkerRowNumberValueSegment(startIndex, stopIndex, parameterMarkerExpression.GetParameterMarkerIndex(), parameterMarkerExpression.GetParameterName(), boundOpened));
}
private IPaginationValueSegment CreateOffsetWithRowNumber(PredicateSegment predicateSegment)
{
IExpressionSegment expression = ((PredicateCompareRightValue)predicateSegment.GetPredicateRightValue()).GetExpression();
switch (((PredicateCompareRightValue)predicateSegment.GetPredicateRightValue()).GetOperator())
{
case ">":
return(CreateRowNumberValueSegment(expression, false));
case ">=":
return(CreateRowNumberValueSegment(expression, true));
default:
return(null);
}
}
private object GetPredicateCompareShardingValue(IExpressionSegment segment, ParameterContext parameterContext)
{
// int shardingValueParameterMarkerIndex;
if (segment is ParameterMarkerExpressionSegment parameterMarkerExpressionSegment)
{
// shardingValueParameterMarkerIndex = parameterMarkerExpressionSegment.GetParameterMarkerIndex();
// if (-1 == shardingValueParameterMarkerIndex || shardingValueParameterMarkerIndex > parameters.Count - 1)
// {
// return null;
// }
return(parameterContext.GetParameterValue(parameterMarkerExpressionSegment.GetParameterName()));
}
if (segment is LiteralExpressionSegment literalExpressionSegment)
{
return(literalExpressionSegment.GetLiterals());
}
return(null);
}
public ConditionValue(IExpressionSegment expressionSegment, ParameterContext parameterContext)
{
_value = GetValue(expressionSegment, parameterContext);
}
public PredicateCompareRightValue(string @operator, IExpressionSegment expression)
{
_operator = @operator;
_expression = expression;
}
/**
* Get value.
*
* @param index index
* @return value
*/
public object GetValue(int index)
{
IExpressionSegment valueExpression = _valueExpressions[index];
return(valueExpression is ParameterMarkerExpressionSegment parameterMarkerExpression?_parameterContext.GetParameterValue(parameterMarkerExpression.GetParameterName()) : ((LiteralExpressionSegment)valueExpression).GetLiterals());
}
public PredicateBetweenRightValue(IExpressionSegment betweenExpression, IExpressionSegment andExpression)
{
BetweenExpression = betweenExpression;
AndExpression = andExpression;
}
/**
* Judge null expression.
* @param segment ExpressionSegment
* @return true or false
*/
public static bool IsNullExpression(IExpressionSegment segment)
{
return(segment is CommonExpressionSegment commonExpressionSegment && "null".EqualsIgnoreCase(commonExpressionSegment.GetText()));
}
/**
* Judge now() expression.
* @param segment ExpressionSegment
* @return true or false
*/
public static bool IsNowExpression(IExpressionSegment segment)
{
return(segment is IComplexExpressionSegment complexExpressionSegment && "now()".EqualsIgnoreCase(complexExpressionSegment.GetText()));
}
private ValueSettingStatementAssigmentFormatDetails GetAssignmentFormatDetails(ValueSettingStatement valueSettingStatement, ScopeAccessInformation scopeAccessInformation)
{
if (valueSettingStatement == null)
{
throw new ArgumentNullException("valueSettingStatement");
}
if (scopeAccessInformation == null)
{
throw new ArgumentNullException("scopeAccessInformation");
}
// The ValueToSet content should be reducable to a single expression segment; a CallExpression or a CallSetExpression
// 2014-04-03 DWR: Used to pass valueSettingStatement.ValueToSet.BracketStandardisedTokens here but there is no opportunity for "optional"
// brackets in VBScript for the target of an assignment statement so the BracketStandardisedTokens added nothing here but complexity and
// so has been removed.
var directedWithReferenceTokenIfAny = (scopeAccessInformation.DirectedWithReferenceIfAny == null) ? null : scopeAccessInformation.DirectedWithReferenceIfAny.AsToken();
var targetExpression = ExpressionGenerator.Generate(valueSettingStatement.ValueToSet.Tokens, directedWithReferenceTokenIfAny, _logger.Warning).ToArray();
if (targetExpression.Length != 1)
{
throw new ArgumentException("The ValueToSet should always be described by a single expression");
}
var targetExpressionSegments = targetExpression[0].Segments.ToArray();
if (targetExpressionSegments.Length != 1)
{
throw new ArgumentException("The ValueToSet should always be described by a single expression containing a single segment");
}
// If there is only a single CallExpressionSegment with a single token then that token must be a NameToken otherwise the statement would be
// trying to assign a value to a constant or keyword or something inappropriate. If it IS a NameToken, then this is the easiest case - it's
// a simple assignment, no SET method call required.
var expressionSegment = targetExpressionSegments[0];
var callExpressionSegment = expressionSegment as CallExpressionSegment;
if ((callExpressionSegment != null) && (callExpressionSegment.MemberAccessTokens.Take(2).Count() < 2) && !callExpressionSegment.Arguments.Any())
{
var singleTokenAsName = callExpressionSegment.MemberAccessTokens.Single() as NameToken;
if (singleTokenAsName == null)
{
throw new ArgumentException("Where a ValueSettingStatement's ValueToSet expression is a single expression with a single CallExpressionSegment with one token, that token must be a NameToken");
}
// If this single token is the function name (if we're in a function or property) then we need to make the ParentReturnValueNameIfAny
// replacement so that the return value reference is updated.
var rewrittenFirstMemberAccessor = _nameRewriter.GetMemberAccessTokenName(singleTokenAsName);
var isSingleTokenSettingParentScopeReturnValue = (
(scopeAccessInformation.ParentReturnValueNameIfAny != null) &&
rewrittenFirstMemberAccessor == _nameRewriter.GetMemberAccessTokenName(scopeAccessInformation.ScopeDefiningParent.Name)
);
// Now we need to confirm that the target token is a variable (either an explicitly-declared variable or an implicitly-declared variable
// or an external dependency or the return value for the containing function, where applicable). If it's not a variable of one of these
// types then a runtime exception will need to be thrown, and so this "short cut" simple assignment route may not be followed.
var targetReferenceDetailsIfAvailable = scopeAccessInformation.TryToGetDeclaredReferenceDetails(singleTokenAsName, _nameRewriter);
var targetIsVariable =
(targetReferenceDetailsIfAvailable == null) ||
(targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.ExternalDependency) ||
(targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Variable) ||
((targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Function) && isSingleTokenSettingParentScopeReturnValue) ||
((targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Property) && isSingleTokenSettingParentScopeReturnValue);
if (targetIsVariable)
{
// If callExpressionSegment.ZeroArgumentBracketsPresence == Present then, in most cases, we'll need to throw a runtime "Type mismatch"
// exception rather than make the replacement (in order to be consistent with VBScript's runtime behaviour) - this applies to functions
// (can't see those), variables (whether declared or not; it's not valid to try to access them with brackets when there are no arguments),
// constants (can never set those). Properties ARE allowed to be set in this manner.
bool invalidZeroArgumentBracketsArePresent;
if (callExpressionSegment.ZeroArgumentBracketsPresence != CallSetItemExpressionSegment.ArgumentBracketPresenceOptions.Present)
{
invalidZeroArgumentBracketsArePresent = false;
}
else if ((targetReferenceDetailsIfAvailable != null) && (targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Property))
{
invalidZeroArgumentBracketsArePresent = false;
}
else
{
invalidZeroArgumentBracketsArePresent = true;
}
if (!invalidZeroArgumentBracketsArePresent)
{
// If the "targetAccessor" is an undeclared variable then it must be accessed through the envRefName (this is a reference that should
// be passed into the containing class' constructor since C# doesn't support the concept of abritrary unintialised references)
var targetContainerIfRequired = scopeAccessInformation.GetNameOfTargetContainerIfAnyRequired(singleTokenAsName, _envRefName, _outerRefName, _nameRewriter);
if (targetContainerIfRequired != null)
{
rewrittenFirstMemberAccessor = targetContainerIfRequired.Name + "." + rewrittenFirstMemberAccessor;
}
return(new ValueSettingStatementAssigmentFormatDetails(
translatedExpression => string.Format(
"{0} = {1}",
isSingleTokenSettingParentScopeReturnValue
? scopeAccessInformation.ParentReturnValueNameIfAny.Name
: rewrittenFirstMemberAccessor,
translatedExpression
),
new NonNullImmutableList <NameToken>(new[] { singleTokenAsName })
));
}
}
// This is a particularly fun special case to check for - if within a LET or SET property and there is a value-setting statement where the left-hand
// side is solely the name of the property then.. ignore it. Ignore the set-target, at least, the right-hand side of the statement should be evaluated
// and an error raised if it does not meet the LET / SET semantics (if it is not evaluated as an object reference when the statement specified SET, for
// example). But the left-hand side can not be used as a return value as LET / SET property functions do not return anything and VBScript decides not
// to interpret it as a recursive call to the property LET / SET itself. Note that this is unlike if the left-hand side is the property name with
// brackets, that WILL be interpreted as a recursive call - eg.
//
// PROPERTY LET Name(ByVal value)
// Name = value ' Does basically nothing, throws an error if value is not a value type, but that's it
// Name() = value ' This creates an infinite loop
// END PROPERTY
//
// We only need to check for the no-bracket special case, the with-brackets special case will be handled by not early-exiting here and lettting the
// normal processing continue.
if ((targetReferenceDetailsIfAvailable != null) &&
(targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Property) &&
(rewrittenFirstMemberAccessor == _nameRewriter.GetMemberAccessTokenName(scopeAccessInformation.ScopeDefiningParent.Name)) &&
(scopeAccessInformation.ParentReturnValueNameIfAny == null) && // ParentReturnValueNameIfAny being null means this is a LET / SET property (not a GET)
(callExpressionSegment.ZeroArgumentBracketsPresence != CallSetItemExpressionSegment.ArgumentBracketPresenceOptions.Present))
{
// We need to wrap in either VAL or OBJ depending upon whether the value-setting statement specified SET or not. The "translatedExpression" content
// should already have an OBJ wrapper if the value-setting statement specifies SET but we need to be sure. We don't want redundant OBJ wrapping,
// though, so a simple StartsWith check is performed.
string wrapperFunction;
if (valueSettingStatement.ValueSetType == ValueSettingStatement.ValueSetTypeOptions.Let)
{
wrapperFunction = _supportRefName.Name + ".VAL";
}
else
{
wrapperFunction = _supportRefName.Name + ".OBJ";
}
return(new ValueSettingStatementAssigmentFormatDetails(
translatedExpression =>
{
if (translatedExpression.StartsWith(wrapperFunction + "("))
{
return translatedExpression;
}
return wrapperFunction + "(" + translatedExpression + ")";
},
new NonNullImmutableList <NameToken>()
));
}
}
// If this is a more complicated case then the single assignment case covered above then we need to break it down into a target reference,
// an optional single member accessor and zero or more arguments. For example -
//
// "a(0)" -> "a", null, [0]
// "a.Role(0)" -> "a", "Role", [0]
// "a.b.Role(0)" -> "a.b", "Role", [0]
// "a(0).Name" -> "a(0)", "Name", []
// "c.r.Fields(0).Value" -> "c.r.Fields(0)", "Value", []
//
// This allows the StatementTranslator to handle reference access until the last moment, providing the logic to access the "target". Then
// there is much less to do when determining how to set the value on the target. The case where there are arguments is the only time that
// defaults need to be considered (eg. "a(0)" could be an array access if "a" is an array or it could be a default property access if "a"
// has a default indexed property).
//
// 2014-07-03 DWR: The above examples all assume that "a" is an arrays or an objects with settable properties (with a default settable
// property in the first case) but VBScript will also allow "a(0) = 1" to compile if "a" is a function. It will fail at run time but, in
// the interests of compability, these statements need to be translated into C# statements that compile but fail at run time. If the above
// logic was applied to a function then "a(0) = 1" would become "_.SET(1, a, null, _.ARGS.Val(0))" which will not compile as the "a"
// reference is a function. It needs to be translated into "_.SET(1, _outer, "a", _.ARGS.Val(0))" instead. This is handled with a special
// case below (it is only in the "callExpressionSegments.Count == 1" condition).
// Get a set of CallExpressionSegments..
List <CallSetItemExpressionSegment> callExpressionSegments;
if (callExpressionSegment != null)
{
callExpressionSegments = new List <CallSetItemExpressionSegment> {
callExpressionSegment
}
}
;
else
{
var callSetExpressionSegment = expressionSegment as CallSetExpressionSegment;
if (callSetExpressionSegment == null)
{
throw new ArgumentException("The ValueToSet should always be described by a single expression containing a single segment, of type CallExpressionSegment or CallSetExpressionSegment");
}
callExpressionSegments = callSetExpressionSegment.CallExpressionSegments.ToList();
}
// If the last CallExpressionSegment has more than two member accessor then it needs breaking up since we need a target, at most a single
// member accessor against that target and arguments. So if there are more than two member accessors in the last segments then we want to
// split it so that all but one are in one segment (with no arguments) and then the last one (to go WITH the arguments) in the last entry.
var numberOfMemberAccessTokensInLastCallExpressionSegment = callExpressionSegments.Last().MemberAccessTokens.Count();
if (numberOfMemberAccessTokensInLastCallExpressionSegment > 2)
{
var lastCallExpressionSegments = callExpressionSegments.Last();
callExpressionSegments.RemoveAt(callExpressionSegments.Count - 1);
callExpressionSegments.Add(
new CallExpressionSegment(
lastCallExpressionSegments.MemberAccessTokens.Take(numberOfMemberAccessTokensInLastCallExpressionSegment - 1),
new VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression[0],
CallExpressionSegment.ArgumentBracketPresenceOptions.Absent // Can't be any brackets as we're splitting a CallExpressionSegment in two
)
);
callExpressionSegments.Add(
new CallExpressionSegment(
new[] { lastCallExpressionSegments.MemberAccessTokens.Last() },
lastCallExpressionSegments.Arguments,
lastCallExpressionSegments.ZeroArgumentBracketsPresence
)
);
}
// Now we either have a single segment in the set that has no more than two member accessors (lending itself to easy extraction of a
// target and optional member accessor) or we have multiple segments where all but the last one define the target and the last entry
// has the optional member accessor and any arguments.
string targetAccessorName;
string optionalMemberAccessor;
IEnumerable <VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression> arguments;
if (callExpressionSegments.Count == 1)
{
// The single CallExpressionSegment may have one or two member accessors
var targetAccessor = callExpressionSegments[0].MemberAccessTokens.First();
targetAccessorName = _nameRewriter.GetMemberAccessTokenName(targetAccessor);
if (callExpressionSegments[0].MemberAccessTokens.Count() == 1)
{
optionalMemberAccessor = null;
}
else
{
optionalMemberAccessor = callExpressionSegments[0].MemberAccessTokens.Skip(1).Single().Content;
}
arguments = callExpressionSegments[0].Arguments;
var targetAccessorNameToken = targetAccessor as NameToken;
var targetReferenceDetailsIfAvailable = (targetAccessorNameToken == null) ? null : scopeAccessInformation.TryToGetDeclaredReferenceDetails(targetAccessorNameToken, _nameRewriter);
if (targetReferenceDetailsIfAvailable == null)
{
if (callExpressionSegment.ZeroArgumentBracketsPresence == CallSetItemExpressionSegment.ArgumentBracketPresenceOptions.Present)
{
// If an undeclared variable is accessed like a function - eg. "a() = 1" - then it's a type mismatch
targetAccessorName = TranslateIntoErrorRaise("TypeMismatchException", targetAccessor);
}
else if (scopeAccessInformation.ScopeDefiningParent.Scope != ScopeLocationOptions.WithinFunctionOrPropertyOrWith)
{
// If an undeclared variable is accessed within a function (or property) then it is treated as if it was declared to be restricted
// to the current scope, so the targetAccessor does not require a prefix in this case (this means that the UndeclaredVariables data
// returned from this process should be translated into locally-scoped DIM statements at the top of the function / property).
targetAccessorName = _envRefName.Name + "." + targetAccessorName;
}
}
else
{
// If anything other than a property is accessed like a function - eg. "a() = 1" then it's a type mismatch. This includes functions since
// what we're considering is the target of a value-setting statement and it's not valid to try to set a function to something! (Settable)
// properties are an exception, they are a weird hybrid of a function and a settable reference and VBScript allows them - "p() = 1" is
// acceptable within a class where "p" is a settable property.
bool invalidZeroArgumentBracketsArePresent;
if (callExpressionSegment.ZeroArgumentBracketsPresence != CallSetItemExpressionSegment.ArgumentBracketPresenceOptions.Present)
{
invalidZeroArgumentBracketsArePresent = false;
}
else if (targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Property)
{
invalidZeroArgumentBracketsArePresent = false;
}
else
{
invalidZeroArgumentBracketsArePresent = true;
}
var isSingleTokenSettingParentScopeReturnValue = (
(scopeAccessInformation.ParentReturnValueNameIfAny != null) &&
targetAccessorName == _nameRewriter.GetMemberAccessTokenName(scopeAccessInformation.ScopeDefiningParent.Name)
);
if (invalidZeroArgumentBracketsArePresent)
{
targetAccessorName = TranslateIntoErrorRaise("TypeMismatchException", targetAccessor);
}
else if ((targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Constant) ||
((targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Function) && !isSingleTokenSettingParentScopeReturnValue))
{
// If the target is a constant or function then it's an illegal assignment error (note that the "type mismatch" zero-argument bracket
// error checked for above takes precedence, so "a() = 1" will result in a "Type mismatch" if "a" is a constant, while "a = 1" will
// result in an "Illegal assignment"). Note that in the case in which it is a function, this applies whether or not the current
// statement is within that function - obviously when outside it, trying to set a value to that function would be invalid but
// when INSIDE it, it's invalid too. If within a property getter, it is NOT invalid to use argument-less brackets (which is
// not very consistent).
targetAccessorName = TranslateIntoErrorRaise("IllegalAssignmentException", targetAccessor);
}
else
{
if (isSingleTokenSettingParentScopeReturnValue)
{
targetAccessorName = scopeAccessInformation.ParentReturnValueNameIfAny.Name;
}
else if (targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.ExternalDependency)
{
targetAccessorName = _envRefName.Name + "." + targetAccessorName;
}
else if (targetReferenceDetailsIfAvailable.ScopeLocation == ScopeLocationOptions.OutermostScope)
{
targetAccessorName = _outerRefName.Name + "." + targetAccessorName;
}
else if (targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Function)
{
// 2014-07-03 DWR: This is the special case talked about above - eg. "a(0) = 1" where "a" is a function. It can not be
// translated into "_.SET(1, a, null, _.ARGS.Val(0))" since the first argument of "SET" requires an obect and "a" is a
// function. Instead it must be translated into "_.SET(1, _outer, "a", _.ARGS.Val(0))". This is only a problem where
// there is a single "callExpressionSegments" entry since this is the only case where the first named target is extracted
// from its arguments - eg. "a(0).Name = 1" is represented by two callExpressionSegments ("a(0)" and ".Name") which will
// be translated into "_.SET(1, _.CALL(this, _outer, "a"), "Name", _.ARGS.Val(0))" and not require any special messing around.
var targetAccessCallExpressionSegments = new IExpressionSegment[]
{
new CallExpressionSegment(
callExpressionSegments.Single().MemberAccessTokens.Take(1),
new VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression[0],
CallSetItemExpressionSegment.ArgumentBracketPresenceOptions.Absent
)
};
targetAccessorName =
_statementTranslator.Translate(
new VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression(targetAccessCallExpressionSegments),
scopeAccessInformation,
ExpressionReturnTypeOptions.NotSpecified
).TranslatedContent;
}
else if (targetReferenceDetailsIfAvailable.ReferenceType == ReferenceTypeOptions.Property)
{
// If the target is a property then it must be on the current "this" reference (otherwise the "target" would have to be
// that other instance and the property name would be a member accessor against that target)
// - Note: Moving the target name down into being a member accessor means that we can revert to using the non-rewritten
// NameToken Content value (the targetAccessorName will have been through the nameRewriter, which is not necessary
// now that it will appear as a string in a SET call - and less name-rewriting in the output is better)
optionalMemberAccessor = targetAccessor.Content;
targetAccessorName = "this";
}
}
}
}
else
{
var targetAccessCallExpressionSegments = callExpressionSegments.Take(callExpressionSegments.Count() - 1);
var targetAccessExpressionSegments = (targetAccessCallExpressionSegments.Count() > 1)
? new IExpressionSegment[] { new CallSetExpressionSegment(targetAccessCallExpressionSegments) }
: new IExpressionSegment[] { targetAccessCallExpressionSegments.Single() };
targetAccessorName =
_statementTranslator.Translate(
new VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression(targetAccessExpressionSegments),
scopeAccessInformation,
ExpressionReturnTypeOptions.NotSpecified
).TranslatedContent;
// The last CallExpressionSegment may only have one member accessor
// - Note: it may have zero member accessors if the assignment target was of the form "a(0, 1)(2)"
var lastCallExpressionSegment = callExpressionSegments.Last();
optionalMemberAccessor = lastCallExpressionSegment.MemberAccessTokens.Any() ? lastCallExpressionSegment.MemberAccessTokens.Single().Content : null;
arguments = lastCallExpressionSegment.Arguments;
// Note: In this case, we don't have to apply any special logic to make "return value replacements" for assignment targets
// (when "F2 = 1" is setting the return value for the function "F2" that we're inside of, for example) since this will be
// handled by the statement translator. The cases above where there was only a single token or only a single call
// expression segment needed additional logic since they don't use the statement translator for the left hand
// side of the assignment expression.
}
// Regardless of how we've gone about trying to access the data in the callExpressionSegments data above, we now need to get a
// set of all variables that are accessed so that later on we can identify any undeclared variable access attempts
// - TODO: If manipulated segments to include function return value, it shouldn't affect the variablesAccessed retrieval but
// need to make a note explaining how/why
IEnumerable <NameToken> variablesAccessed;
if (!callExpressionSegments.Any())
{
variablesAccessed = new NameToken[0];
}
else
{
// We will have one or more CallSetItemExpressionSegment instances, the first of which will always have at least one
// Member Access Token since the segments were initially extracted from a CallExpressionSegment (which always has at
// least one) or from a CallSetExpressionSegment (whose first segment always has at least one). This means that we
// can always reform the segment(s) back into either CallExpressionSegment or CallSetExpressionSegment, which
// can then be passed to the statementTranslator to analyse for accessed variables.
IExpressionSegment expressionToAnalyseForVariablesAccessed;
if (callExpressionSegments.Count() == 1)
{
expressionToAnalyseForVariablesAccessed = new CallExpressionSegment(
callExpressionSegments.First().MemberAccessTokens,
callExpressionSegments.First().Arguments,
callExpressionSegments.First().ZeroArgumentBracketsPresence
);
}
else
{
expressionToAnalyseForVariablesAccessed = new CallSetExpressionSegment(callExpressionSegments);
}
variablesAccessed = _statementTranslator.Translate(
new VBScriptTranslator.StageTwoParser.ExpressionParsing.Expression(new[] { expressionToAnalyseForVariablesAccessed }),
scopeAccessInformation,
ExpressionReturnTypeOptions.NotSpecified
)
.VariablesAccessed;
}
// Note: The translatedExpression will already account for whether the statement is of type LET or SET. The valueToSetTo comes
// first in this method signature since it needs to be evaluated before the target or any arguments in case any errors occur -
// eg. in "a(b()) = c()", if "c()" raise an error then no effort to evaluate "b()" should be made.
// Recall that
string argumentsInitialisation;
if (arguments.Any())
{
var argumentsContent = _statementTranslator.TranslateAsArgumentProvider(arguments, scopeAccessInformation, forceAllArgumentsToBeByVal: false);
variablesAccessed = variablesAccessed.Concat(argumentsContent.VariablesAccessed);
argumentsInitialisation = argumentsContent.TranslatedContent;
}
else
{
argumentsInitialisation = "";
}
if ((argumentsInitialisation == "") && (optionalMemberAccessor == null))
{
// If there are are no member accessors and no arguments on the target then use the abbreviated SET method signature (this
// should only be the case where the assignment is invalid and a runtime exception is going to be raised, otherwise this
// could have been a simple assignment that didn't even need a SET call)
return(new ValueSettingStatementAssigmentFormatDetails(
translatedExpression => string.Format(
"{0}.SET({1}, this, {2})", // Pass "this" as the "context" argument
_supportRefName.Name,
translatedExpression,
targetAccessorName
),
variablesAccessed.ToNonNullImmutableList()
));
}
return(new ValueSettingStatementAssigmentFormatDetails(
translatedExpression => string.Format(
"{0}.SET({1}, this, {2}, {3}{4})", // Pass "this" as the "context" argument
_supportRefName.Name,
translatedExpression,
targetAccessorName,
(optionalMemberAccessor == null) ? "null" : optionalMemberAccessor.ToLiteral(),
(argumentsInitialisation == "") ? "" : (", " + argumentsInitialisation)
),
variablesAccessed.ToNonNullImmutableList()
));
}