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

- only a bit of make-up

This commit is contained in:
frese 2004-09-20 15:57:57 +00:00
parent a5b218c7e6
commit 0b1163c4c3
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/chat.scm
View File

@ -69,9 +69,9 @@
(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 (s) ; See $chat-abort-re => (abort-re (m) ; See $chat-abort-re =>
(if cmon (cmon 'abort s)) ; abort & return the (if cmon (cmon 'abort m)) ; abort & return the
(chat-cont s)) ; abort string. (chat-cont m)) ; abort string.
(on-eof (on-eof
;; EXPECT triggers the monitor for us. ;; EXPECT triggers the monitor for us.

5
scheme/interact.scm
View File

@ -1,5 +1,3 @@
;; TODO: interpreter?
;; The pattern eof introduces an action that is executed upon end- ;; The pattern eof introduces an action that is executed upon end-
;; of-file. A separate eof pattern may also follow the -output flag ;; of-file. A separate eof pattern may also follow the -output flag
;; in which case it is matched if an eof is detected while writing ;; in which case it is matched if an eof is detected while writing
@ -120,7 +118,8 @@
(cons (cons secs handler) (cons (cons secs handler)
(cdr r)))) (cdr r))))
((interact-clauses (eof (flag ...) body ...) rest ...) ((interact-clauses (eof (flag ...) body ...) rest ...)
(interact-clauses (eof-pattern (flag ...) (cont ignore) body ...) rest ...)) (interact-clauses (eof-pattern (flag ...) (cont ignore) body ...)
rest ...))
((interact-clauses (rx (flag ...) (cont match mvar ...) body ...) rest ...) ((interact-clauses (rx (flag ...) (cont match mvar ...) body ...) rest ...)
(let ((r (interact-clauses rest ...))) (let ((r (interact-clauses rest ...)))
(cons (car r) (cons (car r)