' 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 Microsoft.CodeAnalysis.CodeGeneration
Imports Microsoft.CodeAnalysis.Editing
 
Namespace Microsoft.CodeAnalysis.VisualBasic.CodeGeneration
    Friend Class VisualBasicFlagsEnumGenerator
        Inherits AbstractFlagsEnumGenerator
 
        Public Shared ReadOnly Instance As VisualBasicFlagsEnumGenerator = New VisualBasicFlagsEnumGenerator
 
        Private Sub New()
        End Sub
 
        Protected Overrides Function CreateExplicitlyCastedLiteralValue(
                generator As SyntaxGenerator,
                enumType As INamedTypeSymbol,
                underlyingSpecialType As SpecialType,
                constantValue As Object) As SyntaxNode
            Dim expression = ExpressionGenerator.GenerateNonEnumValueExpression(
                enumType.EnumUnderlyingType, constantValue, canUseFieldReference:=True)
            Dim constantValueULong = underlyingSpecialType.ConvertUnderlyingValueToUInt64(constantValue)
            If constantValueULong = 0 Then
                Return expression
            End If
 
            Return generator.ConvertExpression(enumType, expression)
        End Function
 
        Protected Overrides Function IsValidName(enumType As INamedTypeSymbol, name As String) As Boolean
            If name = "_" Then
                Return False
            End If
 
            If Not SyntaxFacts.IsValidIdentifier(name) Then
                Return False
            End If
 
            Return enumType.GetMembers(name).Length = 1
        End Function
    End Class
End Namespace