Hi,
Me again... I just separated my questions to different threads...
There is strange echo I get by communicating with a pseudo terminal process on MacOSX 10.4 Gambit-Cb14.
I open a dummy process that is a pseudo-terminal using the open-process command and when I send data to the port that data gets repeated in the pseudo-terminal output-port. See the example below for better clarity. Can I turn off that echo?
I cannot test it on the WinXP platform since open-process is not implemented for (MinGW or Cygwin).
Thank you,
Francois Magnan
---------------------
; Pseudo-terminal program
(define (command-loop)
(let ((command (read-line)))
(serve-command command)
(command-loop)))
(define (serve-command command)
(pp (list "got command" command)))
(command-loop)
; build the above to an executable file called "/tmp/pttest" using gsc and gcc.
---------------------
(define (test-pseudo-terminal)
(let ((port (open-process (list
path: "/tmp/pttest"
stderr-redirection: #t
pseudo-terminal: #t ))))
;(force-output port)
(pp port)
(force-output)
(thread-sleep! 1)
(display "toto\n" port)
(force-output port)
(pp (read-line port))
(pp (read-line port))
(close-port port)))
(test-pseudo-terminal)
; execute the above in a gsi interpreter
; On MacOSX 10.4 I get
; "\33[1mtoto\33[m"
;"(\"got command\" \"toto\")"