Redireccionando stdin y stdout en .Net

Question

Estoy tratando de redirigir stdin y stdout de una aplicación de consola, para que pueda interactuar con ellos a través de F #. Sin embargo, dependiendo de la aplicación de la consola, el código obvio parece fallar. El siguiente código C# funciona para dir pero falla (se bloquea) para python y fsi:

open System 
open System.Diagnostics 

let f = new Process() 
f.StartInfo.FileName <- "python" 
f.StartInfo.UseShellExecute <- false 
f.StartInfo.RedirectStandardError <- true 
f.StartInfo.RedirectStandardInput <- true 
f.StartInfo.RedirectStandardOutput <- true 
f.EnableRaisingEvents <- true 
f.StartInfo.CreateNoWindow <- true 
f.Start() 
let line = f.StandardOutput.ReadLine() 

Este cuelga para Python, pero funciona para dir.

¿Esto tiene que ver con python y fsi usando readline o estoy cometiendo un error obvio? ¿Hay algún trabajo que me permita interactuar con fsi o python REPL desde F #?

Answer 1

Este es el código que está buscando (que convenientemente he escrito en el Capítulo 9, Secuencias de comandos;) Como se mencionó anteriormente, ReadLine bloquea hasta que haya una línea completa que conduce a todo tipo de bloqueos. Su mejor apuesta es conectar el evento OutputDataRecieved.

open System.Text 
open System.Diagnostics 

let shellEx program args = 

    let startInfo = new ProcessStartInfo() 
    startInfo.FileName <- program 
    startInfo.Arguments <- args 
    startInfo.UseShellExecute <- false 

    startInfo.RedirectStandardOutput <- true 
    startInfo.RedirectStandardInput <- true 

    let proc = new Process() 
    proc.EnableRaisingEvents <- true 

    let driverOutput = new StringBuilder() 
    proc.OutputDataReceived.AddHandler(
     DataReceivedEventHandler(
      (fun sender args -> driverOutput.Append(args.Data) |> ignore) 
     ) 
    ) 

    proc.StartInfo <- startInfo 
    proc.Start() |> ignore 
    proc.BeginOutputReadLine() 

    // Now we can write to the program 
    proc.StandardInput.WriteLine("let x = 1;;") 
    proc.StandardInput.WriteLine("x + x + x;;") 
    proc.StandardInput.WriteLine("#q;;") 

    proc.WaitForExit() 
    (proc.ExitCode, driverOutput.ToString()) 

de salida (que podía soportar estar prettied):

val it : int * string = 
    (0, 
    "Microsoft F# Interactive, (c) Microsoft Corporation, All Rights ReservedF# Version 1.9.7.8, compiling for .NET Framework Version v2.0.50727For help type #help;;> val x : int = 1> val it : int = 3> ") 

Answer 2

Apuesto a que ni python ni fsi son en realidad generando una línea de texto para ser leída. La llamada al ReadLine se bloqueará hasta que esté disponible una línea completa que finalice con un retorno de carro o avance de línea.

Intenta leer un personaje a la vez (con Read en lugar de ReadLine) y mira qué pasa.

Answer 3

Probablemente sea lo que dice Michael Petrotta. Si ese es el caso, incluso leer un personaje no ayudará. Lo que debe hacer es usar las versiones asíncronas (BeginOutputReadLine) para que su aplicación no se bloquee.