type T = { State:State; Child:ChildProcess option }

let location () =
    Globals.atom.packages.packageDirPaths.[0]
    + "/core/bin/fsautocomplete.exe"

let start t =
    let child =  location () |> Globals.spawn
    { t with State = State.On; Child = Some child }

let send msg t =
    t.Child |> Option.iter (fun c ->
        c.stdin.write msg |> ignore)

let parse path text cb service =
    let str = "parse \"" + path + "\"\n" + text + "\n<<EOF>>\n"
    service |> AutocompleteService.send str

// We generate F# quotation that returns all the
// methods that we want to expose from the class...
let ctor = typ.GetConstructor([||])
let meths = typ.GetMethods(...)
(Wrap functions using quotations)
let functionArray = Expr.NewArray(typeof<obj>, exportCtor::funcs)

// Call FunScript to do the translation!
let coreJS = Compiler.Compile(functionArray)

// Now we just wrap the generated JavaScript...
let moduleJS =
  [ yield "var CompositeDisposable = require('atom').CompositeDisposable;"
    (Some more JavaScript)
    yield "module.exports = " + moduleName + " = {"
    for i, m in Seq.zip [1 .. meths.Length] meths do
      Helper bindings
      yield m.Name + ": function(" + parNames + ") {"
      yield "  return _funcs[" + string i + "](_self)" + parArgs + "; }" +
             ( if i = meths.Length then "" else "," )
    yield "};" ]

[<AutoOpen>]
module FSharpChartingExtensions =
  type FSharp.Charting.Chart with
    static member Line(data:Series<'K, 'V>, ?Name,
        ?Title, ?Labels, ?Color, ?XTitle, ?YTitle) =
      Chart.Line(Series.observations data, ?Name=Name, ?Title=Title,
        ?Labels=Labels, ?Color=Color, ?XTitle=XTitle, ?YTitle=YTitle)

module Frame =
  let inline toMatrix frame =
    frame |> Frame.toArray2D |> DenseMatrix.ofArray2
module Matrix =
  let inline toFrame matrix =
    matrix |> Matrix.toArray2 |> Frame.ofArray2D

/// Builds FSI evaluator that can render
/// System.Image, F# Charts, series & frames
let createFsiEvaluator root output failedHandler =
  let transformation (value:obj, typ:System.Type) =
    match value with
    | :? ChartTypes.GenericChart as ch ->
        ( use ctl = new ChartControl(...)
          ch.CopyAsBitmap().Save(output @@ "images" @@ file) )
        Some [ Paragraph [DirectImage ("", (root + "/images/" + file, None))]  ]
    | SeriesValues s ->
        let heads, row, aligns = ...
        [ InlineMultiformatBlock("<div class=\"deedleseries\">", "\\vspace{1em}")
          TableBlock(Some ((td "Keys")::heads),
                     AlignDefault::aligns, [ (td "Values")::row ])
          InlineMultiformatBlock("</div>","\\vspace{1em}") ] |> Some
    (Format Deedle frames, Math.NET Matrices etc.)
    | _ -> None

  // Create FSI evaluator, register transformations & return
  let fsiEvaluator = FsiEvaluator()
  fsiEvaluator.RegisterTransformation(transformation)
  fsiEvaluator