File: GSObjCRuntime.h

package info (click to toggle)
gnustep-corebase 0.1.1%2B20230710-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,608 kB
  • sloc: ansic: 25,359; objc: 4,347; cpp: 75; xml: 49; makefile: 24; sh: 7
file content (132 lines) | stat: -rw-r--r-- 4,082 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
/* GSObjCRuntime.h
   
   Copyright (C) 2013 Free Software Foundation, Inc.
   
   Written by: Stefan Bidigaray
   Date: July, 2013
   
   This file is part of GNUstep CoreBase library.
   
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; see the file COPYING.LIB.
   If not, see <http://www.gnu.org/licenses/> or write to the 
   Free Software Foundation, 51 Franklin Street, Fifth Floor, 
   Boston, MA 02110-1301, USA.
*/

#ifndef __GSOBJCRUNTIME_H__
#define __GSOBJCRUNTIME_H__

#include "config.h"
#include "CoreFoundation/CFBase.h"
#include "GSPrivate.h"

GS_PRIVATE const void *CFTypeRetainCallBack (CFAllocatorRef alloc,
                                             const void *value);

GS_PRIVATE void CFTypeReleaseCallBack (CFAllocatorRef alloc, const void *value);

#if HAVE_OBJC_RUNTIME_H

#define BOOL OBJC_BOOL
#include <objc/runtime.h>
#undef BOOL

extern void **__CFRuntimeObjCClassTable;
extern UInt32 __CFRuntimeClassTableCount;

CF_INLINE void *
__CFISAForTypeID (CFTypeID typeID)
{
  return (__CFRuntimeObjCClassTable && typeID < __CFRuntimeClassTableCount ?
          __CFRuntimeObjCClassTable[typeID] : NULL);
}

CF_INLINE Boolean
CF_IS_OBJC (CFTypeID typeID, const void *obj)
{
#if defined(OBJC_SMALL_OBJECT_MASK)
  return (obj && (((unsigned long)obj & OBJC_SMALL_OBJECT_MASK) != 0
                  || typeID >= __CFRuntimeClassTableCount
                  || object_getClass ((id) obj) != __CFISAForTypeID (typeID)));
#else
  return (obj && (typeID >= __CFRuntimeClassTableCount
                  || object_getClass ((id) obj) != __CFISAForTypeID (typeID)));
#endif
}

#define CF_OBJC_FUNCDISPATCHV(typeID, rettype, obj, sel, ...) \
do { \
  if (CF_IS_OBJC(typeID, obj)) \
    { \
      rettype (*imp)(id, SEL, ...); \
      static SEL s = NULL; \
      if (!s) \
        s = sel_registerName(sel); \
      imp = (rettype (*)(id, SEL, ...)) \
        class_getMethodImplementation (object_getClass((id)obj), s); \
      return (rettype)imp((id)obj, s, ##__VA_ARGS__); \
    } \
  } while(0)

#define CF_OBJC_FUNCDISPATCHV_RETAINED(typeID, rettype, obj, sel, ...) \
do { \
  if (CF_IS_OBJC(typeID, obj)) \
    { \
      rettype (*imp)(id, SEL, ...); \
      static SEL s = NULL; \
      if (!s) \
        s = sel_registerName(sel); \
      imp = (rettype (*)(id, SEL, ...)) \
        class_getMethodImplementation (object_getClass((id)obj), s); \
      rettype val = imp((id)obj, s, ##__VA_ARGS__); \
      if (val != NULL) CFRetain(val); \
      return val; \
    } \
  } while(0)

#define CF_OBJC_CALLV(rettype, var, obj, sel, ...) \
do { \
  rettype (*imp)(id, SEL, ...); \
  static SEL s = NULL; \
  if (!s) \
    s = sel_registerName(sel); \
  imp = (rettype (*)(id, SEL, ...)) \
    class_getMethodImplementation (object_getClass((id)obj), s); \
  var = imp((id)obj, s, ##__VA_ARGS__); \
} while (0)

#define CF_OBJC_VOIDCALLV(obj, sel, ...) \
do { \
  void (*imp)(id, SEL, ...); \
  static SEL s = NULL; \
  if (!s) \
    s = sel_registerName(sel); \
  imp = (void (*)(id, SEL, ...)) \
    class_getMethodImplementation (object_getClass((id)obj), s); \
  imp((id)obj, s, ##__VA_ARGS__); \
} while (0)

#else

#define __CFISAForTypeID(typeID) (NULL)
#define CF_IS_OBJC(typeID, obj) (0)

#define CF_OBJC_FUNCDISPATCHV(typeID, rettype, obj, sel, ...)
#define CF_OBJC_FUNCDISPATCHV_RETAINED(typeID, rettype, obj, sel, ...)
#define CF_OBJC_CALLV(rettype, var, obj, sel, ...)
#define CF_OBJC_VOIDCALLV(obj, sel, ...)

#endif /* HAVE_OBJC_RUNTIME_H */

#endif /* __GSOBJCRUNTIME_H__ */