From 1d410434fefeef5ac26fc188eb31d69d922278ac Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 10 Feb 2008 16:39:39 +0100 Subject: Glue layer: Add functions for class creation. darcs-hash:e2dad7f45636d2065160cadec47f805f286a5bc7 --- Lisp/libobjcl.lisp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index fd575d2..5616f71 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -133,6 +133,27 @@ (defcfun ("objcl_release_lock" %objcl-acquire-lock) :pointer (lock :pointer)) +(defcfun ("objcl_create_class" %objcl-create-class) :pointer + (class-name :string) + (superclass :pointer) + (protocol-numer :int) + (protocol-names (:array :string)) + (ivar-number :int) + (ivar-names (:array :string)) + (ivar-typespecs (:array :string))) + +(defcfun ("objcl_add_method" %objcl-add-method) :void + (class :pointer) + (method-name :pointer) + (callback :pointer) + (argc :int) + (return-typespec :string) + (arg-typespecs (:array :string)) + (signature :string)) + +(defcfun ("objcl_finalise_class" %objcl-finalise-class) :void + (class :pointer)) + (defcvar *objcl-current-exception-lock* :pointer) (defcvar *objcl-current-exception* :pointer) -- cgit v1.2.3