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

- added EOF clause to interact

This commit is contained in:
frese 2004-09-15 14:51:49 +00:00
parent 0a2217bc5c
commit 96fccbe6b0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/interact.scm
View File

@ -113,12 +113,14 @@
(else (error "Only character-patterns are supported."))))))
(define-syntax interact-clauses
(syntax-rules (timeout)
(syntax-rules (timeout eof)
((interact-clauses) (cons #f '()))
((interact-clauses (timeout secs handler) rest ...)
(let ((r (interact-clauses rest ...)))
(cons (cons secs handler)
(cdr r))))
((interact-clauses (eof (flag ...) body ...) rest ...)
(interact-clauses (eof-pattern (flag ...) (cont ignore) body ...) rest ...))
((interact-clauses (rx (flag ...) (cont match mvar ...) body ...) rest ...)
(let ((r (interact-clauses rest ...)))
(cons (car r)