From 7765ad52e00034edd23bb09bade83d8b282f8040 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 21 Sep 2007 19:52:30 +0200 Subject: 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 --- Lisp/libobjcl.lisp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) (limited to 'Lisp/libobjcl.lisp') 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)))) -- cgit v1.2.3