VisualBasicSettings.cs

// This file is part of Core WF which is licensed under the MIT license.
// See LICENSE file in the project root for full license information.

using System;
using System.Activities;
using System.Activities.Internals;
using System.Activities.Runtime;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq.Expressions;
using System.Reflection;
using System.Windows.Markup;
using System.Xaml;
using Microsoft.VisualBasic.Activities.XamlIntegration;
using Microsoft.VisualBasic.CompilerServices;

namespace Microsoft.VisualBasic.Activities;

using CompilerFactory = Func<HashSet<Assembly>, JustInTimeCompiler>;

[ValueSerializer(typeof(VisualBasicSettingsValueSerializer))]
[TypeConverter(typeof(VisualBasicSettingsConverter))]
public class VisualBasicSettings
{
    private static readonly HashSet<VisualBasicImportReference> s_defaultImportReferences = new()
    {
        //"mscorlib"
        new VisualBasicImportReference {Import = "System", Assembly = typeof(object).Assembly.FullName},
        new VisualBasicImportReference {Import = "System.Collections", Assembly = "System.Runtime"},
        new VisualBasicImportReference {Import = "System.Collections.Generic", Assembly = "System.Collections"},
        //"system"
        new VisualBasicImportReference
            {Import = "System.ComponentModel", Assembly = typeof(BrowsableAttribute).Assembly.FullName},
        new VisualBasicImportReference { Import = "System.Linq", Assembly = typeof(System.Linq.Enumerable).Assembly.FullName },
        new VisualBasicImportReference
            {Import = "System.Linq.Expressions", Assembly = typeof(Expression).Assembly.FullName},
        new VisualBasicImportReference {Import = "System", Assembly = "system"},
        new VisualBasicImportReference
            {Import = "System.Collections.Generic", Assembly = typeof(HashSet<>).Assembly.FullName},
        //"System.Activities"
        new VisualBasicImportReference {Import = "System.Activities", Assembly = "System.Activities"},
        new VisualBasicImportReference {Import = "System.Activities.Statements", Assembly = "System.Activities"},
        new VisualBasicImportReference {Import = "System.Activities.Expressions", Assembly = "System.Activities"},
        // Microsoft.VisualBasic
        new VisualBasicImportReference
            {Import = "Microsoft.VisualBasic", Assembly = typeof(Conversions).Assembly.FullName}
    };

    private CompilerFactory _compilerFactory = references => new VbJitCompiler(references);

    public VisualBasicSettings()
    {
        ImportReferences = new HashSet<VisualBasicImportReference>();
    }

    private VisualBasicSettings(HashSet<VisualBasicImportReference> importReferences)
    {
        Fx.Assert(importReferences != null, "caller must verify");
        ImportReferences = new HashSet<VisualBasicImportReference>(importReferences);
    }

    public static VisualBasicSettings Default { get; } = new(s_defaultImportReferences);

    // hide from XAML since the value serializer can't suppress yet
    [DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)]
    public ISet<VisualBasicImportReference> ImportReferences { get; }

    public CompilerFactory CompilerFactory
    {
        get => _compilerFactory;
        set
        {
            _compilerFactory = value;
            CompilerChanged?.Invoke(this, EventArgs.Empty);
        }
    }

    internal bool SuppressXamlSerialization { get; set; }

    internal event EventHandler CompilerChanged;

    internal static JustInTimeCompiler CreateCompiler(HashSet<Assembly> references)
    {
        return Default.CompilerFactory(references);
    }

    internal void GenerateXamlReferences(IValueSerializerContext context)
    {
        // promote settings to xmlns declarations
        var namespaceLookup = GetService<INamespacePrefixLookup>(context);
        foreach (var importReference in ImportReferences)
        {
            importReference.GenerateXamlNamespace(namespaceLookup);
        }
    }

    internal static T GetService<T>(ITypeDescriptorContext context) where T : class
    {
        var service = (T) context.GetService(typeof(T));
        if (service == null)
        {
            throw FxTrace.Exception.AsError(new InvalidOperationException(SR.InvalidTypeConverterUsage));
        }

        return service;
    }
}