[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Timing with MCL2.0
- To: info-mcl
- Subject: Timing with MCL2.0
- From: email@example.com (Jacques Duthen)
- Date: 2 Sep 91 17:09:48 GMT
- Newsgroups: comp.lang.lisp.mcl
- Organization: IRCAM, Paris (France)
- Sender: Jacques.Duthen
I'm using MCL2.0 on a Mac II with system 6.0.4 and multifinder F1-6.0.4.
I've tried the following to measure this delay:
(defun my-hook () (incf *i*) nil)
(setf *i* 0)
(setf ccl:*event-hook* #'my-hook)
and 10 seconds later:
(setf ccl:*event-hook* nil)
and now the value of *i* is about 100
I've tried different combinations, but could not succeed to change the
delay between calls to event-dispatch.
Can anybody tell me what should I do to get event-dispatch called more often?
Btw, the variable *running-sleep-ticks* described page 208 does not exist.
Actually, I've written a scheduler (which can run in real-time or
out-of-real-time or step-by-step). I have a MIDI driver (written by Boynton)
which gives me a precise clock-time (1/100 or 1/1000 th of a second).
At the moment, I use an event-hook function called periodically (and often,
if that is possible) by the MCL event system which compares the current time
with the exectime of the next ready task. I would prefer to get a clock
interrupt when the time of the next ready task comes.
This is possible in Le_Lisp with the primitive "clockalarm".
Is there any Macintosh trap which would receive a (precise) time and a lisp
function (possibly with no arguments or possibly always the same function),
and would call (at the interrupt level) this function at this time ?
Thanks for any help or pointer. [jack]