Commit 81d7692c authored by inge's avatar inge
Browse files

Part 1 in the great prefetch cleanup.

parent a129c35a
Sun Jul 26 18:10:38 1992 Inge Wallin (inge@lysator)
* cache.el: cleaned up handling of the who info buffer slightly.
This should become very nice once the cookie code is used
instead.
* async.el: Deleted some unnecessary junk.
* prefetch.el New functions: lyskom-reset-prefetch,
lyskom-setup-prefetch, lyskom-prefetch-membership,
lyskom-prefetch-all-conf-stats, lyskom-prefetch-marks,
lyskom-prefetch-who-is-on. Not all of these functions are
working as intended but at least they should do their job.
Sun Jul 19 12:07:22 1992 Linus Tolke Y (linus@lysator) Sun Jul 19 12:07:22 1992 Linus Tolke Y (linus@lysator)
* commands1.el (lyskom-return-who-info-line): Fixed a bug that * commands1.el (lyskom-return-who-info-line): Fixed a bug that
......
...@@ -72,8 +72,8 @@ this function shall be with current-buffer the BUFFER." ...@@ -72,8 +72,8 @@ this function shall be with current-buffer the BUFFER."
; (initiate-get-conf-stat 'follow ; (initiate-get-conf-stat 'follow
; 'lyskom-show-logged-out-person ; 'lyskom-show-logged-out-person
; pno)) ; pno))
; (if (not (zerop lyskom-pers-no)) ;nej: (if (not (zerop lyskom-pers-no))
; (initiate-who-is-on 'who-buffer 'cache-set-who-info-list)))) ;nej: (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))))
) )
((eq msg-no 2) ; Login, obsolete. ((eq msg-no 2) ; Login, obsolete.
...@@ -148,8 +148,6 @@ this function shall be with current-buffer the BUFFER." ...@@ -148,8 +148,6 @@ this function shall be with current-buffer the BUFFER."
(initiate-get-conf-stat 'follow (initiate-get-conf-stat 'follow
'lyskom-show-logged-in-person 'lyskom-show-logged-in-person
pers-no)) pers-no))
; (if (not (zerop lyskom-pers-no))
; (initiate-who-is-on 'who-buffer 'cache-set-who-info-list))
(if (and (not (zerop lyskom-pers-no)) (if (and (not (zerop lyskom-pers-no))
lyskom-who-info-buffer-is-on) lyskom-who-info-buffer-is-on)
(initiate-get-session-info 'who-buffer 'cache-add-session-info (initiate-get-session-info 'who-buffer 'cache-add-session-info
......
...@@ -185,7 +185,7 @@ otherwise return nil" ...@@ -185,7 +185,7 @@ otherwise return nil"
;;; who-info cache ;;; who-info cache
(defun cache-set-who-info-list (who-info-arr) (defun cache-initiate-who-info-buffer (who-info-arr)
"Sets the cache of who-info items." "Sets the cache of who-info items."
(setq lyskom-who-info-cache (list 'WHO-INFO-LIST)) (setq lyskom-who-info-cache (list 'WHO-INFO-LIST))
(lyskom-save-excursion (lyskom-save-excursion
......
...@@ -278,21 +278,6 @@ will be inserted before it." ...@@ -278,21 +278,6 @@ will be inserted before it."
(t (t
(setq rlist (cdr rlist))))))) (setq rlist (cdr rlist)))))))
;; This is the old recursive version. It can be removed once it is
;; established that the iterative version is correct. /Inge
;; (cond
;; ((null rlist)
;; (cons read-info nil))
;; ((or (atom (car rlist)) ;The dummy element.
;; (<= (read-info->priority read-info)
;; (+ (if before -1 0)
;; (read-info->priority (car rlist)))))
;; (setcdr rlist (read-list-enter-read-info read-info (cdr rlist) before))
;; rlist)
;; (t
;; (cons read-info rlist))))
(defun read-list-delete-read-info (conf-no rlist) (defun read-list-delete-read-info (conf-no rlist)
"Destructively removes all the entries for the conf CONF-NO in RLIST. "Destructively removes all the entries for the conf CONF-NO in RLIST.
RLIST is a list of read-info." RLIST is a list of read-info."
......
...@@ -23,6 +23,10 @@ ...@@ -23,6 +23,10 @@
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se. ;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;; ;;;;;
;;;; ================================================================ ;;;; ================================================================
;;; +++ lyskom-reset-prefetch to be called on client reset.
;;; must restart everything.
;;; +++ THIS DOES NOT WORK CURRENTLY
(defun lyskom-reset-prefetch () nil)
;;;; ================================================================ ;;;; ================================================================
;;;; ;;;;
;;;; File: prefetch.el ;;;; File: prefetch.el
...@@ -193,6 +197,32 @@ lyskom-prefetch-stack." ...@@ -193,6 +197,32 @@ lyskom-prefetch-stack."
(lyskom-continue-prefetch)) (lyskom-continue-prefetch))
(defun lyskom-prefetch-membership (pers-no &optional queue)
"+++"
(initiate-get-membership 'main lyskom-set-membership pers-no)
;; h{mtar medlemsskapet i sm} delar
;; och d{refter conf-stat f|r m|tena
nil)
(defun lyskom-prefetch-all-conf-stats (&optional queue)
"+++"
nil)
(defun lyskom-prefetch-marks (&optional queue)
"+++"
(initiate-get-marks 'main 'cache-set-marked-texts)
nil)
(defun lyskom-prefetch-who-is-on (&optional queue)
"+++"
;;(cache-initiate-who-info-buffer) +++do it later this way
(initiate-who-is-on 'prefetch 'cache-initiate-who-info-buffer)
nil)
;;; ================================================================ ;;; ================================================================
;;; Functions internal to the prefetch package ;;; Functions internal to the prefetch package
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment