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

net/win32-ssl: handle eof (connection closed by server)

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-19 06:57:17 -06:00
parent 1b7819dcd5
commit 5efab46f5a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/net/win32-ssl.rkt
View File

@ -73,6 +73,7 @@
(define SEC_E_OK 0) (define SEC_E_OK 0)
(define SEC_I_CONTINUE_NEEDED #x00090312) (define SEC_I_CONTINUE_NEEDED #x00090312)
(define SEC_I_CONTEXT_EXPIRED #x00090317)
(define SEC_E_INCOMPLETE_MESSAGE #x80090318) (define SEC_E_INCOMPLETE_MESSAGE #x80090318)
(define SEC_E_BUFFER_TOO_SMALL #x80090321) (define SEC_E_BUFFER_TOO_SMALL #x80090321)
@ -440,6 +441,9 @@
(unless (= prev-n n) (unless (= prev-n n)
;; Try with a larger buffer: ;; Try with a larger buffer:
(loop (* size 2) n))] (loop (* size 2) n))]
[(= r SEC_I_CONTEXT_EXPIRED)
;; Other end closed the connection.
(close-output-port in-post-w)]
[else [else
(error 'decrypt "unexpected result: ~x" r)]))) (error 'decrypt "unexpected result: ~x" r)])))