Re: [Chicken-users] OpenSSL egg option defaults poll

[Andy Bennett]

On 23/11/14 18:38, Florian Zumbiehl wrote:
> Hi,
> 
>>       ;; close
>>       (lambda ()
>>         (when (startup #t)
>>           (if outbuf
>> -             (begin
>> -               (output outbuf)
>> -               (set! outbuf "")))
>> +           (begin
>> +             (unbuffered-write outbuf 0 outbufsize)
>> +             (set! outbufsize 0)))
>>           (set! out-open? #f)
>>           (shutdown)))
> 
> AFAICS, this makes it impossible to close the file descriptors behind ports
> where the remote end has closed the connection while there is still data
> queued for transmission.

Find a new version of the patch attached. This is version (3) and is
against v1.6.4. A diff against versiion (2) is here:

-----
diff -upr v1.6.4-andyjpb-fix-2/openssl.scm v1.6.4-andyjpb-fix-3/openssl.scm
--- v1.6.4-andyjpb-fix-2/openssl.scm    2014-11-23 13:10:43.801483458 +0000
+++ v1.6.4-andyjpb-fix-3/openssl.scm    2014-11-25 15:53:35.035152667 +0000
@@ -481,13 +481,17 @@ EOF
             (unbuffered-write buffer)))
         ;; close
         (lambda ()
-          (when (startup #t)
-            (if outbuf
-              (begin
-                (unbuffered-write outbuf 0 outbufsize)
-                (set! outbufsize 0)))
-            (set! out-open? #f)
-            (shutdown)))
+          (dynamic-wind
+            void
+            (lambda ()
+              (when (startup #t)
+                (if outbuf
+                  (begin
+                    (unbuffered-write outbuf 0 outbufsize)
+                    (set! outbufsize 0)))))
+            (lambda ()
+              (set! out-open? #f)
+              (shutdown))))
         ;; flush
         (lambda ()
           (when outbuf
-----


Regards,
@ndy

-- 
address@hidden
http://www.ashurst.eu.org/
0x7EBA75FF

openssl-egg-andyjpb-fix-2014-11-25-3.patch
Description: Text Data