cmd wrapper

wrapper.fsx

open System
open System.Text
open System.IO
open System.Diagnostics

let newProcess = new Process()
newProcess.StartInfo.FileName <- "cmd.exe"
newProcess.StartInfo.CreateNoWindow <- true
newProcess.StartInfo.UseShellExecute <- false
newProcess.StartInfo.RedirectStandardInput <- true
newProcess.StartInfo.RedirectStandardOutput <- true
newProcess.StartInfo.RedirectStandardError <- true

newProcess.OutputDataReceived.AddHandler(
    new DataReceivedEventHandler(
        fun (sender:obj)(line:DataReceivedEventArgs) -> 
            printfn "%s" line.Data))

newProcess.ErrorDataReceived.AddHandler(
    new DataReceivedEventHandler(
        fun (sender:obj)(line:DataReceivedEventArgs) -> 
            printfn "%s" line.Data))

newProcess.Start()  |> ignore

newProcess.BeginOutputReadLine()
newProcess.BeginErrorReadLine()

let writer = newProcess.StandardInput
let rec loop () = 
    let i = Console.ReadLine()
    writer.WriteLine(i)
    if i.Trim() <> "exit" then
        loop ()

loop()

writer.Close()
newProcess.Close()
printfn "exits"