Commit 5ed5b142 authored by David Byers's avatar David Byers
Browse files

Support server calls 118-120.

Detailed changes:
> 	Support for new server calls:
> 	* parse.el (lyskom-parse-scheduling-info): New function.
>
> 	* komtypes.el (scheduling-info): New datatype.
>
> 	* services.el (initiate-get-scheduling): New function.
> 	(initiate-set-scheduling): New function.
> 	(initiate-set-connection-time-format): New function.
>
parent 4fadea6a
2003-08-16 David Byers <byers@lysator.liu.se>
Support for new server calls:
* parse.el (lyskom-parse-scheduling-info): New function.
* komtypes.el (scheduling-info): New datatype.
* services.el (initiate-get-scheduling): New function.
(initiate-set-scheduling): New function.
(initiate-set-connection-time-format): New function.
Handle async-text-aux-changed:
* async.el (lyskom-parse-async): Handle async-text-aux-changed.
......
......@@ -852,6 +852,11 @@ Do nothing if the TLIST is less than N elements long."
(highest-conf-no :read-only t))
:nil-safe)
(def-komtype scheduling-info
((priority :read-only t)
(weight :read-only t))
:nil-safe)
;;; ================================================================
......
......@@ -1122,6 +1122,11 @@ Args: TEXT-NO. Value: text-stat."
(set-buffer lyskom-buffer)
(setq lyskom-static-server-info tmp))))
(defun lyskom-parse-scheduling-info ()
"Parse a scheduling-info"
(lyskom-create-scheduling-info (lyskom-parse-num)
(lyskom-parse-num)))
;;; ================================================================
;;; Parsing of complex datatypes without cache.
......
......@@ -1346,6 +1346,21 @@ Args: KOM-QUEUE HANDLER SESSION-NO &rest DATA"
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-num)
(lyskom-send-packet kom-queue (lyskom-format-objects 117 conf-no))))
(defun initiate-get-scheduling (kom-queue handler session-no &rest data)
(lyskom-server-call
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-scheduling-info)
(lyskom-send-packet kom-queue (lyskom-format-objects 118 (or session-no 0)))))
(defun initiate-set-scheduling (kom-queue handler session-no priority weight &rest data)
(lyskom-server-call
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-void)
(lyskom-send-packet kom-queue (lyskom-format-objects 119 (or session-no 0) priority weight))))
(defun initiate-set-connection-time-format (kom-queue handler use-utc &rest data)
(lyskom-server-call
(lyskom-call kom-queue lyskom-ref-no handler data 'lyskom-parse-void)
(lyskom-send-packet kom-queue (lyskom-format-objects 120 use-utc))))
;;; ================================================================
......
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