Commit 06792c9f authored by David Byers's avatar David Byers
Browse files

Implementerade anropen accept-async och query-async

parent 90e195c9
...@@ -10,6 +10,14 @@ Mon Aug 5 02:16:04 1996 David K ...@@ -10,6 +10,14 @@ Mon Aug 5 02:16:04 1996 David K
* lyskom-rest.el (lyskom-update-prompt): Testa * lyskom-rest.el (lyskom-update-prompt): Testa
lyskom-dont-change-prompt. lyskom-dont-change-prompt.
Sun Aug 4 12:51:38 1996 David Byers <davby@sen2.ida.liu.se>
* services.el (initiate-query-async): Ny funktion.
* services.el (initiate-accept-async): Ny funktion.
* parse.el (lyskom-parse-number-array): Ny funktion.
Fri Aug 2 00:00:23 1996 David Kgedal <davidk@lysator.liu.se> Fri Aug 2 00:00:23 1996 David Kgedal <davidk@lysator.liu.se>
* services.el (initiate-user-active): Ny funktion. * services.el (initiate-user-active): Ny funktion.
......
...@@ -42,6 +42,9 @@ Buggar ...@@ -42,6 +42,9 @@ Buggar
Allmänna förbättringar Allmänna förbättringar
När man skickar in en kommentar borde klienten kolla att inga nya
kommentarer till texten har skrivits under tiden.
Inför en membership-cache. Inför en membership-cache.
Skriv inte ut stora fonoter på en gång. Skriv inte ut stora fonoter på en gång.
......
...@@ -504,6 +504,11 @@ than 0. Args: ITEMS-TO-PARSE PRE-FETCHED. Returns -1 if ITEMS-TO-PARSE is ...@@ -504,6 +504,11 @@ than 0. Args: ITEMS-TO-PARSE PRE-FETCHED. Returns -1 if ITEMS-TO-PARSE is
;;; High level parsing. Parsing of entire datatypes. ;;; High level parsing. Parsing of entire datatypes.
(defun lyskom-parse-number-array ()
"Parse an array of integers."
(lyskom-parse-vector (lyskom-parse-num) 'lyskom-parse-num))
(defun lyskom-parse-membership () (defun lyskom-parse-membership ()
"Parse a membership." "Parse a membership."
(lyskom-create-membership (lyskom-create-membership
......
...@@ -747,6 +747,21 @@ Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA" ...@@ -747,6 +747,21 @@ Args: KOM-QUEUE HANDLER CONF-NO TEXT-NO &rest DATA"
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-void) (lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-void)
(lyskom-send-packet kom-queue (lyskom-send-packet kom-queue
(lyskom-format-objects 40 conf-no no-of-unread)))) (lyskom-format-objects 40 conf-no no-of-unread))))
(defun initiate-accept-async (kom-queue handler list &rest data)
"Request asynchronous messages in LIST
Args: KOM-QUEUE HANDLER LIST &rest DATA"
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-void)
(lyskom-send-packet kom-queue (lyskom-format-objects 80
(cons 'LIST
list))))
(defun initiate-query-async (kom-queue handler &rest data)
"Request information on which async messages are being sent.
Args: KOM-QUEUE HANDLER &rest DATA"
(lyskom-call kom-queue lyskom-ref-no handler data
'lyskom-parse-number-array)
(lyskom-send-packet kom-queue (lyskom-format-objects 81)))
......
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