blob: 3e0e3e786f99c8027e8a5de878891e6e1f8f3e23 (
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
|
unit dllist;
interface
{$linklib pq}
{$i dllisttypes.inc}
function DLNewList:PDllist;cdecl; external;
procedure DLFreeList(_para1:PDllist);cdecl; external;
function DLNewElem(val : pointer) :PDlelem;cdecl;external;
procedure DLFreeElem(_para1:PDlelem);cdecl; external;
function DLGetHead(_para1:PDllist):PDlelem;cdecl; external;
function DLGetTail(_para1:PDllist):PDlelem;cdecl; external;
function DLRemTail(l:PDllist):PDlelem;cdecl; external;
function DLGetPred(_para1:PDlelem):PDlelem;cdecl; external;
function DLGetSucc(_para1:PDlelem):PDlelem;cdecl; external;
procedure DLRemove(_para1:PDlelem);cdecl; external;
procedure DLAddHead(list:PDllist; node:PDlelem);cdecl; external;
procedure DLAddTail(list:PDllist; node:PDlelem);cdecl; external;
function DLRemHead(list:PDllist):PDlelem;cdecl; external;
{ Macro translated }
Function DLE_VAL(elem : PDlelem) : pointer;
implementation
// This function is also defined in DllistDyn!
Function DLE_VAL(elem : PDlelem) : pointer;
begin
DLE_VAL:=elem^.dle_val
end;
end.
|
