public static List <KeyValuePair <string, object> > GetPreprocessorSymbols(VBCompilerOptions flags)
{
var preprocessorSymbols = new List <KeyValuePair <string, object> >();
if (flags.HasFlag(VBCompilerOptions.UseDebug))
{
preprocessorSymbols.Add(new KeyValuePair <string, object>("DEBUG", 1));
}
if (flags.HasFlag(VBCompilerOptions.Optimize))
{
preprocessorSymbols.Add(new KeyValuePair <string, object>("OPT", 1));
}
if (flags.HasFlag(VBCompilerOptions.UseRoslyn))
{
preprocessorSymbols.Add(new KeyValuePair <string, object>("ROSLYN", 1));
preprocessorSymbols.Add(new KeyValuePair <string, object>("VB11", 1));
preprocessorSymbols.Add(new KeyValuePair <string, object>("VB14", 1));
preprocessorSymbols.Add(new KeyValuePair <string, object>("VB15", 1));
}
else
{
preprocessorSymbols.Add(new KeyValuePair <string, object>("LEGACY_VBC", 1));
}
return(preprocessorSymbols);
}
void Run([CallerMemberName] string testName = null, VBCompilerOptions options = VBCompilerOptions.UseDebug, DecompilerSettings settings = null)
{
var vbFile = Path.Combine(TestCasePath, testName + ".vb");
var csFile = Path.Combine(TestCasePath, testName + ".cs");
var executable = Tester.CompileVB(vbFile, options);
var decompiled = Tester.DecompileCSharp(executable.PathToAssembly, settings);
CodeAssert.FilesAreEqual(csFile, decompiled);
}
internal static string GetSuffix(VBCompilerOptions vbcOptions)
{
string suffix = "";
if ((vbcOptions & VBCompilerOptions.Optimize) != 0)
{
suffix += ".opt";
}
if ((vbcOptions & VBCompilerOptions.Force32Bit) != 0)
{
suffix += ".32";
}
if ((vbcOptions & VBCompilerOptions.UseDebug) != 0)
{
suffix += ".dbg";
}
if ((vbcOptions & VBCompilerOptions.UseRoslyn) != 0)
{
suffix += ".roslyn";
}
return(suffix);
}
public void Async([ValueSource("defaultOptions")] VBCompilerOptions options)
{
Run(options: options);
}
public static CompilerResults CompileVB(string sourceFileName, VBCompilerOptions flags = VBCompilerOptions.UseDebug, string outputFileName = null)
{
List <string> sourceFileNames = new List <string> {
sourceFileName
};
foreach (Match match in Regex.Matches(File.ReadAllText(sourceFileName), @"#include ""([\w\d./]+)"""))
{
sourceFileNames.Add(Path.GetFullPath(Path.Combine(Path.GetDirectoryName(sourceFileName), match.Groups[1].Value)));
}
var preprocessorSymbols = GetPreprocessorSymbols(flags);
if (flags.HasFlag(VBCompilerOptions.UseRoslyn))
{
var parseOptions = new VisualBasicParseOptions(preprocessorSymbols: preprocessorSymbols, languageVersion: LanguageVersion.Latest);
var syntaxTrees = sourceFileNames.Select(f => SyntaxFactory.ParseSyntaxTree(File.ReadAllText(f), parseOptions, path: f));
var compilation = VisualBasicCompilation.Create(Path.GetFileNameWithoutExtension(sourceFileName),
syntaxTrees, defaultReferences.Value,
new VisualBasicCompilationOptions(
flags.HasFlag(VBCompilerOptions.Library) ? OutputKind.DynamicallyLinkedLibrary : OutputKind.ConsoleApplication,
platform: flags.HasFlag(VBCompilerOptions.Force32Bit) ? Platform.X86 : Platform.AnyCpu,
optimizationLevel: flags.HasFlag(VBCompilerOptions.Optimize) ? OptimizationLevel.Release : OptimizationLevel.Debug,
deterministic: true
));
CompilerResults results = new CompilerResults(new TempFileCollection());
results.PathToAssembly = outputFileName ?? Path.GetTempFileName();
var emitResult = compilation.Emit(results.PathToAssembly);
if (!emitResult.Success)
{
StringBuilder b = new StringBuilder("Compiler error:");
foreach (var diag in emitResult.Diagnostics)
{
b.AppendLine(diag.ToString());
}
throw new Exception(b.ToString());
}
return(results);
}
else
{
var provider = new VBCodeProvider(new Dictionary <string, string> {
{ "CompilerVersion", "v10.0" }
});
CompilerParameters options = new CompilerParameters();
options.GenerateExecutable = !flags.HasFlag(VBCompilerOptions.Library);
options.CompilerOptions = "/o" + (flags.HasFlag(VBCompilerOptions.Optimize) ? "+" : "-");
options.CompilerOptions += (flags.HasFlag(VBCompilerOptions.UseDebug) ? " /debug" : "");
options.CompilerOptions += (flags.HasFlag(VBCompilerOptions.Force32Bit) ? " /platform:anycpu32bitpreferred" : "");
if (preprocessorSymbols.Count > 0)
{
options.CompilerOptions += " /d:" + string.Join(";", preprocessorSymbols);
}
if (outputFileName != null)
{
options.OutputAssembly = outputFileName;
}
options.ReferencedAssemblies.Add("System.dll");
options.ReferencedAssemblies.Add("System.Core.dll");
options.ReferencedAssemblies.Add("System.Xml.dll");
CompilerResults results = provider.CompileAssemblyFromFile(options, sourceFileNames.ToArray());
if (results.Errors.Cast <CompilerError>().Any(e => !e.IsWarning))
{
StringBuilder b = new StringBuilder("Compiler error:");
foreach (var error in results.Errors)
{
b.AppendLine(error.ToString());
}
throw new Exception(b.ToString());
}
return(results);
}
}
