blob: b41d4abc43b2fcd2d4d134b814e78862e91e0d97 (
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
// included by glib2.pas
{*
* glibconfig.inc
*
* depends on gmacros.inc
*}
{$IFDEF read_forward_definitions}
Pgint8 = ^gint8;
gint8 = shortint;
Pguint8 = ^guint8;
guint8 = byte;
Pgint16 = ^gint16;
gint16 = smallint;
Pguint16 = ^guint16;
guint16 = word;
Pgint32 = ^gint32;
gint32 = longint;
Pguint32 = ^guint32;
guint32 = dword;
Pgint64 = ^gint64;
gint64 = int64;
Pguint64 = ^guint64;
guint64 = qword;
pgssize = ^gssize;
gssize = SizeInt;
pgsize = ^gsize;
gsize = SizeUInt;
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
PGSystemThread = ^TGSystemThread;
TGSystemThread = record
data : array [0..3] of char;
dummy_double : double;
dummy_pointer : pointer;
dummy_long : longint;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
G_MINFLOAT = 5.0e-324;
G_MAXFLOAT = 1.7e308;
G_MINDOUBLE = G_MINFLOAT; // since gdouble is the same
G_MAXDOUBLE = G_MAXFLOAT; // as gfloat
G_MAXSHORT = 32767;
G_MINSHORT = -G_MAXSHORT-1;
G_MAXUSHORT = 2*G_MAXSHORT+1;
G_MAXINT = 2147483647;
G_MININT = -G_MAXINT-1;
G_MAXUINT = 4294967295; // 2*G_MAXINT+1;
G_MINLONG = G_MININT; // since glong is the same
G_MAXLONG = G_MAXINT; // as gint
G_MAXULONG = G_MAXUINT;
G_MAXINT64 = 9223372036854775807;
G_MININT64 = -G_MAXINT64-1;
{$IFNDEF KYLIX}
G_MAXUINT64 = qword(2)*qword(G_MAXINT64)+1;
{$ELSE}
G_MAXUINT64 = G_MAXINT64; // Kylix doesn't support constants bigger than G_MAXINT64
{$ENDIF}
const
G_GINT16_FORMAT = 'hi';
G_GUINT16_FORMAT = 'hu';
G_GINT32_FORMAT = 'i';
G_GUINT32_FORMAT = 'u';
G_HAVE_GINT64 = 1; { always true }
G_GINT64_FORMAT = 'I64i';
G_GUINT64_FORMAT = 'I64u';
GLIB_SIZEOF_VOID_P = SizeOf(Pointer);
GLIB_SIZEOF_LONG = SizeOf(longint);
GLIB_SIZEOF_SIZE_T = SizeOf(longint);
const
GLIB_SYSDEF_POLLIN = 1;
GLIB_SYSDEF_POLLOUT = 4;
GLIB_SYSDEF_POLLPRI = 2;
GLIB_SYSDEF_POLLERR = 8;
GLIB_SYSDEF_POLLHUP = 16;
GLIB_SYSDEF_POLLNVAL = 32;
{$ifdef windows}
G_MODULE_SUFFIX = 'dll';
{$else}
G_MODULE_SUFFIX = 'so';
{$endif}
function GUINT_TO_POINTER(i: guint): pointer;
{$ENDIF read_interface_rest}
// included by glib2.pas
|
