diff options
author | Andy Wingo | 2010-12-03 19:59:32 +0100 |
---|---|---|
committer | Andy Wingo | 2010-12-03 19:59:32 +0100 |
commit | c099b9532c890a1e4bdbe79cbf320c36ad3c30d3 (patch) | |
tree | b2ac2faa2328948b21f9dbe45d6b3cf80220b3d7 | |
parent | 55617ccff21f6261109882c85b9bfbe9c154275e (diff) | |
download | tekuti-c099b9532c890a1e4bdbe79cbf320c36ad3c30d3.tar.gz tekuti-c099b9532c890a1e4bdbe79cbf320c36ad3c30d3.zip |
add a simple cache
* tekuti/cache.scm: Add a simple cache.
-rw-r--r-- | Makefile.am | 1 | ||||
-rw-r--r-- | tekuti/cache.scm | 47 |
2 files changed, 48 insertions, 0 deletions
diff --git a/Makefile.am b/Makefile.am index 214334d..7f34647 100644 --- a/Makefile.am +++ b/Makefile.am @@ -3,6 +3,7 @@ moddir=$(prefix)/share/guile/site SOURCES = \ tekuti/base64.scm \ tekuti/boot.scm \ + tekuti/cache.scm \ tekuti/comment.scm \ tekuti/config.scm \ tekuti/filters.scm \ diff --git a/tekuti/cache.scm b/tekuti/cache.scm new file mode 100644 index 0000000..abb1841 --- /dev/null +++ b/tekuti/cache.scm @@ -0,0 +1,47 @@ +;; Tekuti +;; Copyright (C) 2010 Andy Wingo <wingo at pobox dot com> + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 3 of +;; the License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program; if not, contact: +;; +;; Free Software Foundation Voice: +1-617-542-5942 +;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 +;; Boston, MA 02111-1307, USA gnu@gnu.org + +;;; Commentary: +;; +;; A cache for responses. +;; +;;; Code: + +(define-module (tekuti cache) + #:use-module (web request) + #:export (cache-hit? + cache-ref + cache-set)) + +(define (cache-hit? cache master request) + (and cache + (equal? (car cache) master) + (eq? (request-method request) 'GET) + (assoc (request-uri request) (cdr cache)) + #t)) + +(define (cache-ref cache master request) + (apply values (assoc-ref (cdr cache) (request-uri request)))) + +(define (cache-set cache master request . args) + (append (if (and cache (< (length cache) 20)) + cache + (list master)) + (acons (request-uri request) args '()))) |