¿Es posible leer la entrada del usuario desde STDIN mientras se enreda un bloque fuente?

¿Es posible leer la entrada del usuario desde STDIN mientras enreda un bloque fuente con org-babel-tangle?

Soy consciente de esto: Org Mode Babel - Evaluación de bloque de código interactivo .

Eso no ayuda a resolver este caso de uso en particular, ya que todavía no permite la entrada STDIN adecuada desde el shell, sino que solo simula una entrada limitada internamente a Emacs.

Antecedentes

Me gustaría usar Org's Babel para aprender nuevos lenguajes de programación (Perl y Bash) ejecutando algunos tutoriales desde un archivo de organización.

El problema es que muchos tutoriales dependen de STDIN. Por ejemplo, si uno ejecuta el siguiente tidbit de perl:

#+BEGIN_SRC perl :tangle hello-name.pl  :results output :export code
use 5.010;
use strict;
use warnings;

say "What is your name?";
my $name=<STDIN>;
say "Hello $name, how are you?";

#+END_SRC

Emacs no esperará a que la interacción del usuario escriba correctamente un nombre en STDIN, e inmediatamente mostrará:

#+RESULTS:
: What is your name?
: Hello , how are you?

Lo mismo usando un ejemplo bash. Esta:

#+BEGIN_SRC sh  :results output :export code :tangle dir-input.sh
#!/bin/bash

if [ -z "$TEST_DIR" ]
then
    echo "TEST_DIR was not set, please enter the path: "
    read input_variable
    export TEST_DIR=$input_variable
fi
#+END_SRC

No esperará la entrada del usuario, y Emacs inmediatamente devolverá esto:

#+RESULTS:
: TEST_DIR was not set, please enter the path: 

¿Hay una forma nativa para que Emacs espere la entrada en un bloque enredado en ejecución?

Si no es así, ¿podría dar algunos consejos sobre cómo escribir algo como una tangle-and-run-via-shell-bufferfunción que:

• Enrede el bloque de código en el punto, guardando con el nombre de archivo dado,
• ejecutar el archivo correspondiente en un shellbúfer visible ,
• posiblemente aceptando aportes del usuario,
• y finalmente informar STDOUT, si hay alguno, a #+RESULTS:?

Si dicha característica no está implementada (todavía) en Org, ¿cómo podría implementarse con elisp?

Actualización: después de buscar y estudiar más los manuales de Emacs y elisp, parece que la forma de hacerlo sería aprovechar Comint , como tal vez make-comint-in-buffer.

(make-comint-in-buffer "*cmd-buffer*" nil "perl" nil "hello-name.pl")

Desafortunadamente, eso está sobre mi cabeza en este momento 😣

Prueba esto

Nota : Se realizaron los siguientes cambios menores en su bloque de código:

• Se movió #!/bin/bashal encabezado del bloque de código :shebang #!/bin/bashpara establecer automáticamente los permisos de los archivos ejecutables cuando el bloque está enredado dir-input.sh.

• El código de depuración agregado para mostrar $TEST_DIRse asignó correctamente desde read input_variable.

#+BEGIN_SRC sh  :results output :export code :tangle dir-input.sh :shebang #!/bin/bash

if [ -z "$TEST_DIR" ]
then
    echo "TEST_DIR was not set, please enter the path: "
    read input_variable
    export TEST_DIR=$input_variable
    echo "# export TEST_DIR=$TEST_DIR"
fi
#+END_SRC   

Luego creó un nuevo bloque de código para llamar al archivo enredado ./dir-input.sh.

#+BEGIN_SRC sh :results output :shebang #!/bin/bash  :var USER_INPUT=(read-string "Test Dir: ")
  echo $USER_INPUT | ./dir-input.sh 
#+END_SRC

Encabezado de aviso :var USER_INPUT=(read-string "Test Dir: ")

Este encabezado mostrará un Test Dir:mensaje en la minibufferventana cuando el bloque de código se ejecute usando a C-c C-c.

Ingrese la ruta, por ejemplo / ruta / a / prueba / dir enter

y el bloque pasará la entrada a la ./dir-input.shvía STDIN. Deberías ver lo siguiente#+RESULTS:

#+RESULTS:
: TEST_DIR was not set, please enter the path: 
: # export TEST_DIR=/path/to/test/dir

Espero que haya ayudado!

Código probado con:
GNU Emacs 24.4.1 (x86_64-apple-darwin14.0.0, NS apple-appkit-1343.14) de la
versión 2014-12-25 org-mode: 8.3.2