Hi Alex,

Many thanks! Now it works, though it would be much better to have
'call' working correctly.

(de shell* (S)   # run shell command with interactive input
   (let Raw (raw)
      (unless Raw (raw T))
      (let Opts '(icrnl icanon iexten echo echoe echok echoctl echoke)
  #! use (call "stty") to see what options need to be toggled
         (call "sh" "-c" (pack "stty " (glue " " Opts) "; " S "; stty
-" (glue " -" Opts)))
      (unless Raw (raw NIL)) )))
(shell* "echo -n 'name: '; read name; echo $name")

Best regards,
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe

Reply via email to