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

Kolla blocking-do och apo också.

parent 01ad61f0
Sun Jan 4 01:42:08 1998 David Kgedal <davidk@lysator.liu.se>
* utilities.el (lyskom-next-apo-timeout): Gjorde om till en defun.
(lyskom-reset-apo-timeout): Dito.
(lyskom-accept-process-output): Dito.
* lyskom-rest.el (options): Satte prioriteten fr options till 9.
Sat Jan 3 22:25:51 1998 David Kgedal <davidk@lysator.liu.se>
* internal.el (lyskom-halt,lyskom-resume): Anvnd assq istllet
......
......@@ -24,10 +24,12 @@
8: [queuelen-8] [queuenames-8]
9: [queuelen-9] [queuenames-9]
call: [in-call]")
call: [in-call]
[apo] [blocking-do]")
(defvar lyskom-prof-buffer nil)
(defvar lyskom-prof-fields nil)
(defvar lyskom-prof-frame nil)
(defun fields-new (string)
(let ((fields nil))
......@@ -171,12 +173,12 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(defun lyskom-prof-set-queue-priority (queue-name priority)
(let ((oldpri (get queue-name 'lyskom-queue-priority)))
(when oldpri
(aset queue-names oldpri (delq queue-name (aref queue-names oldpri)))
(fields-replace lyskom-prof-fields
(intern (concat "queuenames-" (int-to-string oldpri)))
(mapconcat 'symbol-name (aref queue-names oldpri) ","))))
(let* ((oldpri (get queue-name 'lyskom-queue-priority))
(noldpri (or oldpri 0)))
(aset queue-names noldpri (delq queue-name (aref queue-names noldpri)))
(fields-replace lyskom-prof-fields
(intern (concat "queuenames-" (int-to-string noldpri)))
(mapconcat 'symbol-name (aref queue-names noldpri) ",")))
(aset queue-names priority (cons queue-name (aref queue-names priority)))
(fields-replace lyskom-prof-fields
(intern (concat "queuenames-" (int-to-string priority)))
......@@ -214,6 +216,23 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(sit-for 0))
(defadvice blocking-do (around stat activate)
(fields-replace lyskom-prof-fields 'blocking-do
(concat "blocking-do " (symbol-name command)))
(sit-for 0)
ad-do-it
(fields-replace lyskom-prof-fields 'blocking-do "")
(sit-for 0))
(defadvice lyskom-accept-process-output (around stat activate)
(fields-replace lyskom-prof-fields 'apo "apo")
(sit-for 0)
ad-do-it
(fields-replace lyskom-prof-fields 'apo " ")
(sit-for 0.1))
;; Initialazation
......@@ -226,12 +245,14 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(setq lyskom-prof-fields (fields-new lyskom-prof-template))
(if window-system
(progn
(select-frame (make-frame '((height . 22))))
(display-buffer lyskom-prof-buffer))
(when (not (frame-live-p lyskom-prof-frame))
(setq lyskom-prof-frame (make-frame '((height . 25)))))
(select-frame lyskom-prof-frame)
(display-buffer lyskom-prof-buffer)
(goto-char 0))
(let ((w (selected-window)))
(split-window nil 8)
(set-window-buffer w lyskom-prof-buffer)
(select-window w))))
(lyskom-prof-init)
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