suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Changed "~n" to "\r\n"

Browse Source 
* Used a few #rx"..." instead of (regexp ...)

original commit: 605ef80bacce03311b608f3c68c2df4ae520751a
This commit is contained in:
Eli Barzilay 2004-05-20 05:26:42 +00:00
parent 98f9956c66
commit b0d6dee04b
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
collects/net/pop3-unit.ss
View File

@ -128,17 +128,19 @@
;; -- returns number of messages and number of octets.
(define get-mailbox-status
(let ((stat-regexp (regexp "([0-9]+) ([0-9]+)")))
(lambda (communicator)
(confirm-transaction-mode communicator
"cannot get mailbox status unless in transaction mode")
(send-to-server communicator "STAT")
(apply values
(map string->number
(let-values (((status result)
(get-status-response/match communicator
stat-regexp #f)))
result))))))
(lambda (communicator)
(confirm-transaction-mode
communicator
"cannot get mailbox status unless in transaction mode")
(send-to-server communicator "STAT")
(apply values
(map string->number
(let-values (((status result)
(get-status-response/match
communicator
#rx"([0-9]+) ([0-9]+)"
#f)))
result)))))
;; get-message/complete :
;; communicator x number -> list (string) x list (string)
@ -221,7 +223,7 @@
;; regexp for UIDL responses
(define uidl-regexp (regexp "([0-9]+) (.*)"))
(define uidl-regexp #rx"([0-9]+) (.*)")
;; get-unique-id/single :
;; communicator x number -> string
@ -292,7 +294,7 @@
(define send-to-server
(lambda (communicator message-template . rest)
(apply fprintf (communicator-sender communicator)
(string-append message-template "~n")
(string-append message-template "\r\n")
rest)))
;; get-one-line-from-server :
@ -311,18 +313,16 @@
;; parsing, if necessary.
(define get-server-status-response
(let ((+ok-regexp (regexp "^\\+OK(.*)"))
(-err-regexp (regexp "^\\-ERR(.*)")))
(lambda (communicator)
(let ((receiver (communicator-receiver communicator)))
(let ((status-line (get-one-line-from-server receiver)))
(let ((r (regexp-match +ok-regexp status-line)))
(if r
(values (make-+ok) (cadr r))
(let ((r (regexp-match -err-regexp status-line)))
(if r
(values (make--err) (cadr r))
(signal-malformed-response-error communicator))))))))))
(lambda (communicator)
(let* ((receiver (communicator-receiver communicator))
(status-line (get-one-line-from-server receiver))
(r (regexp-match #rx"^\\+OK(.*)" status-line)))
(if r
(values (make-+ok) (cadr r))
(let ((r (regexp-match #rx"^\\-ERR(.*)" status-line)))
(if r
(values (make--err) (cadr r))
(signal-malformed-response-error communicator)))))))
;; get-status-response/basic :
;; communicator -> server-responses