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 #!/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 ;; 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)) (tsend/cr task (string-append "cd " dir))
(let ((tty-before (tty-info user-in))) ;;(let ((tty-before (tty-info user-in)))
(modify-tty (lambda (ti) (raw (echo-off ti))) user-in) ;; (modify-tty (lambda (ti) (raw (echo-off ti))) user-in)
;; raw-initialize needed?? ;; raw-initialize needed??
(interact task) (interact task)
(set-tty-info/now user-in tty-before)))) ;;(set-tty-info/now user-in tty-before))
))
;; read string without echoing it ;; read string without echoing it
;; optionals arguments: ;; optionals arguments: