Glue layer: Add functions for class creation.

darcs-hash:e2dad7f45636d2065160cadec47f805f286a5bc7

1 files changed, 21 insertions, 0 deletions

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)