diff options
Diffstat (limited to 'Lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 32 | ||||
| -rw-r--r-- | Lisp/libobjcl.lisp | 7 |
2 files changed, 0 insertions, 39 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 7b07624..7515d3a 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -12,38 +12,6 @@ ;;;; (@* "Foreign data types") (defctype char-pointer :pointer) -;; Let us just hope that two longs make a long long, space-wise. -(defcstruct double-long - (left :long) - (right :long)) - -(defcunion obj-data-union - (id-val :pointer) - (class-val :pointer) - (exc-val :pointer) - (sel-val :pointer) - (char-val :char) - (short-val :short) - (int-val :int) - (long-val :long) - #-cffi-features:no-long-long (long-long-val :long-long) - #+cffi-features:no-long-long (double-long-val double-long) - (float-val :float) - (double-val :double) - (bool-val :boolean) - (charptr-val :pointer) - (ptr-val :pointer)) - -(defcstruct obj-data - (type char-pointer) - (data obj-data-union)) - -(defmethod translate-to-foreign ((value string) (type (eql 'char-pointer))) - (foreign-string-alloc value)) - -(defmethod translate-from-foreign (c-value (type (eql 'char-pointer))) - (foreign-string-to-lisp c-value)) - ;;;; (@* "Objective C object wrapper classes") (defclass c-pointer-wrapper () diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 85dfc45..33bc460 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -25,13 +25,6 @@ (defcfun ("objcl_shutdown_runtime" %shutdown-runtime) :void) -(defcfun ("objcl_invoke_method" - %objcl-invoke-method) obj-data - (receiver obj-data) - (method-selector :pointer) - (argc :int) - &rest) - (defcfun ("objcl_invoke_with_types" %objcl-invoke-with-types) :pointer (argc :int) (return_typespec :string) |