X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=b9b415a0b711121da8cb8dcea11faf2a75194669;hb=57a2b49670c77a435b67d19fed2d4ea80e5d2a3f;hp=5f52cb045cabdc692124eb42e8ee085a051ad0ad;hpb=8f452e676ff1c49ad238f9ed43d834af67896c46;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 5f52cb0..b9b415a 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -168,9 +168,14 @@
 (defmacro get-rdestructor (key)
   `(resource-destructor (gethash ,key resources-table)))
 
-(let ((resources-table (make-hash-table :test 'equal)))
+(let ((resources-table (make-hash-table :test 'equal))
+      (expiration-time 50000))
+
+  (defun set-expiration-time (new-time)
+    (setq expiration-time new-time))
 
   (defun set-resource (key plist constructor destructor &key static)
+    (expire-resources)
     (setf (gethash key resources-table)
 	  (make-resource :plist plist
 			 :constructor constructor
@@ -188,6 +193,13 @@
     (funcall (get-rdestructor key))
     (setf (get-rtime key) nil))
 
+  (defun expire-resource (key &optional (now (SDL_GetTicks)))
+    (let ((time (get-rtime key)))
+      (cond ((and (numberp time) (> (- now time) expiration-time)) (free-resource key)))))
+
+  (defun expire-resources ()
+    (maphash (lambda (key res) (expire-resource key)) resources-table))
+
   (defun free-all-resources ()
     (maphash (lambda (key res) (free-resource key)) resources-table)))