[cl-plus-ssl-cvs] CVS update: cl+ssl/ffi.lisp cl+ssl/index.html cl+ssl/package.lisp cl+ssl/reload.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory common-lisp.net:/tmp/cvs-serv21049

Modified Files:
	ffi.lisp index.html package.lisp reload.lisp 
Log Message:
reload function

Date: Wed Nov 16 18:07:55 2005
Author: dlichteblau

Index: cl+ssl/ffi.lisp
diff -u cl+ssl/ffi.lisp:1.1.1.1 cl+ssl/ffi.lisp:1.2
--- cl+ssl/ffi.lisp:1.1.1.1	Wed Nov  9 23:10:44 2005
+++ cl+ssl/ffi.lisp	Wed Nov 16 18:07:53 2005
@@ -232,3 +232,8 @@
     (initialize method))
   (unless *bio-lisp-method*
     (setf *bio-lisp-method* (make-bio-lisp-method))))
+
+(defun reload ()
+  (cffi:load-foreign-library cl+ssl-system:*libssl-pathname*)
+  (setf *ssl-global-context* nil)
+  (setf *ssl-global-method* nil))


Index: cl+ssl/index.html
diff -u cl+ssl/index.html:1.1.1.1 cl+ssl/index.html:1.2
--- cl+ssl/index.html:1.1.1.1	Wed Nov  9 23:10:44 2005
+++ cl+ssl/index.html	Wed Nov 16 18:07:53 2005
@@ -113,12 +113,16 @@
       reads and writes to this server stream will be pushed through the
       OpenSSL library. The SSL connection can be closed using the
       standard <tt>close</tt> function.
-    </p>
-    <p>
       <tt>certificate</tt> is the path to a file containing the PEM-encoded
       certificate for your server. <tt>key</tt> is the path to the PEM-encoded
       key for the server, which must not be associated with a
       passphrase.
+    </p>
+    <p>
+      <div class="def">Function CL+SSL:RELOAD ()</div>
+      Reload <tt>libssl<tt>.  Call this function after restarting a Lisp
+      core with CL+SSL dumped into it on Lisp implementations that do
+      not reload shared libraries automatically.
     </p>
 
     <h3>Portability</h3>


Index: cl+ssl/package.lisp
diff -u cl+ssl/package.lisp:1.1.1.1 cl+ssl/package.lisp:1.2
--- cl+ssl/package.lisp:1.1.1.1	Wed Nov  9 23:10:44 2005
+++ cl+ssl/package.lisp	Wed Nov 16 18:07:53 2005
@@ -9,5 +9,6 @@
 (defpackage :cl+ssl
   (:use :common-lisp :trivial-gray-streams)
   (:export #:ensure-initialized
+           #:reload
 	   #:make-ssl-client-stream
            #:make-ssl-server-stream))


Index: cl+ssl/reload.lisp
diff -u cl+ssl/reload.lisp:1.1.1.1 cl+ssl/reload.lisp:1.2
--- cl+ssl/reload.lisp:1.1.1.1	Wed Nov  9 23:10:44 2005
+++ cl+ssl/reload.lisp	Wed Nov 16 18:07:53 2005
@@ -10,8 +10,8 @@
 ;;;     the actual sources
 ;;;   - before ssl.lisp is loaded, which needs the library at compilation
 ;;;     time on some implemenations
-;;;   - but not every time ssl.lisp is re-loaded as would happen if we
-;;;     put this directly into ssl.lisp
+;;;   - but not every time ffi.lisp is re-loaded as would happen if we
+;;;     put this directly into ffi.lisp
 
 (in-package :cl+ssl-system)
 (cffi:load-foreign-library *libssl-pathname*)