riece-addon-modules
riece-addon
riece-ruby
- riece-lru
+ riece-cache
riece-mode
;; riece-identity -+-> riece-channel
+2005-11-18 Daiki Ueno <ueno@unixuser.org>
+
+ * riece-cache.el: Renamed from riece-lru.el.
+
2005-11-18 Daiki Ueno <ueno@unixuser.org>
* riece-user.el: Require 'riece-lru.
--- /dev/null
+;;; riece-cache.el --- LRU cache management
+;; Copyright (C) 1998-2005 Daiki Ueno
+
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;; Created: 1998-09-28
+;; Keywords: IRC, riece
+
+;; This file is part of Riece.
+
+;; 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 2, 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 GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(defun riece-cache-make-node (key value &optional previous next)
+ "Make riece-cache-node object."
+ (vector key value previous next))
+
+(defun riece-cache-node-key (node)
+ "Return key of NODE."
+ (aref node 0))
+
+(defun riece-cache-node-value (node)
+ "Return value of NODE."
+ (aref node 1))
+
+(defun riece-cache-node-set-value (node value)
+ "Set value of NODE to VALUE."
+ (aset node 1 value))
+
+(defun riece-cache-node-next (node)
+ "Return next of NODE."
+ (aref node 3))
+
+(defun riece-cache-node-set-next (node next)
+ "Set next of NODE to NEXT."
+ (aset node 3 next))
+
+(defun riece-cache-node-previous (node)
+ "Return previous of NODE."
+ (aref node 2))
+
+(defun riece-cache-node-set-previous (node previous)
+ "Set previous of NODE to PREVIOUS."
+ (aset node 2 previous))
+
+(defun riece-cache-make-map (max-length)
+ "Make riece-cache-map object."
+ (vector max-length (make-vector (* max-length 2) 0) 0 nil nil))
+
+(defun riece-cache-map-max-length (map)
+ "Return max-length of MAP."
+ (aref map 0))
+
+(defun riece-cache-map-hash-obarray (map)
+ "Return hash-obarray of MAP."
+ (aref map 1))
+
+(defun riece-cache-map-hash-length (map)
+ "Return hash-length of MAP."
+ (aref map 2))
+
+(defun riece-cache-map-set-hash-length (map hash-length)
+ "Set hash-length of MAP to HASH-LENGTH."
+ (aset map 2 hash-length))
+
+(defun riece-cache-map-first (map)
+ "Return first of MAP."
+ (aref map 3))
+
+(defun riece-cache-map-set-first (map first)
+ "Set first of MAP to FIRST."
+ (aset map 3 first))
+
+(defun riece-cache-map-last (map)
+ "Return last of MAP."
+ (aref map 4))
+
+(defun riece-cache-map-set-last (map last)
+ "Set last of MAP to LAST."
+ (aset map 4 last))
+
+(defalias 'riece-make-cache 'riece-cache-make-map)
+
+(defun riece-cache-contains (map key)
+ (intern-soft key (riece-cache-map-hash-obarray map)))
+
+(defun riece-cache-get (map key)
+ (let ((node (riece-cache-get-node map key)))
+ (if node
+ (riece-cache-node-value node))))
+
+(defun riece-cache-get-node (map key)
+ (let ((symbol (intern-soft key (riece-cache-map-hash-obarray map)))
+ previous next last node)
+ (when symbol
+ (setq node (symbol-value symbol)
+ previous (riece-cache-node-previous node)
+ next (riece-cache-node-next node)
+ last (riece-cache-map-last map))
+ (if previous
+ (riece-cache-node-set-next previous next))
+ (if next
+ (riece-cache-node-set-previous next previous))
+ (riece-cache-node-set-next node nil)
+ (riece-cache-node-set-previous node last)
+ (riece-cache-node-set-next last node)
+ (riece-cache-map-set-last map node)
+ (if (and (eq node (riece-cache-map-first map)) next)
+ (riece-cache-map-set-first map next))
+ node)))
+
+(defun riece-cache-delete (map key)
+ (let ((symbol (intern-soft key (riece-cache-map-hash-obarray map)))
+ previous next node)
+ (when symbol
+ (setq node (symbol-value symbol)
+ previous (riece-cache-node-previous node)
+ next (riece-cache-node-next node))
+ (if previous
+ (riece-cache-node-set-next previous next))
+ (if next
+ (riece-cache-node-set-previous next previous))
+ (if (eq (riece-cache-map-last map) node)
+ (riece-cache-map-set-last map previous))
+ (if (eq (riece-cache-map-first map) node)
+ (riece-cache-map-set-first map next))
+ (unintern symbol (riece-cache-map-hash-obarray map))
+ (riece-cache-map-set-hash-length map (1- (riece-cache-map-hash-length map)))
+ (riece-cache-node-value node))))
+
+(defun riece-cache-set (map key value)
+ (let ((node (riece-cache-get-node map key)))
+ (if node
+ (riece-cache-node-set-value node value)
+ (if (>= (riece-cache-map-hash-length map)
+ (riece-cache-map-max-length map))
+ (riece-cache-delete map (riece-cache-node-key
+ (riece-cache-map-first map))))
+ (setq node (riece-cache-make-node key value (riece-cache-map-last map) nil))
+ (set (intern key (riece-cache-map-hash-obarray map)) node)
+ (riece-cache-map-set-hash-length map (1+ (riece-cache-map-hash-length map)))
+ (unless (riece-cache-map-first map)
+ (riece-cache-map-set-first map node))
+ (if (riece-cache-map-last map)
+ (progn
+ (riece-cache-node-set-next (riece-cache-map-last map) node)
+ (riece-cache-node-set-previous node (riece-cache-map-last map))))
+ (riece-cache-map-set-last map node))))
+
+(provide 'riece-cache)
+
+;;; riece-cache.el ends here
+++ /dev/null
-(defun riece-lru-make-node (key value &optional previous next)
- "Make riece-lru-node object."
- (vector key value previous next))
-
-(defun riece-lru-node-key (node)
- "Return key of NODE."
- (aref node 0))
-
-(defun riece-lru-node-value (node)
- "Return value of NODE."
- (aref node 1))
-
-(defun riece-lru-node-set-value (node value)
- "Set value of NODE to VALUE."
- (aset node 1 value))
-
-(defun riece-lru-node-next (node)
- "Return next of NODE."
- (aref node 3))
-
-(defun riece-lru-node-set-next (node next)
- "Set next of NODE to NEXT."
- (aset node 3 next))
-
-(defun riece-lru-node-previous (node)
- "Return previous of NODE."
- (aref node 2))
-
-(defun riece-lru-node-set-previous (node previous)
- "Set previous of NODE to PREVIOUS."
- (aset node 2 previous))
-
-(defun riece-lru-make-map (max-length)
- "Make riece-lru-map object."
- (vector max-length (make-vector (* max-length 2) 0) 0 nil nil))
-
-(defun riece-lru-map-max-length (map)
- "Return max-length of MAP."
- (aref map 0))
-
-(defun riece-lru-map-hash-obarray (map)
- "Return hash-obarray of MAP."
- (aref map 1))
-
-(defun riece-lru-map-hash-length (map)
- "Return hash-length of MAP."
- (aref map 2))
-
-(defun riece-lru-map-set-hash-length (map hash-length)
- "Set hash-length of MAP to HASH-LENGTH."
- (aset map 2 hash-length))
-
-(defun riece-lru-map-first (map)
- "Return first of MAP."
- (aref map 3))
-
-(defun riece-lru-map-set-first (map first)
- "Set first of MAP to FIRST."
- (aset map 3 first))
-
-(defun riece-lru-map-last (map)
- "Return last of MAP."
- (aref map 4))
-
-(defun riece-lru-map-set-last (map last)
- "Set last of MAP to LAST."
- (aset map 4 last))
-
-(defalias 'riece-make-lru 'riece-lru-make-map)
-
-(defun riece-lru-contains (map key)
- (intern-soft key (riece-lru-map-hash-obarray map)))
-
-(defun riece-lru-get (map key)
- (let ((node (riece-lru-get-node map key)))
- (if node
- (riece-lru-node-value node))))
-
-(defun riece-lru-get-node (map key)
- (let ((symbol (intern-soft key (riece-lru-map-hash-obarray map)))
- previous next last node)
- (when symbol
- (setq node (symbol-value symbol)
- previous (riece-lru-node-previous node)
- next (riece-lru-node-next node)
- last (riece-lru-map-last map))
- (if previous
- (riece-lru-node-set-next previous next))
- (if next
- (riece-lru-node-set-previous next previous))
- (riece-lru-node-set-next node nil)
- (riece-lru-node-set-previous node last)
- (riece-lru-node-set-next last node)
- (riece-lru-map-set-last map node)
- (if (and (eq node (riece-lru-map-first map)) next)
- (riece-lru-map-set-first map next))
- node)))
-
-(defun riece-lru-delete (map key)
- (let ((symbol (intern-soft key (riece-lru-map-hash-obarray map)))
- previous next node)
- (when symbol
- (setq node (symbol-value symbol)
- previous (riece-lru-node-previous node)
- next (riece-lru-node-next node))
- (if previous
- (riece-lru-node-set-next previous next))
- (if next
- (riece-lru-node-set-previous next previous))
- (if (eq (riece-lru-map-last map) node)
- (riece-lru-map-set-last map previous))
- (if (eq (riece-lru-map-first map) node)
- (riece-lru-map-set-first map next))
- (unintern symbol (riece-lru-map-hash-obarray map))
- (riece-lru-map-set-hash-length map (1- (riece-lru-map-hash-length map)))
- (riece-lru-node-value node))))
-
-(defun riece-lru-set (map key value)
- (let ((node (riece-lru-get-node map key)))
- (if node
- (riece-lru-node-set-value node value)
- (if (>= (riece-lru-map-hash-length map)
- (riece-lru-map-max-length map))
- (riece-lru-delete map (riece-lru-node-key
- (riece-lru-map-first map))))
- (setq node (riece-lru-make-node key value (riece-lru-map-last map) nil))
- (set (intern key (riece-lru-map-hash-obarray map)) node)
- (riece-lru-map-set-hash-length map (1+ (riece-lru-map-hash-length map)))
- (unless (riece-lru-map-first map)
- (riece-lru-map-set-first map node))
- (if (riece-lru-map-last map)
- (progn
- (riece-lru-node-set-next (riece-lru-map-last map) node)
- (riece-lru-node-set-previous node (riece-lru-map-last map))))
- (riece-lru-map-set-last map node))))
-
-(provide 'riece-lru)
\ No newline at end of file
(require 'riece-server)
(require 'riece-user)
(require 'riece-mode)
-(require 'riece-lru)
+(require 'riece-cache)
(defun riece-get-buffer-create (name &optional init-major-mode)
(let ((buffer (get-buffer name)))
(setq identities
(cons (riece-make-identity (symbol-name user) server-name)
identities)))
- (riece-lru-map-hash-obarray riece-user-lru))
+ (riece-cache-map-hash-obarray riece-user-cache))
identities)))
(defun riece-get-channels-on-server (server-name)
(require 'riece-coding) ;riece-default-coding-system
(require 'riece-identity)
(require 'riece-compat)
-(require 'riece-lru)
+(require 'riece-cache)
(eval-and-compile
(defvar riece-server-keyword-map
(make-local-variable 'riece-channel-obarray)
(setq riece-channel-obarray (make-vector riece-channel-obarray-size 0))
(make-local-variable 'riece-coding-system)
- (make-local-variable 'riece-user-lru)
- (setq riece-user-lru (riece-make-lru riece-user-lru-max-size))
+ (make-local-variable 'riece-user-cache)
+ (setq riece-user-cache (riece-make-cache riece-user-cache-max-size))
(buffer-disable-undo)
(erase-buffer)))
(require 'riece-identity)
(require 'riece-mode)
-(require 'riece-lru)
+(require 'riece-cache)
;;; User object:
(defun riece-find-user (name)
"Get a user object named NAME from the server buffer."
- (riece-lru-get riece-user-lru name)
+ (riece-cache-get riece-user-cache name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
riece-user-obarray)))
(if symbol
(symbol-value symbol))))
(defun riece-forget-user (name)
- (riece-lru-delete riece-user-lru name)
+ (riece-cache-delete riece-user-cache name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name))))
(when symbol
(makunbound symbol)
(unintern (symbol-name symbol) riece-user-obarray))))
(defun riece-rename-user (old-name new-name)
- (riece-lru-delete riece-user-lru old-name)
- (riece-lru-set riece-user-lru new-name new-name)
+ (riece-cache-delete riece-user-cache old-name)
+ (riece-cache-set riece-user-cache new-name new-name)
(unless (equal (riece-identity-canonicalize-prefix old-name)
(riece-identity-canonicalize-prefix new-name))
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix old-name)
riece-user-obarray)))
(if symbol
(symbol-value symbol)
- (riece-lru-set riece-user-lru name name)
+ (riece-cache-set riece-user-cache name name)
(set (intern (riece-identity-canonicalize-prefix name)
riece-user-obarray)
(riece-make-user nil nil nil nil nil)))))
projects / riece / commitdiff