' The following code is distributed under the CC0 license whose text can be found at
' http://creativecommons.org/publicdomain/zero/1.0/
' You are permitted to use this code in any way you like, including commercial use.

''' <summary>
''' Instructs Rummage to keep a specific type, method, constructor or field.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface] Or AttributeTargets.Constructor Or AttributeTargets.Method Or AttributeTargets.Field, _
    Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoRemoveAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to keep the original name of a specific element.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface] Or AttributeTargets.Method Or AttributeTargets.Field Or AttributeTargets.[Property] Or _
    AttributeTargets.[Event] Or AttributeTargets.Parameter Or AttributeTargets.GenericParameter, Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoRenameAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to keep the original name of a specific type, all of its members, and all the members
''' in all of its nested types.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoRenameAnythingAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to avoid un-nesting the specified type.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoUnnestAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to keep the original access modifier of a specific element.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface] Or AttributeTargets.Constructor Or AttributeTargets.Method Or AttributeTargets.Field Or _
    AttributeTargets.[Property] Or AttributeTargets.[Event], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoMarkPublicAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage not to inline a specific method or property that would otherwise be automatically inlined.
''' This attribute takes precedence over <see cref="RummageInlineAttribute"/> if both are specified on the
''' same method or property.
''' </summary>
<AttributeUsage(AttributeTargets.Method Or AttributeTargets.[Property], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageNoInlineAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to inline a specific method or property that would otherwise not be automatically inlined.
''' </summary>
<AttributeUsage(AttributeTargets.Method Or AttributeTargets.[Property], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageInlineAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to refrain from making any changes to a specific type.
''' </summary>
<AttributeUsage(AttributeTargets.[Class] Or AttributeTargets.Struct Or AttributeTargets.[Enum] Or AttributeTargets.[Delegate] Or _
    AttributeTargets.[Interface] Or AttributeTargets.Method Or AttributeTargets.Field Or AttributeTargets.[Property] Or _
    AttributeTargets.[Event] Or AttributeTargets.Constructor Or AttributeTargets.Parameter Or AttributeTargets.GenericParameter, _
    Inherited:=False, AllowMultiple:=False), RummageKeepUsersReflectionSafe> _
Public NotInheritable Class RummageKeepReflectionSafeAttribute
    Inherits Attribute
End Class

''' <summary>
''' Instructs Rummage to keep all the types reflection-safe which are passed in for the given generic parameter.
''' </summary>
<AttributeUsage(AttributeTargets.GenericParameter, Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageKeepArgumentsReflectionSafeAttribute
    Inherits Attribute
End Class

''' <summary>
''' Use only on custom-attribute class declarations. Instructs Rummage to keep everything reflection-safe that
''' uses the given custom attribute.
''' </summary>
<AttributeUsage(AttributeTargets.[Class], Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageKeepUsersReflectionSafeAttribute
    Inherits Attribute
End Class

''' <summary>
''' Use on a method or constructor parameter of type "Type". Instructs Rummage that this method uses the Type
''' passed in in a way that is fully compatible with all obfuscations, including removing members not directly
''' referenced, renaming members, unnesting types and so on.
''' </summary>
<AttributeUsage(AttributeTargets.Parameter Or AttributeTargets.GenericParameter, Inherited:=False, AllowMultiple:=False)> _
Public NotInheritable Class RummageAssumeTypeSafeAttribute
    Inherits Attribute
End Class

''' <summary>Contains methods used to augment the program with Rummage-related information.</summary>
Public NotInheritable Class Rummage
    ''' <summary>
    ''' Returns the type passed in. Use around a <c>typeof(SomeType)</c> to override Rummage's reflection safety
    ''' analysis and make Rummage believe that this particular use is entirely safe.
    ''' </summary>
    Public Shared Function Safe(<RummageAssumeTypeSafe> type As Type) As Type
        Return type
    End Function
End Class