| | | 1 | | using System.Collections.Immutable; |
| | | 2 | | using System.Reflection; |
| | | 3 | | using System.Text; |
| | | 4 | | using Microsoft.CodeAnalysis.Scripting; |
| | | 5 | | using Microsoft.CodeAnalysis.VisualBasic; |
| | | 6 | | using Serilog.Events; |
| | | 7 | | using Microsoft.CodeAnalysis; |
| | | 8 | | using Kestrun.Utilities; |
| | | 9 | | using System.Security.Claims; |
| | | 10 | | using Kestrun.Logging; |
| | | 11 | | using Kestrun.Hosting; |
| | | 12 | | |
| | | 13 | | namespace Kestrun.Languages; |
| | | 14 | | |
| | | 15 | | |
| | | 16 | | internal static class VBNetDelegateBuilder |
| | | 17 | | { |
| | | 18 | | /// <summary> |
| | | 19 | | /// The marker that indicates where user code starts in the VB.NET script. |
| | | 20 | | /// This is used to ensure that the user code is correctly placed within the generated module. |
| | | 21 | | /// </summary> |
| | | 22 | | private const string StartMarker = "' ---- User code starts here ----"; |
| | | 23 | | |
| | | 24 | | /// <summary> |
| | | 25 | | /// Builds a VB.NET delegate for Kestrun routes. |
| | | 26 | | /// </summary> |
| | | 27 | | /// <remarks> |
| | | 28 | | /// This method uses the Roslyn compiler to compile the provided VB.NET code into a delegate. |
| | | 29 | | /// </remarks> |
| | | 30 | | /// <param name="host">The Kestrun host instance.</param> |
| | | 31 | | /// <param name="code">The VB.NET code to compile.</param> |
| | | 32 | | /// <param name="args">The arguments to pass to the script.</param> |
| | | 33 | | /// <param name="extraImports">Optional additional namespaces to import in the script.</param> |
| | | 34 | | /// <param name="extraRefs">Optional additional assemblies to reference in the script.</param> |
| | | 35 | | /// <param name="languageVersion">The VB.NET language version to use for compilation.</param> |
| | | 36 | | /// <returns>A delegate that takes CsGlobals and returns a Task.</returns> |
| | | 37 | | /// <exception cref="CompilationErrorException">Thrown if the compilation fails with errors.</exception> |
| | | 38 | | /// <remarks> |
| | | 39 | | /// This method uses the Roslyn compiler to compile the provided VB.NET code into a delegate. |
| | | 40 | | /// </remarks> |
| | | 41 | | internal static RequestDelegate Build(KestrunHost host, |
| | | 42 | | string code, Dictionary<string, object?>? args, string[]? extraImports, |
| | | 43 | | Assembly[]? extraRefs, LanguageVersion languageVersion = LanguageVersion.VisualBasic16_9) |
| | | 44 | | { |
| | 5 | 45 | | var log = host.Logger; |
| | 5 | 46 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 47 | | { |
| | 4 | 48 | | log.Debug("Building VB.NET delegate, script length={Length}, imports={ImportsCount}, refs={RefsCount}, lang= |
| | 4 | 49 | | code.Length, extraImports?.Length ?? 0, extraRefs?.Length ?? 0, languageVersion); |
| | | 50 | | } |
| | | 51 | | |
| | | 52 | | // Validate inputs |
| | 5 | 53 | | if (string.IsNullOrWhiteSpace(code)) |
| | | 54 | | { |
| | 1 | 55 | | throw new ArgumentNullException(nameof(code), "VB.NET code cannot be null or whitespace."); |
| | | 56 | | } |
| | | 57 | | // 1. Compile the VB.NET code into a script |
| | | 58 | | // - Use VisualBasicScript.Create() to create a script with the provided code |
| | | 59 | | // - Use ScriptOptions to specify imports, references, and language version |
| | | 60 | | // - Inject the provided arguments into the globals |
| | 4 | 61 | | var script = Compile<bool>(host: host, code: code, extraImports: extraImports, extraRefs: extraRefs, null, langu |
| | | 62 | | |
| | | 63 | | // 2. Build the per-request delegate |
| | | 64 | | // - This delegate will be executed for each request |
| | | 65 | | // - It will create a KestrunContext and CsGlobals, then execute the script with these globals |
| | | 66 | | // - The script can access the request context and shared state store |
| | 4 | 67 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 68 | | { |
| | 3 | 69 | | log.Debug("C# delegate built successfully, script length={Length}, imports={ImportsCount}, refs={RefsCount}, |
| | 3 | 70 | | code?.Length, extraImports?.Length ?? 0, extraRefs?.Length ?? 0, languageVersion); |
| | | 71 | | } |
| | | 72 | | |
| | 4 | 73 | | return async ctx => |
| | 4 | 74 | | { |
| | 4 | 75 | | try |
| | 4 | 76 | | { |
| | 3 | 77 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | 4 | 78 | | { |
| | 2 | 79 | | log.Debug("Preparing execution for C# script at {Path}", ctx.Request.Path); |
| | 4 | 80 | | } |
| | 4 | 81 | | |
| | 3 | 82 | | var (Globals, Response, Context) = await DelegateBuilder.PrepareExecutionAsync(host, ctx, args).Configur |
| | 4 | 83 | | |
| | 4 | 84 | | // Execute the script with the current context and shared state |
| | 3 | 85 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | 4 | 86 | | { |
| | 2 | 87 | | log.DebugSanitized("Executing VB.NET script for {Path}", ctx.Request.Path); |
| | 4 | 88 | | } |
| | 4 | 89 | | |
| | 3 | 90 | | _ = await script(Globals).ConfigureAwait(false); |
| | 3 | 91 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | 4 | 92 | | { |
| | 2 | 93 | | log.DebugSanitized("VB.NET script executed successfully for {Path}", ctx.Request.Path); |
| | 4 | 94 | | } |
| | 4 | 95 | | |
| | 4 | 96 | | // Apply the response to the Kestrun context |
| | 3 | 97 | | await DelegateBuilder.ApplyResponseAsync(ctx, Response, log).ConfigureAwait(false); |
| | 3 | 98 | | } |
| | 4 | 99 | | finally |
| | 4 | 100 | | { |
| | 4 | 101 | | // Do not complete the response here; allow downstream middleware (e.g., StatusCodePages) |
| | 4 | 102 | | // to produce a body for status-only responses when needed. |
| | 4 | 103 | | } |
| | 7 | 104 | | }; |
| | | 105 | | } |
| | | 106 | | |
| | | 107 | | /// <summary> |
| | | 108 | | /// Decide the VB return type string that matches TResult |
| | | 109 | | /// </summary> |
| | | 110 | | /// <param name="t">The type to get the VB return type for.</param> |
| | | 111 | | /// <returns> The VB.NET return type as a string.</returns> |
| | | 112 | | private static string GetVbReturnType(Type t) |
| | | 113 | | { |
| | 13 | 114 | | if (t == typeof(bool)) |
| | | 115 | | { |
| | 8 | 116 | | return "Boolean"; |
| | | 117 | | } |
| | | 118 | | |
| | 5 | 119 | | if (t == typeof(IEnumerable<Claim>)) |
| | | 120 | | { |
| | 3 | 121 | | return "System.Collections.Generic.IEnumerable(Of System.Security.Claims.Claim)"; |
| | | 122 | | } |
| | | 123 | | |
| | | 124 | | // Fallback so it still compiles even for object / string / etc. |
| | 2 | 125 | | return "Object"; |
| | | 126 | | } |
| | | 127 | | |
| | | 128 | | /// <summary> |
| | | 129 | | /// Compiles the provided VB.NET code into a delegate that can be executed with CsGlobals. |
| | | 130 | | /// </summary> |
| | | 131 | | /// <typeparam name="TResult">The type of the result returned by the delegate.</typeparam> |
| | | 132 | | /// <param name="host">The Kestrun host instance.</param> |
| | | 133 | | /// <param name="code">The VB.NET code to compile.</param> |
| | | 134 | | /// <param name="extraImports">Optional additional namespaces to import in the script.</param> |
| | | 135 | | /// <param name="extraRefs">Optional additional assemblies to reference in the script.</param> |
| | | 136 | | /// <param name="locals">Optional local variables to provide to the script.</param> |
| | | 137 | | /// <param name="languageVersion">The VB.NET language version to use for compilation.</param> |
| | | 138 | | /// <returns>A delegate that takes CsGlobals and returns a Task.</returns> |
| | | 139 | | /// <exception cref="CompilationErrorException">Thrown if the compilation fails with errors.</exception> |
| | | 140 | | /// <remarks> |
| | | 141 | | /// This method uses the Roslyn compiler to compile the provided VB.NET code into a delegate. |
| | | 142 | | /// </remarks> |
| | | 143 | | internal static Func<CsGlobals, Task<TResult>> Compile<TResult>( |
| | | 144 | | KestrunHost host, |
| | | 145 | | string? code, string[]? extraImports, |
| | | 146 | | Assembly[]? extraRefs, IReadOnlyDictionary<string, object?>? locals, LanguageVersion languageVersion |
| | | 147 | | ) |
| | | 148 | | { |
| | 13 | 149 | | var log = host.Logger; |
| | 13 | 150 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 151 | | { |
| | 10 | 152 | | log.Debug("Building VB.NET delegate, script length={Length}, imports={ImportsCount}, refs={RefsCount}, lang= |
| | 10 | 153 | | code?.Length, extraImports?.Length ?? 0, extraRefs?.Length ?? 0, languageVersion); |
| | | 154 | | } |
| | | 155 | | |
| | | 156 | | // Validate inputs |
| | 13 | 157 | | if (string.IsNullOrWhiteSpace(code)) |
| | | 158 | | { |
| | 0 | 159 | | throw new ArgumentNullException(nameof(code), "VB.NET code cannot be null or whitespace."); |
| | | 160 | | } |
| | | 161 | | |
| | 13 | 162 | | extraImports ??= []; |
| | 13 | 163 | | extraImports = [.. extraImports, "System.Collections.Generic", "System.Linq", "System.Security.Claims"]; |
| | | 164 | | |
| | | 165 | | // Discover dynamic namespaces from globals + locals similar to C# path |
| | 13 | 166 | | var dynamicImports = CollectDynamicImports(host, locals); |
| | 13 | 167 | | if (dynamicImports.Count > 0) |
| | | 168 | | { |
| | 6 | 169 | | var mergedImports = extraImports.Concat(dynamicImports) |
| | 6 | 170 | | .Distinct(StringComparer.Ordinal) |
| | 6 | 171 | | .ToArray(); |
| | 6 | 172 | | if (log.IsEnabled(LogEventLevel.Debug) && mergedImports.Length != extraImports.Length) |
| | | 173 | | { |
| | 4 | 174 | | log.Debug("Added {Count} dynamic VB imports from globals/locals.", mergedImports.Length - extraImports.L |
| | | 175 | | } |
| | 6 | 176 | | extraImports = mergedImports; |
| | | 177 | | } |
| | | 178 | | |
| | | 179 | | // 🔧 1. Build a real VB file around the user snippet |
| | 13 | 180 | | var source = BuildWrappedSource(code, extraImports, vbReturnType: GetVbReturnType(typeof(TResult)), |
| | 13 | 181 | | locals: locals); |
| | | 182 | | |
| | | 183 | | // Prepares the source code for compilation. |
| | 13 | 184 | | var startLine = GetStartLineOrThrow(source, log); |
| | | 185 | | |
| | | 186 | | // Parse the source code into a syntax tree |
| | | 187 | | // This will allow us to analyze and compile the code |
| | 13 | 188 | | var tree = VisualBasicSyntaxTree.ParseText( |
| | 13 | 189 | | source, |
| | 13 | 190 | | new VisualBasicParseOptions(languageVersion)); |
| | | 191 | | |
| | | 192 | | // 🔧 2. References = everything already loaded + extras |
| | 13 | 193 | | var refs = BuildMetadataReferences(extraRefs); |
| | | 194 | | // 🔧 3. Normal DLL compilation |
| | 13 | 195 | | var compilation = VisualBasicCompilation.Create( |
| | 13 | 196 | | assemblyName: $"RouteScript_{Guid.NewGuid():N}", |
| | 13 | 197 | | syntaxTrees: [tree], |
| | 13 | 198 | | references: refs, |
| | 13 | 199 | | options: new VisualBasicCompilationOptions(OutputKind.DynamicallyLinkedLibrary)); |
| | | 200 | | |
| | 13 | 201 | | using var ms = new MemoryStream(); |
| | 13 | 202 | | var emitResult = compilation.Emit(ms) ?? throw new InvalidOperationException("Failed to compile VB.NET script.") |
| | | 203 | | // 🔧 4. Log the compilation result |
| | 13 | 204 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 205 | | { |
| | 10 | 206 | | log.Debug("VB.NET script compilation completed, assembly size={Size} bytes", ms.Length); |
| | | 207 | | } |
| | | 208 | | |
| | | 209 | | // 🔧 5. Handle diagnostics |
| | 13 | 210 | | ThrowIfErrors(emitResult.Diagnostics, startLine, log); |
| | | 211 | | // Log any warnings from the compilation process |
| | 13 | 212 | | LogWarnings(emitResult.Diagnostics, startLine, log); |
| | | 213 | | |
| | | 214 | | // If there are no errors, log a debug message |
| | 13 | 215 | | if (emitResult.Success && log.IsEnabled(LogEventLevel.Debug)) |
| | | 216 | | { |
| | 10 | 217 | | log.Debug("VB.NET script compiled successfully with no errors."); |
| | | 218 | | } |
| | | 219 | | |
| | | 220 | | // If there are no errors, proceed to load the assembly and create the delegate |
| | 13 | 221 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 222 | | { |
| | 10 | 223 | | log.Debug("VB.NET script compiled successfully, loading assembly..."); |
| | | 224 | | } |
| | | 225 | | |
| | 13 | 226 | | ms.Position = 0; |
| | 13 | 227 | | return LoadDelegateFromAssembly<TResult>(ms.ToArray()); |
| | 13 | 228 | | } |
| | | 229 | | |
| | | 230 | | /// <summary> |
| | | 231 | | /// Prepares the source code for compilation. |
| | | 232 | | /// </summary> |
| | | 233 | | /// <param name="source">The source code to prepare.</param> |
| | | 234 | | /// <param name="log">The logger instance.</param> |
| | | 235 | | /// <returns>The prepared source code.</returns> |
| | | 236 | | /// <exception cref="ArgumentException">Thrown when the source code is invalid.</exception> |
| | | 237 | | private static int GetStartLineOrThrow(string source, Serilog.ILogger log) |
| | | 238 | | { |
| | 13 | 239 | | var startIndex = source.IndexOf(StartMarker, StringComparison.Ordinal); |
| | 13 | 240 | | if (startIndex < 0) |
| | | 241 | | { |
| | 0 | 242 | | throw new ArgumentException($"VB.NET code must contain the marker '{StartMarker}' to indicate where user cod |
| | | 243 | | } |
| | | 244 | | |
| | 13 | 245 | | var startLine = CcUtilities.GetLineNumber(source, startIndex); |
| | 13 | 246 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 247 | | { |
| | 10 | 248 | | log.Debug("VB.NET script starts at line {LineNumber}", startLine); |
| | | 249 | | } |
| | | 250 | | |
| | 13 | 251 | | return startLine; |
| | | 252 | | } |
| | | 253 | | |
| | | 254 | | /// <summary> |
| | | 255 | | /// Prepares the metadata references for the VB.NET script. |
| | | 256 | | /// </summary> |
| | | 257 | | /// <param name="extraRefs">The extra references to include.</param> |
| | | 258 | | /// <returns>An enumerable of metadata references.</returns> |
| | | 259 | | private static IEnumerable<MetadataReference> BuildMetadataReferences(Assembly[]? extraRefs) |
| | | 260 | | { |
| | | 261 | | // NOTE: Some tests create throwaway assemblies in temp folders and then delete the folder. |
| | | 262 | | // On Windows the delete often fails (file still locked) so Assembly.Location continues to exist. |
| | | 263 | | // On Linux the delete succeeds; the Assembly remains loaded but its Location now points to a |
| | | 264 | | // non-existent path. Roslyn's MetadataReference.CreateFromFile will throw FileNotFoundException |
| | | 265 | | // in that scenario. We therefore skip any loaded assemblies whose Location no longer exists. |
| | 13 | 266 | | var baseRefs = AppDomain.CurrentDomain.GetAssemblies() |
| | 3900 | 267 | | .Where(a => !a.IsDynamic && SafeHasLocation(a) && !IsSatelliteAssembly(a)) |
| | 3271 | 268 | | .Select(a => MetadataReference.CreateFromFile(a.Location)); |
| | | 269 | | |
| | 13 | 270 | | var extras = extraRefs?.Select(r => MetadataReference.CreateFromFile(r.Location)) |
| | 13 | 271 | | ?? Enumerable.Empty<MetadataReference>(); |
| | | 272 | | |
| | | 273 | | // Always include the VB runtime explicitly then add our common baseline references. |
| | 13 | 274 | | return baseRefs |
| | 13 | 275 | | .Concat(extras) |
| | 13 | 276 | | .Append(MetadataReference.CreateFromFile(typeof(Microsoft.VisualBasic.Constants).Assembly.Location)) |
| | 13 | 277 | | .Concat(DelegateBuilder.BuildBaselineReferences()); |
| | | 278 | | } |
| | | 279 | | |
| | | 280 | | private static bool IsSatelliteAssembly(Assembly a) |
| | | 281 | | { |
| | | 282 | | try |
| | | 283 | | { |
| | 3258 | 284 | | var name = a.GetName(); |
| | 3258 | 285 | | if (name.Name != null && name.Name.EndsWith(".resources", StringComparison.OrdinalIgnoreCase)) |
| | | 286 | | { |
| | 0 | 287 | | return true; |
| | | 288 | | } |
| | 3258 | 289 | | var loc = a.Location; |
| | 3258 | 290 | | if (!string.IsNullOrEmpty(loc) && loc.EndsWith(".resources.dll", StringComparison.OrdinalIgnoreCase)) |
| | | 291 | | { |
| | 0 | 292 | | return true; |
| | | 293 | | } |
| | 3258 | 294 | | } |
| | 0 | 295 | | catch |
| | | 296 | | { |
| | | 297 | | // If we can't inspect it, be conservative and treat as non-satellite |
| | 0 | 298 | | } |
| | 3258 | 299 | | return false; |
| | 0 | 300 | | } |
| | | 301 | | |
| | | 302 | | /// <summary> |
| | | 303 | | /// Collects dynamic imports from the types of the provided locals and shared globals. |
| | | 304 | | /// </summary> |
| | | 305 | | /// <param name="host">The Kestrun host instance.</param> |
| | | 306 | | /// <param name="locals">The local variables to inspect.</param> |
| | | 307 | | /// <returns>A set of unique namespace strings.</returns> |
| | | 308 | | private static HashSet<string> CollectDynamicImports(KestrunHost host, IReadOnlyDictionary<string, object?>? locals) |
| | | 309 | | { |
| | 13 | 310 | | var imports = new HashSet<string>(StringComparer.Ordinal); |
| | | 311 | | // Merge globals + locals (locals override) just for namespace harvesting |
| | 13 | 312 | | var globals = host.SharedState.Snapshot(); |
| | 26 | 313 | | foreach (var g in globals) |
| | | 314 | | { |
| | 0 | 315 | | AddTypeNamespaces(g.Value?.GetType(), imports); |
| | | 316 | | } |
| | 13 | 317 | | if (locals is { Count: > 0 }) |
| | | 318 | | { |
| | 30 | 319 | | foreach (var l in locals) |
| | | 320 | | { |
| | 9 | 321 | | AddTypeNamespaces(l.Value?.GetType(), imports); |
| | | 322 | | } |
| | | 323 | | } |
| | 13 | 324 | | return imports; |
| | | 325 | | } |
| | | 326 | | |
| | | 327 | | private static void AddTypeNamespaces(Type? t, HashSet<string> set) |
| | | 328 | | { |
| | 11 | 329 | | if (t == null) |
| | | 330 | | { |
| | 0 | 331 | | return; |
| | | 332 | | } |
| | 11 | 333 | | if (!string.IsNullOrEmpty(t.Namespace)) |
| | | 334 | | { |
| | 11 | 335 | | _ = set.Add(t.Namespace); |
| | | 336 | | } |
| | 11 | 337 | | if (t.IsGenericType) |
| | | 338 | | { |
| | 0 | 339 | | foreach (var ga in t.GetGenericArguments()) |
| | | 340 | | { |
| | 0 | 341 | | AddTypeNamespaces(ga, set); |
| | | 342 | | } |
| | | 343 | | } |
| | 11 | 344 | | if (t.IsArray) |
| | | 345 | | { |
| | 2 | 346 | | AddTypeNamespaces(t.GetElementType(), set); |
| | | 347 | | } |
| | 11 | 348 | | } |
| | | 349 | | private static bool SafeHasLocation(Assembly a) |
| | | 350 | | { |
| | | 351 | | try |
| | | 352 | | { |
| | 3851 | 353 | | var loc = a.Location; // may throw for some dynamic contexts |
| | 3851 | 354 | | return !string.IsNullOrEmpty(loc) && File.Exists(loc); |
| | | 355 | | } |
| | 0 | 356 | | catch |
| | | 357 | | { |
| | 0 | 358 | | return false; |
| | | 359 | | } |
| | 3851 | 360 | | } |
| | | 361 | | /// <summary> |
| | | 362 | | /// Logs any warnings from the compilation process. |
| | | 363 | | /// </summary> |
| | | 364 | | /// <param name="diagnostics">The diagnostics to check.</param> |
| | | 365 | | /// <param name="startLine">The starting line number.</param> |
| | | 366 | | /// <param name="log">The logger instance.</param> |
| | | 367 | | private static void LogWarnings(ImmutableArray<Diagnostic> diagnostics, int startLine, Serilog.ILogger log) |
| | | 368 | | { |
| | 108 | 369 | | var warnings = diagnostics.Where(d => d.Severity == DiagnosticSeverity.Warning).ToArray(); |
| | | 370 | | // If there are no warnings, log a debug message |
| | 13 | 371 | | if (warnings.Length == 0) |
| | | 372 | | { |
| | 9 | 373 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 374 | | { |
| | 8 | 375 | | log.Debug("VB.NET script compiled successfully with no warnings."); |
| | | 376 | | } |
| | | 377 | | |
| | 9 | 378 | | return; |
| | | 379 | | } |
| | | 380 | | |
| | 4 | 381 | | log.Warning($"VBNet script compilation completed with {warnings.Length} warning(s):"); |
| | 16 | 382 | | foreach (var warning in warnings) |
| | | 383 | | { |
| | 4 | 384 | | var location = warning.Location.IsInSource |
| | 4 | 385 | | ? $" at line {warning.Location.GetLineSpan().StartLinePosition.Line - startLine + 1}" |
| | 4 | 386 | | : ""; |
| | 4 | 387 | | log.Warning($" Warning [{warning.Id}]: {warning.GetMessage()}{location}"); |
| | | 388 | | } |
| | 4 | 389 | | if (log.IsEnabled(LogEventLevel.Debug)) |
| | | 390 | | { |
| | 2 | 391 | | log.Debug("VB.NET script compiled with warnings: {Count}", warnings.Length); |
| | | 392 | | } |
| | 4 | 393 | | } |
| | | 394 | | |
| | | 395 | | /// <summary> |
| | | 396 | | /// Throws an exception if there are compilation errors. |
| | | 397 | | /// </summary> |
| | | 398 | | /// <param name="diagnostics">The diagnostics to check.</param> |
| | | 399 | | /// <param name="startLine">The starting line number.</param> |
| | | 400 | | /// <param name="log">The logger instance.</param> |
| | | 401 | | private static void ThrowIfErrors(ImmutableArray<Diagnostic> diagnostics, int startLine, Serilog.ILogger log) |
| | | 402 | | { |
| | 108 | 403 | | var errors = diagnostics.Where(d => d.Severity == DiagnosticSeverity.Error).ToArray(); |
| | 13 | 404 | | if (errors.Length == 0) |
| | | 405 | | { |
| | 13 | 406 | | return; |
| | | 407 | | } |
| | | 408 | | |
| | 0 | 409 | | log.Error($"VBNet script compilation completed with {errors.Length} error(s):"); |
| | 0 | 410 | | var sb = new StringBuilder(); |
| | 0 | 411 | | _ = sb.AppendLine("VBNet route code compilation failed:"); |
| | 0 | 412 | | foreach (var error in errors) |
| | | 413 | | { |
| | 0 | 414 | | var location = error.Location.IsInSource |
| | 0 | 415 | | ? $" at line {error.Location.GetLineSpan().StartLinePosition.Line - startLine + 1}" |
| | 0 | 416 | | : ""; |
| | 0 | 417 | | var msg = $" Error [{error.Id}]: {error.GetMessage()}{location}"; |
| | 0 | 418 | | log.Error(msg); |
| | 0 | 419 | | _ = sb.AppendLine(msg); |
| | | 420 | | } |
| | 0 | 421 | | throw new CompilationErrorException(sb.ToString().TrimEnd(), diagnostics); |
| | | 422 | | } |
| | | 423 | | |
| | | 424 | | /// <summary> |
| | | 425 | | /// Loads a delegate from the provided assembly bytes. |
| | | 426 | | /// </summary> |
| | | 427 | | /// <typeparam name="TResult">The type of the result.</typeparam> |
| | | 428 | | /// <param name="asmBytes">The assembly bytes.</param> |
| | | 429 | | /// <returns>A delegate that can be invoked with the specified globals.</returns> |
| | | 430 | | private static Func<CsGlobals, Task<TResult>> LoadDelegateFromAssembly<TResult>(byte[] asmBytes) |
| | | 431 | | { |
| | 13 | 432 | | var asm = Assembly.Load(asmBytes); |
| | 13 | 433 | | var runMethod = asm.GetType("RouteScript")! |
| | 13 | 434 | | .GetMethod("Run", BindingFlags.Public | BindingFlags.Static)!; |
| | | 435 | | |
| | 13 | 436 | | var delegateType = typeof(Func<,>).MakeGenericType( |
| | 13 | 437 | | typeof(CsGlobals), |
| | 13 | 438 | | typeof(Task<>).MakeGenericType(typeof(TResult))); |
| | | 439 | | |
| | 13 | 440 | | return (Func<CsGlobals, Task<TResult>>)runMethod.CreateDelegate(delegateType); |
| | | 441 | | } |
| | | 442 | | |
| | | 443 | | /// <summary> |
| | | 444 | | /// Builds the wrapped source code for the VB.NET script. |
| | | 445 | | /// </summary> |
| | | 446 | | /// <param name="code">The user-provided code to wrap.</param> |
| | | 447 | | /// <param name="extraImports">Additional imports to include.</param> |
| | | 448 | | /// <param name="vbReturnType">The return type of the VB.NET function.</param> |
| | | 449 | | /// <param name="locals">Local variables to bind to the script.</param> |
| | | 450 | | /// <returns>The wrapped source code.</returns> |
| | | 451 | | private static string BuildWrappedSource(string? code, IEnumerable<string>? extraImports, |
| | | 452 | | string vbReturnType, IReadOnlyDictionary<string, object?>? locals = null |
| | | 453 | | ) |
| | | 454 | | { |
| | 13 | 455 | | var sb = new StringBuilder(); |
| | | 456 | | |
| | | 457 | | // common + caller-supplied Imports |
| | 13 | 458 | | var builtIns = new[] { |
| | 13 | 459 | | "System", "System.Threading.Tasks", |
| | 13 | 460 | | "Kestrun", "Kestrun.Models", |
| | 13 | 461 | | "Microsoft.VisualBasic", |
| | 13 | 462 | | "Kestrun.Languages" |
| | 13 | 463 | | }; |
| | | 464 | | |
| | 260 | 465 | | foreach (var ns in builtIns.Concat(extraImports ?? []) |
| | 13 | 466 | | .Distinct(StringComparer.Ordinal)) |
| | | 467 | | { |
| | 117 | 468 | | _ = sb.AppendLine($"Imports {ns}"); |
| | | 469 | | } |
| | | 470 | | |
| | 13 | 471 | | _ = sb.AppendLine($""" |
| | 13 | 472 | | Public Module RouteScript |
| | 13 | 473 | | Public Async Function Run(g As CsGlobals) As Task(Of {vbReturnType}) |
| | 13 | 474 | | Await Task.Yield() ' placeholder await |
| | 13 | 475 | | Dim Request = g.Context?.Request |
| | 13 | 476 | | Dim Response = g.Context?.Response |
| | 13 | 477 | | Dim Context = g.Context |
| | 13 | 478 | | """); |
| | | 479 | | |
| | | 480 | | // only emit these _when_ you called Compile with locals: |
| | 13 | 481 | | if (locals?.ContainsKey("username") ?? false) |
| | | 482 | | { |
| | 1 | 483 | | _ = sb.AppendLine(""" |
| | 1 | 484 | | ' only bind creds if someone passed them in |
| | 1 | 485 | | Dim username As String = CStr(g.Locals("username")) |
| | 1 | 486 | | """); |
| | | 487 | | } |
| | | 488 | | |
| | 13 | 489 | | if (locals?.ContainsKey("password") ?? false) |
| | | 490 | | { |
| | 1 | 491 | | _ = sb.AppendLine(""" |
| | 1 | 492 | | Dim password As String = CStr(g.Locals("password")) |
| | 1 | 493 | | """); |
| | | 494 | | } |
| | | 495 | | |
| | 13 | 496 | | if (locals?.ContainsKey("providedKey") == true) |
| | | 497 | | { |
| | 2 | 498 | | _ = sb.AppendLine(""" |
| | 2 | 499 | | ' only bind keys if someone passed them in |
| | 2 | 500 | | Dim providedKey As String = CStr(g.Locals("providedKey")) |
| | 2 | 501 | | """); |
| | | 502 | | } |
| | | 503 | | |
| | 13 | 504 | | if (locals?.ContainsKey("providedKeyBytes") == true) |
| | | 505 | | { |
| | 2 | 506 | | _ = sb.AppendLine(""" |
| | 2 | 507 | | Dim providedKeyBytes As Byte() = CType(g.Locals("providedKeyBytes"), Byte()) |
| | 2 | 508 | | """); |
| | | 509 | | } |
| | | 510 | | |
| | 13 | 511 | | if (locals?.ContainsKey("identity") == true) |
| | | 512 | | { |
| | 3 | 513 | | _ = sb.AppendLine(""" |
| | 3 | 514 | | Dim identity As String = CStr(g.Locals("identity")) |
| | 3 | 515 | | """); |
| | | 516 | | } |
| | | 517 | | |
| | | 518 | | // add the Marker for user code |
| | 13 | 519 | | _ = sb.AppendLine(StartMarker); |
| | | 520 | | // ---- User code starts here ---- |
| | | 521 | | |
| | 13 | 522 | | if (!string.IsNullOrEmpty(code)) |
| | | 523 | | { |
| | | 524 | | // indent the user snippet so VB is happy |
| | 13 | 525 | | _ = sb.AppendLine(string.Join( |
| | 13 | 526 | | Environment.NewLine, |
| | 28 | 527 | | code.Split('\n').Select(l => " " + l.TrimEnd('\r')))); |
| | | 528 | | } |
| | 13 | 529 | | _ = sb.AppendLine(""" |
| | 13 | 530 | | |
| | 13 | 531 | | End Function |
| | 13 | 532 | | End Module |
| | 13 | 533 | | """); |
| | 13 | 534 | | return sb.ToString(); |
| | | 535 | | } |
| | | 536 | | } |