Changeset 418

Timestamp:

Jan 30, 2004, 11:28:48 AM (21 years ago)

Author:

Gary Byers

Message:

BIT/BITFIELD foreign integer types.

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (2 diffs)

trunk/ccl/lib/foreign-types.lisp

@@ -646 +646 @@
     (make-foreign-integer-type :bits bits :signed nil)))
 
+(def-foreign-type-translator bitfield (&optional (bits 1))
+  (make-foreign-integer-type :bits bits :signed nil :alignment 1))
+
+                                                  
+
 (def-foreign-type-method (integer :unparse) (type)
-  (list (if (foreign-integer-type-signed type) :signed :unsigned)
-        (foreign-integer-type-bits type)))
-
+  (let* ((bits (foreign-integer-type-bits type))
+         (signed (foreign-integer-type-signed type))
+         (alignment (foreign-integer-type-alignment type)))
+    (if (eql alignment 1)
+      (if (eql bits 1)
+        :bit
+        `(:bitfield ,bits))
+      (list (if signed :signed :unsigned) bits))))
+  
 (def-foreign-type-method (integer :type=) (type1 type2)
   (and (eq (foreign-integer-type-signed type1)
@@ -1408 +1419 @@
 (def-foreign-type unsigned-long (unsigned 32))
 (def-foreign-type unsigned-doubleword (unsigned 64))
+(def-foreign-type bit (bitfield 1))
 
 (def-foreign-type float single-float)