[From nobody Tue Feb  5 01:37:12 2008
Subject: 
Date: Thu, 14 Aug 2003 14:09:42 -0600
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="----_=_NextPart_002_01C3629F.B9513F1C"


------_=_NextPart_002_01C3629F.B9513F1C
Content-Type: text/plain



------_=_NextPart_002_01C3629F.B9513F1C
Content-Type: text/plain;
	name="ATT2616065.txt"
Content-Disposition: attachment;
	filename="ATT2616065.txt"

Today, I added a new macro named WITH-CAST-POINTER to UFFI based on
Edi Weitz's patch. It allows the efficient one time type casting a
pointer. Edi uses this to read an foreign object and write the
contents as either a stream of characters or byte-sized numbers. I'd
like to support this macro in OpenMCL.

What's the best way to add support of this for OpenMCL? In 
SBCL, this macro looks like:

(defmacro with-cast-pointer ((binding-name pointer type) &body body)
  `(let ((,binding-name 
           (sb-alien:cast ,pointer 
                          (* ,(convert-from-uffi-type (eval type) :type)))))
    ,@body))


Thanks very much!

Kevin

 



------_=_NextPart_002_01C3629F.B9513F1C--
]