blob: 0d95649546caa52e77c518641286aaabfdc862ab (
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
|
type
Pqelem = ^qelem;
qelem = record
q_forw : Pqelem;
q_back : Pqelem;
q_data : array[0..0] of char;
end;
procedure insque(__elem:pointer; __prev:pointer);cdecl;external clib name 'insque';
procedure remque(__elem:pointer);cdecl;external clib name 'remque';
type
// __compar_fn_t = function (_para1:pointer; _para2:pointer):longint;cdecl;
Pcomparison_fn_t = ^comparison_fn_t;
// comparison_fn_t = __compar_fn_t;
type
hsearch_ACTION = (FIND, ENTER);
PACTION = ^ACTION;
ACTION = Longint;
{ Pentry = ^entry;
entry = record
key : Pchar;
data : pointer;
end;
}
Phsearch_ENTRY = ^hsearch_ENTRY;
hsearch_ENTRY = record
{undefined structure}
end;
PPhsearch_ENTRY = ^Phsearch_ENTRY;
function hsearch(__item:hsearch_ENTRY; __action:hsearch_ACTION):Phsearch_ENTRY;cdecl;external clib name 'hsearch';
function hcreate(__nel:size_t):longint;cdecl;external clib name 'hcreate';
procedure hdestroy;cdecl;external clib name 'hdestroy';
type
Phsearch_data = ^hsearch_data;
hsearch_data = record
table : Phsearch_ENTRY;
size : dword;
filled : dword;
end;
function hsearch_r(__item:hsearch_ENTRY; __action:hsearch_ACTION; __retval:PPhsearch_ENTRY; __htab:Phsearch_data):longint;cdecl;external clib name 'hsearch_r';
function hcreate_r(__nel:size_t; __htab:Phsearch_data):longint;cdecl;external clib name 'hcreate_r';
procedure hdestroy_r(__htab:Phsearch_data);cdecl;external clib name 'hdestroy_r';
type
PSearch_VISIT = ^tsearch_VISIT;
tsearch_VISIT = (preorder, postorder, endorder, leaf);
function tsearch(__key:pointer; __rootp:Ppointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tsearch';
function tfind(__key:pointer; __rootp:Ppointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tfind';
function tdelete(__key:pointer; __rootp:Ppointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tdelete';
type
__action_fn_t = procedure (__nodep:pointer; __value:tsearch_VISIT; __level:longint);cdecl;
procedure twalk(__root:pointer; __action:__action_fn_t);cdecl;external clib name 'twalk';
type
__free_fn_t = procedure (__nodep:pointer);cdecl;
procedure tdestroy(__root:pointer; __freefct:__free_fn_t);cdecl;external clib name 'tdestroy';
function lfind(__key:pointer; __base:pointer; __nmemb:Psize_t; __size:size_t; __compar:__compar_fn_t):pointer;cdecl;external clib name 'lfind';
function lsearch(__key:pointer; __base:pointer; __nmemb:Psize_t; __size:size_t; __compar:__compar_fn_t):pointer;cdecl;external clib name 'lsearch';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
PQElement = ^TQElement;
TQElement = qelem;
THSearchEntry = hsearch_ENTRY;
PHSearchEntry = ^THSearchEntry;
THSearchEntryOpaque = hsearch_ENTRY;
PHSearchEntryOpaque = ^THSearchEntryOpaque;
function hsearch_r(__item:hsearch_ENTRY; __action:hsearch_ACTION; var __retval:Phsearch_ENTRY; __htab:Phsearch_data):longint;cdecl;external clib name 'hsearch_r';
function tsearch(__key:pointer; var __rootp:pointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tsearch';
function tfind(__key:pointer; var __rootp:pointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tfind';
function tdelete(__key:pointer; var __rootp:pointer; __compar:__compar_fn_t):pointer;cdecl;external clib name 'tdelete';
|
