Commit 2b64fddc authored by David Kågedal's avatar David Kågedal
Browse files

* prefetch.el (lyskom-prefetch-map-size): Tog bort

(lyskom-prefetch-all-conf-texts): Kommenterade bort.
(lyskom-prefetch-conf-texts): Kommenterade bort.
parent 3d5fac2e
......@@ -87,8 +87,6 @@ lyskom-queue.
For every membership-part we fetch the conf-stats
before continuing with the next part.
('MEMBERSHIPISREAD) - Just sets the lyskom-membership-is-read variable to t.
('ALL-CONF-TEXTS) - All text in all conferences.
('CONF-TEXTS) - All text in one conference.
See further documentation in the source code.")
......@@ -130,22 +128,12 @@ This is used to prevent the prefetch code to reenter itself.")
"Variable counting the number of unfinished prefetch requests.")
;+++These should really be in vars.el:
(defvar lyskom-prefetch-limit 1
"Number of prefetch requests the client will try to keep going
at a time.")
(defvar lyskom-prefetch-map-size 25
"Number of local text-no:s that are fetched at a time in a map.")
;;; ================================================================
;;; Functions callable from the outside
(defun lyskom-setup-prefetch ()
"Sets up the prefetch process in lyskom."
;+++ Much more could be done here.
(setq lyskom-prefetch-stack (lyskom-stack-create))
(setq lyskom-pending-prefetch 0)
(setq lyskom-membership-is-read 0))
......@@ -276,22 +264,22 @@ lyskom-prefetch-stack."
(lyskom-continue-prefetch))
(defun lyskom-prefetch-all-conf-texts (&optional queue)
"Prefetches the texts in all conferences."
(if queue
(lyskom-queue-enter queue (list 'ALL-CONF-TEXTS))
(lyskom-stack-push lyskom-prefetch-stack (list 'ALL-CONF-TEXTS)))
(lyskom-continue-prefetch))
;;(defun lyskom-prefetch-all-conf-texts (&optional queue)
;; "Prefetches the texts in all conferences."
;; (if queue
;; (lyskom-queue-enter queue (list 'ALL-CONF-TEXTS))
;; (lyskom-stack-push lyskom-prefetch-stack (list 'ALL-CONF-TEXTS)))
;; (lyskom-continue-prefetch))
(defun lyskom-prefetch-conf-texts (text-list &optional queue)
"Prefetches the texts in all conferences."
(if (null (text-list->texts text-list))
nil
(if queue
(lyskom-queue-enter queue (list 'CONF-TEXTS text-list))
(lyskom-stack-push lyskom-prefetch-stack (list 'CONF-TEXTS text-list))))
(lyskom-continue-prefetch))
;;(defun lyskom-prefetch-conf-texts (text-list &optional queue)
;; "Prefetches the texts in all conferences."
;; (if (null (text-list->texts text-list))
;; nil
;; (if queue
;; (lyskom-queue-enter queue (list 'CONF-TEXTS text-list))
;; (lyskom-stack-push lyskom-prefetch-stack (list 'CONF-TEXTS text-list))))
;; (lyskom-continue-prefetch))
;;; ================================================================
......
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