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

- fixed abort-re clause in chat 

- passing submatch argument to 'abort in the chat-monitor
This commit is contained in:
frese 2004-07-16 12:49:42 +00:00
parent 5be06d7481
commit 731fc793c0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/chat.scm
View File

@ -70,8 +70,8 @@
(task (re (m) ; See RE => return false. (task (re (m) ; See RE => return false.
(if cmon (cmon 'found m)) (if cmon (cmon 'found m))
#f) #f)
(abort-re (#f s) ; See $chat-abort-re => (abort-re (s) ; See $chat-abort-re =>
(if cmon (cmon 'abort #f)) ; abort & return the (if cmon (cmon 'abort s)) ; abort & return the
(chat-cont s)) ; abort string. (chat-cont s)) ; abort string.
(on-eof (on-eof
@ -91,7 +91,7 @@
;;; - found(match) ;;; - found(match)
;;; - new-input(text) ;;; - new-input(text)
;;; - sending(text) ;;; - sending(text)
;;; - abort ;;; - abort(text)
;;; - eof ;;; - eof
;;; - timeout ;;; - timeout
@ -117,7 +117,7 @@
((sending) (format port "send(~a)\n" val)) ((sending) (format port "send(~a)\n" val))
((eof) (write-string "EOF encountered.\n" port)) ((eof) (write-string "EOF encountered.\n" port))
((timeout) (write-string "-- timed out. \n" port)) ((timeout) (write-string "-- timed out. \n" port))
((abort) (write-string "-- aborting. \n" port)) ((abort) (format port "-- aborting(~a). \n" val))
(else (format port "Unknown chat event: ~a ~a\n" event val))) (else (format port "Unknown chat event: ~a ~a\n" event val)))
(force-output port))) (force-output port)))