scsh-conservatory
/
scsh-expect
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- removed opening the chat package 

- removed changing the terminal modes, since interact does this now
This commit is contained in:
frese 2004-08-31 10:23:16 +00:00
parent 571e979360
commit 44c9d5be05
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
examples/ssh-same-path.scm
View File

@ -1,5 +1,5 @@
#!/bin/sh
exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let-opt -e main -s "$0" "$@"
exec scsh -lel expect/load.scm -o threads -o tty-utils -o expect -o let-opt -e main -s "$0" "$@"
!#
;; this script runs the SSH program and passes all it's arguments to
@ -54,13 +54,14 @@ exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let-
(tsend/cr task (string-append "cd " dir))
(let ((tty-before (tty-info user-in)))
(modify-tty (lambda (ti) (raw (echo-off ti))) user-in)
;;(let ((tty-before (tty-info user-in)))
;; (modify-tty (lambda (ti) (raw (echo-off ti))) user-in)
;; raw-initialize needed??
(interact task)
(set-tty-info/now user-in tty-before))))
;;(set-tty-info/now user-in tty-before))
))
;; read string without echoing it
;; optionals arguments: