Host fsi

<PackageReference Include="FSharp.Compiler.Service" Version="43.7.300"/>

open FSharp.Compiler.Interactive.Shell  
open FSharp.Compiler.Tokenization  
  
open System  
open System.IO  
open System.Text  
open MediatR  
open Glow.Core.Actions  
  
type SampleObject() =  
  member this.Hello() = "Hello World!"  
  
module CompilerService =  
  
  // Initialize output and input streams  
  let sbOut = new StringBuilder()  
  let sbErr = new StringBuilder()  
  let inStream = new StringReader("")  
  let outStream = new StringWriter(sbOut)  
  let errStream = new StringWriter(sbErr)  
  
  // Build command line arguments & start FSI session  
  let argv = [| "dotnet fsi" |]  
  
  let allArgs = Array.append argv [| "--noninteractive" |]  
  
  let fsiConfig = FsiEvaluationSession.GetDefaultConfiguration()  
  
  let fsiSession =  
    FsiEvaluationSession.Create(fsiConfig, allArgs, inStream, outStream, errStream)  
  
  
  fsiSession.AddBoundValue("x", SampleObject())  
  
  /// Evaluate expression & return the result  
  let evalExpression text =  
    match fsiSession.EvalExpression("x.Hello()") with  
    | Some value -> printfn "%A" value.ReflectionValue  
    | None -> printfn "Got no result!"  
  
  try  
    evalExpression "42+1" // prints '43'  
  with  
  | e ->  
    printfn "Error: %A" e  
    printfn "Error stream %s" (sbErr.ToString())  
  
  /// Evaluate expression & return the result, strongly typed  
  let evalExpressionTyped<'T> (text) =  
    match fsiSession.EvalExpression(text) with  
    | Some value -> value.ReflectionValue |> unbox<'T>  
    | None -> failwith "Got no result!"  
  
  let result = evalExpressionTyped<int> "42+1" // gives '43'  
  
  fsiSession.EvalInteraction "printfn \"bye\""