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
|
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.
$Log: dllist.pp,v $
Revision 1.5 2005/02/14 17:13:19 peter
* truncate log
Revision 1.4 2005/01/24 10:58:26 michael
+ Dynamic library implementation by Joost van der Sluis
}
|
