-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathprotoInkLLs_bodyFNC_C0v2__cutNode.inc
95 lines (95 loc) · 4.29 KB
/
protoInkLLs_bodyFNC_C0v2__cutNode.inc
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
{//.[ PRoTo Singly Linked Lists].....................[ in0k © 13.01.2013 ]...///
/// ///
/// _____ ///
/// +-+-+-+-+-| __|_ _ first -> - ///
/// | PRoTo |__ | | | - ///
/// +-+-+-+-+-|_____|_|_| - ///
/// v 2.0 nil <- = ///
/// ///
///............................................[ v 2.0 in0k © 27.05.2013 ]...//}
{%region /fold 'check "define" for all used macros' }
//--- VARs
{$if defined (_M_protoInkLLs_C0v2__var_FIRST)}
{$define _var_piLLsC0v2_FIRST:=_M_protoInkLLs_C0v2__var_FIRST}
{$else}
{$FATAL 'macro ".._FIRST" : NOT define!'}
{$endif}
//---
{$if defined (_M_protoInkLLs_C0v2__cst_NODE)}
{$define _cst_piLLsC0v2_NODE:=_M_protoInkLLs_C0v2__cst_NODE}
{$else}
{$FATAL 'macro ".._NODE" : NOT define!'}
{$endif}
//---
{$if defined (_M_protoInkLLs_C0v2__out_RES)}
{$define _out_piLLsC0v2_RES:=_M_protoInkLLs_C0v2__out_RES}
{$else}
{$FATAL 'macro ".._RES" : NOT define!'}
{$endif}
//--- FNCs
{$if defined (_M_protoInkLLs_C0v2__lcl_getNext)}
{$define _fnc_piLLsC0v2_getNext:=_M_protoInkLLs_C0v2__lcl_getNext}
{$elseif defined (_M_protoInkLLs_blockFNK__GetNext)}
{$define _fnc_piLLsC0v2_getNext:=_M_protoInkLLs_blockFNK__GetNext}
{$else}
{$FATAL 'macro ".._getNext" : NOT define!'}
{$endif}
//---
{$if defined (_M_protoInkLLs_C0v2__lcl_setNext)}
{$define _fnc_piLLsC0v2_setNext:=_M_protoInkLLs_C0v2__lcl_setNext}
{$elseif defined (_M_protoInkLLs_blockFNK__SetNext)}
{$define _fnc_piLLsC0v2_setNext:=_M_protoInkLLs_blockFNK__SetNext}
{$else}
{$FATAL 'macro ".._setNext" : NOT define!'}
{$endif}
{%endregion}
{%region /fold 'setUP local vars' }
{$if defined (_m_protoInkLLs_C0v2__tmp_POINTER)}
{$define _tmp_piLLsC0v2_POINTER:=_m_protoInkLLs_C0v2__tmp_POINTER}
{$else}
var tmp:pointer;
{$define _tmp_piLLsC0v2_POINTER:=tmp}
{$endif}
{%endregion}
begin
//-- проверки
{$ifOpt D+}
if _cst_piLLsC0v2_NODE=nil then begin
raise Exception.CReate('_cst_piLLsC0v2_NODE==nil !!!');
end;
{$endif}
//-- агоритм-ритм-ритм
_out_piLLsC0v2_RES:=FALSE;
if _var_piLLsC0v2_FIRST<>nil then begin //< имеет ли смысл работать
_out_piLLsC0v2_RES:=TRUE;
if _cst_piLLsC0v2_NODE<>_var_piLLsC0v2_FIRST //< такая ситуация должна быть чаще
then begin //< мда, надо искать предыдущий
_tmp_piLLsC0v2_POINTER:=_var_piLLsC0v2_FIRST;
while (_tmp_piLLsC0v2_POINTER<>nil)and(_fnc_piLLsC0v2_getNext(_tmp_piLLsC0v2_POINTER)<>_cst_piLLsC0v2_NODE)
do _tmp_piLLsC0v2_POINTER:=_fnc_piLLsC0v2_getNext(_tmp_piLLsC0v2_POINTER);
// и вырезаем из него
if _tmp_piLLsC0v2_POINTER<>nil then begin //< всетаки вырезаем
_fnc_piLLsC0v2_setNext(_tmp_piLLsC0v2_POINTER, _fnc_piLLsC0v2_getNext(_cst_piLLsC0v2_NODE));
end
else _out_piLLsC0v2_RES:=FALSE;
end
else _var_piLLsC0v2_FIRST:=_fnc_piLLsC0v2_getNext(_cst_piLLsC0v2_NODE); //<это был первый элемент, его и вырезаем
end
end;
{%region /fold 'unDEF used macros' }
//--- undef Supre Local macros
{$unDef _tmp_piLLsC0v2_POINTER}
//--- undef Local macros
{$unDef _var_piLLsC0v2_FIRST}
{$unDef _cst_piLLsC0v2_NODE}
{$unDef _out_piLLsC0v2_RES}
{$unDef _fnc_piLLsC0v2_getNext}
{$unDef _fnc_piLLsC0v2_setNext}
//--- undef user
{$unDef _m_protoInkLLs_C0v2__tmp_POINTER}
{$unDef _M_protoInkLLs_C0v2__var_FIRST}
{$unDef _M_protoInkLLs_C0v2__cst_NODE}
{$unDef _M_protoInkLLs_C0v2__out_RES}
{$unDef _M_protoInkLLs_C0v2__lcl_getNext}
{$unDef _M_protoInkLLs_C0v2__lcl_setNext}
{%endregion}