带Keys 链表 半成品

已注销41434

测试代码,请用于务生产环境

  

窗口程序集名	保 留	保 留	备 注
XPath, , 公开
变量名	类 型	数组	备 注
m_hHeap	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

m_hHeap ＝ HeapCreate (4, 0, 0)

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

HeapDestroy (m_hHeap)

子程序名	返回值类型	公开	备 注
Instance	整数型
参数名	类 型	参考	可空	数组	备 注
pointer	整数型
Type	整数型
Keys	字节集
Value	字节集

变量名	类 型	静态	数组	备 注
This	整数型
KeysPtr	整数型
ValuePtr	整数型
KeysLen	整数型
ValueLen	整数型
Prev	整数型
Next	整数型
Nums	整数型

判断 (pointer ＞ 0)
Prev ＝ _get (pointer, #Prev )
Next ＝ _get (pointer, #Next )
Nums ＝ _get (pointer, #Nums )
This ＝ HeapAlloc (m_hHeap, 8, 36)
.if (This ＞ 0)
_inc (pointer, #Nums )
_set (This, #Heap, m_hHeap)
_set (Prev, #Next, This)
_set (Next, #Prev, This)
_set (This, #Prev, Prev)
_set (This, #Next, Next)
_set (This, #Nums, 0)
_set (This, #Type, Type)
KeysLen ＝ 取字节集长度 (Keys)
.if (KeysLen ＞ 0)
KeysPtr ＝ HeapAlloc (m_hHeap, 8, KeysLen)
CopyMemory (KeysPtr, 取变量xx地址 (Keys), KeysLen)
_set (This, #Keys, KeysPtr)
_set (This, #KeysLen, KeysLen)
ValueLen ＝ 取字节集长度 (Value)
.if (ValueLen ＞ 0)
ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)
CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)
_set (This, #Value, ValuePtr)
_set (This, #ValueLen, ValueLen)

This ＝ HeapAlloc (m_hHeap, 8, 36)
.if (This ＞ 0)
_set (This, #Heap, m_hHeap)
_set (This, #Prev, This)
_set (This, #Next, This)
_set (This, #Nums, 0)
_set (This, #Type, Type)
KeysLen ＝ 取字节集长度 (Keys)
.if (KeysLen ＞ 0)
KeysPtr ＝ HeapAlloc (m_hHeap, 8, KeysLen)
CopyMemory (KeysPtr, 取变量xx地址 (Keys), KeysLen)
_set (This, #Keys, KeysPtr)
_set (This, #KeysLen, KeysLen)
ValueLen ＝ 取字节集长度 (Value)
.if (ValueLen ＞ 0)
ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)
CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)
_set (This, #Value, ValuePtr)
_set (This, #ValueLen, ValueLen)

return (This)

子程序名	返回值类型	公开	备 注
UnInstance	整数型
参数名	类 型	参考	可空	数组	备 注
pointer	整数型

变量名	类 型	静态	数组	备 注
Heap	整数型
Prev	整数型
Next	整数型
Nums	整数型

Heap ＝ _get (pointer, #Heap )
Prev ＝ _get (pointer, #Prev )
Next ＝ _get (pointer, #Next )
Nums ＝ _get (pointer, #Nums )
调试输出 (_get (pointer, #Type ))
_set (Prev, #Next, Next)
_set (Next, #Prev, Prev)
_dec (pointer, #Nums )
HeapFree (Heap, 0, pointer)
return (Next)

子程序名	返回值类型	公开	备 注
Destroy

子程序名	返回值类型	公开	备 注
XPath	整数型
参数名	类 型	参考	可空	数组	备 注
pointer	整数型
Link	字节集

变量名	类 型	静态	数组	备 注
Path	字节集		0
Nums	整数型
Index	整数型
This	整数型
Ptr	整数型
KeysPtr	整数型
KeysLen	整数型
ValuePtr	整数型
ValueLen	整数型
Sub	整数型

Path ＝ 分割字节集 (Link, 到字节集 (“.”), )
Nums ＝ 取数组成员数 (Path)
.if (Ptr ＝ 0)
Ptr ＝ pointer
.counter (Nums, Index)
Sub ＝ 0
This ＝ 0
.counter (_get (Ptr, #Nums ), )
.if (This ＝ 0)
This ＝ Ptr
This ＝ _get (This, #Next )
KeysPtr ＝ _get (This, #Keys )
KeysLen ＝ _get (This, #KeysLen )
ValuePtr ＝ _get (This, #Value )
ValueLen ＝ _get (This, #ValueLen )
.if (_get (This, #Type ) ＝ #Sub 且 指针到字节集 (KeysPtr, KeysLen) ＝ Path [Index])
Sub ＝ 取字节集xx (指针到字节集 (ValuePtr, ValueLen), #整数型, 1)
break ()

.CounterLoop ()
判断 (This ＝ 0)
Sub ＝ Instance (0, #Parent )
This ＝ Instance (Ptr, #Sub, Path [Index], 到字节集 (Sub))
Ptr ＝ Sub
.switch (Sub ＝ 0)
Sub ＝ Instance (0, #Parent )
setValue (This, 到字节集 (Sub))
Ptr ＝ Sub
Ptr ＝ Sub

.CounterLoop ()
return (Ptr)

子程序名	返回值类型	公开	备 注
getValue	字节集
参数名	类 型	参考	可空	数组	备 注
pointer	整数型

变量名	类 型	静态	数组	备 注
ValuePtr	整数型
ValueLen	整数型
Cache	字节集

ValuePtr ＝ _get (pointer, #Value )
ValueLen ＝ _get (pointer, #ValueLen )
Cache ＝ 指针到字节集 (ValuePtr, ValueLen)
return (Cache)

子程序名	返回值类型	公开	备 注
getKeys	字节集
参数名	类 型	参考	可空	数组	备 注
pointer	整数型

变量名	类 型	静态	数组	备 注
ValuePtr	整数型
ValueLen	整数型
Cache	字节集

ValuePtr ＝ _get (pointer, #Keys )
ValueLen ＝ _get (pointer, #KeysLen )
Cache ＝ 指针到字节集 (ValuePtr, ValueLen)
return (Cache)

子程序名	返回值类型	公开	备 注
setValue
参数名	类 型	参考	可空	数组	备 注
pointer	整数型
Value	字节集

变量名	类 型	静态	数组	备 注
ValuePtr	整数型
ValueLen	整数型

ValueLen ＝ 取字节集长度 (Value)
.if (ValueLen ＞ 0)
ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)
CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)
_set (pointer, #Value, ValuePtr)
_set (pointer, #ValueLen, ValueLen)

子程序名	返回值类型	公开	备 注
getNums	整数型
参数名	类 型	参考	可空	数组	备 注
pointer	整数型

变量名	类 型	静态	数组	备 注
Nums	整数型

Nums ＝ _get (pointer, #Nums )
return (Nums)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 XPath, , 公开<br /> .程序集变量 m_hHeap, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> m_hHeap ＝ HeapCreate (4, 0, 0)<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> HeapDestroy (m_hHeap)<br /> <br /> .子程序 Instance, 整数型, 公开<br /> .参数 pointer, 整数型, 可空<br /> .参数 Type, 整数型, 可空<br /> .参数 Keys, 字节集, 可空<br /> .参数 Value, 字节集, 可空<br /> .局部变量 This, 整数型<br /> .局部变量 KeysPtr, 整数型<br /> .局部变量 ValuePtr, 整数型<br /> .局部变量 KeysLen, 整数型<br /> .局部变量 ValueLen, 整数型<br /> .局部变量 Prev, 整数型<br /> .局部变量 Next, 整数型<br /> .局部变量 Nums, 整数型<br /> <br /> .判断开始 (pointer ＞ 0)<br />     Prev ＝ _get (pointer, #Prev)<br />     Next ＝ _get (pointer, #Next)<br />     Nums ＝ _get (pointer, #Nums)<br />     This ＝ HeapAlloc (m_hHeap, 8, 36)<br />     .if (This ＞ 0)<br />         _inc (pointer, #Nums)<br />         _set (This, #Heap, m_hHeap)<br />         _set (Prev, #Next, This)<br />         _set (Next, #Prev, This)<br />         _set (This, #Prev, Prev)<br />         _set (This, #Next, Next)<br />         _set (This, #Nums, 0)<br />         _set (This, #Type, Type)<br />         KeysLen ＝ 取字节集长度 (Keys)<br />         .if (KeysLen ＞ 0)<br />             KeysPtr ＝ HeapAlloc (m_hHeap, 8, KeysLen)<br />             CopyMemory (KeysPtr, 取变量xx地址 (Keys), KeysLen)<br />         .如果真结束<br />         _set (This, #Keys, KeysPtr)<br />         _set (This, #KeysLen, KeysLen)<br />         ValueLen ＝ 取字节集长度 (Value)<br />         .if (ValueLen ＞ 0)<br />             ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)<br />             CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)<br />         .如果真结束<br />         _set (This, #Value, ValuePtr)<br />         _set (This, #ValueLen, ValueLen)<br />     .如果真结束<br /> <br /> .默认<br />     This ＝ HeapAlloc (m_hHeap, 8, 36)<br />     .if (This ＞ 0)<br />         _set (This, #Heap, m_hHeap)<br />         _set (This, #Prev, This)<br />         _set (This, #Next, This)<br />         _set (This, #Nums, 0)<br />         _set (This, #Type, Type)<br />         KeysLen ＝ 取字节集长度 (Keys)<br />         .if (KeysLen ＞ 0)<br />             KeysPtr ＝ HeapAlloc (m_hHeap, 8, KeysLen)<br />             CopyMemory (KeysPtr, 取变量xx地址 (Keys), KeysLen)<br />         .如果真结束<br />         _set (This, #Keys, KeysPtr)<br />         _set (This, #KeysLen, KeysLen)<br />         ValueLen ＝ 取字节集长度 (Value)<br />         .if (ValueLen ＞ 0)<br />             ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)<br />             CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)<br />         .如果真结束<br />         _set (This, #Value, ValuePtr)<br />         _set (This, #ValueLen, ValueLen)<br />     .如果真结束<br /> <br /> .判断结束<br /> return (This)<br /> <br /> .子程序 UnInstance, 整数型, 公开<br /> .参数 pointer, 整数型, 可空<br /> .局部变量 Heap, 整数型<br /> .局部变量 Prev, 整数型<br /> .局部变量 Next, 整数型<br /> .局部变量 Nums, 整数型<br /> <br /> Heap ＝ _get (pointer, #Heap)<br /> Prev ＝ _get (pointer, #Prev)<br /> Next ＝ _get (pointer, #Next)<br /> Nums ＝ _get (pointer, #Nums)<br /> 调试输出 (_get (pointer, #Type))<br /> _set (Prev, #Next, Next)<br /> _set (Next, #Prev, Prev)<br /> _dec (pointer, #Nums)<br /> HeapFree (Heap, 0, pointer)<br /> return (Next)<br /> <br /> <br /> .子程序 Destroy<br /> <br /> <br /> <br /> .子程序 XPath, 整数型, 公开<br /> .参数 pointer, 整数型<br /> .参数 Link, 字节集, 可空<br /> .局部变量 Path, 字节集, , "0"<br /> .局部变量 Nums, 整数型<br /> .局部变量 Index, 整数型<br /> .局部变量 This, 整数型<br /> .局部变量 Ptr, 整数型<br /> .局部变量 KeysPtr, 整数型<br /> .局部变量 KeysLen, 整数型<br /> .局部变量 ValuePtr, 整数型<br /> .局部变量 ValueLen, 整数型<br /> .局部变量 Sub, 整数型<br /> <br /> Path ＝ 分割字节集 (Link, 到字节集 (“.”), )<br /> Nums ＝ 取数组成员数 (Path)<br /> .if (Ptr ＝ 0)<br />     Ptr ＝ pointer<br /> .如果真结束<br /> .counter (Nums, Index)<br />     Sub ＝ 0<br />     This ＝ 0<br />     .counter (_get (Ptr, #Nums), )<br />         .if (This ＝ 0)<br />             This ＝ Ptr<br />         .如果真结束<br />         This ＝ _get (This, #Next)<br />         KeysPtr ＝ _get (This, #Keys)<br />         KeysLen ＝ _get (This, #KeysLen)<br />         ValuePtr ＝ _get (This, #Value)<br />         ValueLen ＝ _get (This, #ValueLen)<br />         .if (_get (This, #Type) ＝ #Sub 且 指针到字节集 (KeysPtr, KeysLen) ＝ Path [Index])<br />             Sub ＝ 取字节集xx (指针到字节集 (ValuePtr, ValueLen), #整数型, 1)<br />             break ()<br />         .如果真结束<br /> <br />     .CounterLoop ()<br />     .判断开始 (This ＝ 0)<br />         Sub ＝ Instance (0, #Parent)<br />         This ＝ Instance (Ptr, #Sub, Path [Index], 到字节集 (Sub))<br />         Ptr ＝ Sub<br />     .switch (Sub ＝ 0)<br />         Sub ＝ Instance (0, #Parent)<br />         setValue (This, 到字节集 (Sub))<br />         Ptr ＝ Sub<br />     .默认<br />         Ptr ＝ Sub<br />     .判断结束<br /> <br /> .CounterLoop ()<br /> return (Ptr)<br /> <br /> <br /> .子程序 getValue, 字节集, 公开<br /> .参数 pointer, 整数型<br /> .局部变量 ValuePtr, 整数型<br /> .局部变量 ValueLen, 整数型<br /> .局部变量 Cache, 字节集<br /> <br /> ValuePtr ＝ _get (pointer, #Value)<br /> ValueLen ＝ _get (pointer, #ValueLen)<br /> Cache ＝ 指针到字节集 (ValuePtr, ValueLen)<br /> return (Cache)<br /> <br /> <br /> .子程序 getKeys, 字节集, 公开<br /> .参数 pointer, 整数型<br /> .局部变量 ValuePtr, 整数型<br /> .局部变量 ValueLen, 整数型<br /> .局部变量 Cache, 字节集<br /> <br /> ValuePtr ＝ _get (pointer, #Keys)<br /> ValueLen ＝ _get (pointer, #KeysLen)<br /> Cache ＝ 指针到字节集 (ValuePtr, ValueLen)<br /> return (Cache)<br /> <br /> .子程序 setValue<br /> .参数 pointer, 整数型<br /> .参数 Value, 字节集<br /> .局部变量 ValuePtr, 整数型<br /> .局部变量 ValueLen, 整数型<br /> <br /> ValueLen ＝ 取字节集长度 (Value)<br /> .if (ValueLen ＞ 0)<br />     ValuePtr ＝ HeapAlloc (m_hHeap, 8, ValueLen)<br />     CopyMemory (ValuePtr, 取变量xx地址 (Value), ValueLen)<br /> .如果真结束<br /> _set (pointer, #Value, ValuePtr)<br /> _set (pointer, #ValueLen, ValueLen)<br /> <br /> .子程序 getNums, 整数型, 公开<br /> .参数 pointer, 整数型<br /> .局部变量 Nums, 整数型<br /> <br /> Nums ＝ _get (pointer, #Nums)<br /> return (Nums)

木木的树

持开源~！感谢分享

天道酬勤n9

支持开源~！感谢分享