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> 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: Handle async-text-aux-changed:
* async.el (lyskom-parse-async): 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." ...@@ -852,6 +852,11 @@ Do nothing if the TLIST is less than N elements long."
(highest-conf-no :read-only t)) (highest-conf-no :read-only t))
:nil-safe) :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." ...@@ -1122,6 +1122,11 @@ Args: TEXT-NO. Value: text-stat."
(set-buffer lyskom-buffer) (set-buffer lyskom-buffer)
(setq lyskom-static-server-info tmp)))) (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. ;;; Parsing of complex datatypes without cache.
......
...@@ -1346,6 +1346,21 @@ Args: KOM-QUEUE HANDLER SESSION-NO &rest DATA" ...@@ -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-call kom-queue lyskom-ref-no handler data 'lyskom-parse-num)
(lyskom-send-packet kom-queue (lyskom-format-objects 117 conf-no)))) (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