blob: d6eefb273d0f08c6e8c9e39397ddc2bc15f7e607 (
plain)
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
|
/* GObject introspection: Helper functions for ffi integration
*
* Copyright (C) 2008 Red Hat, Inc
* Copyright (C) 2005 Matthias Clasen
*
* 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 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; if not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#include <config.h>
#include "girffi.h"
ffi_type *
g_ir_ffi_get_ffi_type (GITypeTag tag)
{
switch (tag)
{
case GI_TYPE_TAG_VOID:
return &ffi_type_void;
case GI_TYPE_TAG_BOOLEAN:
return &ffi_type_uint;
case GI_TYPE_TAG_INT8:
return &ffi_type_sint8;
case GI_TYPE_TAG_UINT8:
return &ffi_type_uint8;
case GI_TYPE_TAG_INT16:
return &ffi_type_sint16;
case GI_TYPE_TAG_UINT16:
return &ffi_type_uint16;
case GI_TYPE_TAG_INT32:
return &ffi_type_sint32;
case GI_TYPE_TAG_UINT32:
return &ffi_type_uint32;
case GI_TYPE_TAG_INT64:
return &ffi_type_sint64;
case GI_TYPE_TAG_UINT64:
return &ffi_type_uint64;
case GI_TYPE_TAG_INT:
return &ffi_type_sint;
case GI_TYPE_TAG_UINT:
return &ffi_type_uint;
case GI_TYPE_TAG_SSIZE:
#if GLIB_SIZEOF_SIZE_T == 4
return &ffi_type_sint32;
#elif GLIB_SIZEOF_SIZE_T == 8
return &ffi_type_sint64;
#else
# error "Unexpected size for size_t: not 4 or 8"
#endif
case GI_TYPE_TAG_LONG:
return &ffi_type_slong;
case GI_TYPE_TAG_SIZE:
case GI_TYPE_TAG_GTYPE:
#if GLIB_SIZEOF_SIZE_T == 4
return &ffi_type_uint32;
#elif GLIB_SIZEOF_SIZE_T == 8
return &ffi_type_uint64;
#else
# error "Unexpected size for size_t: not 4 or 8"
#endif
case GI_TYPE_TAG_TIME_T:
#if SIZEOF_TIME_T == 4
return &ffi_type_sint32;
#elif SIZEOF_TIME_T == 8
return &ffi_type_sint64;
#else
# error "Unexpected size for time_t: not 4 or 8"
#endif
case GI_TYPE_TAG_ULONG:
return &ffi_type_ulong;
case GI_TYPE_TAG_FLOAT:
return &ffi_type_float;
case GI_TYPE_TAG_DOUBLE:
return &ffi_type_double;
case GI_TYPE_TAG_UTF8:
case GI_TYPE_TAG_FILENAME:
case GI_TYPE_TAG_ARRAY:
case GI_TYPE_TAG_INTERFACE:
case GI_TYPE_TAG_GLIST:
case GI_TYPE_TAG_GSLIST:
case GI_TYPE_TAG_GHASH:
case GI_TYPE_TAG_ERROR:
return &ffi_type_pointer;
}
g_assert_not_reached ();
return NULL;
}
|
