vs-threading/src/Microsoft.VisualStudio.Threading.Analyzers.VisualBasic/VisualBasicUtils.cs at master · dotdevelop/vs-threading · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
// Copyright (c) Microsoft. All rights reserved.
// Licensed under the MIT license. See LICENSE file in the project root for full license information.

namespace Microsoft.VisualStudio.Threading.Analyzers
{
    using System.Linq;
    using System.Threading;
    using Microsoft.CodeAnalysis;
    using Microsoft.CodeAnalysis.Operations;
    using Microsoft.CodeAnalysis.VisualBasic.Syntax;

    internal sealed class VisualBasicUtils : LanguageUtils
    {
        public static readonly VisualBasicUtils Instance = new VisualBasicUtils();

        private VisualBasicUtils()
        {
        }

        internal override Location? GetLocationOfBaseTypeName(INamedTypeSymbol symbol, INamedTypeSymbol baseType, Compilation compilation, CancellationToken cancellationToken)
        {
            foreach (SyntaxReference? syntaxReference in symbol.DeclaringSyntaxReferences)
            {
                SyntaxNode? syntaxNode = syntaxReference.GetSyntax(cancellationToken);
                if (syntaxNode is InterfaceStatementSyntax { Parent: InterfaceBlockSyntax vbInterface })
                {
                    if (compilation.GetSemanticModel(vbInterface.SyntaxTree) is { } semanticModel)
                    {
                        foreach (InheritsStatementSyntax? inheritStatement in vbInterface.Inherits)
                        {
                            foreach (TypeSyntax? typeSyntax in inheritStatement.Types)
                            {
                                SymbolInfo baseTypeSymbolInfo = semanticModel.GetSymbolInfo(typeSyntax, cancellationToken);
                                if (Equals(baseTypeSymbolInfo.Symbol, baseType))
                                {
                                    return typeSyntax.GetLocation();
                                }
                            }
                        }
                    }
                }
                else if (syntaxNode is ClassStatementSyntax { Parent: ClassBlockSyntax vbClass })
                {
                    if (compilation.GetSemanticModel(vbClass.SyntaxTree) is { } semanticModel)
                    {
                        foreach (ImplementsStatementSyntax? implementStatement in vbClass.Implements)
                        {
                            foreach (TypeSyntax? typeSyntax in implementStatement.Types)
                            {
                                SymbolInfo baseTypeSymbolInfo = semanticModel.GetSymbolInfo(typeSyntax, cancellationToken);
                                if (Equals(baseTypeSymbolInfo.Symbol, baseType))
                                {
                                    return typeSyntax.GetLocation();
                                }
                            }
                        }
                    }
                }
                else if (syntaxNode is StructureStatementSyntax { Parent: StructureBlockSyntax vbStruct })
                {
                    if (compilation.GetSemanticModel(vbStruct.SyntaxTree) is { } semanticModel)
                    {
                        foreach (ImplementsStatementSyntax? implementStatement in vbStruct.Implements)
                        {
                            foreach (TypeSyntax? typeSyntax in implementStatement.Types)
                            {
                                SymbolInfo baseTypeSymbolInfo = semanticModel.GetSymbolInfo(typeSyntax, cancellationToken);
                                if (Equals(baseTypeSymbolInfo.Symbol, baseType))
                                {
                                    return typeSyntax.GetLocation();
                                }
                            }
                        }
                    }
                }
            }

            return symbol.DeclaringSyntaxReferences.FirstOrDefault()?.GetSyntax(cancellationToken)?.GetLocation();
        }

        internal override SyntaxNode IsolateMethodName(IInvocationOperation invocation)
        {
            return invocation.Syntax;
        }

        internal override SyntaxNode IsolateMethodName(IObjectCreationOperation objectCreation)
        {
            return objectCreation.Syntax;
        }

        internal override bool MethodReturnsNullableReferenceType(IMethodSymbol methodSymbol)
        {
            // VB.NET doesn't support nullable reference types
            return false;
        }
    }
}