[cl-soap-cvs] CVS update: cl-soap/src/wsdl.lisp

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/src
In directory common-lisp.net:/tmp/cvs-serv23484/src

Modified Files:
	wsdl.lisp 
Log Message:
incorporated wsdl caching to main code

Date: Mon Sep 26 13:14:55 2005
Author: scaekenberghe

Index: cl-soap/src/wsdl.lisp
diff -u cl-soap/src/wsdl.lisp:1.17 cl-soap/src/wsdl.lisp:1.18
--- cl-soap/src/wsdl.lisp:1.17	Mon Sep 26 12:52:45 2005
+++ cl-soap/src/wsdl.lisp	Mon Sep 26 13:14:55 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: wsdl.lisp,v 1.17 2005/09/26 10:52:45 scaekenberghe Exp $
+;;;; $Id: wsdl.lisp,v 1.18 2005/09/26 11:14:55 scaekenberghe Exp $
 ;;;;
 ;;;; The basic WSDL protocol: we parse the generic and soap specific parts
 ;;;;
@@ -300,6 +300,25 @@
   (let ((buffer (do-http-request url)))
     (with-input-from-string (in buffer)
       (parse-wsdl in))))
+
+;; A simple caching mechanism for WSDL's by URL
+
+(defvar *wsdl-cache* (make-hash-table :test #'equal))
+
+(defun wsdl-cache-get (url)
+  "Access a possibly cached WSDL url, downloading and parsing it if necessary"
+  (let ((cached (gethash url *wsdl-cache*)))
+    (if cached
+        cached
+      (setf (gethash url *wsdl-cache*) (parse-wsdl-url url)))))
+
+(defun wsdl-cache-clear (url)
+  "Clear the WSDL caching of url"
+  (remhash url *wsdl-cache*))
+
+(defun wsdl-cache-clear-all ()
+  "Clear the whole WSDL cache"
+  (clrhash *wsdl-cache*))
 
 ;; Interpreting the WSDL model