|
' Licensed to the .NET Foundation under one or more agreements.
' The .NET Foundation licenses this file to you under the MIT license.
' See the LICENSE file in the project root for more information.
Imports System.Collections.Immutable
Imports System.Threading
Imports Microsoft.CodeAnalysis.Completion.Providers
Imports Microsoft.CodeAnalysis.VisualBasic.Extensions.ContextQuery
Imports Microsoft.CodeAnalysis.VisualBasic.Syntax
Namespace Microsoft.CodeAnalysis.VisualBasic.Completion.KeywordRecommenders.Queries
''' <summary>
''' Recommends the "Group" query operator.
''' </summary>
Friend Class GroupKeywordRecommender
Inherits AbstractKeywordRecommender
Protected Overrides Function RecommendKeywords(context As VisualBasicSyntaxContext, cancellationToken As CancellationToken) As ImmutableArray(Of RecommendedKeyword)
If context.IsQueryOperatorContext Then
Return ImmutableArray.Create(New RecommendedKeyword("Group", VBFeaturesResources.Groups_elements_that_have_a_common_key))
End If
Dim targetToken = context.TargetToken
' Group By ... Into |
' Group Join ... Into |
If targetToken.IsChildToken(Of GroupByClauseSyntax)(Function(g) g.IntoKeyword) OrElse
targetToken.IsChildToken(Of GroupJoinClauseSyntax)(Function(gj) gj.IntoKeyword) Then
Return ImmutableArray.Create(New RecommendedKeyword("Group", VBFeaturesResources.Use_Group_to_specify_that_a_group_named_Group_should_be_created))
End If
' Group By ... Into ... = |
' Group Join ... Into ... = |
If targetToken.IsChildToken(Of VariableNameEqualsSyntax)(Function(vne) vne.EqualsToken) Then
Dim variableNameEquals = targetToken.GetAncestor(Of VariableNameEqualsSyntax)()
If variableNameEquals.IsParentKind(SyntaxKind.AggregationRangeVariable) AndAlso
(variableNameEquals.Parent.IsParentKind(SyntaxKind.GroupByClause) OrElse
variableNameEquals.Parent.IsParentKind(SyntaxKind.GroupJoinClause)) Then
Return ImmutableArray.Create(New RecommendedKeyword("Group",
String.Format(VBFeaturesResources.Use_Group_to_specify_that_a_group_named_0_should_be_created,
variableNameEquals.Identifier.Identifier.ValueText)))
End If
End If
' Group By ... Into ... , |
' Group Join ... Into ... , |
If targetToken.IsChildSeparatorToken(Of GroupByClauseSyntax, AggregationRangeVariableSyntax)(Function(g) g.AggregationVariables) OrElse
targetToken.IsChildSeparatorToken(Of GroupByClauseSyntax, AggregationRangeVariableSyntax)(Function(g) g.AggregationVariables) Then
Return ImmutableArray.Create(New RecommendedKeyword("Group", VBFeaturesResources.Groups_elements_that_have_a_common_key))
End If
Return ImmutableArray(Of RecommendedKeyword).Empty
End Function
End Class
End Namespace
|