[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
- To: Peter Forster <Forster@informatik.uni-stuttgart.de>
- Subject: QuickTime Examples
- From: email@example.com (Bill St. Clair)
- Date: Tue, 18 Feb 1992 09:54:57 -0500
- Cc: info-mcl
>From: Peter Forster <Forster@informatik.uni-stuttgart.de>
>Date: Mon, 17 Feb 92 16:21:02 +0100
>Subject: QuickTime Examples
>I've spent some time trying to run the QT-examples for MCL2.Obj1p3.
>But no luck. The only thing I got is the error message, that
>the trap #_Gestalt is unimplemted.
>Before I waste my time with try&error methods, does someone know
>what is missing here?
>;;;try to compile QTSample.lisp
>? (require :movies)
>> Error: Can't find the trap #_GESTALT! Consider (reindex-interfaces)
>> While executing: CCL::LOAD-TRAP
>> Type Command-/ to continue, Command-. to abort.
>> If continued: pretend nothing happenned.
>See the Restarts... menu item for further choices.
We had not yet translated the gestalt trap when 2.0b1 was shipped.
It will be part of 2.0 final. If you want it before then, here 'tis:
(deftrap _gestalt ((selector :ostype) (response (:pointer :signed-long)))
(:no-trap (ccl::%stack-block ((ret 8))
:d0 selector :a0 response '(:d0 :a0))
(%put-ptr response (%get-ptr ret 4))
(%get-word ret 2))))
Remember, if you change any of the interface files you need to
As UEDA masaya said, there is also a ccl::gestalt function built
into MCL. It is defined as follows:
(defun ccl::gestalt (selector)
(rlet ((res :longint))
(if (eql 0 (#_Gestalt selector res))
Hence, Daniel Ranson's function in QTSample.lisp can be recoded as:
(defun quicktime-available-p ()
As UEDA masaya quoted me, I repeat:
I can't officially sanction the use of non-exported functions, but your
use of ccl::gestalt is correct and I doubt that we're going to remove
it any time soon.