Expose struct slot type and count via FOREIGN-SLOT-TYPE and FOREIGN-SLOT-COUNT.

This is especially useful when the type and count have been groveled.

diff --git a/src/package.lisp b/src/package.lisp
index 5dd0ade..77fa56e 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -127,7 +127,9 @@
    #:foreign-bitfield-value
    #:foreign-slot-pointer
    #:foreign-slot-value
+   #:foreign-slot-type
    #:foreign-slot-offset
+   #:foreign-slot-count
    #:foreign-slot-names
    #:foreign-type-alignment
    #:foreign-type-size

diff --git a/src/types.lisp b/src/types.lisp
index 3a90050..582a94d 100644 (file)
--- a/src/types.lisp
+++ b/src/types.lisp
@@ -701,10 +701,18 @@ The foreign array must be freed with foreign-array-free."
   "Return the address of SLOT-NAME in the structure at PTR."
   (foreign-struct-slot-pointer ptr (get-slot-info type slot-name)))
 
+(defun foreign-slot-type (type slot-name)
+  "Return the type of SLOT in a struct TYPE."
+  (slot-type (get-slot-info type slot-name)))
+
 (defun foreign-slot-offset (type slot-name)
   "Return the offset of SLOT in a struct TYPE."
   (slot-offset (get-slot-info type slot-name)))
 
+(defun foreign-slot-count (type slot-name)
+  "Return the number of items in SLOT in a struct TYPE."
+  (slot-count (get-slot-info type slot-name)))
+
 (defun foreign-slot-value (ptr type slot-name)
   "Return the value of SLOT-NAME in the foreign structure at PTR."
   (foreign-struct-slot-value ptr (get-slot-info type slot-name)))