objc-include-functions.lisp

   1 (in-package :objcffi)
   2
   3 (cffi:defctype BOOL (:boolean :char))
   4 (cffi:defctype id :pointer)
   5 (cffi:defctype Ivar :pointer)
   6 (cffi:defctype Method :pointer)
   7 (cffi:defctype Class :pointer)
   8 (cffi:defctype SEL :pointer)
   9
  10 ;; warning needs pitstop each pipe.
  11 ;; then a lot of touching up at the end
  12 ;; grep -h "OBJC_EXPORT" /usr/include/objc/objc(|-(|class|runtime)).h | grep -v ")(" | tr "\t" " " | sed -e 's/ *OBJC_EXPORT *\(.*\)/\1/' | sed -e 's/ (/(/' | sed -e 's/\(.*\) \(.*\)[ ]*(\(.*\));/(cffi:defcfun ("\2" %\2) :\1 (\3))/' -e 's/\.\.\./\&rest/' | sed -e 's/\, /\) \(/g' |  sed -e 's/(\([^ ]*\) \([^ )]*\))/(\2 \1)/g' | sed -e 's/(\([^ ]*\) \([^ )]*\))/(\2 \1)/'
  13
  14 (cffi:defcfun ("objc_collect_if_needed" %objc_collect_if_needed)
  15    :void (options :unsigned-long))
  16
  17 (cffi:defcfun ("objc_numberAllocated" %objc_numberAllocated)
  18    :unsigned-int)
  19
  20 (cffi:defcfun ("objc_collecting_enabled" %objc_collecting_enabled)
  21    BOOL)
  22
  23 (cffi:defcfun ("objc_allocate_object" %objc_allocate_object)
  24    id (cls Class) (extra :int))
  25
  26 (cffi:defcfun ("objc_assign_strongCast" %objc_assign_strongCast)
  27    id (val id) (dest :pointer)) ;; dest is type id *
  28
  29 (cffi:defcfun ("objc_assign_global" %objc_assign_global)
  30    id (val id) (dest :pointer)) ;; dest is type id *
  31
  32 (cffi:defcfun ("objc_assign_ivar" %objc_assign_ivar)
  33    id (value id) (dest id) (offset :unsigned-int))
  34
  35 ;;(cffi:defcfun ("objc_memmove_collectable" %objc_memmove_collectable)
  36 ;;   :pointer (dst :pointer) (src :pointer) (size :int)) ;; size is type size_t
  37
  38 (cffi:defcfun ("objc_is_finalized" %objc_is_finalized)
  39    BOOL (ptr :pointer))
  40
  41 (cffi:defcfun ("object_setInstanceVariable" %object_setInstanceVariable)
  42    Ivar (id id) (name :string) (variable :pointer))
  43
  44 (cffi:defcfun ("object_getInstanceVariable" %object_getInstanceVariable)
  45    Ivar (id id) (name :string) (variable :pointer)) ;; varible is type void **
  46
  47 (cffi:defcfun ("class_createInstance" %class_createInstance)
  48    id (class Class) (idxIvars :unsigned-int))
  49
  50 (cffi:defcfun ("class_createInstanceFromZone" %class_createInstanceFromZone)
  51    id (class Class) (idxIvars :unsigned-int) (z :pointer))
  52
  53 (cffi:defcfun ("class_setVersion" %class_setVersion)
  54    :void (class Class) (version :int))
  55
  56 (cffi:defcfun ("class_getVersion" %class_getVersion)
  57    :int (class Class))
  58
  59 (cffi:defcfun ("class_getInstanceVariable" %class_getInstanceVariable)
  60    Ivar (class Class) (variable :string))
  61
  62 (cffi:defcfun ("class_getInstanceMethod" %class_getInstanceMethod)
  63    Method (class Class) (selector SEL))
  64
  65 (cffi:defcfun ("class_getClassMethod" %class_getClassMethod)
  66    Method (class Class) (selector SEL))
  67
  68 (cffi:defcfun ("class_addMethods" %class_addMethods)
  69    :void (class Class) (method-list :pointer)) ;; method-list is type struct objc_method_list *
  70
  71 (cffi:defcfun ("class_removeMethods" %class_removeMethods)
  72    :void (class Class) (method-list :pointer)) ;; method-list is type struct objc_method_list *
  73
  74 (cffi:defcfun ("class_poseAs" %class_poseAs)
  75    Class (imposter Class) (original Class))
  76
  77 (cffi:defcfun ("method_getNumberOfArguments" %method_getNumberOfArguments)
  78    :unsigned-int (method Method))
  79
  80 (cffi:defcfun ("method_getSizeOfArguments" %method_getSizeOfArguments)
  81    :unsigned-int (method Method))
  82
  83 (cffi:defcfun ("method_getArgumentInfo" %method_getArgumentInfo)
  84    :unsigned-int (m Method) (arg :int) (type :pointer) (offset :pointer)) ;; type is type const char **, offset is type int *
  85
  86 (cffi:defcfun ("class_nextMethodList" %class_nextMethodList)
  87    :pointer (class Class) (method-list :pointer)) ;; void **, return type is struct objc_method_list *
  88
  89 (cffi:defcfun ("objc_exception_throw" %objc_exception_throw)
  90    :void (exception id))
  91
  92 (cffi:defcfun ("objc_exception_try_enter" %objc_exception_try_enter)
  93    :void (localExceptionData :pointer))
  94
  95 (cffi:defcfun ("objc_exception_try_exit" %objc_exception_try_exit)
  96    :void (localExceptionData :pointer))
  97
  98 (cffi:defcfun ("objc_exception_extract" %objc_exception_extract)
  99    id (localExceptionData :pointer))
 100
 101 (cffi:defcfun ("objc_exception_match" %objc_exception_match)
 102    :int (exceptionClass Class) (exception id))
 103
 104 (cffi:defcfun ("objc_exception_get_functions" %objc_exception_get_functions)
 105    :void (table :pointer)) ;; table is type objc_exception_functions_t *
 106
 107 (cffi:defcfun ("objc_exception_set_functions" %objc_exception_set_functions)
 108    :void (table :pointer)) ;; table is type objc_exception_functions_t *
 109
 110 (cffi:defcfun ("objc_getClass" %objc_getClass)
 111    id (name :string))
 112
 113 (cffi:defcfun ("objc_getMetaClass" %objc_getMetaClass)
 114    id (name :string))
 115
 116 (cffi:defcfun ("objc_msgSend" %objc_msgSend)
 117    id (self id) (op SEL) &rest)
 118
 119 (cffi:defcfun ("objc_msgSendSuper" %objc_msgSendSuper)
 120    id (super :pointer) (op SEL) &rest) ;; super is type struct objc_super *
 121
 122 (cffi:defcfun ("objc_msgSend_fpret" %objc_msgSend_fpret)
 123    :double (self id) (op SEL) &rest)
 124
 125 (cffi:defcfun ("objc_msgSend_stret" %objc_msgSend_stret)
 126    id (self id) (op SEL) &rest)
 127
 128 (cffi:defcfun ("objc_msgSendSuper_stret" %objc_msgSendSuper_stret)
 129    id (super :pointer) (op SEL) &rest) ;; super is type struct objc_super *
 130
 131 (cffi:defcfun ("objc_msgSend_stret" %objc_msgSend_stret)
 132    :void (stretAddr :pointer) (self id) (op SEL) &rest)
 133
 134 (cffi:defcfun ("objc_msgSendSuper_stret" %objc_msgSendSuper_stret)
 135    :void (stretAddr :pointer) (super :pointer) (op SEL) &rest) ;; super is type struct objc_super *
 136
 137 ;;(cffi:defcfun ("objc_msgSendv" %objc_msgSendv)
 138 ;;   id (self id) (op SEL) (arg_size :unsigned-int) (arg_frame marg_list))
 139
 140 ;;(cffi:defcfun ("objc_msgSendv_stret" %objc_msgSendv_stret)
 141 ;;   :void (stretAddr :pointer) (self id) (op SEL) (arg_size :unsigned-int) (arg_frame marg_list))
 142
 143 ;;(cffi:defcfun ("objc_msgSendv_fpret" %objc_msgSendv_fpret)
 144 ;;   :double (self id) (op SEL) (arg_size :unsigned-int) (arg_frame marg_list))
 145
 146 (cffi:defcfun ("objc_getClassList" %objc_getClassList)
 147    :int (buffer :pointer) (bufferLen :int)) ;; buffer is type Class *
 148
 149 (cffi:defcfun ("objc_getClasses" %objc_getClasses)
 150    :pointer)
 151
 152 (cffi:defcfun ("objc_lookUpClass" %objc_lookUpClass)
 153    id (name :string))
 154
 155 (cffi:defcfun ("objc_getRequiredClass" %objc_getRequiredClass)
 156    id (name :string))
 157
 158 (cffi:defcfun ("objc_addClass" %objc_addClass)
 159    :void (myClass Class))
 160
 161 (cffi:defcfun ("objc_setMultithreaded" %objc_setMultithreaded)
 162    :void (flag BOOL))
 163
 164 (cffi:defcfun ("objc_sync_enter" %objc_sync_enter)
 165    :int (obj id))
 166
 167 (cffi:defcfun ("objc_sync_exit" %objc_sync_exit)
 168    :int (obj id))
 169
 170 (cffi:defcfun ("objc_sync_wait" %objc_sync_wait)
 171    :int (obj id) (milliSecondsMaxWait :long-long))
 172
 173 (cffi:defcfun ("objc_sync_notify" %objc_sync_notify)
 174    :int (obj id))
 175
 176 (cffi:defcfun ("objc_sync_notifyAll" %objc_sync_notifyAll)
 177    :int (obj id))
 178
 179 (cffi:defcfun ("sel_isMapped" %sel_isMapped)
 180    BOOL (sel SEL))
 181
 182 (cffi:defcfun ("sel_getName" %sel_getName)
 183    :string (sel SEL))
 184
 185 (cffi:defcfun ("sel_getUid" %sel_getUid)
 186    SEL (str :string))
 187
 188 (cffi:defcfun ("sel_registerName" %sel_registerName)
 189    SEL (str :string))
 190
 191 (cffi:defcfun ("object_getClassName" %object_getClassName)
 192    :string (obj id))
 193
 194 (cffi:defcfun ("object_getIndexedIvars" %object_getIndexedIvars)
 195    :pointer (obj id))
 196