Objective-C layer: Add functions for determining the Objective-C runtime used and for asking for the size of types by typespec.

darcs-hash:197f36840c1568c5b3431833a0118d06729b9247

1 files changed, 31 insertions, 0 deletions

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 1d14e8b..d2f3e3c 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -64,6 +64,17 @@
     :pointer
   (obj :pointer))
 
+(defcfun ("objcl_get_runtime_type" %objcl-get-runtime-type) :string)
+
+(defcfun ("objcl_sizeof_type" %objcl-sizeof-type) :long
+  (typespec :string))
+
+(defcfun ("objcl_sizeof_return_type" %objcl-sizeof-return-type) :long
+  (typespec :string))
+
+(defcfun ("objcl_alignof_type" %objcl-alignof-type) :long
+  (typespec :string))
+
 (defcfun objcl-get-nil :pointer)
 (defcfun objcl-get-yes :long)
 (defcfun objcl-get-no :long)
@@ -523,3 +534,23 @@ Returns: (VALUES typespec byte-position string-position)"
               byte-position)
             #-(or) nil
             string-position)))
+
+
+;;;; (@* "Helper functions")
+(defun sizeof (typespec)
+  (%objcl-sizeof-type typespec))
+
+(defun alignof (typespec)
+  (%objcl-alignof-type typespec))
+
+(defun return-type-sizeof (typespec)
+  (%objcl-sizeof-return-type typespec))
+
+(defun runtime-type ()
+  (let ((runtime (%objcl-get-runtime-type)))
+    (assert (member runtime '("GNU" "NeXT") :test #'string=)
+            (runtime)
+            "Unkown Objective-C runtime type ~S.  Allowed: (\"GNU\" \"NeXT\")."
+            runtime)
+    (cond ((string= runtime "GNU") :gnu)
+          ((string= runtime "NeXT") :next))))